Perlコーディング初心者質問スレ Part 38

[0783 nobodyさん 04/11/18 11:17:02 ID:???]

$string =~/^TO:\[(\d+)\]/;
$no = $1;