05/10/09 21:35:16
>>263
半角10文字で作ってみた（自信なし）
#!/usr/bin/perl
while (<>) {
while (/.{10}.*?,/) {
print "$&\n";
$_ = " $'";
}
print;
}
05/10/09 21:35:16
>>263
半角10文字で作ってみた（自信なし）
#!/usr/bin/perl
while (<>) {
while (/.{10}.*?,/) {
print "$&\n";
$_ = " $'";
}
print;
}