PERL script match op woorden in een bestand.

[libris]

Hier een perl script waarmee je op een bepaalde tekst kan zoeken in een bestand. Je moet het patroon achter het programma meegeven bijvoorbeeld ./woordenzoeken.pl test .. dan zoekt hij naar tekst in het bestand hij geeft ook aan hoevaak en op welke regel het patroon is gevonden.

#! /usr/local/bin/perl
# made by libris

if ($#ARGV != 1) {
$patroon = $ARGV[0];
}

$matchcount = 0;
print("zoeken in bestand: ");
chop ($bestand = <STDIN>);

open (INFILE, "$bestand");
while (<INFILE>) { $regel++;
if (m/$patroon/gi){
$matchcount++;
print("Je patroon is voor de $matchcount e keer gevonden , op regel $regel \n");
}
}
close (INFILE);
if (matchcount == 0) {
print("Helaas, geen overeenkomsten (meer) gevonden!\n"); }

Kan handig zijn.. vooral voor een digitaal onderzoeker.

[themaster]

Even een vraag je vraagt via STDIN om een bestand.
Waarom ook niet om een zoekwoord is imho fijner.

[libris]

Dat was in eerste instantie ook . maar ik kreeg als opdracht dat het zoekwoord als parameter meegegeven moest worden. Vandaar

Ben jij erg thuis in perl?

[themaster]

ik ga deze stage een scan engine bouwen in perl.
en moet zeggen dat ik redelijk thuis ben in perl.
heb er op school een presentatie over gehouden.

[libris]

Leuk! Ik ben op dit moment bezig met een script die uit een kopie de relevante data haalt. Tenminste, hij zoekt op extensies en die haalt hij er dan uit en zet hij in een nieuwe DD

Ook is in het script mogelijk om op headers te zoeken in kopie'n