小编Nig*_*ain的帖子

我可以从终端运行一个Perl程序,但我希望通过在桌面上双击它来运行程序.

我尝试使用Platypus来运行程序,但程序需要用户输入,而Platypus无法运行任何需要用户输入的程序.我右键单击了该文件并进入获取信息以尝试更改文件打开的程序.我也尝试运行命令chmod ax"filename"来让程序运行,当我双击它但我也没有运气.

有谁知道如何做到这一点？

我写了一些代码,将文件从一个文件夹复制并移动到另一个文件夹.这段代码在它自己的工作正常,但当我尝试在代码中添加while循环时,我不断收到错误.当我测试它时,while循环也可以正常工作.我似乎无法弄清楚代码有什么问题.我是新手使用Perl,并想知道是否有人可以指出我出错的地方.任何帮助都会很棒.谢谢.:)

    use File::Copy;
    use File::Find;
    my @source = qw (source);
    my $target  = q{target};


    while 
    {sleep (5);
    find(
      sub {
        if (-f) {
          print "$File::Find::name -> $target";
          copy($File::Find::name, $target)
            or die(q{copy failed:} . $!);

        }
      },
      @source
     ); 
    }

编辑:对不起我不认为我很清楚.我希望这段代码循环每X秒.我把它设置为5秒来测试它.