请问一下Perl 读取文本路径问题

sean88

本人从事Net开发,刚接触perl,请教高手们一个问题:
Windows平台下读取文件,如果perl脚本和文件在同一目录,和不同目录该怎能样获取,就是相对路径和绝对路径!

1. 
   
2. #!C:/perl/bin/perl -w
   
3. use strict;
   
4. my $file = "D:\test.txt";
   
5. 
   
6. open (FILE,$file) or (warn "ERROR: can not open file!\n");
   
7. my @want = map { chomp;[split/\t/] } <FILE>;
   
8. print @want;
   

复制代码

错误:readline() on closed filehandle FILE

@zheng

my $file = "D:\\test.txt";

flw

1，
换个好点的编辑器吧。
很明显 t 被染色了。

2，
没事别用双引号，平时多用单引号。

sean88

谢谢楼上的朋友和版主~~~再请问一下,如果是用相对路径呢?pl脚本和要读取的文本在同一目录?

my $file = 'test.txt';#这样不可以!

不好意思,刚接触perl,我在windows平台下的,用的EditPlus编辑器,请问版主有什么好的介绍,小弟洗耳恭听,听他们说都用vim,但是不知道怎么用~

[ 本帖最后由 sean88 于 2007-2-7 09:43 编辑 ]

韦一笑

when in the same path, you can use this : my $file = './test.txt';

sean88

1. 
   
2. use strict;
   
3. use File::Temp;
   
4. my $file = 'E:\SeanPerl\PerlCode\test.txt';
   
5. #my $file = './test.txt';
   
6. open (FILE,"<$file") or (warn "ERROR: can not open file!\n");
   
7. 
   
8. @stuff=<FILE>;
   
9. close(FILE);
   
10. 
    
11. foreach(@stuff){
    
12.         print scalar($_);
    
13. }
    
14. my @want = map { chomp;[split/\t/] } <FILE>;
    
15. print @want;
    

复制代码

读取文件到数组里,请问一下这个是什么错?
Global  symbol @stuff requires explicit package name

兰花仙子

原帖由 sean88 于 2007-2-8 15:18 发表
[CODE]
use strict;
use File::Temp;
my $file = 'E:\SeanPerl\PerlCode\test.txt';
#my $file = './test.txt';
open (FILE,"<$file") or (warn "ERROR: can not open file!\n");
...

变量要申明作用域.请见偶写的"Perl变量作用域".

sean88

原帖由 兰花仙子 于 2007-2-8 15:24 发表


变量要申明作用域.请见偶写的"Perl变量作用域".

谢谢仙子~~再请问一下相对路径的问题,4楼的说的那个方法,我试了一下,好像不行~~

redspider

原帖由 sean88 于 2007-2-8 15:49 发表


谢谢仙子~~再请问一下相对路径的问题,4楼的说的那个方法,我试了一下,好像不行~~

4楼不是你自己吗？