#! /usr/pkg/bin/perl use LWP; # Setup for user agent to get zidpubs. my $ua = new LWP::UserAgent; $ua->agent("getpsace/1.0 " . $ua->agent); # Create a request my $requrl = join("/", "http:", "", " $requrl; $req->content_type('application/x-www-form-urlencoded'); # Pass request to the user agent and get a response back my $res = $ua->request($req); $first = 1; # Check the outcome of the response if ($res->is_success) { @ulines = split('\r\n', $res->content); foreach $line (@ulines) { # # print STDERR "line: \"$line\"\n"; if ($first && $line =~ /Quality/) { $row = 0; $col = 0; $first = 0; } if ($line =~ //) { $row++; $col = 0; } elsif ($line =~ /([\w\s]+|[\d\.]+)\s*(:?\(.*\))?
Scott Presnell
Last modified: Tuesday, February 5, 2002 09:37 PST