From 9e1d47659b61c38630f25d0c31639a775513c8c8 Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Tue, 7 Feb 2006 01:35:04 +0000 Subject: Add new script. --- sponge | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100755 sponge (limited to 'sponge') diff --git a/sponge b/sponge new file mode 100755 index 0000000..aa1289c --- /dev/null +++ b/sponge @@ -0,0 +1,12 @@ +#! /usr/bin/perl -w + +# Origin: http://riva.ucam.org/svn/cjwatson/bin/sponge + +use strict; + +binmode STDIN; +undef $/; +my $input = ; +open OUT, "> $ARGV[0]" or die "couldn't open $ARGV[0]: $!"; +print OUT $input or die "couldn't write to $ARGV[0]: $!"; +close OUT or die "couldn't close $ARGV[0]: $!"; -- cgit v1.2.3