Re: Re: Re: How to use long strings...

Assuming this is a complete list of the possibilities

my $content = ....;
my %counts;

$counts{ $_ }++ 
    for $content =~ m[logo_([^_]+)_20x10\.gif]g;
print "$_ : $counts{ $_ }\n" for keys %counts;
[download]

Though it make me wonder what all the obfuscation of $left_string $unknown_string $right_string and blaaahala etc. was all about?

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller
If I understand your problem, I can solve it! Of course, the same can be said for you.

Comment on Re: Re: Re: How to use long strings... Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: How to use long strings... by khelben (Initiate) on Sep 03, 2003 at 11:27 UTC
Thank You a lot! Here my dirty way, but it works: `sub by_val { return -($seen{$a} <=> $seen{$b}); } for (split("\n", $content)) { $good = ( split(/logo_/, $_) ) [ 1 ]; $good1 = ( split (/_20x/, $good) ) [ 0 ] if $good; $seen{$good1}++ if $good1; } print "$_ $seen{$_}" for sort by_val keys %seen;` [download] I will test Your way soon. Roman	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Re: Re: How to use long strings...
by khelben (Initiate) on Sep 03, 2003 at 11:27 UTC

sub by_val { return -($seen{$a} <=> $seen{$b}); }

for (split("\n", $content))
{
$good = ( split(/logo_/, $_) ) [ 1 ];
$good1 = ( split (/_20x/, $good) ) [ 0 ] if $good;
$seen{$good1}++ if $good1;
}

print "$_ $seen{$_}" for sort by_val keys %seen;
[download]

[reply]
[d/l]