Front page | perl.bootstrap |
Postings from July 2000
Re: ok, fire away
Thread Previous
From:
Matthew Persico
Date:
July 25, 2000 20:10
Subject:
Re: ok, fire away
Message ID:
397E57BD.D196DD60@acedsl.com
Matthew Persico wrote:
>
> To get to ball rolling:
>
> =SUBJECT - Perl regexp substitutions require extra work for parsing
Yes, this is not a proper POD header, as pointed out in a private email.
I was being "cute". Sorry.
> ($reportSeq,$reportDesignation,$reportCode,$reportFreq,$commentaryName)
> =
> split ',', ((($dummy = $reportFileName) =~
> s/(\d+){0,1}(am[cpj])(\S+?)((?:[a-eg-z]){0,1}|f(?:[0-9]*)).prn(.*)/$1,$2,$3,$4,$5/),$dummy);
>
Others (zack@wolery.cumb.org and rspier@pobox.com) were kind enough to
have tried to spare me embarrassment by pointing out in private emails
that m// does EXACTLY what I want to accomplish here, as in
($reportSeq,$reportDesignation,$reportCode,$reportFreq,$commentaryName)
=
($reportFileName =~ m/ (\d+){0,1}
(am[cpj])
(\S+?)
((?:[a-eg-z]){0,1} | f(?:\d*))
.prn
(.*)
/x);
The scraping sound you now hear is me, slinking away from the
mail-group.
:-(
--
Matthew O. Persico
"If you were supposed to understand it,
we wouldn't call it code." - FedEx
____________NetZero Free Internet Access and Email_________
Download Now http://www.netzero.net/download/index.html
Request a CDROM 1-800-333-3633
___________________________________________________________
Thread Previous