oryann9 wrote:
Hello List,
Hello,
[ 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 --##
#========================#
perldoc perlform
[ SNIP ]
Output record formats are declared as follows:
format NAME =
FORMLIST
.
If the name is omitted, format "STDOUT" is defined. A single "."
^^^^^^^^^^^^
in column 1 is used to terminate a format.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
