OVH Cloud OVH Cloud

Formatage de données

2 réponses
Avatar
lesouriciergris
Bonjour à tous,

je suis en train d'étudier la directive format et notamment
l'utilisation de ^<<< ...

Pour que la variable lié à cette directive continue à s'écrire sans que
je me fatigue, il est indiqué d'utiliser :
~~ ^<<<

Mais ceci provoque l'affichage de ' ' que je ne désire aucunement.

Comment faire pour les éviter ?

Voici un exemple de code source, suivi de la sortie :

#!/usr/bin/perl -w

my $data = "coucou, ceci est une longue chaîne à imprimer";

format STDOUT =
^<<<
$data
^<<<
$data
~~ ^<<<
$data

.

write STDOUT;

Sortie :
--------

couc
ou,
ceci
est
une
long
ue
chaî
ne à
impr
imer

--
\_@°> Eric BERTHOMIER / Le Sourcier Gris
http://lesouriciergris.free.fr http://troll.west.free.fr

2 réponses

Avatar
Damien GUERIN
a écrit dans le message de news:
cnafj4$avj$
Bonjour à tous,

je suis en train d'étudier la directive format et notamment l'utilisation
de ^<<< ...

Pour que la variable lié à cette directive continue à s'écrire sans que je
me fatigue, il est indiqué d'utiliser :
~~ ^<<<

Mais ceci provoque l'affichage de ' ' que je ne désire aucunement.

Comment faire pour les éviter ?

Voici un exemple de code source, suivi de la sortie :

#!/usr/bin/perl -w

my $data = "coucou, ceci est une longue chaîne à imprimer";

format STDOUT > ^<<<
$data
^<<<
$data
~~ ^<<<
$data

.

write STDOUT;

Sortie :
--------

couc
ou,
ceci
est
une
long
ue
chaî
ne à
impr
imer

--
_@°> Eric BERTHOMIER / Le Sourcier Gris
http://lesouriciergris.free.fr http://troll.west.free.fr



Il faut utiliser :

format STDOUT ^<<<
$data
^<<<
$data
^<<<~~
$data

Avatar
lesouriciergris
a écrit dans le message de news:
cnafj4$avj$

Bonjour à tous,

je suis en train d'étudier la directive format et notamment l'utilisation
de ^<<< ...

Pour que la variable lié à cette directive continue à s'écrire sans que je
me fatigue, il est indiqué d'utiliser :
~~ ^<<<

Mais ceci provoque l'affichage de ' ' que je ne désire aucunement.

Comment faire pour les éviter ?

Voici un exemple de code source, suivi de la sortie :

#!/usr/bin/perl -w

my $data = "coucou, ceci est une longue chaîne à imprimer";

format STDOUT >>^<<<
$data
^<<<
$data
~~ ^<<<
$data

.

write STDOUT;

Sortie :
--------

couc
ou,
ceci
est
une
long
ue
chaî
ne à
impr
imer

--
_@°> Eric BERTHOMIER / Le Sourcier Gris
http://lesouriciergris.free.fr http://troll.west.free.fr




Il faut utiliser :

format STDOUT > ^<<<
$data
^<<<
$data
^<<<~~
$data


Merci bien.


--
_@°> Eric BERTHOMIER / Le Sourcier Gris
http://lesouriciergris.free.fr http://troll.west.free.fr