#!/usr/bin/perl -w
# markus westphal 03.05.2005

use strict;
my($i,$name,$satz);
#regular expressions
($name,$satz) =split("=", $ARGV[0]);
printf (STDOUT "Parameter=%s\n",$satz);

if($satz =~ /\\\s/){
printf (STDOUT "Backslash vor einem Whitespace gefunden!\n");
}
else {
printf (STDOUT "Backslash vor einem Whitespace nicht gefunden!\n");
}
if($satz =~ /[a-z]{2,5}/){
printf (STDOUT "Serie von 2-5 Kleinbuchstaben gefunden!\n");
}
else {
printf (STDOUT "Serie von 2-5 Kleinbuchstaben nicht gefunden!\n");
}
if($satz =~ /[aeiou]{2}/){
printf (STDOUT "Serie von Vokalen gefunden!\n");
}
else {
printf (STDOUT "Serie von Vokalen nicht gefunden!\n");
}
if($satz =~ /^[1-5]|^[7]|\s/){
printf (STDOUT "Zeile die mit einer Zahl von 1-5, 7 oder einem Whitespace beginnt, gefunden!\n");
}
else {
printf (STDOUT "Zeile die mit einer Zahl von 1-5, 7 oder einem Whitespace beginnt, nicht gefunden!\n");
}