Extracting ranged data

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

Hello, I am attempting to parse some data that looks like the following:

Users of some feature

   user1
   user2
   user3
   ...

Users of some other feature

   user1
   user2
   user3
   ...

Users of yet another feature

...
[download]

What I am trying to figure out is how to count the number of users utilizing each feature. I have been playing around with the .. and ... operators but have not been successful.
Thanks for any help you can give

Comment on Extracting ranged data Download Code

Replies are listed 'Best First'.
Re: Extracting ranged data by BigGuy (Friar) on Jul 24, 2002 at 20:21 UTC
THis is quick and dirty and just assumes that your data is structured the way you did in your post. `#!/usr/bin/perl open IN, "in.txt" or die "Can't Open input\n"; $count = 0; while (<IN>) { chomp($_); if ($_ =~ /Users/) { print $_,"\t=\t"; } elsif ($_ =~ /\.\.\./) { print $count,"\n"; $count = 0; } else { if ($_) { $count++; } } }` [download] gives this as a result from your example data `Users of some feature = 3 Users of some other feature = 3 Users of yet another feature = 0` [download] BigGuy "One World, one Web, one Program" - Microsoft promotional ad "Ein Volk, ein Reich, ein Fuhrer" - Adolf Hitler	[reply] [d/l] [select]
Re: Re: Extracting ranged data by blaze (Friar) on Jul 24, 2002 at 21:21 UTC
Like BigGuy said, his example is assuming that you have one text file set up exactly like what you have posted which looks like: Users of some feature user1 user2 user3 ... Users of some other feature user1 user2 user3 ... Users of yet another feature ... Is that the case?	[reply]
Re: Extracting ranged data by fuzzyping (Chaplain) on Jul 24, 2002 at 21:20 UTC
I suggest you take a look at my code from Re: Searching Files. The data structure is very similar, you just might need to increment differently. -fp	[reply]
Re: Extracting ranged data by neilwatson (Priest) on Jul 24, 2002 at 20:09 UTC
Showing us a sample of your actual data and the actual code that is giving you problems would help us to better help you. Neil Watson watson-wilson.ca	[reply]


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