equivalent du cut en perl ou du awk

Bonjour,

quel est l'équivalent du cut ou du awk en perl , pour récupérer les 4 champs d'une ligne, avec comme séparateur les espaces.

Merci d'avance

split(), éventuellement (split /regex/, string)[liste des colonnes à conserver].

--
Jedaï

et c'est quoi la syntaxe exacte, pour récuperer que la colonne 2 et 3 du fichier toto.txt.

exemple :

Nomfichier 25/06/2007 Avril 2005

et je veux recupérer 25/06/2007 Avril

Code:

---

1 2 3 4 5 6 7 8

open (FIC, "<toto.txt") || die "Ouverture impossible du fichier : $!"; while ($Ligne = <FIC> ) { @Liste=split(/ /,$Ligne,[2-3]) ; print "@Liste\n" ; } } close (FIC);

---

merci pour votre aide

Réponse rapide :

Code:

---

1 2 3

my $blabla = "Nomfichier 25/06/2007 Avril 2005"; @_ = split(/ /, $blabla); my $date = "$_[1] $_[2]";

---