1#!/usr/bin/perl 2 3open(F, "doc/quickstart.txt"); 4 5@manual_content = <F>; 6 7close (F); 8 9print 'static char manual_content[] = "\\'; 10print "\n"; 11 12foreach $line (@manual_content) { 13 chop($line); 14 $line =~ s/([\\%"])/\\$1/g; 15 printf "$line\\n\\\n"; 16} 17 18print "\";\n"; 19