#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>…
#Perl
Perl 菜鸟解决"易语言难题”
map {say $_,2*$_,3*$_} grep {join("",sort split("",$_.2*$_.3*$_)) eq '123456789'} 123 .. 3…
#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(…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
