Re: Can't figure out this warning.

2003-07-31 Thread John W. Krahn
Rob Dixon wrote: > > John W. Krahn wrote: > > Rob Dixon wrote: > > > > > > Also your check for a hex number is wrong - it will be successful if the > > > string contains at least one alpha character. Change this for > > > > > > if ($flds[5] =~ /^[a-z0-9]+$/) > > > > Also wrong. It should be: >

Re: Can't figure out this warning.

2003-07-31 Thread Rob Dixon
John W. Krahn wrote: > Rob Dixon wrote: > > > > Sudarshan Raghavan wrote: > > > Sachin Hegde wrote: > > > > > > > > <131> if($flds[5] =~ /[a-zA-Z]+/)# Check for a hex number > > > > Also your check for a hex number is wrong - it will be successful if the > > string contains at least

Re: Can't figure out this warning.

2003-07-31 Thread John W. Krahn
Rob Dixon wrote: > > Sudarshan Raghavan wrote: > > Sachin Hegde wrote: > > > > > > <131> if($flds[5] =~ /[a-zA-Z]+/)# Check for a hex number > > Also your check for a hex number is wrong - it will be successful if the > string contains at least one alpha character. Change this for

Re: Can't figure out this warning.

2003-07-31 Thread Rob Dixon
Sudarshan Raghavan wrote: > Sachin Hegde wrote: > > > Hi, > > There is this warning which I can't remove : > > > > Illegal hexadecimal digit ' > > ' ignored at test.pl line 131, line 23. > > > It is the newline at the end > > > > > > > test.pl is the name of the program while FH is a file handle(r

Re: Can't figure out this warning.

2003-07-30 Thread Sudarshan Raghavan
Sachin Hegde wrote: Hi, There is this warning which I can't remove : Illegal hexadecimal digit ' ' ignored at test.pl line 131, line 23. It is the newline at the end test.pl is the name of the program while FH is a file handle(read only). Part of my code is: <129> $ln = ; <130> @f

Can't figure out this warning.

2003-07-30 Thread Sachin Hegde
Hi, There is this warning which I can't remove : Illegal hexadecimal digit ' ' ignored at test.pl line 131, line 23. test.pl is the name of the program while FH is a file handle(read only). Part of my code is: <129> $ln = ; <130> @flds = split(/ /,$ln); <131> if($flds[5] =~ /[a-zA-Z]