Discussion :

[vince2005]

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

[Jedai]

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

--
Jedaï

[vince2005]

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 :

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

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

[Arioch]

Réponse rapide :

Code :

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

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