All pastes #222100 Raw Edit

Miscellany

public text v1 · immutable
#222100 ·published 2006-10-26 01:47 UTC
rendered paste body
#! /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;