Filter::NumberLines::Scratch - Source filter for Numbering lines (written from scratch).

Filter-NumberLines documentation Contained in the Filter-NumberLines distribution.

Index

Code Index:

NAME

Top

Filter::NumberLines::Scratch - Source filter for Numbering lines (written from scratch).

SYNOPSIS

Top

Just put use Filter::NumberLines::Scratch; at the top of your source file (below the shebang). It will automagically number your lines starting from the line after the use statement.

  use Filter::NumberLines::Scratch;

DESCRIPTION

Top

Filter::NumberLines::Scratch - Source filter for Numbering lines (written from scratch).

NOTE

Top

This module is used in the Source Filters in Perl talk I'm planning for YAPC::Eu 2.00.2 in Munich.

REQUIREMENTS

Top

Filter::NumberLines::Scratch has no dependencies

TODO

Top

Make number of digits in line number configurable.

DISCLAIMER

Top

This code is released under GPL (GNU Public License). More information can be found on http://www.gnu.org/copyleft/gpl.html

VERSION

Top

This is Filter::NumberLines::Scratch 0.02.

AUTHOR

Top

Hendrik Van Belleghem (beatnik -at- quickndirty -dot- org)

SEE ALSO

Top

GNU & GPL - http://www.gnu.org/copyleft/gpl.html

Filter::Util::Call - http://search.cpan.org/search?dist=Filter

Paul Marquess' article on Source Filters - http://www.samag.com/documents/s=1287/sam03030004/

Filter-NumberLines documentation Contained in the Filter-NumberLines distribution. 
package Filter::NumberLines::Scratch;

sub scratch { local $_ = pop; s/^\d+\:\t//gm; return $_; } 

sub import { 
open 0 or print "Can't number '$0'\n" and exit;
my $line = 0; my $no_go = 0; my $past_use = 0; my $file;
while(<0>)
{ $line++;
  if ($past_use && /^\d+\:\t/) { $no_go++; $file = join "",$_,<0>; last; }
  if ($past_use) { $_ = sprintf ("%03d",$line).":\t".$_; }
  if (/use Filter\:\:NumberLines::Scratch;/) { $past_use++; }
  $file .= $_;
}

if ($no_go)
{ do {  eval scratch $file; exit; }  }
else { open 0, ">$0" or print "Cannot number '$0'\n" and exit;
       print {0} $file and exit; }
}
1;