Perlでリクに答えるス ..
[2ch|▼Menu]
271:デフォルトの名無しさん
05/10/09 21:35:16
>>263

半角10文字で作ってみた（自信なし）

#!/usr/bin/perl
while (<>) {
while (/.{10}.*?,/) {
print "$&\n";
$_ = " $'";
}
print;
}

次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
暇つぶし2ch
4344日前に更新/217 KB
担当:undef