Discussion :

[dubis]

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 :

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

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 :

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

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

Merci de votre aide

[Philou67430]

Code :

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

$user = "toto";

et ajoute "use strict;" dans ton script

[dubis]

Merci Philou,

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

Code :

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

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 :

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

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

[Beniou]

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 :

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
 
#!/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";
  }
}

[dubis]

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 :

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

[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 :

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

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