l използване
l [min+incr|min-max|line|subname|$var]
Избройте кода в текущо заредения файл, на парчета „windowSize“. Забележка
винаги можете да се върнете към текущата позиция на кода с „.“ команда
(по-долу).
Вижте опциите за повече информация относно „windowSize“
Понякога изгледът „windowSize“ по подразбиране на вашия код просто не е
достатъчен и знанието как да промените изгледа може да направи разликата
между лесна и трудна сесия за отстраняване на проблеми.
l
Код на списък от текущата позиция на гледане
perldb@monkey› B‹perl -d linecounter.pl›
‹…пресечен изход…›
main::(linecounter.pl:8): my @args = @ARGV;
DB ‹1› B‹l›
8==› my @args = @ARGV;
9
10 # поискана помощ?
11: my $help = grep(/^ -h(elp)*$/i, @args);
12: if ($help) {
13: logg(help());
14: изход 0;
15
16
17 # вземете шаблона за съвпадение.
DB‹1›
Сега го направете отново, за да продължите списъка:
C‹›
DB‹1› B‹l›
18: моят $REGEX = shift @args || ”;
19
20 # вземете файловете за обработка.
21: моите @файлове = grep(!/^-h(elp)*$/i, @args);
22: освен ако (@files) {
23: push(@files, $0);
24: logg(“използване на $0 по подразбиране, докато не са дадени файлове”);
25
26
27 # цикъл през файловете
DB‹1›
l ред
Избройте единствения ред код на ред 11.
C‹›
DB‹1› B‹l 11›
11: моята $help = grep(/^-h(elp)*$/i, @args);
DB‹ 2›
l min+incr
Избройте обхвата на кода от ред номер min и следващите редове incr.
C‹›
DB‹2› B‹l 11+3›
11: моята $help = grep(/^-h(elp)*$/i, @args);
12: if ($help) {
13: logg(help());
14: изход 0;
DB❤›
l min-max
Избройте обхвата на кода от номер на ред min до и включително номер на ред
max.
C‹›
DB❤› B‹l 11–14›
11: моята $help = grep(/^-h(elp)*$/i, @args);
12 : if ($help) {
13: logg(help());
14: изход 0;
DB‹4›
l подиме
Списък на редовете „windowSize“ с код на дадената подпрограма.
C‹›
DB‹4› B‹l доклад›
56 подотчет {
57: my $FH = shift;
58: my $regex = shift;
59: моят %отчет = ();
60: моят $i_cnt = 0;
61: докато (‹$FH›) {
62: $i_cnt++;
63: my $i_match = 0;
64: my $line = $_;
65: if ($line =~ /($regex)/) {
DB‹5›
Подпрограмата може да е във всеки файл, зареден в %INC.
C‹›
DB‹5› B‹l Carp::croak›
Превключване към файл '/usr/lib/perl5/5.8.0/Carp.pm'.
191: sub croak { die shortmess @_ }
DB‹6›
Извадка от книгата Perl Debugger Pocket Reference.
Първоначално публикувано 2016–07–07 11:51:53.
Публикацията Изброяване на perl код се появи първо на RFI Publishing.
Първоначално публикувано в Wordpress
