Perl

Perl RSS

Illegal hex digit

Please support our Perl advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Apr 2009

Posts: 8

Reputation: sprok is an unknown quantity at this point

Solved Threads: 0

sprok

Offline

Newbie Poster

Illegal hex digit

Apr 19th, 2009

Hello,

I have this code of converting hexadecimal value to decimal but getting a warning at compilation. I'm starting to learn Perl and this one really makes me - almost - crazy!

---

 Help with Code Tags 
 perl Syntax (Toggle Plain Text) 
#!/usr/bin/perl
 
use strict;
use warnings;
 
my $decVal;
 
print "Please enter a hexadecimal value to be converted to decimal: ";
$decVal = <STDIN>;
 
print "The value in decimal is: ", hex($decVal), "\n";
#!/usr/bin/perl

use strict;
use warnings;

my $decVal;

print "Please enter a hexadecimal value to be converted to decimal: ";
$decVal = <STDIN>;

print "The value in decimal is: ", hex($decVal), "\n";

---
When I try to compile it:

Sproky: $ perl hexoct2dec2.plx
Please enter a hexadecimal value to be converted to decimal: 30
Illegal hexadecimal digit '
' ignored at hex2dec2.plx line 11, <STDIN> line 1.
The value in decimal is: 48

Anyone to shed some light please??

Last edited by sprok; Apr 19th, 2009 at 10:10 am. Reason: typo

Do I really have to sign here? Is it ok if I'll use my right hand, instead?!

•

Join Date: Mar 2006

Posts: 898

Reputation: KevinADC has a spectacular aura about

Solved Threads: 67

KevinADC

Offline

Practically a Posting Shark

Re: Illegal hex digit

Apr 19th, 2009

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
$decVal = <STDIN>;
chomp($decVal);#<--- you need this
$decVal = <STDIN>;
chomp($decVal);#<--- you need this

•

Join Date: Apr 2009

Posts: 8

Reputation: sprok is an unknown quantity at this point

Solved Threads: 0

sprok

Offline

Newbie Poster

Re: Illegal hex digit

Apr 20th, 2009

Worked like a charm! Thanks.

I asked a colleague (when I posted this, I'm at home, so never had the chance) I was told that it removes the "extra" character "\n" as I press Enter. Noted!

•

Originally Posted by KevinADC

Help with Code Tags

Perl Syntax (Toggle Plain Text)
$decVal = <STDIN>;
chomp($decVal);#<--- you need this
$decVal = <STDIN>; chomp($decVal);#<--- you need this