Jag behöver på sistonde ofta få ut alla träffar i texter som befinner sig mellan två taggar. Istället för att hålla på med sed och awk, skrev jag en funktion i perl.

Nu behöver jag bara anropa :

btween 'start-tag' 'slut-tag' filnamn

Övning:
Skriv om scriptet så att det bara använder sig av fil om ett filnamn anges som parameter och annars använder STDIN - alltså så att man kan använda funktionen som pipe.

Ex: cat textfil | btween start-tag slut-tag

bwteen

#!/usr/bin/perl
 
($start, $end, $file) = @ARGV ;
 
open FH, "$file" or die "unable to open $file: $!";
read (FH, $text, -s "$file");
close FH;
 
@matches=$text=~m{$start(.*?)$end}gis;
 
foreach (@matches) {
  print "$_\n";
}

Kommentarer (0)

Visa/dölj kommentarer

Visa/dölj kommentarformulär

Namn

Titel

Kommentar

Lägg till kommentar