This shows you the differences between two versions of the page.
— |
kurs:cgi [2014/09/10 21:22] (current) |
||
---|---|---|---|
Line 1: | Line 1: | ||
+ | <code> | ||
+ | #!/usr/bin/perl | ||
+ | use CGI qw(:standard); | ||
+ | |||
+ | use CGI qw/:standard/; | ||
+ | use CGI; | ||
+ | |||
+ | $query=CGI->new(); | ||
+ | $text=$query->param('text'); | ||
+ | |||
+ | print header(); | ||
+ | |||
+ | if ($text eq "") | ||
+ | { | ||
+ | print "<h1>Bitte gib einen Text ein!</h1>"; | ||
+ | print <<TXT; | ||
+ | <form method=get action="http://mailbox.univie.ac.at/~mh/cgi-bin/oschttirol.cgi"> | ||
+ | <input type=submit value=Eintragen> <br> | ||
+ | <textarea name=text cols=50 rows=20> | ||
+ | $st | ||
+ | </textarea> | ||
+ | |||
+ | </form> | ||
+ | TXT | ||
+ | } | ||
+ | else | ||
+ | { | ||
+ | print "<h1> Auf (Oscht)Tirolerisch: </h1> <br> <br> "; | ||
+ | %conv=( | ||
+ | "\n", "<br>", | ||
+ | "st", "scht", | ||
+ | "s[\\W\\s]", "sch " | ||
+ | ); | ||
+ | |||
+ | foreach $key (keys %conv) | ||
+ | { | ||
+ | $text =~ s/$key/$conv{$key}/g; | ||
+ | } | ||
+ | |||
+ | print $text; | ||
+ | </code> |