Quote:
Originariamente inviato da gabmac2
un esempio pratico?
|
Codice:
#!/usr/bin/perl
use strict;
use warnings;
my $var = "questa è solo una prova, o forse no";
my @array = split / /, $var;
print "Dimensione --> " . scalar @array . "\n";
foreach( @array ){
print "$_ \n";
}