FreeKB - Loop through a file until line match in Perl
Loop through a file until line match in Perl

Home > Search


Let's say you have a file that contains fruit.

apple
banana
orange
pineapple

 

This markup will print lines each line in the file until a line containing "orange" is matched.

my $file = "/path/to/file.txt";
open(FH, "<", $file) or die "cannot open $file $! \n";

while (my $line = <FH>) {
  print $line;
  last if $line =~ /orange/; 
}

close FH;

 

Running this script will produce the following output.

apple
banana
orange

 



Add a Comment




We will never share your name or email with anyone. Enter your email if you would like to be notified when we respond to your comment.




Please enter 45909 in the box below so that we can be sure you are a human.




Comments