#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…
#Perl
Perl 双路客户端
use IO::Socket; $socket = IO::Socket::INET->new ( PeerAddr => 'server.com', PeerPort…
#Perl
About Matrix
#!/usr/bin/env perl6 use v6; sub MAIN(Str :f($file)) { my @lines = $file.IO.lines; my @sub…
#Perl
2个线程间的对话，有点耳熟，有点忧郁
#!/usr/bin/perl use threads; use threads::shared; use Thread; use Thread::Queue; use POSIX…
#Perl
遍历当前目录
my $path = `pwd`; chomp $path; # `pwd`命令结尾有个回车符，需要chomp去掉 print "$path\n "; opendir DIR ,$…
#Perl
perl 删除过期文件
#!/usr/bin/perl `find /bak/ >list.txt`; open LIST,"/root/list.txt"; while (<LIST>…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
