#!Dperl\bin\perl.exe
print "Calcolatrice by Mastercard \n";
print "inserisci i numeri su cui vuoi operare 2 per volta\n";
print "inserisci il primo e premi invio \n";
$num1 = <STDIN>;
chomp($num1);
print "inserici ora il secondo sempre scrivendolo e premendo invio \n"
$num2 = <STDIN>;
chomp($num2);
print "ORA INSERISCI IL SEGNO DI OPERAZIONE \n Scrivi + per addizione n\ - per sottrazione
\n * per moltiplicazione \n / per divisione e premi invio";
$segno = <STDIN>;
chomp($segno);
$add = $num1 + $num2;
$sottr = $num1 - $num2;
$molt = $num1 * $num2;
$div = $num1 / $num2;
if ( $segno eq + ) {
print "Risultato: $add";
}
elsif ( $segno eq -) {
print "Risultato $sottr";
}
elsif ( $segno eq *) {
print "Risultato: $molt";
}
elsif ( $segno eq /) {
print "Risultato $div";
}
Ragazzi è una calcolatrice che c'è che non va mi sto scervellando.
P.S Mi potete dire gentilmente come si apre un file in per inserendone il percorso o come se si puo mandare mail e file su posta elttronica o via ftp?
Come potet vedere uso windows
print "Calcolatrice by Mastercard \n";
print "inserisci i numeri su cui vuoi operare 2 per volta\n";
print "inserisci il primo e premi invio \n";
$num1 = <STDIN>;
chomp($num1);
print "inserici ora il secondo sempre scrivendolo e premendo invio \n"
$num2 = <STDIN>;
chomp($num2);
print "ORA INSERISCI IL SEGNO DI OPERAZIONE \n Scrivi + per addizione n\ - per sottrazione
\n * per moltiplicazione \n / per divisione e premi invio";
$segno = <STDIN>;
chomp($segno);
$add = $num1 + $num2;
$sottr = $num1 - $num2;
$molt = $num1 * $num2;
$div = $num1 / $num2;
if ( $segno eq + ) {
print "Risultato: $add";
}
elsif ( $segno eq -) {
print "Risultato $sottr";
}
elsif ( $segno eq *) {
print "Risultato: $molt";
}
elsif ( $segno eq /) {
print "Risultato $div";
}
Ragazzi è una calcolatrice che c'è che non va mi sto scervellando.
P.S Mi potete dire gentilmente come si apre un file in per inserendone il percorso o come se si puo mandare mail e file su posta elttronica o via ftp?
Come potet vedere uso windows