 |
 | Primo script in perl ^^ |  |
 Inviato: Dom Apr 20, 2008 6:23 pm |  | |
| Messaggio |
|
|
|
| Codice: |
#!/usr/bin/perl
use Switch;
$num1 = $ARGV[0];
$calc = $ARGV[1];
$num2 = $ARGV[2];
if ( !$num1 & !$calc & !$num2 ) {
print "(~) Uso: perl <numero> <operatore> <numero>\n";
}
else {
if ( $num1 =~ m/[0-9]/g && $num2 =~ m/[0-9]/g ) {
switch ($calc) {
case "+" { printf( "%f", $num1 + $num2 ); }
case "-" { printf( "%f", $num1 - $num2 ); }
case "/" { printf( "%f", $num1 / $num2 ); }
case "*" { printf( "%f", $num1 * $num2 ); }
else { print(" Errore Operatore \n"); }
}
}
}
|
primo script in perl che consiste in una semplice calcolatrice 
|
|
 |
|
|
| | |
| Inviato: Dom Apr 20, 2008 6:28 pm | | |
| Messaggio |
|
|
|
Come primo script è veramente ottimo
però devi contare il fatto che se magari qualcuno non sa il perl e non sa programmare da quel codice non ci capisce molto
_________________
| Codice: | | synusia hacklab: http://lists.autistici.org/list/synusia-list.en.html |
|
|
|
|
|
|
| | |
| Inviato: Dom Apr 20, 2008 6:57 pm | | |
| Messaggio |
|
|
| | |
| Inviato: Dom Apr 20, 2008 7:16 pm | | |
| Messaggio |
|
|
|
mha magari sono la stessa persona...
_________________
| Codice: |
- Fai una cosa solo se c'è un buon motivo di farla!
- Non conta quello che hai ma come lo usi
- <?php echo $_SERVER['REMOTE_ADDR']; ?>
|
|
|
|
|
|
|
| | |
| Inviato: Dom Apr 20, 2008 8:15 pm | | |
| Messaggio |
|
|
|
se si conosce bene il C, C++ o altri linguaggi, si puo' fare benissimamente come primo script.
Poi non ci vedo nulla di così sbalorditivo, l'unica "fatica" l'ha fatta nelle regex.
_________________
Security-Zone.it
|
|
|
|
|
|
| | |
| Inviato: Lun Apr 21, 2008 11:52 am | | |
| Messaggio |
|
|
| | |
| Inviato: Lun Apr 21, 2008 5:02 pm | | |
| Messaggio |
|
|
|
| DanieleM ha scritto: | | rapper |
asd. 
|
|
|
|
|
|
| Inviato: Mer Lug 09, 2008 10:44 am | | |
| Messaggio |
|
|
|
lol il mio primo script in perl era una calcolatrice con decine dei variabili  , mi ricordo ancora .. cmq come primo script complimenti , va veramente bene ...
|
|
|
|
|
|
| Inviato: Ven Lug 11, 2008 12:23 pm | | |
| Messaggio |
|
|
|
Ricorda che
_________________
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS/CM/CC/E/IT/LS/M d-(--) s:- C+++$ UBL++++$ P+++ L+++++$ E- W+++ w--
PS+++ PE-- Y++ PGP++ tv-- b++>+++ D+ G>+++ e++>++++ h r++ y+++
------END GEEK CODE BLOCK------
|
|
|
|
|
|
| Inviato: Ven Lug 11, 2008 4:23 pm | | |
| Messaggio |
|
|
|
| BlackLight ha scritto: | Ricorda che
|
|
|
|
|
|
| Inviato: Ven Lug 11, 2008 6:00 pm | | |
| Messaggio |
|
|
|
Si pu
_________________
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS/CM/CC/E/IT/LS/M d-(--) s:- C+++$ UBL++++$ P+++ L+++++$ E- W+++ w--
PS+++ PE-- Y++ PGP++ tv-- b++>+++ D+ G>+++ e++>++++ h r++ y+++
------END GEEK CODE BLOCK------
|
|
|
|
|
|
| |
