Re: Problem printing contents of file

You don't need a module. Does the file contain data? Open like this:

open(FILE, '<', '../frame.txt') or die $!;
    while(<FILE>) {
        print $_, "\n";
    }
close(FILE);
[download]

To check the size of a file, you can do something like the following:

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]

7 hours sleep in 2 days is not healthy

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

Replies are listed 'Best First'.
Re^2: Problem printing contents of file by ikegami (Patriarch) on Jun 17, 2008 at 14:58 UTC
If you're going to tell him to use 3-arg open, you might as well recommend lexical file handles and a better error message too. And I find it's usually better to check what you got rather than checking what you will get. `my $frame_qfn = 'temp'; open(my $frame_fh, '<', $frame_qfn) or die("Unable to open frame file $frame_qfn: $!\n"); while (<$frame_fh>) { print; } if (!$.) { print "$frame_fh contains no data\n"; }` [download]	[reply] [d/l]
Re^2: Problem printing contents of file by ketaki (Acolyte) on Jun 18, 2008 at 06:16 UTC
i tried ur script to check the file size... it goes to the else part and says ../frame.txt contains no data. but i checked and the file frame.txt is not empty. this code is in register.cgi file in cgi-bin directory and the file frame.txt is in the folder above cgi-bin folder.so am i writing '../frame.txt' correctly?	[reply]
Re^3: Problem printing contents of file by Corion (Patriarch) on Jun 18, 2008 at 06:34 UTC
Please read my reply to you. In it, I mention that, when running under a webserver, the current directory likely is not what you think. Do not use relative filenames when running under a webserver. You could have avoided a large part of this wild goose chase by making it clear from the start, in your top post, that you are running your script under a webserver account as a CGI script. That would've made it more clear to us where a likely cause for the error lies.	[reply]
Re^4: Problem printing contents of file by ketaki (Acolyte) on Jun 18, 2008 at 08:23 UTC
hey! thanx a lot.... i put the absolute path and it works now :)	[reply]
Re^5: Problem printing contents of file by Anonymous Monk on Jun 18, 2008 at 10:18 UTC


Don't ask to ask, just ask
	PerlMonks