[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.
A voir également:
- [perl] de @ vers $
- Windows 7 vers windows 10 - Accueil - Mise à jour
- Clavier qwerty vers azerty - Guide
- Vers quelle adresse web renvoie ce lien - Guide
- Envoyer vers - Guide
- Comment exporter les photos de google photo vers l'ordinateur - Guide
1 réponse
Salut,
Utilise la fonction join par exemple.
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:~$
