my %CMDARGS = (
ping => '-c 1',
curl => '-sS',
- 'cat \Klog/' => '/var/log/apache2/',
+ 'cat \Khttpd/' => '/var/log/apache2/',
);
my $filename = 'barcat';
local $/ = "\n\n";
while (readline $input) {
- # find code snippets in the appropriate section
+ # find scriptlets in the appropriate section
/^=head1 EXAMPLES/ ... /^=head1/ or next;
- /^\h/ or next;
+ /^\h/ or next; # indented code snippet
+ /\A\h*>/ and next; # psql prompt
chomp;
# compose an identifier from significant parts