#Perl
根据使用频率输出dmenu的结果
#!/usr/bin/perl # sydi_dmenu --- # # Filename: sydi_dmenu # Description: This script make …
#Perl
Perl 数据库事务处理（提交和回滚）
use DBI qw(:sql_types); my $dbh = DBI->connect('dbi:mysql:sample_db','root','password',…
#Perl
Perl 根据 Windows 的错误码获取详细的描述信息
# This function takes the error number returned by the Win32::GetLastError function. #!/us…
#Perl
Perl 使用 XML::Parser 来解析 XML 文件
use XML::Parser; my $xmlfile = "yourXML.xml"; my $parser = XML::Parser->new( ErrorConte…
#Perl
Perl 访问 Windows 的事件日志
#!/usr/bin/perl -w use Win32::EventLog; $area = 'System'; # Default $host = $ENV{'Computer…
#Perl
Perl Socket 客户端通讯一例
#!/usr/bin/perl print "client\n"; $AF_UNIX=1; $SOCK_STREAM=1; $PROTOCOL=0; socket(CLIENTSO…
#Perl
A sample use perl www library
#!/usr/bin/env perl use utf8; use strict; use warnings; use 5.010001; use WWW::Mechanize; …
#Perl
删除C语言代码中的所有注释
#!/usr/bin/perl -w my $c_file = $ARGV[0]; my $c_file_out = $ARGV[1]; open(CF,"<$c_file"…
#Perl
可以把一个fasta序列格式的核酸序列 转换为其反向互补链，并且每行60个碱基的格式化输出
#!/usr/bin/env perl use strict; use warnings; local $/ = ">"; while(<>){ chomp; m…
#Perl
将二进制转化为ascii文本
my $src = 'D:\\boot.bin'; if (!-e $src) { die "ERROR: File \"$src\" doesn't exist!"; } ope…
#Perl
XML::Smart读取XML文件指定段
#! /usr/bin/perl -w use strict; use XML::Smart; use Data::Dumper; my $file = $ARGV[0]; pri…
#Perl
perl自动化批量执行脚本
#!/usr/bin/perl #use strict; use feature 'say'; use Net::SSH::Perl; use Net::SCP::Expect; …
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
