Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Extract info from a list

by tedrek (Pilgrim)
on Jul 16, 2003 at 03:31 UTC ( #274672=note: print w/replies, xml ) Need Help??


in reply to Extract info from a list

Actually you don't even need a regex for this:

$s{substr($_, 2,index($_,'/',2)-2)}++ for <DATA>; print reverse sort map {"$_ = $s{$_}\n"} keys %s; __DATA__ //word.one.team/other.stuff/Info.info //this.sentence/other.inforation/moreInfo //first.part.here/set.list //this.sentence/data/processing

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://274672]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (6)
As of 2021-09-27 14:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?