Portál AbcLinuxu, 6. května 2024 17:21
$pozdrav="Vitame vas na Nasem webu";
print $pole[0]; #V
print $pole[1]; #i
print $pole[2]; #t
print $pole[3]; #a
...
my $test="toto je testovaci string";
my @array=split(//, $test);
foreach my $pom (@array) {
print "$pom \n";
}
my @pole = split(//, $pozdrav);
Rate split m/(.)/g split 378788/s -- -87% m/(.)/g 2941176/s 676% --
@znaky = split (/(?=\w)/,$reteec);
use String::Multibyte; $utf8 = String::Multibyte->new('UTF8'); $moje = "ěščřžýáíéů"; @pole = $utf8->strsplit("", $moje); print Dumper(@pole);a funguje to.
Tiskni Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.