mknos / PerlPowerTools / 11847881445 / 7
62%
master: 62%

DEFAULT BRANCH: master
Ran
Files 3
Run time 0s
Badge
Embed ▾
README BADGES
x

If you need to use a raster PNG badge, change the '.svg' to '.png' in the link

Markdown

Textile

RDoc

HTML

Rst
coverage: 73.069%. Remained the same
11847881445.7

push

github

web-flow 
grep: implement -Bn and -Cn (#811)

* For -B, context lines before a matching line are saved in a buffer and emptied when a match occurs
* -C can then be added with no extra logic as a shortcut for -A and -B
* The old meaning of -C goes away, but I'm not aware of any other version of grep that had that special count feature
* To test, I modified the file "ar" so it has two consecutive lines matching "this"

%perl grep  -n -C 5 this ar
452-on the command line to ``select'' archive files for an operation, only
453-the first file with a matching name will be selected.
454-
455-The normal use of ar is for the creation and maintenance of libraries
456-suitable for use with the loader (see ld(1)) although it is not
457:this is good
458:restricted to this purpose.
459-
460-=head2 OPTIONS
461-
462-I<ar> accepts the following options:
463-
--
571-Extract the specified archive members into the files named by the
572-command line arguments.  If no members are specified, all the
573-owner and group will be unchanged.  The file access and modifica-
574-tion times are the time of the extraction (but see the -B<o> op-
575-tion).  The file permissions will be set to those of the file
576:when it was entered into the archive; this will fail if the user
577-is not the owner of the extracted file or the super-user.
578-
579-=back
580-
581-I<ar> exits 0 on success, and >0 if an error occurs.
--
596-=head1 COPYRIGHT and LICENSE
597-
598-This program is copyright by dkulp 1999.
599-
600-This program is free and open software. You may use, copy, modify, distribute
601:and sell this program (and any modified variants) in any way you wish,
602-provided you do not restrict others to do the same.
603-
604-=cut
605-


%perl grep  -n -C 1 this ar
456-suitable for use with the loader (see ld(1)) although it is not
457:this is good
458:restricted to this purpose.
459-
--
575-tion).  The file permissions will be set to those of the fi... (continued)

350 of 479 relevant lines covered (73.07%)

4736.89 hits per line

Source Files on job 11847881445.7