Re: Is there a way to compare strings without using an array?

in reply to Is there a way to compare strings without using an array?

say $line2 =~ /[$line1]/g;
say $line1 =~ /[^$line2]/g, $line2 =~ /[^$line1]/g;
[download]

Comment on Re: Is there a way to compare strings without using an array? Download Code

Replies are listed 'Best First'.
Re^2: Is there a way to compare strings without using an array? by CountZero (Bishop) on Oct 18, 2011 at 20:08 UTC
With duplicates removed and the output sorted: `use Modern::Perl; my $line1= 'CABGFEBFA'; my $line2= 'DBFDDF'; say sort keys %{{map {$_ => 1} $line2 =~ /[$line1]/g}}; say sort keys %{{map {$_ => 1} $line1 =~ /[^$line2]/g, $line2 =~ /[^$l +ine1]/g}};` [download] CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply] [d/l]
Re^2: Is there a way to compare strings without using an array? by Jeri (Scribe) on Oct 18, 2011 at 19:34 UTC
`say for $line1 =~ /[$line2]/g;` it complains... `Bareword "say" not allowed while "strict subs"` when I delete say, it complains... `syntax error at evan.pl line 8, near "$line1 =~"` What's the trick to this sting comparison? thanks!	[reply] [d/l] [select]
Re^3: Is there a way to compare strings without using an array? (say) by toolic (Bishop) on Oct 18, 2011 at 19:45 UTC
Bareword "say" not allowed while "strict subs" perldoc -f say `use feature 'say';` [download]	[reply] [d/l]
Re^4: Is there a way to compare strings without using an array? (say) by Jeri (Scribe) on Oct 18, 2011 at 19:51 UTC
thanks, it's working	[reply]
Re^4: Is there a way to compare strings without using an array? (say) by Jeri (Scribe) on Oct 18, 2011 at 20:00 UTC
Why is it necessary to use 'say'? If I took out.. `use feature 'say';` and the 'say' in... `say for $line1 =~ /[$line2]/g;` Why doesn't it work?	[reply] [d/l] [select]
Re^5: Is there a way to compare strings without using an array? (say) by jeffa (Bishop) on Oct 18, 2011 at 21:44 UTC
Re^6: Is there a way to compare strings without using an array? (say) by ikegami (Patriarch) on Oct 18, 2011 at 22:45 UTC
Re^5: Is there a way to compare strings without using an array? (say) by ikegami (Patriarch) on Oct 18, 2011 at 22:49 UTC

In Section Seekers of Perl Wisdom