| [ LinuxFreeBSD ] in KIDS 글 쓴 이(By): wang (Chip쟁이) 날 짜 (Date): 2001년 5월 4일 금요일 오후 04시 10분 00초 제 목(Title): Re: [q] text processing + batch 질문 #!/bin/perl -w foreach $filename (@ARGV){ open IFILE, "$filename" or die "Cannot open $filename\n"; open OFILE, "tempfile" or die "Cannot open tempfile\n"; while(<IFILE>){ if($_ =~ /<pattern a>/){ print OFILE, "blahblah\n"; print OFILE, $_; print OFILE, "blahblah\n"; }elsif($_ =~ /<pattern b>/{ print OFILE, "blahblah\n"; print OFILE, $_; print OFILE, "blahblah\n"; }else{ print OFILE, $_; } } close IFILE; close OFILE; rename "tempfile", $filename; } |