Bonjour à tous, excusez pour le hs, ce soir la liste n'est pas trop chargee
je tente d'experimenter le perl. avant d'acheter le mega bouquin d'O reilly a pres de 300F pardon...environ 45 euros ,j'aimerais faire fonctionner un petit script que j'ai trouve dans linux mag. ma config mdk-8.0 et perl d'origine, (paquetage perl-base 5.600.30mdk) deja kpakage m'indique une difference d'attribut de fichier entre /usr/bin/sperl5.6.0 et /usr/bin/suidperl je ne sais pas si c'est important? c'est 'sperl qui n'est pas setuid/setgid in suidperl.' mon probleme : pour le script ci apres je recupère les messages d'erreurs suivants: pour 1 et 2 je ne vois pas du tout, je declare des variables il n'en veut pas pour 3 j'ai modifie la ligne autant que j'ai pu sans résultat. si qq a un debut de piste merci André -------message d'erreurs--------------------------- [dede@localhost LOTO]$ ./loto.pl 1-> ./loto.pl: use: command not found 2-> ./loto.pl: use: command not found 3->./loto.pl: line 7: syntax error near unexpected token `(' ./loto.pl: line 7: `for ( $i = 1 ; i <= 49 ; $i++ ) {' --------------script--linux mag N°34------------- #!/usr/bin/perl -w use strict ; use vars qw/ @boule$i / ; for ( $i = 1 ; i <= 49 ; $i++ ) { $boule [ $i ] = 0 ; } while (<>) { my $ligne = $_; my ($even, $date, $tirage, $b1, $b2, $b3, $b4, $b5, $b6, $bc)=split(';',$ligne); chomp ($b1,$b2,$b3,$b4,$b5,$b6,$bc); $boule[$b1]=$boule[$b1]+1 ; $boule[$b2]=$boule[$b2]+1 ; $boule[$b3]=$boule[$b3]+1 ; $boule[$b4]=$boule[$b4]+1 ; $boule[$b5]=$boule[$b5]+1 ; $boule[$b6]=$boule[$b6]+1 ; for ($i=1;$i <= 49 ; $i++) { print "$boule[$i]:$i\n"; } $ cat loto | ./loto.pl | less ------------------------fin du script-------------------------- -- E-Mail: [EMAIL PROTECTED]
Vous souhaitez acquerir votre Pack ou des Services MandrakeSoft? Rendez-vous sur "http://www.mandrakestore.com"