Extract info from a list

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Please advise a reg expression to extract the information right after the "//" in the below list example (my real list has about 400 lines of information):


//word.one.team/other.stuff/Info.info
//this.sentence/other.inforation/moreInfo
//first.part.here/set.list
//this.sentence/data/processing
[download]

I need to get this from the above list and if possible how many occurences of each:

word.one.team = 1 
this.sentence = 2 
first.part.here = 1
[download]

Comment on Extract info from a list Select or Download Code

Replies are listed 'Best First'.
Re: Extract info from a list by Zaxo (Archbishop) on Jul 16, 2003 at 01:36 UTC
An easy way is to split on '/' which ordinarily needs to be escaped. The resulting array has nothing in the first two slots, `my %count; $count{(split /\//)[2]}++ while <DATA>; printf "%s = %d\n", $_, $count{$_} for keys %count; __DATA__ //word.one.team/other.stuff/Info.info //this.sentence/other.inforation/moreInfo //first.part.here/set.list //this.sentence/data/processing` [download] Update: ++tos for the correction. Repaired. After Compline, Zaxo	[reply] [d/l]
Re: Re: Extract info from a list by tos (Deacon) on Jul 16, 2003 at 09:24 UTC
a little typo in your fine solution `$_` and `$count{$_}` have to be swapped `printf "%s = %d\n", $_, $count{$_} for keys %count;` [download] greetings, tos	[reply] [d/l] [select]
Re: Extract info from a list by bobn (Chaplain) on Jul 16, 2003 at 01:29 UTC
`# UN-TESTED for { @list ) { next unless m!^//(.*?)/!; $seen{$1}++; } for ( sort keys %seen ) { print "$_ = $seen{$_}\n"; }` [download] --Bob Niederman, http://bob-n.com	[reply] [d/l]
Re: Extract info from a list by tedrek (Pilgrim) on Jul 16, 2003 at 03:31 UTC
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` [download]	[reply] [d/l]


We don't bite newbies here... much
	PerlMonks