[PERL] Как получить поэлементно строку

walder

Т.е. как представить строку в виде массива, каждым элементом которого будет буква?

Barbie29

$t="12345wytrewe";
push @m => $1 while $t=~m!(.)!gs;
print join "\n" => @m;

Elina74

@arr = split("C*", $str);

Julie16

Могу на питоне
a = map( lambda i: i, "string" )

ava3443

Господа, а где же очевидное
@arr = split //, $str;

ava3443

> push @m => $1 while $t=~m!(.)!gs;
> print join "\n" => @m;
чувствуется человек, никогда не работавший с Perl в команде...

Barbie29

ну, строка для split определяется через $/, а если применить while, то local {$/ = undef} несущественно.
А че там у него будет в переменной, я не знаю.
Относительно команды - я одиночка

ava3443

Я ровно одно имел ввиду: код, приведённый тобою, ужасно читается.

Barbie29

скажем так, я довольно часто тусуюсь в http://groups-beta.google.com/groups/dir?hl=en&sel=33583287&expand=1
там и не такое еще пишут. А относительно стрелочек "=>" они иногда бывают эквивалентами "," и есть некий шик написать не так как обычно чтоли.
По поводу того, что в одну строчку, у Тома Кристиансена есть пространные рассуждения о ленности перл-программеров. Вобщем, яб так сказал.