请看一下代码的若干问题

POLOGG

1. #!/usr/bin/perl
   
2. # slowcat - emulate a   s l o w   line printer
   
3. # usage: slowcat [-DELAY] [files ...]
   
4. $DELAY = ($ARGV[0] =~ /^-([.\d]+)/) ? (shift, $1) : 1;
   
5. $| = 1;
   
6. while (<>) {
   
7.     for (split(//)) {
   
8.         print;
   
9.         select(undef,undef,undef, 0.005 * $DELAY);
   
10.     }
    
11. }

复制代码

[.\d] 这个匹配是不是有点问题？
(shift, $1)  这句是什么意思？

ulmer

$DELAY =
    (
        $ARGV[0] =~     # pattern match first argumet from input
        {  ^-           # match very beginning folowed by -
           ([.\d]+)     # match char "." or digits \d equals 0-9
                        # at least one
                        # save the match in $1  
         }x   
    )
    ? (shift, $1)       # if matches shift first match to $DELAY or use $1
                           
    : 1                 # else not mateched set $DELAY as 1.


Just for testing :
perl -le '$ARGV[0]='-.5';$DELAY=($ARGV[0]=~/^-([.\d]+)/)?(shift,$1):1; print $DELAY'
perl -le '$ARGV[0]='-1.5';$DELAY=($ARGV[0]=~/^-([.\d]+)/)?$1:1; print $DELAY'
perl -le '$ARGV[0]='-Foo.5';$DELAY=($ARGV[0]=~/^-([.\d]+)/)?$1:1; print $DELAY'

Best Regards,
ulmer

fayland

. 似乎是包含 \d 的，所 [.\d]+ 跟 .+ 没区别吧。

兰花仙子

原帖由 fayland 于 2006-2-24 21:21 发表
. 似乎是包含 \d 的，所 [.\d]+ 跟 .+ 没区别吧。

yes,这里应该是[\.\d]+才对。

ulmer

原帖由 兰花仙子 于 2006-2-24 21:48 发表


yes,这里应该是[\.\d]+才对。

Becarefull with char "." in regex.
if char "." whithin [], the "." will be treated really as istself not any char!.
That means you can omit the "\" to escape it.
Of course, you can add "\," meaning for ".". And usually is better way to
confuse this case.

Best,
ulmer

fayland

thanks. my mistake.

POLOGG

原帖由 ulmer 于 2006-2-24 20:56 发表
? (shift, $1)       # if matches shift first match to $DELAY or use $1

我不是很清楚这句话的意思

我觉得这里没有必要用(shift, $1),为什么不直接用$1?

ulmer

原帖由 POLOGG 于 2006-2-25 08:18 发表



我不是很清楚这句话的意思

我觉得这里没有必要用(shift, $1),为什么不直接用$1?

Sorry. I've not clearly explained here.
Usually $1 is fully OK. but why shift() is used here, it's depended on
while(<>) loop mit "<>" used.

    while( <>) works included with ARGV[1] .. ARGV[$#ARGV]
    shift is meaning of "shift @ARGV".

Best, ulmer