[ale] perl regex.... again

[Michael H. Warfield]

On Mon, 2011-02-28 at 16:28 -0500, Geoffrey Myers wrote: 
> Pat Regan wrote:
> > On Mon, 28 Feb 2011 15:38:37 -0500
> > Geoffrey Myers <lists at serioustechnology.com> wrote:
> > 
> >>> Geoffrey,
> >>>
> >>> if ($line =~ /[^\040-\176]/) {
> >>>
> >>>    print ("Line contains out of range characters\n");
> >>>
> >>> }
> >>>
> >>> keith
> >> Does not pick up an string that contains an embedded character
> >> outside the range.  Say:
> >>
> >> This is a bad ^G line.
> > 
> > His code should print the message for a control-g.  Can you post your
> > actual code and some test input that fails?
> 
> I cut/pasted his code inside my:
> 
> while(<>) {
> }
> 
> the above example is from my test data;

> This is a bad ^G line.

Silly question but that is a true cntrl-G and not a ^G like what was in
your message?

Due to a bug in his suggested code, why don't you try a tab.  He forgot
to include the HT (Horizontal Tab) character (\011).  Unless there's a
problem using octal escapes in bracketed exclusions with perl.  I've
seen some things what work outside of a bracket range and won't inside.
Try this instead [^ -~] which will do the same thing (and still has the
same bug).

> > Pat
> > _______________________________________________
> > Ale mailing list
> > Ale at ale.org
> > http://mail.ale.org/mailman/listinfo/ale
> > See JOBS, ANNOUNCE and SCHOOLS lists at
> > http://mail.ale.org/mailman/listinfo

Regards,
Mike
-- 
Michael H. Warfield (AI4NB) | (770) 985-6132 |  mhw at WittsEnd.com
   /\/\|=mhw=|\/\/          | (678) 463-0932 |  http://www.wittsend.com/mhw/
   NIC whois: MHW9          | An optimist believes we live in the best of all
 PGP Key: 0x674627FF        | possible worlds.  A pessimist is sure of it!
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 482 bytes
Desc: This is a digitally signed message part
Url : http://mail.ale.org/pipermail/ale/attachments/20110228/c8e60b1a/attachment.bin