Christian Molière wrote:
I tried in using your code line but it doesn't
run with this error message :
syntax error at (eval 4) line 3, near "},"
Of course, substr should have been inside the quotes.
Like this:
map("substr(\$level{\$host}{\$disk}{'$_'},-2)", sort keys %dates)) ...
Giving this block:
152 my $out_format = "format STDOUT =\n" .
153 "@" . "<" x ($opt_hostwidth - 1) . ' ' .
154 "@" . "<" x ($opt_diskwidth - 1) . ' ' .
155 '@> ' x scalar(keys %dates) . "\n" .
156 join(', ', '$host', '$disk',
157 map("substr(\$level{\$host}{\$disk}{'$_'},-2)", sort keys
%dates)) . "\n" .
158 ".\n";
Aoperently not enough cafeine yet when I wrote my previous mail :-)
Now I tested it out myself (but not having a 3-byte code in my overview
to really really verify if it works).
--
Paul Bijnens, Xplanation Tel +32 16 397.511
Technologielaan 21 bus 2, B-3001 Leuven, BELGIUM Fax +32 16 397.512
http://www.xplanation.com/ email: Paul.Bijnens AT xplanation DOT com
***********************************************************************
* I think I've got the hang of it now: exit, ^D, ^C, ^\, ^Z, ^Q, F6, *
* quit, ZZ, :q, :q!, M-Z, ^X^C, logoff, logout, close, bye, /bye, *
* stop, end, F3, ~., ^]c, +++ ATH, disconnect, halt, abort, hangup, *
* PF4, F20, ^X^X, :D::D, KJOB, F14-f-e, F8-e, kill -1 $$, shutdown, *
* kill -9 1, Alt-F4, Ctrl-Alt-Del, AltGr-NumLock, Stop-A, ... *
* ... "Are you sure?" ... YES ... Phew ... I'm out *
***********************************************************************
|
