Programme en perl
Fermé
hichamyousfi
Messages postés
5
Date d'inscription
jeudi 9 février 2012
Statut
Membre
Dernière intervention
28 mars 2012
-
Modifié par hichamyousfi le 27/03/2012 à 05:30
TMTOWTDI - 30 mars 2012 à 19:43
TMTOWTDI - 30 mars 2012 à 19:43
A voir également:
- Programme en perl
- Programme demarrage windows 10 - Guide
- Mettre en veille un programme - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans un autre programme - Guide
- Désinstaller programme windows 10 - Guide
- Sms programmé - Guide
6 réponses
hichamyousfi
Messages postés
5
Date d'inscription
jeudi 9 février 2012
Statut
Membre
Dernière intervention
28 mars 2012
1
Modifié par hichamyousfi le 28/03/2012 à 06:20
Modifié par hichamyousfi le 28/03/2012 à 06:20
j ai ecrit ce script pour compter les connexions acceptées et les connexions refusées, mais il ne fonctione pas. Aidez moi SVP :
#!/usr/bin/perl
#
#
use strict;
use warnings;
#ouvrir fichier en lecture
open Fich,'< log.txt' or die "Le fichier n'existe pas !";
while (my $ligne = <Fich>) {
# découpe une ligne en champs
my @mots=split / /, $ligne;
for (my $i=0;$i<=$#mots;$i++) {
my $connection = 0;
my $refusion = 0;
if ($6 eq "connect"){
$connection ++;
} elsif ($6 eq "refused"){
refusion ++;
}
}
}
close Fich;
#!/usr/bin/perl
#
#
use strict;
use warnings;
#ouvrir fichier en lecture
open Fich,'< log.txt' or die "Le fichier n'existe pas !";
while (my $ligne = <Fich>) {
# découpe une ligne en champs
my @mots=split / /, $ligne;
for (my $i=0;$i<=$#mots;$i++) {
my $connection = 0;
my $refusion = 0;
if ($6 eq "connect"){
$connection ++;
} elsif ($6 eq "refused"){
refusion ++;
}
}
}
close Fich;
Templier Nocturne
Messages postés
7734
Date d'inscription
jeudi 22 janvier 2009
Statut
Membre
Dernière intervention
21 mai 2016
1 104
27 mars 2012 à 06:02
27 mars 2012 à 06:02
Si tu attends de nous qu'on fasse le programme à ta place, tu t'es trompé d'endroits
hichamyousfi
Messages postés
5
Date d'inscription
jeudi 9 février 2012
Statut
Membre
Dernière intervention
28 mars 2012
1
27 mars 2012 à 17:34
27 mars 2012 à 17:34
Merci bcp pour ta reponse
je veux pas que tu me fasse le script mais juste des indices
merci une autre fois
je veux pas que tu me fasse le script mais juste des indices
merci une autre fois
Templier Nocturne
Messages postés
7734
Date d'inscription
jeudi 22 janvier 2009
Statut
Membre
Dernière intervention
21 mai 2016
1 104
27 mars 2012 à 17:42
27 mars 2012 à 17:42
alors pose des questions précises sur où tu bloque ^^
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
hichamyousfi
Messages postés
5
Date d'inscription
jeudi 9 février 2012
Statut
Membre
Dernière intervention
28 mars 2012
1
27 mars 2012 à 19:16
27 mars 2012 à 19:16
Ok je m excuse
merci
merci
Templier Nocturne
Messages postés
7734
Date d'inscription
jeudi 22 janvier 2009
Statut
Membre
Dernière intervention
21 mai 2016
1 104
27 mars 2012 à 19:58
27 mars 2012 à 19:58
...
Dans la boucle for tu incrémentes la variable $i donc c'est $i que tu dois tester dans les if
$6 a une autre signification en Perl, mais ce n'est pas le sujet.
Pour ton info, dans ton message initial "connect" est plutôt dans la colonne 6 donc l'index 5 du tableau
cat blabla
Mar 17 01:21:35 beta.CRM.Montreal.CA in.ftpd[13331]: connect from 63.196.54.11
Mar 17 01:21:35 theta.CRM.Montreal.CA in.ftpd[27801]: connect from 63.196.54.11
Mar 17 01:21:35 truffaut.CRM.Montreal.CA in.ftpd[18652]: connect from 63.196.54.11
perl -F"/\s/" -ane 'print "$F[5]\n"' blabla
connect
connect
connect
perl -F"/\s/" -ane 'print "$F[6]\n"' blabla
from
from
from
$6 a une autre signification en Perl, mais ce n'est pas le sujet.
Pour ton info, dans ton message initial "connect" est plutôt dans la colonne 6 donc l'index 5 du tableau
cat blabla
Mar 17 01:21:35 beta.CRM.Montreal.CA in.ftpd[13331]: connect from 63.196.54.11
Mar 17 01:21:35 theta.CRM.Montreal.CA in.ftpd[27801]: connect from 63.196.54.11
Mar 17 01:21:35 truffaut.CRM.Montreal.CA in.ftpd[18652]: connect from 63.196.54.11
perl -F"/\s/" -ane 'print "$F[5]\n"' blabla
connect
connect
connect
perl -F"/\s/" -ane 'print "$F[6]\n"' blabla
from
from
from