in reply to Problem printing contents of file

On my PC it works perfectly (indeed, I had no doubt of it).

On which OS are you running it?

Have you added strictures (use strict; use warnings;)?

Does your post contain the entire file?

How do you execute it?

Most important: please use <code> tags when posting code here; it will be more readable and downloadable.

Careful with that hash Eugene.

Replies are listed 'Best First'.
Re^2: Problem printing contents of file
by ketaki (Acolyte) on Jun 18, 2008 at 06:27 UTC
    the os on my comp is windows xp, but this script runs on the linux based server. I added the strictures you suggested and still it doesnt show any output. the file frame.txt i checked is not empty. I am executing it by viewing the page register.cgi on the browser in internet, after uploading the file on the server. Mt post does not contain the entire code in the program.... below is the whole file: 
    
#!/usr/bin/perl

print "content-type:text/html\n\n";

use CGI;
use strict;
use warnings;

print<<html1;

    <html>

    <head>
    <title>Register online</title>
    </head>

    <body style="background-color:#BC9FAC;">

html1

open(frame,'../frame.txt');
while(<frame>)
{
    print "$_\n";
}
close(frame);

print<<html2;

    <center>
        <div style="margin:0 auto;width:750px;height:420px;">
        

html2

    [download]
    and when i put this code into it: 
    
my $file = "../frame.txt";
if(-s ($file) >0) 
    {
#        open(FILE, '<', $file) or die $!;
#        while(<FILE>) {
#                 print $_, "\n";
#                 }
#       close(FILE);
    }
else
{
    print "$file contains no data\n";
}

    [download]
    then it outputs ../frame.txt contains no data. but i checked the file frame.txt.... it does contain text.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom