小编Use*_*611的帖子

我有一个.pl文件,我想在任何系统中执行该文件,即使perl没有安装.我怎样才能实现它？

任何人都可以通过一些很好的例子告诉我这样做吗？

有没有办法使用Perl脚本更改Windows文件夹图标？

我的目的是将"xxx_documents"文件夹的普通图标更改为其他图标.我必须以这样一种方式运行脚本,它会照顾整个驱动器.

该驱动器包含许多文件夹.我必须搜索名为"documents"的每个文件夹(例如"xxx_documents"或简称"文档"),并将其图标更改为"%SystemRoot%\system32\SHELL32.dll"库中的图标.

这可能在Perl中吗？感谢所有帮助我的人.

任何人都可以使用正则表达式来删除文件中的多行注释和单行注释吗？

例如:

                  " WHOLE "/*...*/" HAS TO BE STRIPED OFF....."

1.   /* comment */
2.   /* comment1 */  code   /* comment2 */ #both /*comment1*/ and /*comment2*/ 
                                             #has to striped off and rest should 
                                                 #remain.
3.   /*.........
       .........
       .........
       ......... */

如果你有这个需要,我真的很感激你....提前感谢.

如何使用Perl在文件中找到扩展的ASCII字符？任何人都可以获得脚本吗？

.....提前致谢.....

如何使用Perl将.wma和.wmv扩展名的驱动器上的所有文件重命名为.txt扩展名,无论它们在目录结构中有多深？

我有一个名为Lib的文件夹,我使用File :: Find模块搜索整个目录中的文件夹,D:\.搜索需要很长时间,如果驱动器有很多子目录,甚至需要5分钟.如何更快地搜索Lib,以便在几秒钟内完成？

我的代码看起来像这样:

    find( \&Lib_files, $dir);
    sub Lib_files
    {
       return unless -d;
      if ($_=~m/^([L|l]ib(.*))/)
      {
          print"$_";
      }
      return;
    }

我有一个文件夹,里面有很多子文件夹.在这些子文件夹中,我有许多.html文件要读取.我写了以下代码来做到这一点.它打开父文件夹和第一个子文件夹,它只打印一个.html文件.它显示错误:

NO SUCH FILE OR DIRECTORY

我不想改变整个代码.对现有代码的任何修改对我都有好处.

 use FileHandle;
 opendir PAR_DIR,"D:\\PERL\\perl_programes\\parent_directory";
 while (our $sub_folders = readdir(PAR_DIR))
 {
         next if(-d $sub_folders);

         opendir SUB_DIR,"D:\\PERL\\perl_programes\\parent_directory\\$sub_folders";
         while(our $file = readdir(SUB_DIR))
         {

       next if($file !~ m/\.html/i);
            print_file_names($file);    
         }
         close(FUNC_MODEL1);    
 }
 close(FUNC_MODEL);

  sub print_file_names()
  {
     my $fh1 = FileHandle->new("D:\\PERL\\perl_programes\\parent_directory\\$file")  
               or die "ERROR: $!"; #ERROR HERE 
     print("$file\n");
  }

这个脚本:

use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck => 1 );

$mech->get( "http://www.google.com" );
print $mech->content;

生成此错误消息:

错误获取http://www.google.com:无法在D:\ PERL\try.pl第5行连接到www.google.com:80(连接:未知错误)

怎么了？

我想生成随机十六进制值,这些值不应该是重复的,它应该是4个字节(即:0x00000000到0xffffffff),显示输出应该包含前导零.

例如:如果我得到值1,则不应表示为0x1而是0x00000001.

我想要至少100个随机值.请告诉我:我怎么能在Perl中做到这一点？

如何使用特定次数搜索和替换匹配项s///;.例如:

$string="abcabdaaa";

我想,以取代a与i在$stringn次.我怎样才能做到这一点？n是用户提供的整数.