Discussion :

[caramon _majere]

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 :

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

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 :

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

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 :

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

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

[cmcmc]

Une substitution globale suffit :

Code :

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

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 :

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

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 $

[caramon _majere]

Super ca fonctionne

Code :

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

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

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

Merci !

[cmcmc]

Autre méthode :

Code :

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

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

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

[caramon _majere]

Effectivement ca fonctionne aussi

Code :

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

$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 :

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

$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 :

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

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

[cmcmc]

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 :

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

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 $

[caramon _majere]

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

[caramon _majere]

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