From: [EMAIL PROTECTED]
> I am new to Perl, So pardon my ignorance. }
>
> I am using Active Perl 5.6.1 on NT4.0:
>
> I am trying to write the variable $xpn into a file called report.
>
> Am I doing it right?
>
> Here is the part of the code:
>
> if ($db_pvcs->FetchRow() )
> {
> print "Valid Bug-number: $bfn\n";
> print "Check-in allowed\n";
> print "The File $xpn\n";
> open (REPORT, ">report" ) || die "report:
> $!\n";
> format REPORT = |CCASE Files|
> Name: @<<<<<<<<<<<<<<<<<<<<<<<<
> $xpn
> .
> write REPORT;
If you are new to Perl you should probably not be using formats.
Especialy if print() does all you need.
Forget formats (I did so myself) unless you really need to generate
formated reports with paging and all that stuff. I've never used them.
Anyway ... what was the question? Is it not doing what did you
expect? And what did you expect? And what does it do? ...
Jenda
=========== [EMAIL PROTECTED] == http://Jenda.Krynicky.cz ==========
There is a reason for living. There must be. I've seen it somewhere.
It's just that in the mess on my table ... and in my brain.
I can't find it.
--- me
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
