#!/usr/bin/perl | |
# Copyright (c) 2006 Eclipse Foundation, made available under EPL v1.0 | |
# Contributors Ward Cunningham, Bjorn Freeman-Benson | |
# | |
# usage: | |
# chuck.pl insert.pl < TAB_FILE | |
# | |
use strict; | |
my $cmd = "perl " . shift; | |
my $h = <STDIN>; | |
while ($_ = <STDIN>) { | |
open (S, "| $cmd"); | |
print S $h; | |
print S; | |
for (2..1000) { | |
last unless $_ = <>; | |
print S; | |
} | |
} |