首页 软件开发 代码片段 ( Page 67 )

代码片段 8064

#Perl
blast结果的m7格式转换为m8格式

while (<>) { if (/Iteration_query-def/) { />(.*?)</; $out1=$1; } if (/Hit_def/…

2015-12-14 616

#Perl
Perl6 Bracket Match

#!/usr/bin/env perl6 my \stdin = $*IN; my $count = ~stdin.get(); my %table = 93 => 91, …

2015-12-14 882

#Perl
根据一个ID列表文件来从一个fasta文件里面挑取符合要求的序列

#!/usr/bin/perl -w if( @ARGV != 2 ) { print "Usage: we need two files\n"; exit 0; } my $ID…

2015-12-14 900

#Perl
通过Code2HTML将源代码文本转换成HTML

#转换整个文件 code2html -l java Test.java test.html #转换代码片段 code2html -p test.html #test.html &l…

2015-12-14 605

#Perl
文本生成表格

package Tools::Text::Format::FormTidy; use Exporter; our @ISA = qw(Exporter); our @EXPORT_…

2015-12-14 241

#Perl
magic square(幻方、宫格)解法实现(全)

#this is for solving the problem of magic square #!/usr/bin/perl -w use strict; #input a n…

2015-12-14 147

#Perl
perl实现端口扫描

#! /usr/bin/perl use threads; use IO::Socket::INET; use strict; my @openport; sub scan{ my…

2015-12-14 760

#Perl
kickstart file generate tool use cgi

#!/usr/bin/perl -w use CGI; my $ks_cgi=new CGI; my $ks_ip="10.10.99.103"; # auto mount cen…

2015-12-14 589

#Perl
Perl 之 DBI 执行 SQL 查询并读取结果

use DBI; my $driver="DBI:mysql"; my $database="sample_db"; my $user="root"; my $host="loca…

2015-12-14 225

#Perl
Perl 使用 Win32::Process 创建进程

#!/usr/bin/perl -w use Win32; use Win32::Process; $ApplicationName = 'c:\\winnt\\system32\…

2015-12-14 470

#Perl
Perl 的 ping

#!/usr/bin/perl use warnings; use Net::Ping; $hostname = shift @ARGV; $p = Net::Ping->n…

2015-12-14 394

#Perl
Perl 通过 ODBC 连接数据库并创建表

use Win32::ODBC; $DSN = "Email Contacts"; my $myDb = Win32::ODBC->new($DSN); if (! $myD…

2015-12-14 464
1 65 66 67 68 69 672