[ale] String -> Number

[Christopher Fowler]

Needs some mods

#
# Function converts string to number
#
sub atoi {
    my $ti = 0;

    foreach my $d (split(//, shift())) {
        if($d lt '0' || $d gt '9') {
            return $t;
        }

        $t = $t * 10 + $d;
    }

    return $t;
}


On Mon, 2003-03-17 at 14:30, John Wells wrote:
> 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


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