#! c:/perl/bin/perl # # htmlgen.pl # Generate a html file from cgi execution. # # Example : htmlgen.pl [] > # # http://www.hidekik.com/ # # 6/30/07 : Initial revision # # Copyright(c) 2007 Hideki Kanayama, All rights reserved use strict; my $cgi = $ARGV[0]; $ENV{QUERY_STRING} = join ' ', @ARGV[1 .. $#ARGV]; my $html; if ($^O =~ /Win/i){ $html = `perl $cgi`; } else { $html = `$cgi`; } $html =~ s/Content-Type:.*$//im; print $html;