[ale] OT: one for the Perl Guru's
Robert L. Harris
Robert.L.Harris at rdlg.net
Wed May 7 09:17:48 EDT 2003
Got a different one for ya, I know I've done it, just can't find my
archived script and it's just bugging me.
I've loaded %PBFoos with a list of words and the number of times they
are seen so the output of:
foreach $Loop1 (keys(%PBFoos)) {
print "The Word: $Loop1 Appeared: $PBFoos{$Loop1}\n";
}
This is doing what I want but the problem is I need it to sort by
$PBFoos{$Loop1} not $Loop1 such that it's sorted with the entry found
the most number of times first to the least last.
Thanks,
Robert
P.S.: The below was a perfect answer. Thanks alot for that.
Thus spake Fletch (fletch at phydeaux.org):
> >>>>> "Robert" == Robert L Harris <Robert.L.Harris at rdlg.net> writes:
>
> Robert> Problem with this grep is that I have a sentance such as
>
> Robert> <Header crap> File Foo changed size while backups wile
> Robert> running on host Bar
>
> Robert> There's a couple other variations but I'd like it to next
> Robert> if they're there also. The keys are pretty much 3-4 word
> Robert> phrases.
>
> Aaah, I misread the problem. You still can use grep, you just use it
> a little differentently. You can give grep an arbitrary EXPR (or
> BLOCK) to evaluate, it doesn't have to be just a m//.
>
>
> my @ignore = ( qr/changed size/,
> qr/file removed/,
> qr/warp core breach imminent/,
> );
>
> while( my $line = <> ) {
> next if grep $line =~ $_, @ignore;
>
> ## go on and process interesting $line
> }
>
>
> --
> Fletch | "If you find my answers frightening, __`'/|
> fletch at phydeaux.org | Vincent, you should cease askin' \ o.O'
> 770 294-0820 (m) | scary questions." -- Jules =(___)=
> | U
> _______________________________________________
> Ale mailing list
> Ale at ale.org
> http://www.ale.org/mailman/listinfo/ale
:wq!
---------------------------------------------------------------------------
Robert L. Harris | PGP Key ID: E344DA3B
@ x-hkp://pgp.mit.edu
DISCLAIMER:
These are MY OPINIONS ALONE. I speak for no-one else.
Diagnosis: witzelsucht
IPv6 = robert at ipv6.rdlg.net http://ipv6.rdlg.net
IPv4 = robert at mail.rdlg.net http://www.rdlg.net
PGP signature
More information about the Ale
mailing list