linux - perl's Devel::ebug how to -

-

first apologize if misunderstood whole concept of devel::ebug , how should used. want experiment devel::ebug perl module. here found example: what perl equivalent of bash -xv took following code , modified little bit. according official documentation devel::ebug cpan program method selects program load, thing i've changed.

#!/usr/bin/perl  use strict; use warnings; use devel::ebug; use data::dumper;  $ebug = devel::ebug->new; # $ebug->program(shift); # old value: $ebug->program($argv[0]); # new value:  $ebug->load;  until ($ebug->finished) {     print "+++ file:", $ebug->filename, " line: ", $ebug->line, "\n";     $pad = $ebug->pad;     $var (sort keys %$pad) {         if (ref $pad->{$var}) {             $line (split /\n/, data::dumper->dump([$pad->{$var}], [$var])) {                 print "++  $line\n";             }         } else {             print "++  $var = $pad->{$var}\n";         }     }     $line ($ebug->codelines($ebug->line-3 .. $ebug->line-1)) {         next unless defined $line;         print "+   $line\n";     }     print "+>  ", $ebug->codeline, "\n";     $line ($ebug->codelines($ebug->line+1 .. $ebug->line+3)) {         next unless defined $line;         print "+   $line\n";     }     $ebug->step; }

then saved file as: stacktrace.pl in same directory have file: debugme.pl what perl equivalent of bash -xv page. instead of output mentioned on what perl equivalent of bash -xv page this:

> ./stacktrace.pl debugme.pl  ./stacktrace.pl: exec failed: no such file or directory  @ /home/wakatana/perl5/lib/perl5/devel/ebug.pm line 41 not connect: connection refused @ /home/wakatana/perl5/lib/perl5/devel/ebug.pm line 71.

some further debugging pointed me this:

proc::background::unix::_new(/home/wakatana/perl5/lib/perl5/proc/background/unix.pm:47): 47:         if ($pid = fork()) {   db<7> s proc::background::unix::_new(/home/wakatana/perl5/lib/perl5/proc/background/unix.pm:49): 49:           $self->{_os_obj} = $pid; ######### forked, not know how create new tty. #########   since 2 debuggers fight same tty, input severely entangled.    know how switch output different window in xterms, os/2   consoles, , mac os x terminal.app only.  manual switch, put name   of created tty in $db::fork_tty, or define function   db::get_fork_tty() returning this.    on unix-like systems 1 can name of tty given window   typing tty, , disconnect shell tty sleep 1000000.  proc::background::unix::_new(/home/wakatana/perl5/lib/perl5/proc/background/unix.pm:54): 54:           exec @_ or croak "$0: exec failed: $!\n";

first assumed because run under gnu screen , somehow unable create new tty. not problem. missing here?

ps: seems problem occurs when working proc::background::unix module above output obtained using following debugger command:

b proc::background::unix::_new c

edit: regarding @chankey pathak comment. issued commands under terminator. under xterm situation same:

> echo $$ 18548 > ps -elf | grep 18548 0 s wakatana    18548 18546  0  80   0 -  6296 -      16:09 pts/5    00:00:00 bash 0 r wakatana    18990 18548  0  80   0 -  4209 -      16:10 pts/5    00:00:00 ps -elf 0 r wakatana    18991 18548  0  80   0 -  1958 -      16:10 pts/5    00:00:00 grep 18548 > ps -elf | grep 18546 0 s wakatana    18546 18254  0  80   0 - 17220 -      16:09 pts/3    00:00:00 xterm 0 s wakatana    18548 18546  0  80   0 -  6296 -      16:09 pts/5    00:00:00 bash 0 r wakatana    19004 18548  0  80   0 -  1959 -      16:10 pts/5    00:00:00 grep 18546  > perl stacktrace.pl debugme.pl  stacktrace.pl: exec failed: no such file or directory  @ /home/wakatana/perl5/lib/perl5/devel/ebug.pm line 41 not connect: connection refused @ /home/wakatana/perl5/lib/perl5/devel/ebug.pm line 71.

edit2: have cross-posted on perlmonks

okay, devel::ebug works this: there's controlling process listens on sockets (that's script pasted above) , "user interface" bit of debugger. there's script you're trying debug, controlling process launches , tells load devel::ebug debugger , script executes talks controlling script via sockets work out it's debbuging.

i think problem because controlling deve::ebug having issues executing program debug. looking around line 41 of devel::ebug see:

my $backend = $self->backend || "$bin/ebug_backend_perl"; $command = "$backend $program";; $proc = proc::background->new(   {'die_upon_destroy' => 1},   $command );

it looks ->backend should contain path that'll execute script right command line flags in order start in process debugger configured talk on sockets controlling program included above.

there's ebug_backend_perl installed module seems handle job you. think should $ebug->backend($path) (which if i'm guessing right /home/wakatana/perl5/bin/ebug_backend_perl on system) before calling $ebug->load


Comments

Post a Comment

Popular posts from this blog

C# random value from dictionary and tuple -

-
i have following code, , need random item contains string "region_1" dictionary. public static dictionary<int, tuple<string, int, currencytype>> itemarray = new dictionary<int, tuple<string, int, currencytype>>() { { 0xb3e, new tuple<string, int, currencytype>("region_1", 1500, currencytype.fame) } }; public static int generateitemid(string shopid) { var generateditem = itemarray.elementat(new random().next(0, itemarray.count)).key; } how select this? it's not possible efficiently... first create static random @ class level... prevent non-random behaviour if run query on short period of time... (it's seeded discrete clock) static random rnd = new random(); then: var item = itemarray.values .where(t => t.item1 == shopid) .orderby(_ => rnd.next()) .firstordefault()
Read more

cgi - How do I interpret URLs without extension as files rather than missing directories in nginx? -

-
so i'm trying install zoneminder , have run under nginx, has few compiled files need run using fast-cgi. these files lack extension. if file has extension, there no issue , nginx interprets file , return 404 if can't find it. if has no extension, assume it's directory , return 404 when can't find sort of index page. here have now: # security camera domain. server { listen 888; server_name mydomain.com; root /srv/http/zm; # enable php support. include php.conf; location / { index index.html index.htm index.php; } # enable cgi support. location ~ ^/cgi-bin/(.+)$ { alias /srv/cgi-bin/zm/; fastcgi_pass unix:/run/fcgiwrap.sock; fastcgi_param script_filename $document_root/$1; include fastcgi.conf; } } the idea is, under cgi-bin directory goes through fastcgi pipe. any idea on howi can fix this? upon closer inspection, realized zoneminder has 2 cgi sc...
Read more

.htaccess - htaccess convert request to clean url and add slash at the end of the url -

-
ok , searched more 4 days , more 20 posts here in stach or in websites without kind of success first here htaccess file rewriteengine on rewriterule ^([a-za-z0-9_]+)/?$ index.php?page=$1 [nc] rewriterule ^([a-za-z0-9_]+)\/([a-za-z0-9_]+)\/?$ index.php?page=$1&action=$2 [nc] i tried many codes 1 worked me can call request , works me www.example.com/pagename => www.example.com/index.php?page=pagename here questions , please provide me information "in detail" understand code well 1- how convert request automatically www.example.com/index.php?page=pagename www.example.com/pagename 2- if tried add slash @ end shows me page without images or styling mean www.example.com/pagename => works www.example.com/pagename/ => doesn't work that's :) for first part need 301 rule this: rewritecond %{the_request} /index\.php\?page=([^\s&]+) [nc] rewriterule ^ /%1? [r=301,l] for second part use absolute path in css, js, images files r...
Read more