Discussion :

[dark_angel91]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...)

[Dimitry.e]

Je ne comprends pas l'intérêt de ton if.
Tu pourrais détailler ce que tu veux faire ?

[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

[Dimitry.e]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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