home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / SASSI / ABBR.PL < prev    next >
Text File  |  1997-03-04  |  3KB  |  95 lines
  1. $datafile = 'abbrtb.txt';
  2. $linkfile = 'linktb.txt';
  3.  
  4. foreach $filename (a..z){
  5.     $title = $filename;
  6.     $title =~ tr/a-z/A-Z/;
  7.     $filename .= '.htm';
  8.     open(FILE, ">$filename");
  9.     printf FILE ("<HTML>\n<HEAD>\n\t<TITLE>'97最新略語辞典～%s～</TITLE>\n</HEAD>\n\n",$title);
  10.     printf FILE ("<BODY BGCOLOR=\"#fffffa\">\n\n");
  11.     printf FILE ("<CENTER>\n");
  12.     close(FILE);
  13. }
  14.  
  15. open(DATA, $datafile);
  16. while (<DATA>){
  17.     @line = split(/\t/, $_);
  18.     $key = $line[5]; #abbrkey
  19.     $abbrid{$key} = $line[0];
  20.     $abbr{$key} = $line[1];
  21.     $categoryid{$key} = $line[2];
  22.     $letter{$key} = $line[3];
  23.     $description{$key} = $line[4];
  24.     $abbrkey{$key} = $line[5];
  25.     $hypertext{$key} = $line[6];
  26.     $abbrname{$key} = $line[1];
  27.  
  28.     $abbridindex{$abbrid{$key}} = $abbrkey{$key};
  29. }
  30. close(DATA);
  31.  
  32. foreach $i (keys %abbrid){
  33.     @tmp = split(/\|/, $hypertext{$i});
  34.     $a = 1;
  35.     for($a=1; $a<$#tmp+1; $a++){
  36.         @tmp2 = split(/ /,$tmp[$a]);
  37.         for($b=0; $b<$#tmp2+1; $b++){
  38.             if($tmp2[$b] =~ /[0-9]+/){
  39.                 $href = $abbridindex{shift(@tmp2)};
  40.                 $hreffile = substr($href, 0, 1);
  41.                 $hreffile =~ tr/A-Z/a-z/;
  42.                 $hreffile .= '.htm';
  43.                 $tmp[$a] = sprintf("<A HREF=\"%s#%s\">%s</A>",$hreffile, $href, join(' ',@tmp2));
  44.             }
  45.         }
  46.         $a++;
  47.     }
  48.     $hypertext{$i} = join('',@tmp);
  49. }
  50.  
  51. open(FILE, $linkfile) || die("linktb.txtがあらへんで。\n");
  52.  
  53. while(<FILE>){
  54.     chop;
  55.     @line = split(/\t/);
  56.     $r_refid = $line[2];
  57.     $r_abbrid = $line[1];
  58.     $hreffile = substr($abbridindex{$r_abbrid}, 0, 1);
  59.     $hreffile =~ tr/A-Z/a-z/;
  60.     $hreffile .= '.htm';
  61.     $refhref = sprintf("<A HREF=\"%s#%s\">%s</A> ",$hreffile, $abbridindex{$r_abbrid}, $abbr{$abbridindex{$r_abbrid}});
  62.     
  63.     $reftext{$abbridindex{$r_refid}} .= $refhref;
  64. }
  65. close(FILE);
  66.  
  67.  
  68. foreach $i (sort(keys %abbrkey)){
  69.     $file = substr($abbrkey{$i}, 0, 1);
  70.     $file =~ tr/A-Z/a-z/;
  71.     $file .= '.htm';
  72.     open(FILE, ">>$file");
  73.     printf FILE ("<P><TABLE WIDTH=\"95%\" CELLPADDING=\"3\">\n");
  74.     printf FILE ("<TR><TD BGCOLOR=\"#9adbe0\">\n");
  75.     printf FILE ("<FONT SIZE=\"+1\"><STRONG><A NAME=\"%s\">%s</A></STRONG></FONT>　%s\n",$abbrkey{$i},$abbrname{$i},$letter{$i});
  76.     printf FILE ("</TABLE>\n");
  77.     printf FILE ("<TABLE WIDTH=\"90%\">\n<TR><TD>");
  78.     printf FILE ("%s\n",$hypertext{$i});
  79.     if($reftext{$i} ne ""){
  80.         printf FILE ("<FONT SIZE=\"-1\"><P>　→%s</FONT>\n",$reftext{$i});
  81.     }
  82.     printf FILE ("</TABLE>\n");
  83.     close(FILE);
  84. }
  85.  
  86. foreach $filename (a..z){
  87.     $filename .= '.htm';
  88.     open(FILE, ">>$filename");
  89.     printf FILE ("<HR NOSHADE>");
  90.     printf FILE ("</CENTER>\n");
  91.     printf FILE ("\n</BODY>\n</HTML>\n");
  92.     close(FILE);
  93. }
  94.  
  95.