doc/rfc/genref.pl

   1 #!/usr/bin/perl
   2 foreach $file (@ARGV) {
   3     open FILE, "<$file" || die "Error opening $file: $!\n";
   4
   5     $ref = $file;
   6     $ref =~ s/\..*//g;
   7
   8     while (<FILE>) {
   9         next if (!/^(\d+\.)+\s+([a-zA-Z]+-)+[a-zA-Z]/);
  10
  11         chop;
  12         split;
  13         print $ref, "\t", $_[1], "\n";
  14     }
  15
  16     close FILE;
  17 }