motemen (owner)

Revisions

gist: 108046 Download_button fork
public
Public Clone URL: git://gist.github.com/108046.git
Embed All Files: show embed
Perl #
raw 
1
2
3
4
5
6
7
8
9
10

#!perl
use strict;
use warnings;
use File::Temp;
 
my $basename = shift;
my $output = `cat $basename.in | perl $basename.pl`;
my $fh = File::Temp->new;
print $fh $output;
exec "diff -u $basename.out " . $fh->filename;