Re^4: "Global Symbol Requires Explicit Package Name" error

Hi runrig,
Thanks for stoping by. If you don't mind, could I ask another question. You have said that you understand why I am loosing data. How do I prevent this? How do I take a header element and just sort by it without loosing my data? I have read all of the documentation that I can get my hands on but I just can't get it to work. I need to delete whole rows with certain data, and then sort the rest. Can you assist?

Regards
Portree

Comment on Re^4: "Global Symbol Requires Explicit Package Name" error

Replies are listed 'Best First'.
Re^5: "Global Symbol Requires Explicit Package Name" error by runrig (Abbot) on Aug 11, 2005 at 17:09 UTC
I don't understand why you are losing data, I'm just guessing at the reason why you think you are losing data. If I'm right, then maybe you shouldn't be using a hash array, maybe you should just be using a regular array (of arrays), and then you can just sort on the element that you're currently putting in the key of the hash arrays. But since I'm not sure what you're trying to accomplish in the end, I can't be sure. Posting a small but complete example of what you're trying to do would help, instead of posting something that opens files with data that we can't see. You can post examples of reading in data using the DATA handle, e.g.: `my @lines; while (<DATA> { my @array = split; # Don't save first two fields push @lines, [ @array[2..5] ]; } # Sort 3 field from input for my $line (sort { $a->[0] cmp $b->[0] } @lines) { for my $value (@$line) { print "$value\t"; } print "\n"; } __DATA__ a b c d e f a b c d e f g h i j k l` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: "Global Symbol Requires Explicit Package Name" error
by runrig (Abbot) on Aug 11, 2005 at 17:09 UTC

my @lines;
while (<DATA> {
  my @array = split;
  # Don't save first two fields
  push @lines, [ @array[2..5] ];
}

# Sort 3 field from input
for my $line (sort { $a->[0] cmp $b->[0] } @lines) {
  for my $value (@$line) {
    print "$value\t";
  }
  print "\n";
}

__DATA__
a b c d e f
a b c d e f
g h i j k l
[download]

[reply]
[d/l]