1 #!/usr/bin/perl 2 3 open (List, "gmarshal.list"); 4 5 while (<List>) { 6 next unless /^[A-Z]/; 7 s/^/"g_cclosure_marshal_/; s/:/__/; s/,/_/g; s/$/",/; 8 print; 9 } 10
