[perl] de @ vers $
fxtaa
Messages postés
1050
Date d'inscription
Statut
Membre
Dernière intervention
-
lami20j -
lami20j -
Bonjour,
Je souhaiterai savoir si l'un d entre vous ne connaitrait pas une petite astuce pour passer l'intégralité d'une variable @ dans un $ sans passer par un fichier texte ?
En gros ne pas faire ca (je trouve pas super ca optimisé ^^) :
Bonne journée.
Je souhaiterai savoir si l'un d entre vous ne connaitrait pas une petite astuce pour passer l'intégralité d'une variable @ dans un $ sans passer par un fichier texte ?
En gros ne pas faire ca (je trouve pas super ca optimisé ^^) :
open (FILE, ">c:\\find\\bob.txt"); print FILE @find; close FILE; open (FILE, "c:\\find\\bob.txt"); $bob = <FILE>; close FILE; $bob =~ s/c:/\n/g;
Bonne journée.
Configuration: Windows XP Firefox 3.5.5
1 réponse
-
Salut,
Utilise la fonction join par exemple.
lami20j@debian:~$ cat tab2scalar.pl #!/usr/bin/perl use strict;use warnings; my @find=('a'..'z'); print "********** Le tableau \@find **********\n"; print "@find\n"; my $var = join " ",@find; print "********** La variable \$var **********\n"; print "$var\n"; __END__ lami20j@debian:~$ perl tab2scalar.pl ********** Le tableau @find ********** a b c d e f g h i j k l m n o p q r s t u v w x y z ********** La variable $var ********** a b c d e f g h i j k l m n o p q r s t u v w x y z lami20j@debian:~$
