Discussion :

[Krispy]

Hello !


j'ai le script suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
print "Fichier en cours :";
foreach (@ARGV) {
print $_;
}
print "\n";
 
 
##################################################################
# ETUDE ARGUMENTS
 
$SORTIE_SPAMC=`spamc -R < $_`;

En fait j'aimerais avoir dans la variable sortie_spamc ce que la commande spamc donne avec comme argument un fichier.

le pb, c'est que je ne sais pas pkoi, le $_ n'est pas pris en compte..
une idée ?

Code :

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

sh: line 1: sh: Aucun fichier ou répertoire de ce type

de plus, si je mets \$1, j'obitiens :


thx

[2Eurocents]

Bonjour,

...

Code :

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

1
2
3
4
5
6
7
8
9
10
print "Fichier en cours :";
foreach (@ARGV) {
print $_;
}
print "\n";
 
##################################################################
# ETUDE ARGUMENTS
 
$SORTIE_SPAMC=`spamc -R < $_`;

...

le pb, c'est que je ne sais pas pkoi, le $_ n'est pas pris en compte..
une idée ?

$_ n'a certainement pas la valeur que tu attends lorsqu'il est pris hors de la boucle foreach

Tente en le remettant dans la boucle (si cela a un sens pour ce que tu souhaites faire !) :

Code :

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

1
2
3
4
5
6
7
8
9
10
print "Fichier en cours :";
foreach (@ARGV) {
    print $_ . "\n" . "-"x60 . "\n";
 
    ##################################################################
    # ETUDE ARGUMENTS
    $SORTIE_SPAMC=`spamc -R < $_`;
    print $SORTIE_SPAMC."\n"
}
print "\n";

[Krispy]

En fait, c'est pas exactment ça

Je veux juste lancer ./scriptperl ARGUMENT1


et qu'à l'interieur, on lance la commance ./shellscript ARGUMENT1, et que je récupere la sortie.

C'est faisable ?

[2Eurocents]

C'est faisable ?

Oui, c'est faisable.

Ce script, nommé script.pl, fonctionne parfaitement chez moi :

Code :

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

1
2
3
4
5
6
7
8
#!/usr/bin/perl
use strict;
 
foreach (@ARGV) {
  my $sortie=`ls -al $_`;
 
  print $sortie."\n";
}

Et si je fais

Code :

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

./script /var/log /home /tmp

il fait un ls -al sur chacun des répertoires passés en paramètre.

C'est quand même assez similaire à ce que tu veux faire, non ?

[Krispy]

yes, c'est bien ce que je cherchais, merci !
J'ai une autre question, mais ce sera pour un autre sujet

encore meci