Newsgroup: comp.lang.perl

In article <1991Dec13.101335.22869@ircam.fr> fingerhu@ircam.fr (Michel Fingerhut) writes:
>Hello -- I want to gather statistics from a variable number of local hosts
>(e.g., depending on which one is up) and output them with "write".  However
>I don't see how to build the "format" pictures at run time depending
>on the number (and names, etc...) of those hosts.  Any suggestion?

Use eval.  Create a string with the format you want and run eval on
it.  As a simple example, consider having the date, part of the format
specifier:

$date=`date`;
$format = "
format hosts =
$date
@<<<<<<<<<<<<<< @|||||||| @<<<<<<<
\$name,		\$uptime,  \$room
.
";
eval $format;
$~=hosts;
$name='foo';$uptime=12;$room=429;
write; write;

Diomidis
-- 
Diomidis Spinellis                  Internet:                 dds@doc.ic.ac.uk
Department of Computing             UUCP:                    ...!ukc!icdoc!dds
Imperial College, London SW7        #include "/dev/tty"

Unless otherwise expressly stated, all original material on this page created by Diomidis Spinellis is licensed under a Creative Commons Attribution-Share Alike 3.0 Greece License.