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]
