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";
