remplacement du awk en perl

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

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

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

Code:

---

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

---

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

Code:

---

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:

---

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:

---

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

---

--
Jedaï

Citation:

---

Envoyé par djibril

Code:

---

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 !! :P

--
Jedaï

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

:yaisse2:

Citation:

---

Envoyé par Arioch

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

:yaisse2:

---

Il n'a qu'à etre plus clair :lol:
:mrgreen: :king:

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

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:

---

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:

---

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

---

--
Jedaï

en effet, ca marche mieux comme ca

Merci à tous ;
:D :D :D