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的标准输出和系统命令的输出有什么不同呢？
麻烦大家帮忙看看，谢谢！

flw

又在糊弄我们。

小公猫

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

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

royalzhang

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


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

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

小公猫

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

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

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

小公猫

我知道为什么了
(*^__^*) 嘻嘻……

flw

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

有胆量说出是为什么吗？

flw

我之所以说你糊弄我们，是因为我可以断定，
你出问题的代码绝对不是给我们看的这个。

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

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

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

出错之后，别太相信自己。

小公猫

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

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

flw

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

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