Perl- Tester le résultat d'un grep

Version imprimable

Bonjour ;
Mon problème est dans le teste du résultat grep or j'ai écrit le bout de code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
 
open (SORTIE, ">res.txt") or die ("probleme d'ouverture");
 
        if (-e "/etc/sysctl.conf"){
 
                         $cmd=" grep  net.ipv4.icmp_echo_ignore_broadcasts  /etc/sysctl.conf ";
        if ($cmd ne ""){
								exec "$cmd 1>res.txt ";
                                print SORTIE exec($cmd);
 
                                 }
                        else {
                              print SORTIE "La chaine n'existe pas dans le fichier\n";  
                                }}
        else {
                print SORTIE " Le fichier n'existe pas\n ";}
 
 
close(SORTIE);

Lorsque je lance ce script avec "net.ipv4.icmp_echo_ignore_broadcasts" qui ne se trouve pas dans le fichier /etc/sysctl.conf , j'ai l'impression au vu du fichier res.txt qu'il rentre toujours dans le bloc if.

Pourriez vous m'éclairer svp?

(P.S: soyez indulgents si j'ai écrit de grosses bêtises, je débute...)

15/05/2011, 19h13
Dimitry.e

Je ne comprends pas l'intérêt de ton if.
Tu pourrais détailler ce que tu veux faire ?
15/05/2011, 23h31
dark_angel91

J'ai oublié dans le if il ya un if($cmd ne "")

je veux tester si une un ligne existe dans un fichier si oui il faut l'afficher dans mon fichier txt sinon un message doit s'afficher dans le fichier maleureusement dans ce 2ème cas rien n'est s'affiché dans res.txt

Dans ce cas, fais tout en Perl et évite les appels de fonctions externes.
Une méthode simple :

Code:

1
2
3
4
5
6
7
8
9
10
open( F, "/etc/sysctl.conf" ) or die "ne peut ouvrir le fichier : $!\n";
my $ligneExist = 0;
while( $ligneExist == 0 and defined( my $l = <F> ) ) {
  $ligneExist = 1 if $l =~ /net.ipv4.icmp_echo_ignore_broadcasts/;
}
# Si la ligne existe
if ( $ligneExist == 1 ) {
  do_something;
}
close F

16/05/2011, 11h45
dark_angel91

Merci pour votre aide !! je travaille sur la sécurisation du réseau intelligent et ce petit script va vraiment m'aider merci encore