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

44 ：名無しさん＠大変な事がおきました：04/09/09 21:59 ID:x9UwFUww.net

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);