【求助】可以输出到屏幕，却不能输出到文件！！！

pengchy

UID: 23428
帖子: 27
积分: 62
在线时间: 1 小时

1^# pengchy 发表于 2008-04-03 16:43

【求助】可以输出到屏幕，却不能输出到文件！！！

如题！

open(my $fh_o1,">idtitle.txt") || die "$!";
print $fh_o1 "start!\n";

foreach (keys %allids){
    $t++;
    my $mech=WWW::Mechanize->new();
    my $url=qw(http://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=pubmed&id=).$_."&retmode=html&rettype=abstract";
    $mech->get($url);
    my $content=$mech->content;
    my($title)=$content=~/1:.*?\n\n(.*?)\n/g;
    print "$_\t$title\n";
    print $_,"\n";
    print $fh_o1 "$_\t$title\n";
    #last;

}

close $fh_o1;

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

2^# apile 发表于 2008-04-03 17:24

1.检查你有没有权限建立文件..
2.文件到底存到哪去？
3.试着打开file handle的autoflush....

net_robber

UID: 43048
帖子: 167
积分: 384
在线时间: 1 天 14 小时

3^# net_robber 发表于 2008-04-03 23:04

文件前面有 $ 么？？