#! /usr/local/bin/perl -w use strict; open (FILEHANDLE, "<file.parse") or die "unable to open file"; my $line; my @array; while (<FILEHANDLE>) { $line = $_; chomp ($line); @array = (); @array = split (/\s+/, $line); # error messages say that something is uninitialised in the below line +! print STDOUT "$array[13]\t$array[14]\n"; } open (OUTFILE, ">$$.output"); print OUTFILE "$array[13]\t$array[14]\n"; close OUTFILE; exit;
In reply to hashes of arrays ?? by lolly
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |