Ad:

Perl Discussion Thread
Unsolved
Views: 13239

Sep 24th, 2006

Integer to character conversion

Expand Post »

Hello everyone. I'm writing a perl script to implement some active content on my website. Does anyone know if there is a source code library to convert an integer variable to an equivalent character string? I've managed to do the reverse, i.e.

Perl Syntax (Toggle Plain Text)
sub char_2_int{
for ($c = 0; $c < 4; $c++)
{
$d = 3 - $c;
$e = 10**$d;
if ($data[$c] == 0) {}
elsif ($data[$c] == 1) {$hit_count = $hit_count + (1 * $e)}
elsif ($data[$c] == 2) {$hit_count = $hit_count + (2 * $e)}
elsif ($data[$c] == 3) {$hit_count = $hit_count + (3 * $e)}
elsif ($data[$c] == 4) {$hit_count = $hit_count + (4 * $e)}
elsif ($data[$c] == 5) {$hit_count = $hit_count + (5 * $e)}
elsif ($data[$c] == 6) {$hit_count = $hit_count + (6 * $e)}
elsif ($data[$c] == 7) {$hit_count = $hit_count + (7 * $e)}
elsif ($data[$c] == 8) {$hit_count = $hit_count + (8 * $e)}
elsif ($data[$c] == 9) {$hit_count = $hit_count + (9 * $e)}
}
}
sub char_2_int{
for ($c = 0; $c < 4; $c++)
{
$d = 3 - $c;
$e = 10**$d;
if ($data[$c] == 0) {}
elsif ($data[$c] == 1) {$hit_count = $hit_count + (1 * $e)}
elsif ($data[$c] == 2) {$hit_count = $hit_count + (2 * $e)}
elsif ($data[$c] == 3) {$hit_count = $hit_count + (3 * $e)}
elsif ($data[$c] == 4) {$hit_count = $hit_count + (4 * $e)}
elsif ($data[$c] == 5) {$hit_count = $hit_count + (5 * $e)}
elsif ($data[$c] == 6) {$hit_count = $hit_count + (6 * $e)}
elsif ($data[$c] == 7) {$hit_count = $hit_count + (7 * $e)}
elsif ($data[$c] == 8) {$hit_count = $hit_count + (8 * $e)}
elsif ($data[$c] == 9) {$hit_count = $hit_count + (9 * $e)}
}
}

where $data and $hit_count are the character and integer variables respectively. The int_2_char job is proving a bit harder. Any help would be appriciated. Thanks.

Steven.

Similar Threads

reversing long integers,, newbie,, pls. help in C
Number or character? in C
Keyboard input or "stuck in a loop" in C++

Mushy-pea

Reputation Points: 47

Solved Threads: 1

Posting Whiz in Training

Offline

271 posts
since Jun 2006

Permalink

Sep 24th, 2006

Re: Integer to character conversion

I don't understand what that sub routine does or what you are asking. Please explain your question some more.

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

Permalink

Sep 24th, 2006

Re: Integer to character conversion

Hello Kevin. What I mean is, is there a library function that you can pass:

$variable_1 = 1234 (type: integer)

and it will return:

$variable_2 = "1234" (type: character)

Steven.

Mushy-pea

Reputation Points: 47

Solved Threads: 1

Posting Whiz in Training

Offline

271 posts
since Jun 2006

Permalink

Sep 24th, 2006

Re: Integer to character conversion

After doing some reading I've found the answer:

Perl Syntax (Toggle Plain Text)
$variable_2 = sprintf("%u", $variable_1);
$variable_2 = sprintf("%u", $variable_1);

Where $variable_2 and $variable_1 are of type character and integer, respectively.

Mushy-pea

Reputation Points: 47

Solved Threads: 1

Posting Whiz in Training

Offline

271 posts
since Jun 2006

Permalink

Sep 27th, 2006

Re: Integer to character conversion

One of the beautiful things AND at the same time, one of the ugly things about perl is that it does conversions on the fly - by YOUR usage.

here's a snip of calendar code that converts an integer to a character with leading zero:

foreach $day (@mymonth) {
my $LinkDay=$mymonth[$counter];
if ($LinkDay < 10) {
$LinkDay = "0$LinkDay";
}

to get chars to ints... i've just used them as such.

g'luck!

vonfeldt

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

8 posts
since Jul 2005

Permalink

Sep 28th, 2006

Re: Integer to character conversion

perl will drop leading zeros in numbers, but you can stringify numbers to retain the leading zeros or use sprintf() or printf() to pad numbers with leading zeros.

perl will almost always know when to treat digitis as numbers or strings.

Perl Syntax (Toggle Plain Text)
my $var = '01';
my $var2 = '03';
print $var + $var2;
my $var = '01';
my $var2 = '03';
print $var + $var2;

prints: 4

Perl Syntax (Toggle Plain Text)
my $var = '01';
my $var2 = '03';
print $var . $var2;
my $var = '01';
my $var2 = '03';
print $var . $var2;

prints: 0103

Last edited by KevinADC; Sep 28th, 2006 at 2:58 pm.

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

Permalink

Sep 28th, 2006

Re: Integer to character conversion

Thanks for the advice. I guess this means I wasted my effort with that little subroutine. However, at least you know for sure whats going to happen when you implement the conversion yourself.

Steven.

Mushy-pea

Reputation Points: 47

Solved Threads: 1

Posting Whiz in Training

Offline

271 posts
since Jun 2006

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: noob on perl... please help

Next Thread in Perl Forum Timeline: Simple website hit counter

DaniWeb Message

Cancel Changes

User Name
Password