[求助+大惑不解]“\n”的问题。。

Osment

文本文件格式
$type1\t$type2\t\n等等，若干行。

读取程序

1. 
   
2.     $filetoopen = "文件名字";
   
3.     if (-e $filetoopen) {
   
4.         open(FILE, "$filetoopen");
   
5.         flock(FILE, 2);
   
6.         sysseek(FILE, 0, 0);
   
7.         sysread(FILE, my $myfiledata,(stat(FILE))[7]);
   
8.         flock(FILE, 8);
   
9.         close(FILE);
   
10. 
    
11.         chomp $myfiledata;
    
12.         $myfiledata = "$myfiledata\n";
    
13.   
    
14.         my $key =0;
    
15.         $key =1 if ($myfiledata =~s/(.+?)\t(.+?)\t\n/);
    
16. 
    
17.         print $key;
    
18.         print $myfiledata;
    
19. 
    
20.     }
    

复制代码

$key 的数值居然是0！！！ 文件不含\n吗？
换成 $key =1 if ($myfiledata =~s/(.+?)\t(.+?)\t/); 倒是可以。。
但是可以print 出来 $myfiledata 的数值。

代码

1. 
   
2.     $filetoopen = "文件名字";
   
3.     if (-e $filetoopen) {
   
4.         open(FILE, "$filetoopen");
   
5.         flock(FILE, 2);
   
6.         sysseek(FILE, 0, 0);
   
7.         sysread(FILE, my $myfiledata,(stat(FILE))[7]);
   
8.         flock(FILE, 8);
   
9.         close(FILE);
   
10. 
    
11.         chomp $myfiledata;
    
12.         my @myfiledata=split(/\n/,$myfiledata); # 添加的
    
13.         $myfiledata = join("\n",@myfiledata); # 添加的
    
14.         $myfiledata = "$myfiledata\n";
    
15.   
    
16.         my $key =0;
    
17.         $key =1 if ($myfiledata =~s/(.+?)\t(.+?)\t\n/);
    
18. 
    
19.         print $key;
    
20.         print $myfiledata;
    
21. 
    
22.     }
    

复制代码

居然就一切正常？？为什么？汗。。  
难道sysread出来的数值不能用正则判断？

apile

$key =1 if ($myfiledata =~s/(.+?)\t(.+?)\t/);
不對吧..
$key =1 if ($myfiledata =~m/(.+?)\t(.+?)\t/);
才對...

gunguymadman

原帖由 "apile" 发表：
$key =1 if ($myfiledata =~s/(.+?)\t(.+?)\t/);
不對吧..
$key =1 if ($myfiledata =~m/(.+?)\t(.+?)\t/);
才對...

不就是判断是否含有(.+?)\t(.+?)\t的模式麽   若是这样m也不必了

Osment

手误。换成m 结果一样。。：（

apile

我懷疑你的第一行..格式不對...
改用
$key =1 if ($myfiledata =~m/(.+?)\t(.+?)\t/s);
就可以了...

Osment

谢谢：）
但是其实我的目的是检查 文章中是否有“\t\n”存在呀。。
这个小程序是个Demo 而已，我是测试中发现 无法在读取的中间找到"\n"，所以写了这个程序测试，结果测试结果很困惑。。。
取消对\n的检查，当然就正常了。
理论上 sysread 读取应该不需要定义 $/ 吧。无奈之下，偶改他也是一样。汗：）

加上s参数和不加结果一样。
附上完整代码。请指教

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. $|++;
   
5. $thisprog = "t1.cgi";
   
6. 
   
7. print "Content-type: text/html\n\n";
   
8. 
   
9. &getmylist();
   
10. exit;
    
11. 
    
12. sub getmylist {
    
13.     $filetoopen = "D:/data/list9.txt";
    
14.     if (-e $filetoopen) {
    
15.         open(FILE, "$filetoopen");
    
16.         flock(FILE, 2) if ($OS_USED eq "Unix");
    
17.         sysseek(FILE, 0, 0);
    
18.         sysread(FILE, my $myfiledata,(stat(FILE))[7]);
    
19.         close(FILE);
    
20. 
    
21.         chomp $myfiledata;
    
22. 
    
23. #        my @myfiledata=split(/\n/,$myfiledata); # 添加的
    
24. #        $myfiledata = join("\n",@myfiledata); # 添加的
    
25. 
    
26.         $myfiledata = "$myfiledata\n";
    
27. 
    
28.   
    
29.         my $key =0;
    
30.         $key =1 if ($myfiledata =~m/(.+?)\t(.+?)\t\n/s); # 有检查\n 存在，失败了，key=0
    
31. #        $key =1 if ($myfiledata =~m/(.+?)\t(.+?)\t/s); # 取消检查\n 存在，成功
    
32. 
    
33.         print $key;
    
34. #        print $myfiledata;
    
35. 
    
36. 
    
37.     }
    
38.     else { print "打开文件出错"; }
    
39. 
    
40. }
    
41. 
    

复制代码

apile

windows下..結束符號是
\r\n...
所以比對不到
\t\n是正常的...

Osment

谢谢了：）也发现原因了。汗。。
本来文本是FreeBSD下的，但是测试环境是Win2000。。
谢谢apile 的帮忙。