Hello emdub, and welcome to the Monastery!
Here is one way to do this (for a single pair of lines):
#! perl use strict; use warnings; my $string1 = 'CHARLIE ROOT'; my $string2 = 'HARRY NODE'; my @list1 = split //, $string1; my @list2 = split //, $string2; my %hash1 = map { $_ => undef } @list1; my %hash2 = map { $_ => undef } @list2; delete $hash1{' '}; delete $hash2{' '}; for (@list1) { print unless exists $hash2{$_}; } for (@list2) { print unless exists $hash1{$_}; }
Output:
16:26 >perl 815_SoPW.pl CLI TY ND 16:26 >
There are no doubt more elegant/streamlined approaches, but this should give you an idea. (Extending the script to read and compare lines from the two files is left as an exercise!)
Hope that helps,
| Athanasius <°(((>< contra mundum | Iustus alius egestas vitae, eros Piratica, |
In reply to Re: Mostly Harmless
by Athanasius
in thread Mostly Harmless
by emdub
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |