fdisk/make_tags.pl

   1 #!/usr/bin/perl
   2
   3 while(<STDIN>) {
   4         s/\s/ /g;
   5         $list .= $_;
   6         }
   7
   8 while($list =~ /^\s*([a-z0-9]{1,2})\s+(.{15})(.*)$/) {
   9         $code = $1; $name = $2; $list = $3;
  10         $name =~ s/\s+$//;
  11         print "'$code' => '$name',\n";
  12         }