1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#/usr/bin/env perl use File::Slurp; my $version = read_file('version.txt'); chomp($version); printf "#define DOCSTRING \"inetools %s\\\n", $version; while(<>){ s|\"|\\"|g; s|\n|\\n\\\n|g; print; } print '"'."\n";