Insertion d'une variable Perl dans une commande SHELL

Version imprimable

13/08/2010, 14h45
dubis

Insertion d'une variable Perl dans une commande SHELL
Bonjour,

Je rentre le résultat d'une commande shell dans une scalaire perl. Cette commande SHELL contient elle même une variable perl.
Code:

1 2 3 4 5 #!/usr/bin/perl -w $user=toto; $test= `echo $user`; print "$test \n";
Naturellement je travaille sur un script bien plus gros que ce dernier mais le message de warning est le même :

Code:

Unquoted string "toto" may clash with future reserved word at ./test2.pl line 3.

Merci de votre aide
13/08/2010, 14h55
Philou67430

Code:

$user = "toto";

et ajoute "use strict;" dans ton script :)
13/08/2010, 15h34
dubis
Merci Philou,

J'en profite car je suis un peut coincer là ... :cry:
Quel serait l'equivalent de la commande Shell suivante en perl :

Code:

getent passwd | awk 'BEGIN { ORS=""; FS=":"} $3 >= 70000 {print$1" "}'

Attention ! "cat /etc/passwd" et "getent passwd" ne sont pas pareils, getent introduit les utilisateurs LDAP dans le résultat.
Je suis newbies j'ai dejà commancé à écrire ceci :
Code:

1 2 3 4 5 #!/usr/bin/perl -w @user=split (/:/, `getent passwd `); # foreach $input ( @user ) { print "$input \n"; }
Cela a enlevé le ":" mais comment faire le test sur l'UID et en sortir le login.

Merci de votre aide

Bonjour,

En fait moi je ferai ceci :
1)je récupérerait chaque ligne de la commande
2) pour chaque ligne je partitionnerais suivant les ":"
3) test sur ton UID (champ 3) et affichage de ton login (champ 1)
Ce qui donnerait :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 #!/usr/bin/perl -w use strict; my @users = `getent passwd `; foreach my $user ( @users ) { chomp($user); my @split_info_user = split(":",$user); my $login = $split_info_user[0]; my $uid = $split_info_user[2]; if($uid > 70000){ print $login."\n"; } }

Merci Benjou,

Je vois cela un peut plus clair ..... je l'ai déjà intégrer dans mon script principal
Cela à l'air de fonctionner sans la "use strict" Ce dernier va me permettre d'envoi des mails automatiques aux utilisateurs abusif.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#!/usr/bin/perl -w
# Ce script est configure pour etre utilise par la crontab de "adm"
use strict;
use MIME::Lite;
@hostname=(`hostname`);
my @users = `getent passwd `;
 
open(ATTACH, ">/tmp/attach.txt") || die "$!";
        print ATTACH "Attention utilisateur  le serveur @hostname\n";
 
                foreach $user (@users) {
			chomp($user);
			my @split_info_user = split(":",$user);
			my $login = $split_info_user[0];
			my $uid = $split_info_user[2];
 
			  if($uid > 70000){
				@rate=split(' ',`du -sk /home/$login`);
				if ($rate[0] > 100000000 ) {
					$mail=`ldapsearch -h localhost -D cn=proxyuser,ou=pam,dc=exemple,dc=org -w xxxxxx -b ou=People,dc=dc=exemple,dc=org uid=$login | grep mail | sed 's/mail\: //'`;
					@output=split(' ',`du -sh /home/$user`);
					print ATTACH "\n Votre repertoire depasse les 100Go merci de verifier :\n";
					print ATTACH "@output \n\n";
					close (ATTACH);
 
 
					#Envoi de l'alerte
					my $msg = new MIME::Lite
					From    =>'adm@example.org',
					To      =>'mdubois@example.org',$mail
					Subject =>'Avertissement de partion pleine sur @hostname',
					Type    =>'multipart/mixed';                    
					attach $msg
					Type =>'TEXT', 
					Data =>"Resultat dans le fichier joint"; 
					attach $msg 
					Type     =>'TEXT', 
					Path     =>'/tmp/attach.txt', 
					Filename =>'/tmp/attach.txt'; 
 
					$msg-> send;
					#On efface le fichier  
					unlink </tmp/attach.txt>;
				}
			}
		}

C'est du brut de fonderie je suis encore entrain de peaufiner apparemment cela fonctionne
Encore Merci

13/08/2010, 17h12
Beniou
C'est normal que ton script tel qu'il est ne fonctionne pas avec le pragma use strict : en effet, cela rend, entre autre, obligatoire de déclarer toute variable utilisée pour la première fois avec le mot clé "my". Ensuite tu peux la réutiliser directement.
Ex :
Code:

