verify.pl

内含stl 的很多书籍

#!/usr/bin/perl
sub apply {
  local($_) = @_;
  s~/asp/refLookup.asp\?b=p.+\=(.+\.html)~/htm_cpl/$1~i;
  s~/asp/refLookup.asp\?b=a.+\=(.+\.html)~/htm_abr/$1~i;
  s~/asp/refLookup.asp\?b=c.+\=(.+\.html)~/htm_cl/$1~i;
  s~/asp/refLookup.asp\?b=j.+\=(.+\.html)~/htm_jcore/$1~i;
  print "$_\n";
  s~/htm_(.+)/(.+\.html)\&m\=(.+)~/htm_$1/$2\043$3~i;
  print "$_\n";
  return $_;
};

apply("http://www.dinkumware.com/asp/refLookup.asp?b=p/&h=istream.html");
apply("http://www.dinkumware.com/asp/refLookup.asp?b=j/&h=java.util.LinkedList.html&m=java.util.LinkedList.removeLast");