#!/usr/bin/perl -w
use strict;
use Data::Dumper;
my @all;
while (my $line = )
{
next if ($line =~ /[A-Za-z]/);
push @all, [ split (" ", $line) ];
}
# Sort by "In" then "Out" then "Day" increasing
my @ByIn_Out_Day = sort {$a->[1] <=> $b->[1]
||
On Tue, 14 Jun 2005, Vijay Kumar Adhikari wrote:
> Thank you. That helped. I get the data as output from another program.
> Is [there] any way that I need not save it the output in a temp file
> and directly pipe it to DBD:CSV.
Hmm.
It might be possible, but it's probably more trouble than it's
Vijay Kumar Adhikari <[EMAIL PROTECTED]> asked:
> I have some tab delimited text data like
>
> IDIn Out Day
> 1 5 2 1
> 2 4 9 2
> 3 3 3 2
> 4 6 7 3
> 5 5 0 5
> 6 7 9 3
> 7 8 9
Adhikari
Cc: beginners@perl.org
Subject: Re: Tabular Data, Group By Functions
On Tue, 14 Jun 2005, Vijay Kumar Adhikari wrote:
> I have some tab delimited text data like
>
> IDIn Out Day
> 1 5 2 1
> 2 4 9 2
> 3 3 3 2
On Tue, 14 Jun 2005, Vijay Kumar Adhikari wrote:
> I have some tab delimited text data like
>
> IDIn Out Day
> 1 5 2 1
> 2 4 9 2
> 3 3 3 2
> 4 6 7 3
> 5 5 0 5
> 6 7 9 3
> 7 8 9
