$ perl -d 1.japh.pl jehosophat Loading DB routines from perl5db.pl version 1.55 Editor support available. Enter h or 'h h' for help, or 'man perldebug' for more help. main::(1.japh.pl:20): my $pre = q{ main::(1.japh.pl:21): begin main::(1.japh.pl:22): ( main::(1.japh.pl:23): J & main::(1.japh.pl:24): A & main::(1.japh.pl:25): P & main::(1.japh.pl:26): H main::(1.japh.pl:27): ) main::(1.japh.pl:28): end DB<1> source 4.seq.txt >> b 70 >> b 82 >> b 94 >> b 106 >> b 118 >> b 126 >> c plan: "begin A H J P end" <<< Execute: main::begin(1.japh.pl:70): return; >> c main::A(1.japh.pl:94): return; >> v 91: ++$scope->{curr}; 92: my $private = {}; # reset after each call 93: push @{ $scope->{contrib} }, $persist->{akctual}; 94==>b return; 95 } 96 97 sub H { 98: my $scope = shift; 99: state $persist = { akctual => $scope->{japh}->[ $scope->{curr} ], }; # gives subroutine memory, also 'private' 100 # sub's killroy >> p $persist->{akctual} just >> v 98: my $scope = shift; 99: state $persist = { akctual => $scope->{japh}->[ $scope->{curr} ], }; # gives subroutine memory, also 'private' 100 # sub's killroy 101: $GLOBAL->{H} = $persist->{akctual}; 102 103: ++$scope->{curr}; 104: my $private = {}; # reset after each call 105: push @{ $scope->{contrib} }, $persist->{akctual}; 106:b return; 107 } >> c main::H(1.japh.pl:106): return; >> p $persist->{akctual} Another >> v 103: ++$scope->{curr}; 104: my $private = {}; # reset after each call 105: push @{ $scope->{contrib} }, $persist->{akctual}; 106==>b return; 107 } 108 109 sub P { 110: my $scope = shift; 111: state $persist = { akctual => $scope->{japh}->[ $scope->{curr} ], }; # gives subroutine memory, also 'private' 112 # sub's killroy >> c main::J(1.japh.pl:82): return; >> p $persist->{akctual} perl >> v 79: ++$scope->{curr}; 80: my $private = {}; # reset after each call 81: push @{ $scope->{contrib} }, $persist->{akctual}; 82==>b return; 83 } 84 85 sub A { 86: my $scope = shift; 87: state $persist = { akctual => $scope->{japh}->[ $scope->{curr} ], }; # gives subroutine memory, also 'private' 88 # sub's killroy >> c main::P(1.japh.pl:118): return; >> p $persist->{akctual} Hacker, >> v 115: ++$scope->{curr}; 116: my $private = {}; # reset after each call 117: push @{ $scope->{contrib} }, $persist->{akctual}; 118==>b return; 119 } 120 121 sub end { 122: my $scope = shift; 123: state $persist = {}; # gives subroutine memory, also 'private' 124: my $private = {}; # reset after each call >> c just Another perl Hacker, main::end(1.japh.pl:126): return; >> p @{$scope->{contrib}} justAnotherperlHacker, >> #save 4.seq.txt DB<14> q $