index

[Ronen Kfir]

Hi,


my $line = <STDIN>;
chomp $line;

my $first_space = index($line , " ");

my $a = substr($line, 0, $first_space);



my $last_space = rindex($line , " ");
my $b = substr($line, $last_space+1);




if (0 < index($line, "*")) {
    print $a * $b, "\n";
}
if (0 < index($line, "+")) {
    print $a + $b, "\n";
}

R o n e n   K f i r
System Administrator
CIT div. Tel Aviv University
Israel
Tel: 972-3-6407416
Fax: 972-3-6405158
cellular: 972-55-405910
E-mail: [EMAIL PROTECTED]
 
 


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]