#!/usr/bin/perl -w
use strict;

my $compiler    = 'g++';
my $file_input  = $ARGV[0];
my $file_output = $ARGV[1];

die "No input file given\n" unless $file_input;
die "No output file given\n" unless $file_output;

my $compile = `$compiler $file_input -o $file_output`;
print "$compile\nLength: ". length($compile) ."\n";

perl comp-exe.pl five.c five

#include <stdio.h>
int main()
{
        it i; // must be int instead of it
        for(i=1; i < 10000000; i++)
        {printf("Wert von i: %d\n", i);}
}

five.c: In function »int main()«:
five.c:4: Fehler: »it« wurde in diesem Gültigkeitsbereich nicht definiert
five.c:4: Fehler: expected `;' before »i«
five.c:5: Fehler: »i« wurde in diesem Gültigkeitsbereich nicht definiert

Length: 0

my $compile = `$compiler $file_input -o $file_output`;
print "$compile\nLength: ". length($compile) ."\n";

five.c: In function »int main()«:
five.c:4: Fehler: »it« wurde in diesem Gültigkeitsbereich nicht definiert
five.c:4: Fehler: expected `;' before »i«
five.c:5: Fehler: »i« wurde in diesem Gültigkeitsbereich nicht definiert

#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;

my $compiler = 'g++';
my $file_in  = shift @ARGV;
my $file_out = shift @ARGV;

my $out = qx( $compiler $file_in -o $file_out );

print ">>>$out\nLength: ", length( $out ), "\n";

$ perl cp.pl a.c r.x
a.c: In function ‘int main()’:
a.c:4: error: ‘it’ was not declared in this scope
a.c:4: error: expected `;' before ‘i’
a.c:5: error: ‘i’ was not declared in this scope
>>>
Length: 0

stefan@stefan-laptop:~/development/c$ perl comp-exe.pl five.c five 2>&1
five.c: In function »int main()«:
five.c:4: Fehler: »it« wurde in diesem Gültigkeitsbereich nicht definiert
five.c:4: Fehler: expected `;' before »i«
five.c:5: Fehler: »i« wurde in diesem Gültigkeitsbereich nicht definiert
>> 
Length: 0

#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;

my $compiler = 'g++';
my $file_in  = shift @ARGV;
my $file_out = shift @ARGV;

my $out = qx( $compiler $file_in -o $file_out 2>&1 );

print ">>>$out\nLength: ", length( $out ), "\n";

$ perl cp.pl a.c r.x
>>>a.c: In function ‘int main()’:
a.c:4: error: ‘it’ was not declared in this scope
a.c:4: error: expected `;' before ‘i’
a.c:5: error: ‘i’ was not declared in this scope

Length: 184