Write to two filehandles failes

[MoshiachNow]

HI,

trying to print to FILE1 (default) and TEMP,results in error.I would expect that it should print to both filehandles with the same format $~ ....

select FILE1;
$~ = EventLogFormat;
open TEMP,">TEMP";
write ;
write TEMP;
#####################
error:

Undefined format "TEMP" called at D:\DOcuments\Ripro\AIX\myscripts\pod_check.pl line 181.

Appreciate any advise.


Long live king Moshiach !

http://www.7for70.com/

 

[Kirsle]

Try?

open TEMP,">TEMP.txt";

Your OS might not like the creation of file names without extensions.

-------------
Kirsle.net | Kirsle's Programs and Projects

 

[MoshiachNow]

Thanks,but this is not the case (Windows works well here).
Seems like the Perl insists that the Handle and the format names be identical...then it works.

Long live king Moshiach !

http://www.7for70.com/