Re: Re: parse for string, then print unique

Replies are listed 'Best First'.
Re: Re: Re: parse for string, then print unique by Roger (Parson) on Dec 16, 2003 at 05:12 UTC
You mean something like this? `use strict; use warnings; use Data::Dumper; my $str = '"$a $a $a" ab bc "c$d e$f$" c$d "$a $a $a"'; my @uniq = keys %{{map {$_ => 1}($str=~m/("[^"]\$[^"]")/g)}}; print Dumper(\@uniq);` [download] And the output is - `$VAR1 = [ '"c$d e$f$"', '"$a $a $a"' ];` [download] Note that I kept the regex simple by not trying to escape the string in the example above. If you want to include escaped strings, the regex becomes more complicated. `... my $str = '"$a $a $a" ab bc "c$d \"e$f$" c$d "$a $a $a"'; my @uniq = keys %{{map {$_ => 1} ($str=~m/("(?:\\"\|.)?\$(?:\\"\|.)?")/g)}}; ...` [download] And the new output - `$VAR1 = [ '"c$d \\"e$f$"', '"$a $a $a"' ];` [download]	[reply] [d/l] [select]
Re: parse for string, then print unique by Abigail-II (Bishop) on Dec 16, 2003 at 09:36 UTC
Since dollar signs are neither alpha's, nor numeric characters, what are alphanumeric strings which contain a dollar sign? Are "$$LEGEND2", "L$E$G$E$N$D$2", "LEG!$!END2" valid strings? Abigail	[reply]
Re: Re: Re: parse for string, then print unique by ysth (Canon) on Dec 16, 2003 at 19:46 UTC
If the quotes are part of the string, what else would you allow to be part of the string? Is more than one $ ok? Based on the ^ in your original try, is what you really want entire lines of the file? If so, what lines don't you want? I note that your original posting kept the strings in original order (by filtering out duplicates assuming they were in sorted order). If that is what you want, any of the solutions involving keys aren't going to do what you want. A hash approach will still work, but goes like this: `my %seen; @out = map !$seen{$_}++, @in;` [download] or just keep your original grep (unless the strings aren't in sorted order).	[reply] [d/l]