【広告・宣伝対策】 連絡・相談スレ 【Rock,BBQ,BBM】2

[25 動け動けウゴウゴ２ちゃんねる 2007/09/28(金) 20:57:46 ID:DDeVDHN+0]

open FILE,"NGword_AA.txt";
$msg = "";
foreach(<FILE>){
s/ /\n/g;　s/　/\n/g;　$msg .= $_;
}
close FILE;
@sp = split /\n/ , $msg;
$msg = "";
for($i=0;$i<@sp;$i++){
$line = $sp[$i];　$line =~ s/\n//g;　next if ($line eq "");
$len = length($line);　next if ($len < $maxlen);
$maxlen = $len;　$msg .= $line."\n";
}
open FILE,">NGword_AA2.txt";
print FILE $msg;
close FILE;
某むかつくＡＡが気に障るんで、むしゃくしゃしてやった、今は反省してないｗ　　;の後ろにある全角スペースは改行してくれ