File Descriptor Errors in Active State Perl

[jaynemarie]

I am new to using Active State Perl, I've use Perl on Linux and Unix systems and the same thing on unix systems don't work with active state and I am perplexed. I wrote the code below and I am getting seven loops of Can not open shawneechamber.txt for reading: Bad file descriptor.

Has anyone had this problem? I am on xp and installed v5.8.7 build for MSWIN32-x86

I am having the same problem at work and at home. I thank you for your help in advance.

#!/usr/bin/perl
use warnings;
use strict;
#define variables
my $File = 'shawneechamber.txt';
#my $OutFilePath = 'C:\PerlApp\DataOut\';
#my $InFilePath = 'C:\PerlApp\DataIn\';
#my $OutFileExt = ".csv";
my $lineno = 1;
#my @indata;
 
#open file for reading
open (FILE, "<$File") or die ("Can not open $File for reading:  $!.\n");
binmode(FILE);
#@indata = <FILE>;
while (<FILE>) {
print $lineno++;
print "Can not open $File for reading:  $!.\n";
}
close FILE;
 

[numberwhun]

I am new to using Active State Perl, I've use Perl on Linux and Unix systems and the same thing on unix systems don't work with active state and I am perplexed. I wrote the code below and I am getting seven loops of Can not open shawneechamber.txt for reading: Bad file descriptor.

Has anyone had this problem? I am on xp and installed v5.8.7 build for MSWIN32-x86

I am having the same problem at work and at home. I thank you for your help in advance.

#!/usr/bin/perl
use warnings;
use strict;
#define variables
my $File = 'shawneechamber.txt';
#my $OutFilePath = 'C:\PerlApp\DataOut\';
#my $InFilePath = 'C:\PerlApp\DataIn\';
#my $OutFileExt = ".csv";
my $lineno = 1;
#my @indata;
 
#open file for reading
open (FILE, "<$File") or die ("Can not open $File for reading:  $!.\n");
binmode(FILE);
#@indata = <FILE>;
while (<FILE>) {
print $lineno++;
print "Can not open $File for reading:  $!.\n";
}
close FILE;
 

Well, just to note, in the Windows world, you do not need the shebang line in your regular scripts. It is ignored by the Windows version of Perl.

It looks like your open statement is defined correctly, but considering the error, I am wondering if the file is there or accessible. Check the path to it (it is defined as current directory) and check permissions to see if you can read it.

Regards,

Jeff

[jaynemarie]

I have full access to the shawneechamber.txt file.

[numberwhun]

I have full access to the shawneechamber.txt file.

Ok, well it is something to do with where the file is then. I ran code very similar to yours and it worked fine. I cannot see your system to see what's wrong, unfortunately.

Is the file in the same directory as the script? If not, then you need to specify the full path to the file.

Regards,

Jeff

[jaynemarie]

The file is in the exact same sub directory as the script.

I also re-ran it with absolute path and I got the same error.

[numberwhun]

The file is in the exact same sub directory as the script.

I also re-ran it with absolute path and I got the same error.

I am wondering if you are actually seeing the error you think you are. I ask because you have the following print statement inside of your while loop:

print "Can not open $File for reading:  $!.\n";
 

Try taking that out and re-run it and see what happens.

Regards,

Jeff

[jaynemarie]

That was it. Thanks Jeff.

[numberwhun]

That was it. Thanks Jeff.

Your welcome! And by the way, Welcome to TSDN!

Regards,

Jeff

[KevinADC]

There is no need to increment a scalar to know which line of the file is being operated on, perl is already doing that in the background with the special variable $. (dollar sign dot)

open (FILE, "<$File") or die ("Can not open $File for reading:  $!.\n");
while (<FILE>) {
   print "Line number: $.\n";
}
close FILE;

$. is a read-only value.