[システム]プログラム言語など学習スレ[初心者]

[0044 名無しさん＠大変な事がおきました 04/09/09 21:59 ID:x9UwFUww]

open(IN,'jikeiretu.txt');
@data = <IN>;

foreach $line (@data){
if(!$line =~ /^0/){push(@buf, $line);}
}

close(IN);

open(OUT,'>converted.txt');
print OUT @buf;
close(OUT);