#!/usr/bin/perl
# The Missing Textutils, Ondrej Bojar, obo@cuni.cz
# http://www.cuni.cz/~obo/textutils
#
# Given a tab delimited file, 'blockize' returns blocks - every column on a
# separate line, former lines are now delimited by a blank line.
#
# See also 'deblockize' and consider deblockize | grep | blockize.
#
# $Id: blockize,v 1.3 2010-11-02 16:07:41 bojar Exp $

use Getopt::Long;

sub usage {
  print STDERR "blockize <stdin >stdout\n";
  exit 1;
}

GetOptions(
  "help" => \$usage,
) or exit 1;
usage() if $usage;

$delim = "";
while (<>) {
  $nl++;
  chomp;
  @line = split /\t/;

  foreach my $elem (@line) {
    print "$elem\n";
  }
  print "$delim\n";
}