git.sesse.net Git - bursty/blob - truncate-end.pl

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my @buffer = ();
   7
   8 while (<>) {
   9         chomp;
  10         if (/\d /) {
  11                 print join("\n", @buffer);
  12                 @buffer = ();
  13                 print "$_\n";
  14         } else {
  15                 push @buffer, $_;
  16         }
  17 }