home *** CD-ROM | disk | FTP | other *** search
/ Kyūkyoku!! X68000 Emulator / X68000Book.dat / mac / OLS / X68000 / Ko-Window / cdply131.lzh / cdc.pl next >
Perl Script  |  1995-09-19  |  705b  |  36 lines
  1. #!/usr/local/bin/jperl
  2. $start= 0;
  3. $endtrack= 0;
  4. sub flush
  5. {
  6.     if( $start ){
  7.         print "#\n";
  8.         print "00 $endtrack:$cdtitle\n";
  9.         for( $i= 0 ; $i <= $endtrack ; $i++ ){
  10.             print $track[$i];
  11.         }
  12.         if( $program ne "" ){
  13.             print "# $program\n";
  14.         }
  15.     }
  16. }
  17. while( <ARGV> ){
  18.     if( /^\s+All \((\d+)\'(\d+)\"(\d+)\)\s+(.*)$/ ){
  19.         $tmpcdtitle="$1:$2:$3\t$4";
  20.         &flush;
  21.         $cdtitle= $tmpcdtitle;
  22.         $start=1;
  23.         $program= "";
  24.     }elsif( /^ \[(\d+)\]  \d+\'\d+\"\d+\s+(.*)$/ ){
  25.         $endtrack= $1;
  26.         $track[$1]= "$1\t\t$2\n";
  27.     }elsif( /^\s+\<(.+)\>$/ ){
  28.         $program= $1;
  29.     }
  30. }
  31. &flush;
  32. #
  33. # cdc.lst -> cdtitle.lst âRâôâoü[â^
  34. # 1995 H.Ogasawara(COR.)
  35. # usageüujperl cdc.pl cdc.lst >> cdtitle.lstüv
  36.