正規表現道場@2ch

[0674 nobodyさん 02/10/06 02:12 ID:UBZ5BN7L]

chop($st = $1) if $st =~ /^((.*?,){6})/;
とか。