вопрос, есть текстовый файлик вида:

a:2:{s:5:"login";s:5:"admin";s:3:"pwd";s:6:"tester";}
.....
...

как мине в переменную из этой строчки вытащить login и pwd. (в данном примере admin и tester )

спасибо за помощь..

# perl -le 'print join "\n",(split "\"",$ARGV[0])[3,7]' 'a:2:{s:5:"login";s:5:"admin";s:3:"pwd";s:6:"tester";}'
admin
tester
#

спасибо мужики!
то что надо!

можно ещё вопрос, как из массива имён вытащить только по одному имени, даже если он повторяется
пример
@str= 'dima vase igor dima lese vase';

результат должен быть: 'dima vase igor'

hash?

нет. просто есть строка вытащенная и файла. в которой повторяются слова. надо что бы все слова были уникальны.

массив в хешь = уникальность элементов массива

запустил не работает. =((
1, 2, 3, 1, 2, 3, 1, 2, 3
1, 3, 2

Добавлено через 2 минуты и 10 секунд
упс... у меня что-то с мозгами.... спасибо всё работает.... =))

почему на работает поиск по массиву:
if (@m =~ /data/) 
или в перле незя так искать в массиве?

Так нельзя или через цикл или коротко 

# perl -le '@ary = qw(a b c d); print "a: ",@ary ~~ m#a#?"yes":"no"; print "e: ",@ary ~~ m#e# ? "yes" : "no"; print "Perl: ",$^V'
a: yes
e: no
Perl: v5.10.0
# 

arto, "~~" - новые вкусности)... 
забыл совсем(

This is perl, v5.8.9 built for i386-freebsd-64int  =((
в портах 10 нету =(

ладно а если циклами...

@a = (1,2,3,1,2,3,1,2,3);
print join(', ',@a)."\n";
my %hash;
foreach my $element (@a) {$hash{$element}++;}
print join(', ',keys %hash)

если я сделаю так:
@mas=join(', ',keys %hash);

то как мине обратится к элементам массива по индексам? $mas[3] - не работает.... ='(

grep { !$_{$_}++ } split ",","a,b,s,b,a"

не понял. можно подробнее.

Так нельзя, но можно так:
if (grep {/data/} @m)
if ("@m" =~ /data/)


Это сообщение отредактировал(а) amg - 15.5.2009, 16:24

@mas=%hash - снова массив

спасибо! а я тут мучаюсь...

Добавлено через 1 минуту и 51 секунду

почему тогда не получается:
@mas=%hash 

print @mas[3];

как обратится к элементу массива?

Немного неточно: мы хотим получить просто ключи из хеша, тогда лучше так: @mas = keys(%hash);

Почитайте про массивы, хеши и обращения к ним и все станет ясно: 

к элементу массива: $mas[1]
к массиву целиком: @mas 
к хешу: $hash{'2321312'}
к всему хешу целиком: %hash 

нет, я всё правильно делал....
просто после:
@mas = keys(%hash);

все данные из hash попавают в $mas[0] =( А я думал, они попадут в $mas[0] .... [n]
( грубо говоря у меня получилось в $mas[0] - profile  thunderpass library.... )
и вопросик, а как мода их засунуть не в $mas[0], а в $mas[0] - frofile, в mas[1] - thunderpass  etc...

А если я из в hash разделю символом новой строки (\n) они бут как отдельные элементы? (не как строка?)

Еще раз рекомендую почитать про массивы, хеши и обращения к ним, существует очень много книг =)
Вы ошибаетесь!





не корректный вопрос... я ничего не понял! 

Прочитал наконец тему с самого начала. Сплошной сумбур!

DaemonSuw,  совет по поиску в массиве, приведенный мной, оказывается, уже был дан Вами. Прошу прощения за дубль и за невнимательность.
scion, сформулируйте какую-нибудь небольшую, но конкретную задачку, нужную Вам. В ответ наверняка кем-нибудь будет предложен код, решающий эту задачку. Тогда, четко зная проблему и имея перед глазами решение, Вам будет гораздо проще разобраться в особенностях конструкций Перла и задать информативные вопросы.