John;
Thank you very much for the help...works like a charm...now I'll try
to study it carefully to understand how to use this the next time I need
something like this...
Cool...
Ken Wolcott
On Tue, 2004-08-03 at 20:20, John W. Krahn wrote:
> Ken Wolcott wrote:
> > Hi;
>
> Hello,
>
> > I need to find Makefiles that contain a backslash line continuation
> > character followed by a blank (or whitespace only) line. I tried a
> > regular expression first but just couldn't get it right. I then tried
> > comparing by a pair of strings, but that isn't right either.
> >
> > [snip code]
>
> This will do what you want:
>
> #!/usr/bin/perl
> use strict;
> use diagnostics;
>
> while ( <> ) {
> my $line_num = $.;
> if ( /\\\s*$/ ) {
> my $line_before;
> if ( ( $line_before = <> ) =~ /^\s*$/ ) {
> print "$ARGV has a backslash continuation to a following blank line at
> line $line_num\n";
> }
> else {
> $_ = $line_before;
> redo;
> }
> }
> }
>
> __END__
>
>
>
> John
> --
> use Perl;
> program
> fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
