1 #!/usr/bin/perl
   2 
   3 use strict;
   4 use warnings;
   5 
   6 my @high_in = `highlight --list-scripts=langs`;
   7 my @gitweb_out;
   8 
   9 foreach(@high_in){
  10   my @l = split(/:\s([[:ascii:]]+?)( \( ([\s,[:ascii:]]*) \))*$/, $_);
  11 
  12   #Output in gitweb $ext_highlight format
  13   if($l[1]){
  14     print"(map { \$_ => \'$l[1]\' } qw($l[1]";
  15     if($l[3]) {
  16       print " $l[3]";
  17     }
  18     print")),\n";
  19   }
  20 }