спасибо, нашел только что
| Цитата |
Создавть хеш массивов, где ключем будет буква, а значением будет массив из строк спецзаданий.
|
| Код |
for $k(sort keys %ha){print "<a href=\"#$k\">$k[/url] "}
|
| Цитата |
Вывести линейку начальных букв, по которым будут сортироваться результаты.
|
| Код |
for $k(sort keys %ha){
print "<a name=\"$k\"> [/url]
\n";
foreach $im(@{$ha{$k}}){
($autor, $pesniya, $position)=split /#/, $im;
print "$autor, $pesniya, $position
\n";
}
}
|
| Цитата |
Вывести массивы, ассоциированные со значениями ключей букв. @{$ha{$k}} - просто обычный массив, доступ к которому зависит от значения ключа $k. Каждый элемент массива стостоит из строки с разделителями #, по нему и разделяет функция split ($autor, $pesniya, $position)=split /#/, $im;
|
поробовал сделать так:
| Код |
my $item;
foreach $item (@{$self->{p}->{fDomains}}) {
my ($autor)=split /#/, $item;
print $autor;
# print $item;
exit;
|
тоже самое не работает, то есть exit не срабатывает
так, тоже не работает:
| Код |
for $self->{p}->{fDomains} (sort keys $self->{p}) {
my $item;
foreach $item (@{$self->{p}->{fDomains}}) {
my ($autor)=split /#/, $item;
print $autor;
# print $item;
exit;
|
подправте как сделать?
Добавлено @ 11:24
| Цитата(KSURi @ 27.12.2008, 11:09) | | perldoc -f split |
какую переменную надо ставить в split? если внутри блока for и foreach ничего не видно? даже exit не рабатывает...
| Код |
($autor,)=split /#/, $im;
|
|