18.10.2007, 11:21
|
|
Banned
Регистрация: 12.01.2007
Сообщений: 113
Провел на форуме:
4094601
Репутация:
495
|
|
2 [sL1p]
ИМХО красивей
Код:
#!/usr/bin/perl -w
use strict;
use warnings;
my( $var,$VR,$VRR ) = ( 55.55,undef,undef );
($VR,$VRR ) = split(/\./,$var);
printf "Sum : %d \n",$VR+$VRR;
Твой случай:
Код:
#!/usr/bin/perl
use strict;
my $var = <STDIN>;
chomp(my ($VR, $VRR) = split(/\./,$var));
printf "Sum : %d \n",$VR+$VRR;
Извиняюсь если неправильно понял, но если суммируем два числа значит они вещественного типа. |
|
|