[boulder.pm] RegExpn Matching, not

[Robert L. Harris]

That's what I have currently and it's not working.

Thus spake Scott Longmore (longmore at fsl.noaa.gov):

> 
> > 
> > In reality it's more like this:
> > while(<CONFIN>) {
> >     ($stitle, $title, $source, $match)=split('\#',$_);
> >     $Comics{$stitle}="Conf";
> >     $ComicsTitle{$stitle}=$title;
> >     $ComicsSource{$stitle}='$source';
> > }
> > 
> > I need to back tick it like this?
> > 
> 
> In this case...no...I just looked at the code that I wrote
> which looks very similar and I didnt need to single quote
> the split variable i.e. $source . When reading the string 
> from the file, it does not evaluate the string.
> 
> So that all ya need is:
> 
>     $ComicsSource{$stitle}=$source;
>     
> It depends on whether your regexp is being interally assigned
> or being read it from a file.
> 
> Regards,
> Scott
> 
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> ~ Scott Longmore - CIRA Research Associate   \\\\\\\\\\\\    |   ~
> ~ DOC\NOAA\OAR\FSL\MD\E-Team & FSL\RRV Project  \\\\\\\\\  - * - ~
> ~ 325 Broadway R/FS6, 2C311 DSRC                  ~\__n__\   |   ~
> ~ Boulder, CO 80303 USA                             \\\\\\\      ~ 
> ~ E-mail: longmore at fsl.noaa.gov                       \MMMM\     ~
> ~ URL: http://www-md.fsl.noaa.gov/~longmore             \\\\\    ~
> ~ Phone: (303) 497-6443  Fax: (303) 497-3096     \\\\\Dust\Devil/~
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> In the immortal words of Socrates..."I drank what?" -Chris Knight-


:wq!
---------------------------------------------------------------------------
Robert L. Harris                |  Low quality in a product happens.
Senior System Engineer          |    That doesn't mean it's right and
  at RnD Consulting.		|      definitely doesn't mean it should
                                \_       be accepted.  Require quality.

http://www.rnd-consulting.com/~nomad

DISCLAIMER:
      These are MY OPINIONS ALONE.  I speak for no-one else.

FYI:
 perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);'