StartseiteSkriptePerl

Reguläre Ausdrücke

28. SEPTEMPER 2011
von Jörg
Skripte - Perl

E-Mails abfragen
Suchen und Ersetzen
Text auf Link überprüfen
Text nach x Anzahl von Zeichen abschneiden (nach Wortende)

E-Mails abfragen

01
02
03
04
05
06
if($mailto !~ /^([a-zA-Z0-9][a-zA-Z_0-9-\.]*)(\@)([a-zA-Z0-9][a-zA-Z_0-9-\.]*[a-zA-Z0-9])(\.)([a-zA-Z0-9]*)$/ || $mailto eq ""){
  # EMail nicht ok
}
else{
  # EMail ok
}

Suchen und Ersetzen

01
02
03
$comment =~ s/</&lt;/g;
$comment =~ s/>/&gt;/g;
$comment =~ s/\n/<br \/>/g;

In der 1. und 2. Zeile im Code werden die kleiner und größer Zeichen durch die Html-Sonderzeichen ersetzt.
In der 3. Zeile werden die Zeilenumbrüche \n durch den Umbruchtag <br /> (break ) ersetzt.

auf Link überprüfen

01
02
03
04
05
06
if($link !~ /^(((ftp|http|https|):\/\/)|www.)?([A-Z0-9][A-Z0-9_-]*(?:\.[A-Z0-9][A-Z0-9_-]*)+):?(\d+)?\/?/i){
  # Link ok 
}
else{
  # Link nicht ok
}

Text nach x Anzahl von Zeichen abschneiden (nach Wortende)

01
02
03
04
# Text abschneiden und ... anhängen
if( $text =~ /^(.{28,}?)(?<=\w)\b/ ){
  $text = $1."...";
}

Hinterlasse einen Kommentar

Ein Frosch der sich an der Seite festhält