develooper Front page | perl.bootstrap | Postings from July 2000

Re: ok, fire away

Thread Previous
Matthew Persico
July 25, 2000 20:10
Re: ok, fire away
Message ID:
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 ( and 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

    ($reportFileName =~ m/ (\d+){0,1}
                           ((?:[a-eg-z]){0,1} | f(?:\d*))

The scraping sound you now hear is me, slinking away from the


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
Request a CDROM  1-800-333-3633

Thread Previous Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About