Dotaz: perl - rozdelení stingu na pismena a uložení do pole

[motorcb]

Zdravím. V perlu mam proměnou:

$pozdrav="Vitame vas na Nasem webu";

a potřeboval bych jednotlivé znaky z proměné uložit do pole.

print $pole[0]; #V
print $pole[1]; #i
print $pole[2]; #t
print $pole[3]; #a
...


Poradí nekdo? Diky moc :)

Odpovědi

[Jan Matis]

my $test="toto je testovaci string"; my @array=split(//, $test);

foreach my $pom (@array) {

print "$pom \n"; }

[zoul]

Jé, to jsem pako, to je úplně to stejný jako to moje :) Jak jsem viděl tři řádky kódu, automaticky jsem si myslel, že jde o něco složitějšího. Příště budu rychlejší!

[Jan Matis]

Pravdepodobne ano. Ja mam vacsinou 7:00 ceskeho casu este hlboku noc .. to len dnes som nemohol spat :)

[zoul]

my @pole = split(//, $pozdrav);

[ams]

Jenom pro uplnost: /(.)/g je mnohonasobne rychlejsi nez split //,$_

[happy barney]

len pre úplnosť, reťazec 'abcd', cmpthese:

             Rate   split m/(.)/g
split    378788/s      --    -87%
m/(.)/g 2941176/s    676%      --

[Janda Martin]

A co když je ten text s českými znaky v utf8? Takto to rozřeže všechny ěščřžýá atd. Jak to vyřešit?

[Janda Martin]

Tak si odpovím:

@znaky = split (/(?=\w)/,$reteec);

[Janda Martin]

Hm, stále mi to i tak vypisuje místo á nějaké paznaky. Když vytisknu celý řetězec tak je to ok, ale po znaku se to rozdělí na 2 patvary. Ať použiju use locale; use utf8; apod.

[MartinJanda]

Nakonec jsem to vyřešil následovně: Lze použít modul String::Multibyte, který mimo jiných funkcí nabízí i náhradu za split pro multibytové řetězce.

use String::Multibyte;
$utf8 = String::Multibyte->new('UTF8');
$moje = "ěščřžýáíéů";
@pole = $utf8->strsplit("", $moje);
print Dumper(@pole);

a funguje to.