Perl 新人求教

fcharming · 发布于 2013年8月09日 · 155 次阅读
96

一段perl程序运行完之后想要把输出结果放到一个txt文件里,是用文件句柄吗?可是为什么使用句柄且print后那个txt文件是空的呢?

共收到 6 条回复
96
scmroad · #1 · 2013年8月09日

先自己尝试着写,而不是把问题推给别人。

如果写完了有问题,大家倒是可以一起研究

96
fcharming · #2 · 2013年8月09日

脚本已经写好了,就是最后一步输出后用txt存储结果是空的,,,

96
scmroad · #3 · 2013年8月12日

把脚本上传上来,让大家帮你看看

96
fcharming · #4 · 2013年8月12日

system ("systeminfo >E:\result.txt"); $myresult="E:\result.txt"; open(result,$myresult); @osresult=; chomp @osresult; foreach $osresult (@osresult) { if($osresult=~/os/i) { print("$osresult\n"); open(LOG,">>E://r.txt"); print LOG; }
} 就是一段显示电脑部分配置的代码,初学者写的比较粗糙,请莫笑话,呵呵!运行完之后在指定的文件里未显示输出结果,这是为啥?

96
scmroad · #5 · 2013年8月12日

[code]#!/bin/perl

#system ("systeminfo >D://project//result.txt");

my $myresult="result.txt"; open(file,"<$myresult") || die "Cannot open file: $myresult"; @osresult=; chomp @osresult; open(LOG,">>projectr.txt"); foreach $osresult (@osresult) { if($osresult=~/os/i) { print("$osresult\n"); print LOG $osresult; }
} close LOG;[/code]我是在 cygwin 下执行的

96
fcharming · #6 · 2013年8月12日

非常感谢,已经知道问题出在哪了。

需要 登录 后方可回复, 如果你还没有账号请点击这里 注册