bin/From-split.perl

   1 #! /usr/bin/perl -w
   2 use strict;
   3 use vars qw/$cmd/;
   4
   5 $/="\nFrom ";
   6 $|=1;
   7 while (<STDIN>) {
   8         s/^From //s;
   9         s/From $//s;
  10         $_="From ".$_;
  11         $cmd=$ARGV[0];
  12         $cmd=~s/%/$./;
  13         open(OUT,"|".$cmd.";cat >/dev/null") or die "Cannot open $cmd";
  14         print OUT $_ or die "Cannot write";
  15         close(OUT) or die "Cannot close";
  16         print STDOUT ".";
  17         }
  18 print STDOUT " done.\n";