Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Comparing strings from different files

by Lennotoecom (Monk)
on Oct 08, 2013 at 20:24 UTC ( #1057458=note: print w/ replies, xml ) Need Help??


in reply to Comparing strings from different files

that is ugly but working

while( <> ){ while(/(E99|99)(\w+)(?=\|)|\n/){ $key .= $`; $hash{$key}++; $key = '->'.$2; $_ = $'; } } foreach (sort keys %hash){ print "$_ $hash{$_}\n" if $hash{$_} >= 2; }
run it like ./script.pl FILE1 FILE2
output will be yours repeating lines,
accordingly == 1 will show you unique lines
P.S. and turn out warnings)
P.P.S. sorry for ugliness


Comment on Re: Comparing strings from different files
Download Code
Re^2: Comparing strings from different files
by Lennotoecom (Monk) on Oct 08, 2013 at 20:30 UTC
    under "line" I meant any symbols between E99/99 markers

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1057458]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (10)
As of 2014-07-29 21:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (229 votes), past polls