«

Hi

I may have an error elsewhere in my program,
but , for the moment, will the following removed all hex chars 00 to 40?

$x =~ s|[\x00-\x40]||g;

Regards
John

On Wed, 7 Oct 2009 14:38:09 +0100, "John" <> wrote:

>Hi
>
>I may have an error elsewhere in my program,
>but , for the moment, will the following removed all hex chars 00 to 40?
>
>$x =~ s|[\x00-\x40]||g;
>
>Regards
>John
>
>
"but , for the moment, will the following removed chars: hex 00 to 40?
That should work, have you tried it?
$x =~ s/[\x{00}-\x{40}]//g;

-sln

<> wrote in message
news:...
> On Wed, 7 Oct 2009 14:38:09 +0100, "John" <> wrote:
>
>>Hi
>>
>>I may have an error elsewhere in my program,
>>but , for the moment, will the following removed all hex chars 00 to 40?
>>
>>$x =~ s|[\x00-\x40]||g;
>>
>>Regards
>>John
>>
>>
> "but , for the moment, will the following removed chars: hex 00 to 40?
> That should work, have you tried it?
> $x =~ s/[\x{00}-\x{40}]//g;
>
> -sln

Hi

It doesn't work so I now know I have a problem somewhere else.

Regards and thanks
John

John wrote:
>
> I may have an error elsewhere in my program,
> but , for the moment, will the following removed all hex chars 00 to 40?
>
> $x =~ s|[\x00-\x40]||g;

$ perl -le'
use Data:umper;
$Data:umper::Useqq = 1;
my $string = join q//, map chr, 0 .. 127;
print Dumper $string;
$string =~ s|[\x00-\x40]||g;
print Dumper $string;
'
$VAR1 =
"\0\1\2\3\4\5\6\a\b\t\n\13\f\r\16\17\20\21\22\23\2 4\25\26\27\30\31\32\e\34\35\36\37
!\"#\$%&'()*+,-./0123456789:;<=>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\177";

$VAR1 =
"ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\177";


Yes, that works.



John
--
The programmer is fighting against the two most
destructive forces in the universe: entropy and
human stupidity. -- Damian Conway

"John W. Krahn" <> wrote in message
news:iE7zm.225471$...
> John wrote:
>>
>> I may have an error elsewhere in my program,
>> but , for the moment, will the following removed all hex chars 00 to 40?
>>
>> $x =~ s|[\x00-\x40]||g;
>
> $ perl -le'
> use Data:umper;
> $Data:umper::Useqq = 1;
> my $string = join q//, map chr, 0 .. 127;
> print Dumper $string;
> $string =~ s|[\x00-\x40]||g;
> print Dumper $string;
> '
> $VAR1 =
> "\0\1\2\3\4\5\6\a\b\t\n\13\f\r\16\17\20\21\22\23\2 4\25\26\27\30\31\32\e\34\35\36\37
> !\"#\$%&'()*+,-./0123456789:;<=>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\177";
>
> $VAR1 =
> "ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\177";
>
>
> Yes, that works.
>
>
>
> John
> --
> The programmer is fighting against the two most
> destructive forces in the universe: entropy and
> human stupidity. -- Damian Conway


OK. Thanks. It should removed '0A' and I guess it does but it re-appears
later on.
My guess is somewhere later in the propram it is added back.

Regards
John