Re: ok, fire away

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 ([email protected] and [email protected]) 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
___________________________________________________________