Phoenix.pm: Regex question

[Phil Hartfield]

Yeah huh.

Long live the large corporations of the world.  ::sigh::

Phil

Anthony Nemmer wrote:
> 
> 
> MindSpring, R.I.P.  ;-)
> 
> At 04:53 PM 2/5/01 -0700, you wrote:
> >At 03:36 PM 2/5/01 -0700, you wrote:
> >>Heh, had to look that up in the
> <HREF="http://info.astrian.net/jargon/">Jargon
> >>Dictionary</A>
> >>
> >>TMTOWTDI, MBIIYS CTLB
> >>
> >>Phil Hartfield
> >>  ________
> >>/        \
> >>|GoStats |
> >>|        |
> >>| R.I.P. |
> >>|        |
> >>|Dec 2000|
> >>----------
> >
> >This was quite an email day for me.  Offended a new guy and confused 
> >everyone else.  :)  That's what  I get for being in a hurry.  So what is 
> >GoStats?
> >
> >>Doug Miles wrote:
> >> >
> >> > Anthony Nemmer wrote:
> >> > >
> >> > > Jesus, Doug.  =)
> >> >
> >> > Sorry.  That wasn't what I meant.  I was just saying TMTOWTDI and
> >> > welcome to the mailing list!
> >> >
> >> > > At 01:07 PM 2/5/01 -0700, you wrote:
> >> > > >tcpeter at mindspring.com wrote:
> >> > > >>
> >> > > >> On Fri, 2 Feb 2001, Doug Miles wrote:
> >> > > >>
> >> > > >> > This is probably something obvious,
> >> > > >>
> >> > > >> I don't think so...
> >> > > >>
> >> > > >> > but I don't have my regex book with
> >> > > >> > me, and can't seem to figure it out.  I'm trying to parse space
> >> > > >> > delimited information, somewhat like the UNIX command 
> >> line.  Whitespace
> >> > > >> > delimits parameters, but parameters can containg whitespace if
> >> > > >> > surrounded by quotes.  Here's the code:
> >> > > >> >
> >> > > >> > #!/usr/bin/perl
> >> > > >> >
> >> > > >> > my $string = qq(DailyNAV "Class C" nav);
> >> > > >> >
> >> > > >> > my @tokens = $string =~ /(\S+)/g;
> >> > > >> > my @tokens = $string =~ /"([^"]+)"/g;
> >> > > >>
> >> > > >> > my @tokens = $string =~ /"([^"]+)"|(\S+)/g;
> >> > > >> > print join('|', @tokens) . "\n";
> >> > > >> >
> >> > > >> > here is the output:
> >> > > >> >
> >> > > >> > DailyNAV|"Class|C"|nav
> >> > > >> > Class C
> >> > > >> > |DailyNAV|Class C|||nav
> >> > > >>
> >> > > >> Doug,
> >> > > >> I've been sorta lurking here a long time reading, but this is the 
> >> first
> >> > > time I've contributed.  This seems to work.  It's really the same as 
> >> one of
> >> > > yours, with just a bit of tweaking.
> >> > > >
> >> > > >I'll be nice since you're a first time poster. :)
> >> > > >
> >> > > >>
> >> > > >> #!/usr/bin/perl
> >> > > >>
> >> > > >> my $string = qq(DailyNAV "Class C" nav);
> >> > > >> print join('|', split(/\s?"([^"]+)"\s?/, $string))."\n";
> >> > > >
> >> > > >--
> >> > > >- Doug
> >> > > >
> >> > > >Encrypted with ROT-26 - all attempts to decrypt are illegal under the
> >> > > >DMCA!
> >> > > >
> >> > > >
> >> >
> >> > --
> >> > - Doug
> >> >
> >> > Encrypted with ROT-26 - all attempts to decrypt are illegal under the
> >> > DMCA!
> >> >
> >
> >
> >
> >
>