1#! /usr/bin/perl 2 3use strict; 4use warnings; 5 6my $prog = $0; 7$prog =~ s/\.t$// or die "invalid prog name"; 8 9my $src = "$prog.c"; 10 11$prog =~ /\// or $prog = "./$prog"; 12 13my $cc = 'gcc'; 14my $cflags = '-I. -I..'; 15my $ldflags = '-L. -L..'; 16my $ldlibs = '-lunijp'; 17 18my $cmd = "$cc $cflags $ldflags $src $ldlibs -o $prog && $prog"; 19my $r = system($cmd); 20if( $r!=0 ) 21{ 22 my $signo = $? & 127; 23 my $xval = $? >> 8; 24 $signo and die "system: signal $signo <<$cmd>>"; 25 $xval and die "system: exit $xval <<$cmd>>"; 26} 27