Hi, I ran into "Inappropriate ioctl for device" when open a file on the 
local drive, i have write, read privileges on it.

my $file=shift @ARGV || File::Spec->catfile(q(.),q(a.res));
open (INPUT,'<', $file) or die " can't open $file : $!";

I do not understand what is wrong? thanks for your attention.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to