modification d'un array multiligne

Bonjour,

je suis en train de créer un fichier CSV pour récupérer les valeurs des cellules pour créer des fichiers de configurations.
Je lis le fichier avec le module CPAN TEXT::CSV et dans une cellule je peux avoir plusieurs résultat.

Ce qui donne en gros ca :

Code:

---

1 2 3

my $route = "192.168.0.0 255.255.255.0 10.0.0.1 192.168.1.0 255.255.255.0 10.0.0.1 192.168.2.0 255.255.255.0 10.0.0.1";

---

Le but est de rajouter "ip route" avant chaque ligne pour l'intégrer dans un fichier ultérieusement.

J'ai réussi à faire le rajout en passant par une array.

Mais est ce propre?
Est ce que je peux directement modifier la scalar?

J'ai eu deux possibilités.

### 1er solution ###

Code:

---

1 2 3 4 5 6 7 8 9 10 11

my @ligne = split /\n/, $route;       #foreach my $iproute (@ligne) { # $iproute = "ip route $iproute"; # print "$iproute\n"; # }   #print @ligne;

---

### 2è solution ###

Code:

---

1 2 3 4 5 6 7 8 9 10

my @lines;   foreach (@ligne) { s/^$_/ip route $_\n/; push @lines, $_; }   $lines[-1] =~ s/\n$//;   print @lines;

---

### Résultat ###

ip route 192.168.0.0 255.255.255.0 10.0.0.1
ip route 192.168.1.0 255.255.255.0 10.0.0.1
ip route 192.168.2.0 255.255.255.0 10.0.0.1



Si il y a aussi un moyen de supprimer le dernier retour à la ligne en fin de la boucle je suis preneur :)

Une substitution globale suffit :

Code:

---

1 2 3 4 5

Taisha:~/perl/forum $ perl -E 'say s/(.+)/prefix $1/rg for "a\nb\nc"' prefix a prefix b prefix c Taisha:~/perl/forum $

---

donc dans ton cas

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Taisha:~/perl/forum $ perl -E ' my $route = "192.168.0.0 255.255.255.0 10.0.0.1 192.168.1.0 255.255.255.0 10.0.0.1 192.168.2.0 255.255.255.0 10.0.0.1"; $route =~ s/(.+)/ip route $1/g; say $route ' ip route 192.168.0.0 255.255.255.0 10.0.0.1 ip route 192.168.1.0 255.255.255.0 10.0.0.1 ip route 192.168.2.0 255.255.255.0 10.0.0.1 Taisha:~/perl/forum $

---

Super ca fonctionne :D

Code:

---

$route =~ s/(.+)/ip route $1/g;

---

Je ne savais pas que l'option /g fonctionnait aussi sur le multiligne mais uniquement l'uniligne. :oops:

Merci !

Autre méthode :

Code:

---

$route =~ s/^/ip route /mg;

---

(le flag m indique qu'on est en multiligne, et que ^ matche à chaque début de ligne)

Effectivement ca fonctionne aussi

Code:

---

$route =~ s/^/ip route /mg;

---

Résultat:
ip route 192.168.0.0 255.255.255.0 10.0.0.1
ip route 192.168.1.0 255.255.255.0 10.0.0.1
ip route 192.168.2.0 255.255.255.0 10.0.0.1

Il faut de toute façon le /g

Code:

---

$route =~ s/^/ip route /m;

---

Résultat:
ip route 192.168.0.0 255.255.255.0 10.0.0.1
192.168.1.0 255.255.255.0 10.0.0.1
192.168.2.0 255.255.255.0 10.0.0.1

Au final ta première solution est la plus souple on dirait:

Code:

---

$route =~ s/(.+)/ip route $1/g;

---

Citation:

---

Envoyé par caramon _majere

Au final ta première solution est la plus souple on dirait

---

Elle est en fait plus contrainte. Si tu veux préfixer aussi les lignes vides la seconde est meilleure.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Taisha:~/perl/forum $ perl -E 'say s/(.+)/prefix $1/gr for "a\nb\n\nc"' prefix a prefix b   prefix c Taisha:~/perl/forum $ perl -E 'say s/^/prefix /mgr for "a\nb\n\nc"' prefix a prefix b prefix prefix c Taisha:~/perl/forum $

---

ah, je regarderai ce soir, je vais manquer de temps cet après midi.

C'est bon je viens de tester la différence :)