Date: Thu, 27 Mar 2003 08:45:15 -0600 From: "Kenzo" <kenzo_chin@hotmail.com> To: <freebsd-questions@FreeBSD.ORG> Subject: Fw: perl help Message-ID: <DAV22bC8wSA1XvpFVjC0000087e@hotmail.com>
next in thread | raw e-mail | index | archive | help
Bounced
try again.
----- Original Message -----
From: "Kenzo" <kenzo_chin@hotmail.com>
To: <freebsd-questions@freebsd.org>
Sent: Thursday, March 27, 2003 8:28 AM
Subject: Re: perl help
> This works great.
> now I just realized something else.
> What if I wanted to show and count everything after a specific word.
>
> if I have a sentence like this.
> I went to the store with joe/mike and paul
>
> I want to show how many times "joe/mike and paul" appears.
>
> The script below will only show joe if I input the word with.
> so the desired output would be
> joe/mike and paul 40
>
> then if I have a similar sentence like
> I went to the store with paul and mike
> the output will would be
> paul and mike 25
>
> Thanks.
>
> ----- Original Message -----
> From: "Steve Willoughby" <steve@ichips.intel.com>
> To: "Dan Nelson" <dnelson@allantgroup.com>
> Cc: <freebsd-questions@freebsd.org>
> Sent: Wednesday, March 26, 2003 4:47 PM
> Subject: Re: perl help
>
>
> > > In the last episode (Mar 27), Giorgos Keramidas said:
> > > > On 2003-03-26 14:18, Kenzo <kenzo_chin@hotmail.com> wrote:
> > > > You don't need Perl for that. Here's a small trick:
> > > > grep 'this' file | wc -l
> > > > grep 'that' file | wc -l
> > > Even better:
> > > grep -c 'this' file
> > > grep -c 'that' file
> >
> > Unfortunately, that's not what he was asking for, which is to look for
> > the pattern "big <foo>" where all the possible <foo>s are unknown and
> > report on all the <foo>s that were found.
> >
> > So something like:
> >
> > while (<>) {
> > while (/big\s+(\w+)/g) {
> > $count{$1}++;
> > }
> > }
> >
> > foreach $word (sort(keys(%count))) {
> > print "$word: $count{$word}\n";
> > }
> >
> >
> > ought to do the trick. Play with $/, etc if you want to allow big and
> > <foo> to be across a newline from each other.
> > --
> > Steve Willoughby | "The purpose of IT is to seamlessly and
trans-
> > Intel DPG Eng. Computing | parently provide the other nine-tenths of
the
> > Application Development | iceburg for people who need to work with
> chunks
> > <steve@ichips.intel.com> | of floating ice." --Strata R.
Chalup
> >
> >
> > _______________________________________________
> > freebsd-questions@freebsd.org mailing list
> > http://lists.freebsd.org/mailman/listinfo/freebsd-questions
> > To unsubscribe, send any mail to
> "freebsd-questions-unsubscribe@freebsd.org"
> >
>
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?DAV22bC8wSA1XvpFVjC0000087e>