1 2 3 4 5 use strict; my $var = "toto"; $var = "titi";
En Perl on préconise d'utiliser ce pragma strict ainsi que le "warnings" (appelé dans ton script dans la première ligne par le -w).
13/08/2010, 18h59
Philou67430

Tiens... je complète ma signature ...
16/08/2010, 12h57
dubis

Citation:

Envoyé par Philou67430

Tiens... je complète ma signature ...

Tu as raison Philou,

Je ne savais pas non plus que l'on pouvais mettre

Code:

foreach my $user (@user) {

:aie:

J'ai encore un message qui revient avant d'avoir un script completement silencieux :

Code:

La première expression régulière ne peut être nulle.

Est ce quelqu'un sait d'où cela vient ?
Encore merci
16/08/2010, 13h16
djibril

A quoi ressemble exactement votre programme actuellement, et quel est le message d'erreur (original) ?

A ceci : (il y a eu pas mal de modification depuis le début)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl -w
 
use strict;
use MIME::Lite;
my @hostname=(`hostname`);
my @users = (`ldapsearch -h localhost -D cn=proxyuser,ou=pam,dc=exemple,dc=org -w xxxxx -b ou=
People,dc=exemple,dc=org uid=* | grep "uid:" | sed 's/uid: //'`);
 
foreach my $user (@users) {
                chomp($user);
                my @rate=split(' ',`du -sk /export/home/$user`);
                if ($rate[0] > 100000000  ) {
                open(ATTACH, ">attach.txt") || die "$!";
                print ATTACH "Attention utilisateur le serveur @hostname vient de verifier ceci : \n";
                my $mail=`ldapsearch -h localhost -D cn=proxyuser,ou=pam,dc=exemple=org -w xxxxx -b ou=People,dc=exemple,dc=org uid=$user | grep mail | sed 's/mail\: //'`;
                my @output=split(' ',`du -sh /export/home/$user | sed 's/\/export//'`);
                print ATTACH "\n Votre repertoire depasse les 100Go merci de verifier :\n";
                print ATTACH "@output \n\n";
                print ATTACH " Destinataire : $mail \n";
                close (ATTACH);
 
 
                #Envoi de l'alerte
                my $msg = new MIME::Lite
                From    =>'adm@exemple.org',
                To      =>'mdubois@exemple.org',
                Subject =>'Espace disque du repertoire de travail devient important sur CIM PACA',
                Type    =>'multipart/mixed';                    
                attach $msg
                Type =>'TEXT', 
                Data =>"Resultat dans le fichier joint"; 
                attach $msg 
                Type     =>'TEXT', 
                Path     =>'attach.txt', 
                Filename =>'attach.txt'; 
 
                $msg-> send;
                #On efface le fichier  
                unlink <attach.txt>;
        }
}

Message d'erreur :

Code:

1
2
La première expression régulière ne peut être nulle.
La première expression régulière ne peut être nulle.

J'ai l'impression que c'est la génération du fichier attach.txt crée cette erreur, car actuellement j'ai 2 répertoire de travail qui sont à plus de 100Go, et le message s'est répété 2 fois. De plus le résultat du scalaire @output est vide ....

Bon, voici votre code remis un peu plus au propre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
#!/usr/bin/perl
use warnings;
use strict;
use MIME::Lite;
use Sys::Hostname;
use Socket;
 
my $hostname = hostname;
 
my @users = (
  `ldapsearch -h localhost -D cn=proxyuser,ou=pam,dc=exemple,dc=org -w xxxxx -b ou=
People,dc=exemple,dc=org uid=* | grep "uid:" | sed 's/uid: //'`
);
 
foreach my $user (@users) {
  chomp($user);
  my @rate = split( ' ', `du -sk /export/home/$user` );
  if ( $rate[0] > 100000000 ) {
    my $fichier = 'attach.txt';
    open( ATTACH, '>', $fichier ) || die "$fichier : $!";
    print ATTACH "Attention utilisateur le serveur $hostname vient de verifier ceci : \n";
    my $mail
      = `ldapsearch -h localhost -D cn=proxyuser,ou=pam,dc=exemple=org -w xxxxx -b ou=People,dc=exemple,dc=org uid=$user | grep mail | sed 's/mail\: //'`;
    my @output = split( ' ', `du -sh /export/home/$user | sed 's/\/export//'` );
    print ATTACH "\n Votre repertoire depasse les 100Go merci de verifier :\n";
    print ATTACH "@output \n\n";
    print ATTACH " Destinataire : $mail \n";
    close(ATTACH);
 
    #Envoi de l'alerte
    my $msg = new MIME::Lite->new(
      From    => 'adm@exemple.org',
      To      => 'mdubois@exemple.org',
      Subject => 'Espace disque du repertoire de travail devient important sur CIM PACA',
      Type    => 'multipart/mixed',
    );
 
    $msg->attach(
      Type => 'TEXT',
      Data => "Resultat dans le fichier joint"
    );
 
    $msg->attach(
      Type     => 'TEXT',
      Path     => $fichier,
      Filename => $fichier,
    );
 
    $msg->send;
 
    #On efface le fichier
    unlink $fichier;
  }
}

Pouvez vous tester ce code et nous donner les messages d'erreurs ?

Bonjour Djibril,

Voilà, le message est toujours là et en plus nous avons une erreur dans le Mine:Lite :

Code:

1
2
3
./Home_Monitor_V3.pl
La première expression régulière ne peut être nulle.
Attempt to bless into a reference at /usr/perl5/site_perl/5.8.4/MIME/Lite.pm line 683.

J'ai donc modifier mon script comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#!/usr/bin/perl
use warnings;
use strict;
use MIME::Lite;
use Sys::Hostname;
use Socket;
 
my $hostname = hostname;
my @users = (`ldapsearch -h localhost -D cn=proxyuser,ou=pam,dc=exemple,dc=org -w xxxx -b ou=People,dc=exemple,dc=org uid=* | grep "uid:" | sed 's/uid: //'`);
 
foreach my $user (@users) {
	chomp($user);
	my @rate=split(' ',`du -sk /export/home/$user`);
	if ($rate[0] > 100000000  ) {
		my $fichier= 'attach.txt';
		open(ATTACH, '>', $fichier ) || die "$fichier : $!";
		print ATTACH "Attention utilisateur le serveur $hostname vient de verifier ceci : \n";
		my $mail=`ldapsearch -h localhost -D cn=proxyuser,ou=pam,dc=exemple,dc=org -w xxxx -b ou=People,dc=exemple,dc=org uid=$user | grep mail | sed 's/mail\: //'`;
		my @output=split(' ',`du -sh /export/home/$user | sed 's/\/export//'`);
		print ATTACH "\n Votre repertoire depasse les 100Go merci de verifier :\n";
		print ATTACH "@output \n\n";
		print ATTACH " Destinataire : $mail \n";
		close (ATTACH);
 
 
		#Envoi de l'alerte
		my $msg = new MIME::Lite
			From    =>'adm@exemple.org',
			To      =>'mdubois@exemple.org',
			Subject =>'Espace disque du repertoire de travail devient important sur CIM PACA',
			Type    =>'multipart/mixed';
		attach $msg
				Type =>'TEXT', 
				Data =>"Resultat dans le fichier joint";
		attach $msg
			Type     => 'TEXT',
			Path     => $fichier,
			Filename => $fichier,;
 
		$msg-> send;
		#On efface le fichier  
		unlink $fichier ;
	}
}

Pour enlever l'erreur suivante :
Attempt to bless into a reference at /usr/perl5/site_perl/5.8.4/MIME/Lite.pm line 683

Le message :
La première expression régulière ne peut être nulle.
est toujours présent

Notez que je n'arrive pas à avoir le résultat @output dans le mail .... alors que celui de @rate est traité. 8O

16/08/2010, 15h32
djibril

Il serait déjà intéressant de tester ce code en ligne de commande

Code:

du -sh /export/home/$user | sed 's/\/export//'
16/08/2010, 15h40
dubis

Citation:

Envoyé par djibril

Il serait déjà intéressant de tester ce code en ligne de commande

Code:

du -sh /export/home/$user | sed 's/\/export//'

Tout juste Djibril,

Sans le PIPE cela fonctionne très bien,

Code:

my $output=(`du -sh /export/home/$user`);

Malheureusement, je ne veux pas que /export apparaisse. Car mes utilisateurs ne le voient pas à travers le montage en NFS, et cette information peut les induire en erreur .....

Merci

Pourquoi ne pas le faire en perl ainsi ?

Code:

1
2
3
4
5
    my $output = `du -sh /export/home/$user`;
    $output =~ s{/export}{}gi;
 
    print ATTACH "\n Votre repertoire depasse les 100Go merci de verifier :\n";
    print ATTACH "$output \n\n";

Je pensais à ceci qui est moins coventionel :oops:

Code:

1
2
3
4
 
my @output=split(' ',`du -sh /export/home/$user`);
print ATTACH "\n Votre repertoire depasse les 100Go merci de verifier :\n";
print ATTACH "$output[0] /home/$user \n\n";

Merci ........