Windows下的一个问题

L0ading

为啥这段简单的代码我在命令行下用 cat xxx.txt |wc.pl 结果为0（其实就是没捕获到管道传过来的东西），用cat xxx.txt |perl wc.pl 结果就正常捏？

[

E:\code\perl>cat wc.pl #! /usr/bin/perl -w use strict; my $i = 0; while (<STDIN>) {     $i++; } print $i;

flw

windows 的问题，和 Perl 无关。
给微软说一下好了。
其实说白了就是文件类型关联解析以后，管道不起作用了。

BTW：你那个程序很经典——我是说犯的错误很经典。
其实只要这样就可以了：

1. 1 while(<STDIN>);
   
2. print $.;

复制代码

L0ading

我这叫错误吗？顶多不如你写的精炼吧

flw

原帖由 L0ading 于 2007-8-17 13:12 发表
我这叫错误吗？顶多不如你写的精炼吧

你不承认，那便不是错误了。

bilbo0214

flw还是解释一下为什么错了吧，好像很多人都不知道呀。

Osment

原帖由 bilbo0214 于 2007-8-18 09:56 发表
flw还是解释一下为什么错了吧，好像很多人都不知道呀。

不够简练，没有善用 Perl 的内部变量，造成执行效率下降：）
不是程序上的错误，而是观念和思路上的理解错误而已。

bilbo0214

查了半天，找到一些解释：
The convention 1 while CONDITION is the same as while (CONDITION) { }, but shorter.
Its origins date to when Perl ran the first incredibly faster than the second. While the
second is now almost as fast, it remains convenient, and the habit has stuck. [perl cookbook 1.11]

$.         The current input line number of the last filehandle that was read. Rember that only an explicit close on the filehandle resets the line number.  http://www.kichwa.com/quik_ref/spec_variables.html