Select Code to Download

Select or download this

## this function is to be debugged using the perl debugger
my $return2 = make_initial_captions;
say "return2 is $return2";

Select or download this

sub make_initial_captions {
  use 5.016;
  use warnings;
...
  my $caption_path = $vars{"eng_captions"};
  return "nothing yet";
}

Select 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
$

Select or download this

$ cat 1.debug.11.pl
#!/usr/bin/perl -w
use 5.011;
...

1;
$

Select 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
$

Select or download this

$ pwd
/home/hogan/6.scripts/1.debug.1/template_stuff/aimages
$ ls
...
'Screenshot from 2021-02-03 15-32-57.png'
$

Select or download this

$ history | grep perldeb
 1980  perldoc perldebguts
 1981  perldoc perldebug
 1982  perldoc perldebtut
 1990  history | grep perldeb
$