Hi,
Don't forget to close the FH : close(<DEMO_LOG>); Regs David ----------------- > > Greetings All, > > I have the following code, from which I attempt to call the module > “Test” > #!/usr/local/bin/perl > ### > ### Program name: demo.pl > ### Created By: Theresa Mullin > > require "cgi.lib"; > > ### Include the CGI stuff > use CGI qw(:standard); > > ### Include the database access stuff > use DBI; > > ### Push location of user created packages onto @INC array > push(@INC,"/home/tmullin/perl/libs"); > > use Test; > > ### Force "no buffering" for output > $| = 1; > > > ### Parse the arguments sent in from the browser > &ReadParse(); > > ### Open log file > open DEMO_LOG, ">/home/tmullin/demo_log"||die "unable to open log file"; > > print DEMO_LOG "Begin processing...\n"; > print DEMO_LOG "array INC: @INC\n"; > print DEMO_LOG "Database selected is: $dbase\n"; > > > > …Here is module Test: > > #!/usr/bin/perl > > ### Program Name: Test.pm > ### Created By: Theresa Mullin > ### Date: 5/20/02 > > package Test; > > $dbase = "TEST"; > print "And to all a good night \n"; > > The code appears to execute, and no error messages are generated. > However, the value of $dbase is never written to the log file. > Any advice you can give would be helpful. > Thanks, > T. > > > Theresa M. Mullin > Programmer/Analyst > Administrative Computing > Northern Essex Community College > 100 Elliott Way > Haverhill, MA 01830 > (978) 556-3757 > [EMAIL PROTECTED] > > > ------=_NextPart_000_0003_01C21B8B.A3BFB810-- > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
