#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
计算N位数字的自幂数（水仙花数）
print "input :"; chomp ($num=<STDIN>); foreach (100..(10**($num)-1)){ my $t=$_; my $…
#Perl
prim最小生成树
#! /usr/bin/perl -w use strict; my $filepath = "input3"; my @matrix = (); my $count; my $m…
#Perl
perl 脚本去掉 word 自定义属性
#!/usr/bin/perl use Archive::Zip; use IO::File; use Data::Dumper; use XML::Simple; my $buf…
#Perl
Perl 往数据库中插入数据
#!\usr\bin\perl use warnings; use strict; use DBI; my ($dbh, $rows); $dbh=DBI->connect(…
#Perl
Perl 创建控制台模式的进程窗口
#!/usr/bin/perl -w use Win32; use Win32::Process; $ApplicationName = 'c:/perl/bin/perl.exe…
#Perl
Perl 使用 HTTP::Request 请求 URL 并将响应保存到文件
use LWP::UserAgent; $user_agent = new LWP::UserAgent; $request = new HTTP::Request('GET', …
#Perl
Perl 获取 Windows 系统的版本
#!/usr/bin/perl -w use Win32; @os = Win32::GetOSVersion(); print "Version $os[1]\.$os[2] B…
#Perl
Perl 的 gethostbyname 使用方法
# The syntax is (name, altnames, addrtype, len, addrs) = gethostbyname (inname); #!/usr/lo…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
