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