Please ignore the message below b/c I worked through this.
Basically my format code is not printing in a sorted order based off of 'sz'
yet it is correctly sorted in @sorted_large_files as you can see below SORTED.
How can I tell format to print it sorted based off of 'sz'?
Here is how I am sorting
@sorted_large_files =
sort { $meta{$b}->{'sz'} <=> $meta{$a}->{'sz'} } keys %meta ;
REPORT OF LARGE FILES on:
"hostname xxxxx"
Page 1
FileName Owner
GroupOwner Gecos LastModifiedDate Size Mb
=========
======= =========== ====== ================= =======
/var/opt/ignite/media/image.iso root
sys N/A 17:01:21-09/27/06 98.84
/var/opt/ignite/media/pseudo_root/bootvol.lif root
sys N/A 17:01:20-09/27/06 98.49
/var/opt/ignite/clients/0x001321EAA5D2/recovery/2007-11-16,22:02/flist bin
sys N/A 01:03:24-11/17/07 33.47
/var/opt/ignite/clients/0x001321EAA5D2/recovery/2007-10-16,23:39/flist bin
sys N/A 02:40:23-10/17/07 32.28
/var/opt/ignite/clients/0x001321EAA5D2/recovery/2007-12-16,22:02/flist bin
sys N/A 01:03:16-12/17/07 36.58
/var/opt/ignite/clients/0x00306E3842AF/recovery/2008-01-15,05:43/flist bin
sys N/A 05:44:15-01/15/08 34.33
/var/opt/ignite/clients/0x00306E4B4C3A/recovery/2008-01-15,09:44/flist bin
sys N/A 09:46:49-01/15/08 28.84
/var/adm/sw/save/PHCO_34255/VXVM-RUN/etc/vx/static.d/build/vold.o bin
bin N/A 03:13:11-10/06/04 28.00
/var/opt/ignite/clients/0x00306E3842AF/recovery/2007-12-15,07:49/flist bin
sys N/A 07:50:10-12/15/07 34.30
/var/opt/ignite/clients/0x001321EAA5D2/recovery/2008-01-16,23:50/flist bin
sys N/A 02:50:59-01/17/08 37.92
/var/opt/ignite/clients/0x00306E4B2BA4/recovery/2008-01-16,06:16/flist bin
sys N/A 06:18:46-01/16/08 65.12
SORTED
/var/opt/ignite/media/image.iso
/var/opt/ignite/media/pseudo_root/bootvol.lif
/var/opt/ignite/clients/0x00306E4B2BA4/recovery/2008-01-16,06:16/flist
/var/opt/ignite/clients/0x001321EAA5D2/recovery/2008-01-16,23:50/flist
/var/opt/ignite/clients/0x001321EAA5D2/recovery/2007-12-16,22:02/flist
/var/opt/ignite/clients/0x00306E3842AF/recovery/2008-01-15,05:43/flist
/var/opt/ignite/clients/0x00306E3842AF/recovery/2007-12-15,07:49/flist
/var/opt/ignite/clients/0x001321EAA5D2/recovery/2007-11-16,22:02/flist
/var/opt/ignite/clients/0x001321EAA5D2/recovery/2007-10-16,23:39/flist
/var/opt/ignite/clients/0x00306E4B4C3A/recovery/2008-01-15,09:44/flist
/var/adm/sw/save/PHCO_34255/VXVM-RUN/etc/vx/static.d/build/vold.o
----- Original Message ----
From: oryann9 <[EMAIL PROTECTED]>
To: Perl List <[email protected]>
Sent: Thursday, January 31, 2008 4:57:10 PM
Subject: undefined format error
Hello
List,
I
am
hoping
for
some
help
with
this.
I
did
post
this
same
question
to
PerlMonks.
Undefined
format
"STDOUT"
called
at
find_hog.tdy
line
173.
Line
173
is
the
1st
write
statement,
but
since
there
are
snips
in
there
173
is
not
the
actual
line
in
this
email.
Just
look
for
1st
write
statement.
thank
you.
:)
#!/usr/bin/perl
use
strict
;
use
warnings
;
use
File::Find
;
use
File::Find::Closures
qw(find_by_min_size)
;
$ENV{"PATH"}
=
qq(/usr/bin:/bin)
;
delete
@ENV{qw
(IFS
CDPATH
KSH_ENV)}
;
my
(
$key,
$keys,
$user,
$grp,
$gcos,
$mod,
$mod2,
$sz,
)
;
my
(
@sorted_large_files,
@sorted_root_files,
);
<snip>
<snip>
##--
Begin
Format
Code
--##
#==========================#
$^L
=
q{};
format
STDOUT_TOP
=
REPORT
OF
LARGE
FILES
on:
@<<<<<<<<<<
qx(hostname)
Page
@<<<
$%
FileName
Owner
GroupOwner
Gecos
LastModifiedDate
Size
Mb
=========================
=======
===========
======
=================
=======
.
format
STDOUT
=
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
@<<<<<<<
@<<<<<<
@<<<<<<<<<<<<<<<<<<<<<<<
@|||||||||||||
@##.##
@sorted_large_files,
dateme($mod,$mod2)
.
<snip>
##--
End
Format
Code
--##
#========================#
<snip>
END
{
close(
LOG
)
or
warn
"Log
'$log'
failed
to
close
$!"
;
}
____________________________________________________________________________________
Never miss a thing. Make Yahoo your home page.
http://www.yahoo.com/r/hs
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
