求助！变量名问题。

c1l2d3

偶想将一个文件的每一行做为值赋给一个变量，假如文件有10行，就自动按从1 至 10起这个变量的名字。即生成：
var1
var2
var3
.......
var10
如何来做呢？？请大侠们指点..谢谢~

fayland

my $i = 1;
while(<FH> {
${var$i} = $_;
$i++;
}

gunguymadman

你通过了麽   我试着不行  无法输出   ${var$i}

fayland

我试过了
加个引号就可以了
${"var$i"}

gunguymadman

oh？  no,no，  我的rh9，solaris都不行    你用什么os？

fayland

我的Win32

#!/usr/bin/perl

my $i = 1;
while(<DATA> {
${"var$i"} = $_;
$i++;
}

print "$var3";

__DATA__
var1
var2
var3

gunguymadman

嗯。。  基本上修改了之后可以输出  可是有问题啊     
我的意思是通过再次赋值$i,访问${"var$i"}  

1. 
   
2. [gag@genomic-server perl]$ more 2
   
3. #!/usr/bin/perl -w
   
4. 
   
5. #use strict;
   
6. our $b=5;
   
7. our $perl5="aaa";
   
8. sub print ( $ ) {
   
9.         my $one=$_[0];
   
10. #       my $one=shift;
    
11.         print ${"perl".$one},"\n";
    
12. }
    
13. #&print("5");
    
14. print ${"perl".$b},"\n";
    
15. [gag@genomic-server perl]$ perl 2
    
16. aaa
    

复制代码

我试了下  如果定义my 是通不过的  需要定义为our     （不解）      而且需要注释掉use strict;  (不注输出不了 ？？   ）    apile知道是为何麽     
另外楼主的问题可以用DB_File来解决  读到array里    方便的很    喜欢的话可以写成类

apile

#!/usr/bin/perl -w

1. 
   
2. use strict;
   
3. my  $b=5;
   
4. my  $perl5="aaa";
   
5. sub print($) {
   
6.         my($one)=@_;
   
7.         print ${"perl".$one},"\n";
   
8. }
   
9. #&print("5");
   
10. print ${"perl".$b},"\n";
    

复制代码

namespace的問題...基本上lexically scope variable..
只存在於他自己所屬的{} or scope....
所以啦...你如果不用our or local宣告...則他只會存在於subroutine之外的
namespace...因為subroutine有用{}產生另一個區間...

所以當你在print裡面要使用外面宣告成lexically的variable...
他會找不到...
our -->; pacakge variable 在上面例子中屬於main 這個package..
local global都應該可以....
當開啟use strict的時候..寫程序很像在寫C...
再想想吧

gunguymadman

哦  明白了   
加双引号之后变成了符号引用    便到包的符号表里去查找   
而用my声明的词法变量不在包的符号表里 顾不得见   需加our