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

Foskellige bogstaver på samme tegnplads

Hvis flere forskellige bogstaver kan være på samme sted kan der anvender Character Classes. [ck] i eksemplet herunder betyder at bogstaver c eller bogstavet k skal stå på denne position.

while ( chomp(my $line = <DATA>) ) {
  if ( $line =~ /Mi[ck]/i ) {
    print "$line Matcher\n";
  } else {
    print "$line Matcher ikke!\n";
  }
}
__DATA__
Mikael
Mille
Michael
Mikkel
Minnie
Michelle
Mikkelsen

Output fra ovenstående script:

Mikael Matcher
Mille Matcher ikke!
Michael Matcher
Mikkel Matcher
Minnie Matcher ikke!
Michelle Matcher
Mikkelsen Matcher

Hvad vil der ske hvis Regexp udtrykket blev ændret fra /Mi[ck]/i til /Mi[ck][AHK]/i. Prøv det evt.