小编use*_*319的帖子

如何在Windows上使用File :: ChangeNotify?

我在Windows系统上安装了File :: ChangeNotify并尝试运行以下代码:

my $watcher =
     File::ChangeNotify->instantiate_watcher
         ( directories => [ 'C:\files' ],
             filter  => qr/\.txt$/
         );


 # # blocking
 while ( my @events = $watcher->wait_for_events() ) { print "new event"}
Run Code Online (Sandbox Code Playgroud)

当我运行脚本并尝试创建新.txt文件或修改脚本.txtc:\files的文件时没有打印任何内容.

perl winapi

5
推荐指数
1
解决办法
640
查看次数

构建本地CPAN存储库

我想知道Perl中是否有任何选项来构建包含我想要的模块的本地CPAN存储库,然后使用Perl分发重新分发它,然后根本不需要访问CPAN.

如果是的话,我可以展示一些例子吗?

我看了CPAN并找到了一个mincpan,但似乎minicpan带来了CPAN的所有镜像.如果可以使用minicpan只带来一个特定的模块子集,并且如果我有一个存储库,是否可以将它复制到另一个具有相同类型的操作系统并在那里安装相关模块而不会头疼?

perl cpan minicpan

3
推荐指数
1
解决办法
3347
查看次数

使用sprintf来舍入浮点数

我有以下perl代码,并想要使用sprintf的最后一个diget,但是当最后一个摘要为5时,我得到了一些奇怪的结果我希望舍入为止,但实际结果不同于一个例子:

   my $x = sprintf("%.1f",4.35);    -> expected 4.4
    my $y=     sprintf("%.1f",4.36); -> expected 4.4
    my $z = sprintf("%.1f",4.32);  -> expected 4.3

      print $x,"\n"; -> actual result 4.3 -> expected 4.4
      print $y,"\n"; -> actual result 4.4 -> ok
      print $z,"\n"; -> actual result 4.3 ->ok
Run Code Online (Sandbox Code Playgroud)

如何更改上述代码/或者是否有其他选项可以获得预期结果?

perl

1
推荐指数
1
解决办法
1386
查看次数

标签 统计

perl ×3

cpan ×1

minicpan ×1

winapi ×1