1) Not sure why I am seeing 'Filename' and 'Owner' when print $^A is invoked. Can you see why?
2) Is there a better way to line up my headings with the data then what I am doing? For example, q{ } x ##
__OUTPUT__ REPORT OF .... on host: sparky Filename PageOwner 0 <snip> __END_OUTPUT__ my $fn = q<Filename> ; my $owr = q<Owner> ; my $go = q<GroupOwner> ; my $gc = q<Gecos> ; my $lmd = q<LastModifiedDate> ; my $smb = q<Size Mb> ; my $format_TOP = 'REPORT OF LARGE FILES on:' . "\n" . qx(hostname) . '@' . '<' x 12 . "\n\n\n" . 'Page' . '@' . '<' x 4 . "\n" . $% . "\n" . $fn . q{ } x 10 . $owr . q{ } x 6 . $go . q{ } x 1 . $gc . q{ } x 25 . $lmd . q{ } x 6 . $smb . "\n" . '=' x 8 . q{ } x 10 . '=' x 5 . q{ } x 6 . '=' x 10 . q{ } x 1 . '=' x 5 . q{ } x 25 . '=' x 16 . q{ } x 6 . '=' x 7 . "\n" ; formline( $format_TOP, $fn, $owr, $go, $gc, $lmd, $smb ) ; print $^A ; $^A = q{}; <snip>
In reply to Re^4: format characters
by mikejones
in thread format characters
by mikejones
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |