Re^2: Problem printing contents of file

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.

Comment on Re^2: Problem printing contents of file Select or Download Code