print array问题

fufelixzh

while ($line=<$fh>) {  
        if ($line =~ /.*\\(mod.*)/)  
        {  
                $a=$1;  
                $a=$a."\n";  
                push (@list ,$a);  
                $j++;  
        }  
}  

为什么$a=$a."\n"; $a一定要加.'\n'，否则，print @list  打印会打混乱

hztj2005

\n就是换行符。
$a=$a."\n";  就是给每个$a添加一个换行符，就是打印完一个数据，换一行再打。

523066680

题主也可以在打印的时候自己加换行符

1. while ($line=<$fh>)
   
2. {
   
3.     if ($line =~ /.*\\(mod.*)/)
   
4.     {
   
5.         push (@list ,$1);
   
6.         $j++;
   
7.     }  
   
8. }
   
9. 
   
10. print join("\n", @list);

复制代码

fufelixzh

回复 3# 523066680

你好。我的问题是不加\n，为什么会是乱码。也就是想问，为什么错了，而且错了那么奇葩

jason680

回复 4# fufelixzh

>> ...而且错了那么奇葩

中国人用筷子吃饭
如果你（是外国人）不会用筷子吃饭
你会说用筷子吃饭，那么奇葩...

523066680

回复 4# fufelixzh

先问是不是，再问为什么。（ “错”、“奇葩”、“乱码” ？

题主还是贴一个输出结果并说说哪里觉得不对吧。我们并不知道你指的乱码和奇葩是什么情况。

以我对 Perl 的了解，如果你不加换行，print @array 的时候元素就混在一起了，这不叫乱码。

quanpai

如果要问乱码的问题，需要整个程序，至少$fh怎么来的需要知道