Auswertung eines cgi-Skriptes

fetchemail.pl

#!/usr/local/bin/perl -w use HTTP::Request; use LWP::UserAgent; use URI::Escape; use strict; my $url = 'http://www.mathematik.uni-ulm.de/cgi-bin/email'; my $VERSION = 1.0; my $cmdname = $0; $cmdname =~ s{.*/}{}; my $usage = "Usage: $cmdname name"; die $usage unless @ARGV > 0; my $keywords = uri_escape(join(" ", @ARGV)); my $ua = new LWP::UserAgent; $ua->agent("$cmdname/$VERSION " . $ua->agent); my $request = new HTTP::Request POST => $url; $request->content_type('application/x-www-form-urlencoded'); $request->content("keys=$keywords"); my $response = $ua->request($request); unless ($response->is_success) { die "$cmdname: unable to retrieve $url\n"; } my @lines = split /\n/, $response->content; my $name; foreach my $line (@lines) { if ($line =~ m{<TD>Name:</TD><TD>(.*)</TD>}) { $name = $1; } elsif (defined($name) && $line =~ m{<TD><A HREF="mailto:(.*?)">}) { printf "%-32s %s\n", $name, $1; } elsif ($line =~ m{<TD>(.*?)</TD><TD><A HREF="mailto:(.*?)">}) { printf "%-32s %s\n", $1, $2; } }