|
|
|
Как из подпрограмы на Perl добраться к массиву, который передан подпрограме как параметр?
|
|||
|---|---|---|---|
|
#18+
... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.01.2005, 19:24 |
|
||
|
Как из подпрограмы на Perl добраться к массиву, который передан подпрограме как параметр?
|
|||
|---|---|---|---|
|
#18+
my $a1 = [1,2,3]; my @a2 = (1,2,3); aaa($a1, \@a2); sub aaa { my ($r1,$r2) = @_; print($r1->[0]); print($r2->[1]); print(@$r2[2]); } ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.01.2005, 22:09 |
|
||
|
Как из подпрограмы на Perl добраться к массиву, который передан подпрограме как параметр?
|
|||
|---|---|---|---|
|
#18+
Можно подробнее о варианте с r2? ну для чего там символ @ присутствует. Еще дополнительная информация - скрипт работает под Apache::Registry на mod_perl, там я знаю не всякое делать можно. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.01.2005, 21:51 |
|
||
|
Как из подпрограмы на Perl добраться к массиву, который передан подпрограме как параметр?
|
|||
|---|---|---|---|
|
#18+
тебе просто показали разные варианты доступа к массиву, который передан по ссылке можно так $r2->[2]; или так @$r2[2]; весь массив: print @$r2; авторработает под Apache::Registry на mod_perl в данном случае это не имеет значения ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.01.2005, 10:37 |
|
||
|
|

start [/forum/topic.php?fid=23&msg=32858119&tid=1478976]: |
0ms |
get settings: |
6ms |
get forum list: |
10ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
147ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
34ms |
get tp. blocked users: |
1ms |
| others: | 256ms |
| total: | 470ms |

| 0 / 0 |
