Re: useless use of sort???

Replies are listed 'Best First'.
Re^2: useless use of sort??? by drock (Beadle) on Mar 22, 2005 at 14:52 UTC
split16 is a column of data that I want to split which is illustrated under __DATA__. so you are saying I cannot embed a sort within a print of a Filehandle on column 16? thanks	[reply]
Re^3: useless use of sort??? by Anonymous Monk on Mar 22, 2005 at 16:08 UTC
Sure you can, but that's not what your code does. If you want to sort column 16, you will first have to select the 16th column entirely, before you can sort it. So you would do: Open your input file. Read it, line by line. Extract column 16, push it to an array. Close your input file. Sort your array. Open your output file. Write your sorted array. Close your output file. What you certainly can't do is reading the input one line at a time, writing something for each line, and then expect the entire thing to be sorted when you're done.	[reply]
Re^4: useless use of sort??? by drock (Beadle) on Mar 22, 2005 at 18:57 UTC
Understood... thank you! In steps 4,5,6 I am having syntax issues. Is the sorted array on the right? @unsotrted = sort {$b <=> $a } @sorted; Here is my code: #use diagnostics; use warnings; use strict; my $file = qq(/var/adm/sa/vm); my $vmout = qq(/var/adm/sa/vm.out); my $cpuout = qq(/var/adm/sa/cpu.out); my $art = qq(/var/adm/sa/arout); my @ar = (); my @ar2 = (); open (FILE, "<$file") \|\| die "unable to open file $!"; open (MEMOUT, ">>$vmout") \|\| die "unable to open file $!"; open (CPOUT, ">>$cpuout") \|\| die "unable to open file $!"; while (<FILE>) { local $, = "\n"; s/id//, s/wa//, print CPOUT push @ar, +(split)[16], $,; s/id//, s/wa//, print MEMOUT +(split)[4], $,; } close (MEMOUT) or warn "unable to close file $!"; close (CPOUT) or warn "unable to close file $!"; close (FILE) or warn "unable to close file $!"; @ar = sort { $a <=> $b } @ar; print "Now printing array 1\n", @ar; [download]	[reply] [d/l]
Re^5: useless use of sort??? by Anonymous Monk on Mar 23, 2005 at 09:57 UTC


XP is just a number
	PerlMonks