Re^4: useless use of sort???

in reply to Re^3: useless use of sort???
in thread useless use of sort???

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]

Comment on Re^4: useless use of sort??? Download Code

Replies are listed 'Best First'.
Re^5: useless use of sort??? by Anonymous Monk on Mar 23, 2005 at 09:57 UTC
Why are you separating statements with commas instead of semi-colons? Are you sure you want to remove 'id' and 'wa' once before the first print, and a second time for the second print? Why are you pushing `$,` on the array? Are you sure you want to print even numbers to '/var/adm/sa/cpu.out'? What's with the `local $,`, and then putting it in a list you're printing to a file? What's the purpose of `@ar2`? What happened when you tried? What does the manual page say about sort, and where the unsorted list is? Do you know any other function where the argument is on the LHS of the assignment, and where the result is put into its last argument? Why are you using bareword filehandles instead of lexical variables?	[reply]

Replies are listed 'Best First'.

Re^5: useless use of sort???
by Anonymous Monk on Mar 23, 2005 at 09:57 UTC

Why are you separating statements with commas instead of semi-colons?
Are you sure you want to remove 'id' and 'wa' once before the first print, and a second time for the second print?
Why are you pushing $, on the array?
Are you sure you want to print even numbers to '/var/adm/sa/cpu.out'?
What's with the local $,, and then putting it in a list you're printing to a file?
What's the purpose of @ar2?
What happened when you tried?
What does the manual page say about sort, and where the unsorted list is?
Do you know any other function where the argument is on the LHS of the assignment, and where the result is put into its last argument?
Why are you using bareword filehandles instead of lexical variables?

[reply]

In Section Seekers of Perl Wisdom