Write Question.

[murali]

Gretings!

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;
                                }
                        else

Thanks in Advance,
-Murali

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]