home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / WIDE / backbone / membership / make-member-e < prev    next >
Text File  |  2017-09-21  |  176b  |  13 lines
  1. #!/usr/local/bin/perl
  2.  
  3. while (<>){
  4.     if(/(.*jp$)/){
  5.         s/$1/<DT><!A HREF=\"hoge\">$1/g;
  6.         print;
  7.     }
  8.     else{
  9.         s/$_/<DD><\/A>$_/;
  10.         print;
  11.     }
  12. }
  13.