#Perl
Recursive Find File In Directory
#!/usr/bin/perl -w use utf8; use strict; use warnings; sub lsrp { my ($dir, $sub, $ext, $p…
#Perl
perl 多线程，实时监控线程数，支持max thread
#!/usr/bin/perl -w #Description:rerun eod job group by system #Auther:Suzm #Date :2015-06-…
#Perl
FizzBuzzWhizz
#!/usr/bin/perl use strict; die "Wrong argument number\n" if @ARGV != 3; # print to file i…
#Perl
防止网站被爬虫爬取的几种解决办法
#! /bin/bash LOGFILE=/var/log/nginx/access.log PREFIX=/etc/spiders #日志中大部分蜘蛛都有spider的关键字，但…
#Perl
遍历当前目录的所有文件
#!perl # #Author：caryl # # use strict; use Cwd; use File::Spec; use File::Basename; open S…
#Perl
把二进制翻译成中文/英文
#!/usr/bin/perl -w #use diagnostics; sub bin2cn{ die "Error:1001:bin2cn\n" if chop($_[0]) …
#Perl
顺序查找
#!/usr/bin/perl use strict; use warnings; use feature qw(say); print "输入需要查找的元素："; my $obj…
#Perl
Perl批量编译GCC源代码
#!/usr/bin/perl #use Cwd; sub CompileAll(){ local($dir) = @_; opendir(DIR,"$dir"|| die "ca…
#Perl
Perl 列出所有 DBI 数据源
#!/usr/bin/perl use strict; use DBI; my @drivers; @drivers = DBI->available_drivers; fo…
#Perl
Perl 的 Win32::Spawn 使用方法
#!/usr/bin/perl -w use Win32; #$ApplicationName = 'c:/winnt/system32/notepad.exe'; #$Appli…
#Perl
Perl 使用 XML::Simple 进行 XML 读写
use XML::Simple; my $simple = XML::Simple->new(); # initialize the object my $tree = $s…
#Perl
Perl 写 Windows 事件日志
use Win32::EventLog; $eventLog = Win32::EventLog->new('System') || die $!; %eventRecord…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
