Perl标准输出的问题

Perl标准输出的问题

我在一个脚本语言(A脚本)中调用Perl脚本,将Perl脚本的标准输出内容传递给A脚本。

在A脚本中打开一个Channel,达到与Perl脚本通讯的目的。

代码大家应该可以看明白:
#A脚本语言

chan = popen("OS", test.pl);
result = read(chan, "-1");#后面带一个-1参数表示获取test.pl的所有输出,如果不带-1参数,那么只获取第一行的输出。

print(result);


#test.pl

print("Hello,\n");
print("world.\n");

这个例子中,A脚本运行的结果只能读取到Hello一行,world.就没发读取到。
而在另一种情况中,如:
#A脚本语言

chan = popen ("OS", "dir");
data = read (chan,"-1");
print (data);

这样便能读取所有的行。
所以,我想知道Perl的标准输出和系统命令的输出有什么不同呢?
麻烦大家帮忙看看,谢谢!
又在糊弄我们。


QUOTE:
原帖由 flw 于 2008-1-12 21:53 发表
又在糊弄我们。

这可是很正经的问题啊,怎么能说是糊弄呢~?还‘又’呢。。。
你又在忽悠大伙~~


QUOTE:
原帖由 小公猫 于 2008-1-12 22:20 发表


这可是很正经的问题啊,怎么能说是糊弄呢~?还‘又’呢。。。
你又在忽悠大伙~~

A脚本到底是个啥东东?我对A脚本的理解仅限于你的注释,所以……还是不懂popen read之类的函数是怎么用的……


QUOTE:
原帖由 royalzhang 于 2008-1-12 22:32 发表

A脚本到底是个啥东东?我对A脚本的理解仅限于你的注释,所以……还是不懂popen read之类的函数是怎么用的……

是一家公司的专门的脚本语言,估计大家没听过
popen就是打开一个通道(channel),与perl通讯,然后read perl脚本的标准输出。
过程就这么简单
因为读取dir命令的输出都可以全部读出,为何perl的标准输出就只能读取一行呢?所以我估计是perl的标准输出有什么特殊之处,所以特来请教各位!
我知道为什么了
(*^__^*) 嘻嘻……


QUOTE:
原帖由 小公猫 于 2008-1-12 23:27 发表
我知道为什么了
(*^__^*) 嘻嘻……

有胆量说出是为什么吗?
我之所以说你糊弄我们,是因为我可以断定,
你出问题的代码绝对不是给我们看的这个。

之所以说“又”,是因为之前被别人糊弄过很多次。

你们这些人的通病,就是碰到问题后,既不给出原始代码,
也不给出经过验证的确可以出现和原始代码同样错误的测试代码,
而是随便诌一段自以为能够说明问题的示意代码。

记住:当你碰到问题的时候,最不可靠的,就是你的大脑。
程序员一定要培养自己的自省能力——用另一个自我监控自己大脑的运行状况,
以确保即使是犯了错误,也能够很快从错误中恢复。

出错之后,别太相信自己。
老大所言极是!
我不是没有胆量说出来,而是在这里说不清楚,因为大家对我所说的脚本语言不熟悉,不过我可以说的是:因为我在A脚本中调用Perl脚本是利用命令行来执行的,也就是perl -M -e .... 而在命令行中的Perl代码不能有换行符,所以在执行Perl代码之前需要将代码后面的所有换行符去掉。这就是我碰到的问题,我把换行符去掉之后就没问题了。

另外想请教一下老大,在命令行执行代码跟执行一个Perl文件有什么不一样?可以执行比较复杂的程序吗?效率上有什么不同?
谢谢!


QUOTE:
另外想请教一下老大,在命令行执行代码跟执行一个Perl文件有什么不一样?可以执行比较复杂的程序吗?效率上有什么不同?

这些都是芝麻,不是西瓜。
我希望你从我这里学到的,不是这些。