Jabir Ahmed am Dienstag, 4. Oktober 2005 07.48:
...
use strict; # forces declaration of variables
use warnings; # big help :-)
...
> $file=$ARGV[0] || die "File not found $!";
>
> my %uni=();
# %uni never used below
my @record;
> open (FH,"sort $fi
On Tuesday 04 October 2005 07:48, Jabir Ahmed wrote:
[..]
> my @details=split('\t',$line);
> [EMAIL PROTECTED];
> $reccnt+=1;
[..]
>
> How do i read the values of @details trought the
> $record array;
> i want something like this
> print $record[1][1] ==> this would refer to
$file=$ARGV[0] || die "File not found $!";
my %uni=();
open (FH,"sort $file|");
$reccnt=0;
while ()
{
$line=$_;
my @details=split('\t',$line);
[EMAIL PROTECTED];
$reccnt+=1;
}
$file=$ARGV[0] || die "File not found $!";
my %uni=();
open (FH,"sort $file|");
$reccnt=
