chiark / gitweb /
New script to add up numbers on stdin.
[bin.git] / sponge
1 #! /usr/bin/perl -w
2 use strict;
3
4 binmode STDIN;
5 undef $/;
6 my $input = <STDIN>;
7 open OUT, "> $ARGV[0]" or die "couldn't open $ARGV[0]: $!";
8 print OUT $input or die "couldn't write to $ARGV[0]: $!";
9 close OUT or die "couldn't close $ARGV[0]: $!";