#Perl
根据缩进深度格式化Lua代码
package LuaTidy; # 对 Lua 代码进行缩进重排 use Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = …
#Perl
匹配服务器
#!/usr/bin/perl -w sub usage(){ print "\n"; print "Usage : perl extract_host.pl <filena…
#Perl
dijkstra的perl实现
use strict; my @path = (); my @lastpath = (); my $count; my $inputfile = "input"; my $max …
#Perl
查看Linux下的个人主目录文件变化
#!/usr/bin/perl use strict; use warnings; for (qw <"system" "system.bak">){ die "err…
#Perl
Perl 使用 DBI 连接到 MySQL 数据库
$dsn = dbi:mysql:northwind; $username="root"; $password="letmein"; $dbh = DBI->connect(…
#Perl
Perl 使用 OLE 自动化来创建 Excel 图表
#!/usr/bin/perl -w use Win32::OLE; use Win32::OLE::Const 'Microsoft Excel'; $class = 'Exce…
#Perl
Perl 使用 News::NNTPClient 访问新闻组
use News::NNTPClient; $nntp = new News::NNTPClient('news.yourserver.com'); ($first, $last)…
#Perl
Perl 创建一个新的 ODBC 数据源
use Cwd; use Win32::ODBC; $DriverType = "Microsoft Access Driver (*.mdb)"; $DSN = "Email C…
#Perl
Perl 使用 Net::FTP 从 FTP 上下载文件
use Net::FTP; $ftp = Net::FTP->new("ftp.cpan.org", Timeout => 30) or die "Could not …
#Perl
perl的ftp模块，远程操作linux服务器
use Win32::Internet; $I = new Win32::Internet(); $host = "服务器IP地址"; $user = "用户名"; $pass =…
#Perl
Perl6 Net::FTP Sample
#!/usr/bin/env perl6 use Net::FTP; my @locals = ( "/update/", ); my @remotes = ( "/usbip/"…
#Perl
在window平台下自动截屏
use Win32::Clipboard; use Win32::GuiTest qw/SendKeys/; while(1) { my @time = localtime(tim…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
