Regular Expression Perl/introduktion

Regular expressions - eller Regexp - er et værktøj indbygget i mange programmeringssprog, men er mest berømt på Perl.

Formål med Regexp

Regexp er beregnet til at søge i tekstbaseret data. For eksempel logfiler, output fra enheder.

Hvem skal læse dette dokument

Hvis du har lidt indblik i Perl og forstår den generelle syntax, vil du sandsynligvis få noget ud af dette dokument.

Regexp syntax

Regexp er tegnbaseret og der er derfor en del tegn og sekvenser der skal huskes udenad. Et godt råd er at printe dette Regular Expression Quick Reference Guide og bruge det til at dechifrere udtrykkene.

Simpel tekstsøgning

Scriptet herunder benytter sig af en indbygget funktion i Perl man blandt andet kan bruge til udvikling af Perl programmer. Det er normalt irreterende at skulle taste de samme data ind fra tastaturet med <STDIN> håndtaget når man skal teste sit program. Det er muligt at bruge håndtaget i stedet for og så nederst i filen have et __DATA__ felt. (2 x underscore, DATA, 2 x underscore>)

while ( chomp(my $line = <DATA>) ) {
  if ( $line =~ /Jens/ ) {
    print "$line Matcher\n";
  } else {
    print "$line Matcher ikke!\n";
  }
}
__DATA__
Jens
Ole
Hans
Jensen
jensine

Outputtet fra scriptet er

Jens Matcher
Ole Matcher ikke!
Hans Matcher ikke!
Jensen Matcher
jensine Matcher ikke!

jensine matcher ikke da det starter med et lille j.

Ignorer store/små bogstaver

For at ignorere case på bogstaver - altså store/små - kan i modifieren anvendes. /Jens/i

while ( chomp(my $line = <DATA>) ) {
  if ( $line =~ /Jens/i ) {
    print "$line Matcher\n";
  } else {
    print "$line Matcher ikke!\n";
  }
}
__DATA__
Jens
Ole
Hans
Jensen
jensine

Outputtet fra scriptet er

Jens Matcher
Ole Matcher ikke!
Hans Matcher ikke!
Jensen Matcher
jensine Matcher