Perl读取文件诡异有关问题，求高人解答

2013-06-25

Perl读取文件诡异问题，求高人解答my $jsdataif( open (Myfile, $fullname) ){while( Myfile ){$jsdata

Perl读取文件诡异问题，求高人解答

my $jsdata;

if( open (Myfile, $fullname) )
    {   
        while( <Myfile> )
        {  
            $jsdata .= "$_";
        }   
        print "jsdata:$jsdata\n";
    }   
else
    {   
        print "Open json file fail.\n";
    }   

print $jsdata;

$fullname对应的文件不为空，但是print 报“Use of uninitialized”。

什么原因？ Perl
[解决办法]
没啥问题啊，估计是你文件位置不对，如果你要读取的文件跟你这个代码文件不在同一目录，那么就要给全路径，如果在同一目录给个名字就行了，试试下面的代码，打印下结果！

my $jsdata;
my $fullname = 'result1.txt';
open Myfile, $fullname or die "$Open json file fail.\n$!";

while( <Myfile> )
{  
    $jsdata .= "$_";
}   
print "jsdata:$jsdata\n";

close(Myfile);

print $jsdata;

[解决办法]
我运行你代码也没问题，贴出log出来
[解决办法]
打开文件成功了吗？

热点排行

perl python

Perl读取文件诡异有关问题，求高人解答