[ale] String -> Number

[John Wells]

Denny,

There's no atoi function in perl.  But, I did find this through google:

How do I convert a string to a number?

Use this atoi function:

        sub atoi {
          my $t;
          foreach my $d (split(//, shift())) {
            $t = $t * 10 + $d;
          }
        }

        $number = atoi("123");

Denny Chambers said:
> man atoi
>
> Christopher Fowler wrote:
>
>>Is there a formal method of converting a string to a number?  I'm
>> reading a line from a socket that is really a number.  I'm passing
>> that var as an argument to IO::Socket::INET but it fails connection.
>> By
>>
>>This works
>>
>>
>>#strip line terminateor off
>>    chomp($line);
>>    $SPORT = $line;
>>
>>    close($sock);
>>
>>    if($VERBOSE == 1) {
>>        print (STDOUT "Connecting to secondary server on port ",
>> $SPORT,
>>"\n");
>>    }
>>
>>    my $sock = new IO::Socket::INET (
>>                                     PeerAddr => $SERVER,
>>                                     PeerPort => 783,
>>                                     Proto => 'tcp',
>>                                     );
>>    die "Could not create socket: $!\n" unless $sock;
>>
>>This does not
>>    my $sock = new IO::Socket::INET (
>>                                     PeerAddr => $SERVER,
>>                                     PeerPort => $SPORT,
>>                                     Proto => 'tcp',
>>                                     );
>>    die "Could not create socket: $!\n" unless $sock;
>>
>>I'm trying to write a portable logging program that will log output
>> received to a file.
>>
>>Thanks,
>>Chris
>>
>>
>>
>>_______________________________________________
>>Ale mailing list
>>Ale at ale.org
>>http://www.ale.org/mailman/listinfo/ale
>>
>>
>>



_______________________________________________
Ale mailing list
Ale at ale.org
http://www.ale.org/mailman/listinfo/ale