in reply to Better solution to the code
Hi, try this
open(FH1,"+>Result_file.txt") or die "Cannot create file $!\n"; open(FH,"<Input_file.dat") or die "Cannot read $!\n"; while(<FH>) { my $data=$_; chomp($data); print FH1 "DATA:$data\n" if(grep/$data/,@tag); } close(FH);
Punitha.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Better solution to the code
by hipowls (Curate) on Jan 25, 2008 at 10:28 UTC |
In Section
Seekers of Perl Wisdom