[perl] de @ vers $ Fermé

Question

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é ^^) : 

open (FILE, ">c:\find\bob.txt");
print FILE @find;
close FILE;

open (FILE, "c:\find\bob.txt");
$bob = <FILE>;
close FILE;

$bob =~ s/c:/
/g;

Bonne journée.

lami20j · Answer

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 **********
";
print "@find
";
my $var = join " ",@find;
print "********** La variable \$var **********
";
print "$var
";

__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:~$

[perl] de @ vers $

1 réponse

Discussions similaires