Perl 6 - the future is here, just unevenly distributed

IRC log for #perl.pl, 2014-11-06

| Channels | #perl.pl index | Today | | Search | Google Search | Plain-Text | summary

All times shown according to UTC.

Time Nick Message
16:05 Sebastian joined #perl.pl
16:05 Sebastian hej
16:09 odyniec hej
16:10 Sebastian mam pytanie o ujemne indeksy tablic
16:10 Sebastian właściwie kilka pytań :)
16:10 Sebastian czy można całą tablicę przejechać od tyłu na ujemnych indeksach ?
16:11 odyniec osobiście nie próbowałem, ale raczej nic nie powinno stać na przeszkodzie
16:12 Sebastian no właśnie też chba zaraz spróbuję - też jeszcze tego nie robiłe
16:13 Sebastian jeszcze jedno
16:28 Sebastian mam do poprawy skrypt z ujemnymi
16:29 Sebastian wiersz z ujemnymi tablicami generuje jakiś błąd (to skrypt cgi) odnośnie tych ujemnych indeksów
16:30 Sebastian zastanawiam się jak to obejść - jak znajdę ten wiersz w skrypcie to tu go skopiuje (tak naprawdę chodzi o program perlmyadmin)
16:32 Sebastian sub show_dbs {
16:32 Sebastian #----------------------------------------------------------
16:32 Sebastian # Return a formatted list of databases.
16:32 Sebastian # Grab the database names and map them into a loop.
16:32 Sebastian my $dbs_loop = [ map +{ db => $_ }, $DB->show_db   ];
16:32 Sebastian my $ver               = [ $DB->show_vars ]->[-2]->[-1]->[1]; # <- tu generuje błąd
16:32 Sebastian my $host = $CFG->{auto} ? $CFG->{host} : $IN->cookie($CFG->{ck_host});
16:32 Sebastian # Only set cookies if the user is logging in.
16:32 Sebastian print $IN->param('do') eq 'login' ? $IN->header( -cookie => _set_cookies() ) : $IN->header();
16:32 Sebastian $TPL->parse('admin_db_list', { ver => $ver, host => $host, db_loop => $dbs_loop, dbs => scalar(@$dbs_loop) } );
16:32 Sebastian }
16:33 odyniec a jaki to błąd?
16:34 Sebastian nie pamiętam dokładnie ale coś odnośnie ujemnych indeksów - że indeksem może być tylko liczba naturalna (całkowita dodatnia i 0)
16:37 Sebastian więc tak kombinuję zamienić te ujemne indeksy na dodatnie tylko nie wiem jak znaleźć długość i wielowymiarowych tablic bez zbytniego kombinowania (@ na $ i $# nie działają)
16:38 Sebastian "długości wielowymiarowych tablic"
16:41 odyniec hmm, dziwne wydaje mi się, że ujemne indeksy mogłyby nie działać, ale jako workaround możesz też pokombinować z pop/shift
16:42 Sebastian no ogólnie jest troche dziwne bo jako aplikacja np w bashu to działa ale jako cgi wywala ten bład o ujemnych indeksach
18:23 Sebastian left #perl.pl
23:23 Sebastian joined #perl.pl
23:47 Sebastian left #perl.pl

| Channels | #perl.pl index | Today | | Search | Google Search | Plain-Text | summary