[ LUGOS ] grep, awk, sed, co.?

[Borut Mrak]

On Mon, Jan 24, 2000 at 06:12:28PM +0000, Matic wrote:
>  Iz neke datoteke s tekstom bi rad dobil vrstico ki vsebuje "Besedo" +
> sledečih n vrstic. Kako in s čim?

Verjetno se da to lepse narediti z awkom. Ampak ker awka ne poznam in
sem vajen razmisljati v perlu naredim takole:

#!/usr/bin/perl

while(<STDIN>) {
  if( $_ =~ /Beseda/ ) {
    print;
    for($i=0; $i<$ARGV[0]; $i++) {
      $_ = <STDIN>;
      print; 
    }
    exit 0;
  }
}

Program klicemo s stevilom vrstic, ki jih zelimo izpisati po vrstici, ki
vsebuje naso besedo. Seveda bi lahko tudi Beseda bila parameter.

In ja, gotovo se da to tudi v perlu lepse in krajse napisat. Toda
TIMTOWTDI.

lp,

-- 
Borut
borut.mrak na ijs.si
-----------------
The OFFICIAL tagline of the 1996 Olympics!