in reply to Re^2: Comparing strings from different files
in thread Comparing strings from different files
well I tested it on different files,
but the main idea is:
or if it might be optimized
ty)
but the main idea is:
correct if there are mistakes,foreach (<*.in.sep>){ $name = $` if /.in.sep/; open IN, $_ or die $!; open OUT, $name.'.out.sep' or die $!; %hash = map{ s/E99/99/g; $_ => $hash{$_}++;} <IN>, <OU +T>; close IN, OUT; foreach (sort keys %hash){ print "$_ $hash{$_}\n" if !$hash{$_}; } }
or if it might be optimized
ty)
|
---|
In Section
Seekers of Perl Wisdom