#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…
#Perl
Bracket Match
#!/usr/bin/env perl6 use v6; my \stdin = $*IN; my Int $count = +stdin.get(); for ^$count {…
#Perl
把vcf文件转换为genetype
while (<>) { next if /##/; chomp; @a=split/\s+/; @b=split/:/,$a[9];#获取0/1,1/1,1/3这样的…
#Perl
使用Perl正则清空代码文件中所有以分号开头的注释
open(FILEHANDLE, "+<hello.asm") or die "can't open : $!\n"; @content= <FILEHANDLE>…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
