关于fork和循环的疑问

luckyelement

想执行第一个程序时, 同时执行第二个程序 第三个程序...

而下面这个程序, 总循环两边, 我只想循环一边即可, 应该如何写下面这个程序.

或者有什么更好的写法.

#!/usr/bin/perl -w

use Cwd;

opendir(THISDIR,"/tmp/soft");
my @dirlist = readdir THISDIR;
my $pid = fork();
my $fn = @dirlist-1;

foreach(;$fn>-1;$fn--)
{
        if($pid AND -f $dirlist[$fn])
        {
                system $dirlist[$fn];       
        }
        else
        {
                system $dirlist[$fn-1] if -f $dirlist[$fn-1];
        }
}

close THISDIR;


非常感谢.

luckyelement

周末都在休息吗？？　　帮ｐｅｒｌ新手一把，　谢谢。

skycreative

如果你是想知道循环了几遍,你在循环里加一句print $fn,"\n";就可以了
你那个判断语句我没有看懂.
用$#dirlist这个变量可能比你那种赋值再循环更好一点.

fkiori

似乎应该将 foreach 改为 for

luckyelement

更改如下:

#!/usr/bin/perl -w

my $filepath = "/tmp/soft/";
opendir(DIRFL,$filepath);

my @dirlist = readdir DIRFL;
my $fn = @dirlist-1;
my $pid = fork();

for(;$fn>-1;$fn--)
{
        if($pid)
        {
                print "$dirlist[$fn]\n" if -f $dirlist[$fn];  #判断是否为文件, 并打印$dirlist[$fn]
        }
        else
        {
                print "$dirlist[$fn]\n" if -f $dirlist[$fn]; #判断是否为文件, 并打印$dirlist[$fn]
        }
}

close DIRFL;


在perl 目录下面有四个文件
a.pl
b.pl
c.pl
d.pl

而程序执行起来打印两次 执行如下

d.pl
c.pl
b.pl
a.pl
d.pl
c.pl
b.pl
a.pl

我只想打印一次:
d.pl
c.pl
b.pl
a.pl
谢谢..

nkcsx

父进程输出一次，子进程也输出一次，当然就变成两次啦。