Gidday all,
I assume when using die in this format I should see the error message.
#!/usr/bin/perl
use CGI qw( :standard );
print header();
$file1 = /web/schooled/www/news/subscribers_news1.txt
open IN, "<$file1" or die("Cannot Open: $!");
while( my $record = <IN> ){
chomp $record;
@data = split( /\|/, $record);
$subscribers1{$data[0]} = $data[1];
}
close IN;
The program dies but no error prints on the screen.
Where am I going wrong?
Colin Johnstone
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
