AMS_ID_FIND

#!/usr/bin/perl -w use CGI ':standard'; $a_name = defined(param('author_name')) ? param('author_name') : "Last, First*"; $form_fmt = "%s"; print < AMS_ID_FIND ENDofHEADER local($rn)="\r\n"; local($TAIL) = "$rn$rn"; if ($a_name !~ /^"*([^"]+)\s*,\s*([^"]+)"*$/) { print "Check Name Format(Last, First*) : $a_name$rn"; print $TAIL; exit; } $surname=$1; $firstname=$2; $firstname =~ s/\ /*/g; # ------------------------------------- require "ams_socket.pl"; $base="/mathscinet/search/authors.html"; $out=".ams_tmp/ams_$$.html"; $file = sprintf("%s?authorName=%s%s%s",$base,$surname,"%2C+",$firstname); ($error,$errormsg,$html)=&transfer($file,"/$out"); $verbose=0; print "ERROR: $error-$errormsg-$html\n" if $verbose; if ($error==302) { ($error,$errormsg,$html)=&transfer($html,"/$out"); } # ------------------------------------- $K = "[^>]"; print "

", sprintf($form_fmt, $author, $author), ": "; print "$name : ", join('; ',@nicknames), "$rn"; } while ($in=) { next until $in=~/publications.html.*s1=(\d+).*dropdownmenu$K+>($K+)<.*\/a>/; @nicknames = (); while ( ($in=) !~ /<\/li>/ ) { if ($in =~ /
/) { while ( ($in=) !~ /<\/ul>/ ) { push(@nicknames, $1) if ($in =~ /
($K+)<\/li>/); } } } $author=$1; $name=$2; print "
", sprintf($form_fmt, $author, $author), ": "; print "$name : ", join('; ',@nicknames), "$rn"; next if ($matches > 10); # --- can't show paper info if too many matches $base="/mathscinet/search/publdoc.html"; $out2=".ams_tmp/ams2_$$.html"; $file = sprintf("%s?pg1=IID&r=1&s1=%s",$base,$author); ($error,$errormsg,$html)=&transfer($file,"/$out2"); open(PAP, $out2); while ($in2=) { last if $in2 =~ /
/; } $data2 = ""; while ($in2=) { #last if $in2 =~ m#
#; last if $in2 =~ m#
#; $data2 = $data2 . $in2; } close(PAP); unlink($out2); # Merge spaces ; MR-### header ; MSC-CODE ; $data2 =~ s/\s+/ /g; $data2 =~ s#^.*
##; $data2 =~ s#
$data2\n"; } close(SMPL); unlink($out); print "
$rn"; print "
", sprintf($form_fmt, "000000", "000000"), ": "; print "AMS-MR 논문저자 아님$rn"; print "
", sprintf($form_fmt, $author, $author), ": "; print "$name : ", join('; ',@nicknames), "$rn"; next if ($matches > 10); # --- can't show paper info if too many matches $base="/mathscinet/search/publdoc.html"; $out2=".ams_tmp/ams2_$$.html"; $file = sprintf("%s?pg1=IID&r=1&s1=%s",$base,$author); ($error,$errormsg,$html)=&transfer($file,"/$out2"); open(PAP, $out2); while ($in2=) { last if $in2 =~ /
/; } $data2 = ""; while ($in2=) { #last if $in2 =~ m#
#; last if $in2 =~ m#
#; $data2 = $data2 . $in2; } close(PAP); unlink($out2); # Merge spaces ; MR-### header ; MSC-CODE ; $data2 =~ s/\s+/ /g; $data2 =~ s#^.*
##; $data2 =~ s#
$data2\n"; } close(SMPL); unlink($out); print "
$rn"; print "
", sprintf($form_fmt, "000000", "000000"), ": "; print "AMS-MR 논문저자 아님$rn"; print "

\r\n"; print ""; print $TAIL;

Total $matches Matches Found for \"$a_name\"