Discussion :

[Mounr]

Bonjour a tous
je suis un débutant en perl et je veut mettre un string dans un tableau array
exemple
$string="aaaa aaaa aaaa aaaaa
bbb bbbb bbb bbb bbb bbb
ccc ccc ccc ccc ccc cccc":
Est le resultat sera le suvant
my @liste;
$liste[0]= "aaaa aaaa aaaa aaaaa";
$liste[1]= "bbb bbbb bbb bbb bbb bbb";
$liste[2]= "ccc ccc ccc ccc ccc cccc":
je sait que je doit utiliser la fonction split mais je ne sait pas qu'es que je doit mettre comme délimiteur j'essaye \n mais ca marche pas
@liste=split(/\n/,$string);
merci pour votre aide

[50Nio]

Bonjour,
Pourtant ton code est bon:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
use strict;
use warnings;
use Data::Dumper;
 
my $string="aaaa aaaa aaaa aaaaa
bbb bbbb bbb bbb bbb bbb
ccc ccc ccc ccc ccc cccc";
 
my @liste=split(/\n/,$string);
 
print Dumper(@liste);
print $liste[0];

donne bien le résultat escompté.

Tu es sous Windows ou Linux/Unix ou Mac ?
Tu as ton code complet disponible pour le coller ici ?

[Mounr]

c'est ma faute puisque j ai voulu supprimer tous les espace avant
$string =~ s/^\s+//; #supprime les espaces en début de chaine
$string =~ s/\s+$//; #en fin de chaine
$string =~ s/\s+/ /g; #remplace des séries d'espaces par un seul
my @liste=split(/\n/,$string);
c est bon maintenant ca marche merci pour votre aide

[Jasmine80]

Tu peux remplacer les espaces n'étant pas des \n
Vu que \s équivaut à [ \t\n\r\f], dans ton cas, tu peux simplement utiliser

Code :

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

1
2
$string =~ s/ +$//; #en fin de chaine
$string =~ s/ +/ /g; #remplace des séries d'espaces par un seul

C'est mieux d'appliquer cette substitution avant le split ainsi tu l'effectues une seule fois sur le texte en entier.