[ale] perl regex.... again

[lists at serioustechnology.com (Geoffrey Myers)]

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.

> 
> 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


-- 
Until later, Geoffrey

"I predict future happiness for America if they can prevent
the government from wasting the labors of the people under
the pretense of taking care of them."
- Thomas Jefferson