Untitled
public text v1 · immutable#! /usr/bin/perl
die "Usage mygrep string \n" if @ARGV < 1;
use strict;
my $string = shift;
my $ct = 0;
while (<>) {
$ct++;
print "$ct:\t$_" if /$string/;
}
exit;#! /usr/bin/perl
die "Usage mygrep string \n" if @ARGV < 1;
use strict;
my $string = shift;
my $ct = 0;
while (<>) {
$ct++;
print "$ct:\t$_" if /$string/;
}
exit;