# die "Please specify input and output filenames" if($#ARGV != 1); open INF, '<', $ARGV[0] or die "Can't open input file"; open OUF, '>', $ARGV[1] or die "Can't open output file"; print OUF <<EOS; #include<khimaira.h> khui_accel_def khui_accel_global[] = { EOS # skip first line <INF>; while(<INF>) { print OUF "{".$_."},\n"; } print OUF <<EOS; }; int khui_n_accel_global = sizeof(khui_accel_global) / sizeof(khui_accel_def); EOS close INF; close OUF;