<?php
$arr= array();
$arr["super"]=array(1,2,3);
print $arr["super"];
?>
Perl, массив в хеше
Всем привет. Необходимо засунуть в хеш массив.
Иными словами, мне нужно сделать то, что на php делается следующим образом:
Вот. Наивно пробовал %arr = ("super"=>(1,2,3)); и %arr = ("super", (1,2,3)), результат очевиден. ЧЯДНТ?
Иными словами, мне нужно сделать то, что на php делается следующим образом:
Код:
Вот. Наивно пробовал %arr = ("super"=>(1,2,3)); и %arr = ("super", (1,2,3)), результат очевиден. ЧЯДНТ?
Как всегда, в этом языке подарок на подарке. Оказывается, нужно писать так:
%arr = ("super"=>[1,2,3] .....);
%arr = ("super"=>[1,2,3] .....);
И обращаться вот так: @{$arr{"super"}}
можно и так:
к первому элементу в key1
Код:
%arr = ('key1'=>[1,2,3], 'key2'=>[4,5,6]);
$arr{'key1'}->[0]
$arr{'key1'}->[0]
к первому элементу в key1
А в foreach мне их как перебирать?
Еще вопрос:
Файл test.pl
Файл bot.pl
В итоге, последний файл выводит "ne ravno", хотя регулярки одинаковые. В чем проблема может быть, не подскажете?
Еще вопрос:
Файл test.pl
Код:
$text=":nick!~usenrame\@ip PRIVMSG $channel :!add ca2v2";
my ($nick, $username, $host, $chan,$type) = $text=~ /\:(.*)\!(.*)@(.*) PRIVMSG(.*):!add (.*)/i;
if($type=~ /^(ctf|tdm|ca|ca2v2|tdm2v2)$/i) #или я здесь пишу: if($type eq "ctf" || $type ...)
{
print "ravno\r\n";
}
my ($nick, $username, $host, $chan,$type) = $text=~ /\:(.*)\!(.*)@(.*) PRIVMSG(.*):!add (.*)/i;
if($type=~ /^(ctf|tdm|ca|ca2v2|tdm2v2)$/i) #или я здесь пишу: if($type eq "ctf" || $type ...)
{
print "ravno\r\n";
}
Файл bot.pl
Код:
$response=<$server>; $server = socket
if($response =~ /PRIVMSG $channel :!add (.*)/i)
{
my ($nick, $username, $host, $chan,$type) = $response=~ /\:(.*)\!(.*)@(.*) PRIVMSG(.*):!add (.*)/i;
if($type =~ /^ctf$/) # или по аналогии выше
{print "ravno";}else{print "ne ravno";}
if($response =~ /PRIVMSG $channel :!add (.*)/i)
{
my ($nick, $username, $host, $chan,$type) = $response=~ /\:(.*)\!(.*)@(.*) PRIVMSG(.*):!add (.*)/i;
if($type =~ /^ctf$/) # или по аналогии выше
{print "ravno";}else{print "ne ravno";}
В итоге, последний файл выводит "ne ravno", хотя регулярки одинаковые. В чем проблема может быть, не подскажете?
так выведи $type и увидишь
Смешно:) Везде одинаковый(во всех файлах, а if не проходит) - магия.
Кстати, по поводу вывода:
выводит:
Вместо сами понимаете чего(во втором файле), в первом все нормально.
Кстати, по поводу вывода:
Код:
print "\n(".$type.")\n";
выводит:
Код:
)ctf
Вместо сами понимаете чего(во втором файле), в первом все нормально.
Сделал trim, сработало во втором файле. Только непонятно, откуда там пробелы и почему такой кривой вывод получался. Может кто объяснить? Я видел такое только вследствие "мусора", но откуда мусор в perle?
Еще вопрос: есть ли какой-то способ обходить все массивы(все элементы массивов) в хеше?
Еще вопрос: есть ли какой-то способ обходить все массивы(все элементы массивов) в хеше?
1. Сделать вывод $response и посмотреть
2. Циклом в цикле я полагаю
2. Циклом в цикле я полагаю
phodopus, в выводе $response все нормально. Да и что там может быть ненормально, если эти сообщения посылает сервер IRC, а не какой-то там?
Наугад нащупал интересное решение:
Наугад нащупал интересное решение:
Код:
foreach $variable(@{$array{"key_one"}}, @{$array{"key_two"}}, ...){}
Цитата: motorw
phodopus, в выводе $response все нормально.
ложки нет. И мистики тоже не бывает.
:D
Да я понимаю, что мистики быть не может. Но почему все посты тримить приходится, чтобы верно выцепить информацию :(
Да я понимаю, что мистики быть не может. Но почему все посты тримить приходится, чтобы верно выцепить информацию :(