Discussion :

[Avicen]

Bonjour,

je suis débutant en perl, j'ais plutôt l'habitude de programmer en shell.
J'ai un script ksh que je dois transformer en perl, et je bloque sur une ligne de ce type :

en shell, j'ai :

RES=`echo $List | awk '{print $6}' | tail -1`

Comment modifier le résultat du awk en perl ?

Merci pour votre aide.

Avicen

[djibril]

En supposons que personne sur ce forum ne comprenne le ksh,
peux tu preciser ce que ta commande est censé faire

[Avicen]

On aurait par exemple :
List="un deux trois quatre cinq six"

la commande : RES=`echo $List | awk '{print $6}' | tail -1`

fait un echo (print) de la variable $List : "un deux trois quatre cinq six"

la commande awk récupère la 6eme occurence de la sortie de l'echo, soit "six"

le "tail -1", ne sert a rien ici, c'est dans le cas ou il y aurait plusieurs ligne en sortie, le tail -1 n'affichera que la derniere ligne

[djibril]

Code :

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

1
2
@list = qw(un deux trois quatre cinq six);
print $list[5];

[Jedai]

Code :

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

1
2
@list = qw(un deux trois quatre cinq six);
print $list[5];

C'est de la triche si tu assumes que la liste provient du processus Perl et est donc déjà sous forme de tableau !!

--
Jedaï

[Arioch]

Tous les moyens sont bons pour parvenir à ses fins, hein djibril ?

[Jedai]

Je crois comprendre que ce serait quelque chose de cet ordre :

Code :

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

1
2
3
4
5
6
my $list = ""; # même contenu que pour ton code shell
chomp($list);
# récupérer la dernière ligne dans $list
my $last_line = substr $list, (rindex $list, "\n") + 1;
# imprimer le sixième champ de cette ligne
print ((split ' ', $last_line)[5]);

En fait ton code shell est beaucoup moins efficace que ça, parce qu'il fait plutôt quelque chose de cet ordre :

Code :

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

1
2
3
4
5
my $last_field;
for ( split "\n", $list ) {
  $last_field = (split)[5];
}
print $last_field;

Autrement dit il découpe inutilement toutes les lignes mais ne garde que la dernière, mon premier code est plutôt équivalent à :

Code :

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

echo $List | tail -1 | awk '{print $6}'

--
Jedaï

[Avicen]

Merci a tous,

Désolé Djibril, mais la solution de jedai me convient mieux
La liste que j'utilise est générée par une commande

mais cela me fait une erreur sur la ligne :

print (split ' ', $last_line)[5];

>> Impossible de trouver le fichier (split

[Jedai]

Drôle d'erreur ??
Néanmoins il y avait effectivement une erreur de parenthèses à cette ligne : print() prenait (split ...) pour son argument, et (print something)[5] n'a pas de sens (print ne renvoie pas une liste).

Il faut donc corriger ceci en mettant des parenthèses supplémentaires (par exemple) :

Code :

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

1
2
3
chomp($list);
my $last_line = substr $list, (rindex $list, "\n") + 1;
print ((split ' ', $last_line)[5]);

Moins efficace mais plus court :

Code :

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

1
2
$_ = (split "\n", $list)[-1];
print +(split)[5];

--
Jedaï

[Avicen]

en effet, ca marche mieux comme ca

[Avicen]

Merci à tous ;