You mean, a while loop, going through files, and then calling exit if a line matches ?

Please, tell us what you've done so far and show some effort and code. The following snippet will do what you say you want, but it won't do what you want I guess.

perl -ne "exit if /matching/"
[download]

You might want to read How (Not) To Ask A Question to help us improve the quality of our responses.

What exactly are you having trouble with? Opening the file? Reading each line? Matching against the line? From your previous posts, you know how to do atleast some of this. So have a stab at it, and post your results back here.

Cheers, Rob

This could look about like the following piece of code:

#! /usr/bin/perl
use warnings;
use strict;

my $file = shift(@ARGV);
unless( defined $file or -f $file ) {
    die "Usage: $0 filename\n";
} # unless

open( my $FH, "<", $file )
    or die "Error: couldn't open file '$file': $!\n";

while( defined my $line = <$FH> ) {
    chomp $line;
    if( $line =~ /something/ ) {
        print "Line found in $.: $line\n";
        last;
    } # if
} # while

close( $FH );
[download]

• open
• Conditional-and-looping-constructs
• perlrequick (regular expressions)

Good luck!

Run cgrep, my grep clone, with the -q or -l or -L option, any of which makes the program stop reading when a matching line is found. Then, look at the source if that's what you want.