high voltage =)
----------------------------------------------------------------------------------------------------------------------------------
#!/usr/bin/perl
use strict;
use warnings;\
my $key = 1;
my $hash;
@{$hash->{$key}} = ("10","11");
$hash->{1}[2] = "sintaxe\n";
print join ("|",@{$hash->{1}});
Result
$ perl tmp.pl
10|11|sintaxe
0 comentários:
Post a Comment