#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; …
#Perl
纯Perl实现的DES加密算法
#!/usr/bin/perl -w # DES algorithm - reference to http://orlingrabbe.com/des.htm sub itera…
#Perl
从文件中提取字符串
my %hash; while(<>) { chomp(); if( /("(.+?)")/ ) { $hash{$1} = ""; } } foreach (sort…
#Perl
Perl 使用 OLE ADO 操作数据库
#!c:/perl/bin use Win32::OLE; use Win32::OLE::Const 'Microsoft ActiveX Data Objects'; $tab…
#Perl
Perl 读取 word 文档并打印
#!/usr/bin/perl -w use Win32::OLE; $filename = 'wordFile.doc'; $doc = Win32::OLE->GetOb…
#Perl
Perl 使用 AnyDBM 操作 DBM 文件
#!/bin/perl use AnyDBM_File; dbmopen(%states, "statedb", 0666) || die; TRY: { print "state…
#Perl
Perl 获取Windows当前登录的用户名
#!/usr/bin/perl -w use Win32; $username = Win32::LoginName(); print "User name: $username\…
#Perl
Perl 从 HTML 网页中解析出链接
use LWP::Simple; use HTML::LinkExtor; $html = get("http://www.oschina.net"); $link_extor =…
#Perl
gff文件从gene的pos位点在基因组里面抽取序列
open FASTA,"$ARGV[0]" or die "can not open GFF file,$!"; open GFF,"$ARGV[1]" or die "can n…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
