diff options
Diffstat (limited to 'interleave')
-rwxr-xr-x | interleave | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/interleave b/interleave new file mode 100755 index 0000000000..6abe1ec72b --- /dev/null +++ b/interleave @@ -0,0 +1,9 @@ +#!/usr/bin/perl + +while (<>) { + chop; + $stuff[$i++] .= $_; + $i = 0 if eof; +} + +$" = "\n"; print "@stuff\n"; |