Help for this page

Select Code to Download


  1. or download this
    ## this function is to be debugged using the perl debugger
    my $return2 = make_initial_captions;
    say "return2 is $return2";
    
  2. or download this
    sub make_initial_captions {
      use 5.016;
      use warnings;
    ...
      my $caption_path = $vars{"eng_captions"};
      return "nothing yet";
    }
    
  3. or download this
    $ ./1.debug.11.pl
    Subroutine debug1::getcwd redefined at /usr/share/perl/5.30/Exporter.p
    +m line 66.
     at template_stuff/debug1.pm line 397.
    ...
    $ ls
    1.debug.11.pl  1.debug.11.pl.bak  template_stuff
    $
    
  4. or download this
    $ cat 1.debug.11.pl
    #!/usr/bin/perl -w
    use 5.011;
    ...
    
    1;
    $
    
  5. or download this
    $ pwd
    /home/hogan/6.scripts/1.debug.1/template_stuff/captions
    $ touch caption{01..07}.txt
    ...
    caption01.txt  caption03.txt  caption05.txt  caption07.txt
    caption02.txt  caption04.txt  caption06.txt
    $
    
  6. or download this
    $ pwd
    /home/hogan/6.scripts/1.debug.1/template_stuff/aimages
    $ ls
    ...
    'Screenshot from 2021-02-03 15-32-57.png'
    $
    
  7. or download this
    $ history | grep perldeb
     1980  perldoc perldebguts
     1981  perldoc perldebug
     1982  perldoc perldebtut
     1990  history | grep perldeb
    $