Merhaba arkadaşlar


Programlama dilinde yararlı olucak kodlamaları sizlerle paylaşmaya devam ediyorum


Kod:
#!/usr/bin/perl -w

$_=<STDIN>; chomp;
if(($a,$b)=(/(\d+)[+](\d+)/)) {
print $a+$b,"\n";
}
if(($a,$b)=(/(\d+)[-](\d+)/)) {
print $a-$b,"\n";
}
if(($a,$b)=(/(\d+)[*](\d+)/)) {
prirnt $a*$b,"\n";
}
if(($a,$b)=(/(\d+)[\/](\d+)/)) {
print $a/$b,"\n";
}