print $line until(!($line =~ /\s+/))
[download]

use strict;
use warnings;

my $line;

open IN,"lines.txt";

while($line = <IN>)
{
   print $line unless(!($line =~ /\w+/));
}
[download]

not exactly sure what your

        print line until ( !($line =~ /\s+/ ) )
[download]

means, but here's a pseudocode that I _think_ is close to what you want:

      while( my $ln = <$filehandle> ) {
             next if $ln =~ /^\s*$/;

             if( $ln ....  [ your conditions ] ) { 
                   while( $ln = <$filehandle> ) {
                         last if $line =~ /\s*$/;
                         print $line; # or whatever
                   }
              }
       }
[download]

open FH, $some_file or die "Can't open $some_file, Perl says $!\n";
LOOP:
while (<FH>) {
    next until /$some_cond/;
    while (<FH>) {
        last LOOP if /^\s$/;
        print;
    }
}
[download]

Edit $some_file and $some_cond to suit. We use the default aliasing to $_ in our while loops, regex match and print.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

opendir (ID, "$dir");
        @dirlist = readdir(ID);
closedir(ID);

foreach $inode (@dirlist) {
        $i++;
        print "Files processed: $i\n";
        next if $inode =~ /^\./;
        my $sfile = $dir . $inode;

        open (IF, "<$sfile");
                @fcont = (<IF>);
        close (IF);

        open (OF, ">$sfile");
        foreach $line (@fcont) {
                if ($line =~ /themark/) {
                        print "starter string found\n";
                        $flag = 1;
                        next;
                }
                if ($flag == 1) {
                        if  (!($line =~ /\w+/)) {
                                $flag = 0;
                                next;
                        }
                        else {
                                print OF $line;
                        }
                }
        }
    close (OF);
}
[download]

        next if $inode =~ /^\./;
[download]

...looks like it will match .bashrc .login .hidden_data and skip them.

If you only want to skip '..' and '.' something you may want something (untested) like this:

m/^\.{1,2}$/
[download]



--mandog

Good thing you pointed out that this code is untested, because it is wrong! Someone posted this very same snippet a couple of weeks ago and merlyn pointed out a subtle way in which it can fail.

But rather than elaborating a more and more complex regexp for such a simple operation, I like to spell things out more simply, but using something like:

  next if $inode eq '.' or $inode eq '..';

This avoids pulling in the regexp machinery, and is much easier for the next maintainer (who may not be as good a rexexp wizard as yourself) to figure out what is going on.

--

g r i n d e r

print if (/^Keyword$/../^\s*$/)||0 > 1 and /\S/;

OK, so what does this do. Well the .. operator will return false until the LHS is true. It then returns a true value, this value will initially be 1 but will increment each time, until the RHS becomes true. But it will return true on the line where the RHS is true, so we add the /\S/ check to prevent the output of the last line.

The || 0 is there as for false .. returns "", which -w will complain about.

The correct thing to match is $line !~ /^\s*$/. But there's no need to negate a regexp here; instead, try looking for a line containing a non-whitespace char: $line =~ /\S/ is the idiomatic Perl for this.