1、合并并转化一代测序seq纯文本为fasta格式文件use strict;
use warnings;
my @dir;
my @filelist;
open OUT, ">result.fst";
opendir (DIR, "./") or die "can't open the directory!";
@dir = readdir DIR;
foreach my $file (@
转载
2023-06-08 09:23:12
72阅读
字符串联结和重复操作符 联接: . 重复：x 联接且赋值(类似+=)： .=例： $newstring = "potato" . "head";
$newstring = "t" x 5;
$a = "be";
$a .= "witched"; # $a is now "bewitched"&nbs
转载
2023-06-07 11:58:20
180阅读
[root@wx03 ~]# cat a14.pl use Net::SMTP;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::Response;use Encode;use JSON;use File::Temp...
转载
2016-07-11 08:11:00
321阅读
2评论
[root@wx03 ~]# cat a14.pl use Net::SMTP;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::Response;use Encode;use JSON;use File::Temp...
转载
2016-07-11 08:11:00
150阅读
2评论
[root@wx03 ~]# cat a14.pl use Net::SMTP;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::R...
转载
2016-07-11 08:11:00
354阅读
2评论
和我shell那一篇文章需求一样 这个perl脚本是我找人写的
#!/bin/env perl use strict; opendir DIRA,'/opt/test/20111201_import' or die "$!\n"; while 
原创
2011-12-07 17:12:07
1959阅读
package GetExcelData;use Win32::OLE; #导入win32 OLE包use Win32::OLE::Const "Microsoft Excel";use Cwd;#获取本地路径模块#数据类型如下所示#$EXCEL->$sheet->
原创
2013-07-08 19:06:23
1201阅读
perl
原创
2018-06-15 09:54:33
593阅读
redis01:/root# cat abcGET /api/sale/get_voucher_list?loupan_id=32300&suid=kJIjl&loupan_site=sc&code=d30d52a87c0ba4e342c9315d44845be5&source=pc HTTP/...
转载
2016-07-15 16:33:00
67阅读
公司大批量添加VPN用户,如果一个一个添加手就脱臼了 ...
主配置文件change.conf大体如下:
li.jie pptpd Li.jiE 192.168.1.1
dong.zhuo p
原创
2011-08-03 11:05:03
4873阅读
[root@june2 ~]# cat 2.pl use POSIX qw(strftime);my $yesterday = strftime "%Y-%m-%d", localtime(time-86400)...
转载
2014-12-20 15:50:00
167阅读
2评论
redis01:/root# cat abcGET /api/sale/get_voucher_list?loupan_id=32300&suid=kJIjl&loupan_site=sc&code=d30d52...
转载
2016-07-15 16:33:00
97阅读
2评论
int port = Integer.parseInt(prop.getProperty("port")); java.net.Socket socket; InputStream Is; Output...
转载
2017-03-27 08:07:00
55阅读
2评论
Perl日志处理Perl能够使你称为Doolittle，不过是通过日志与系统交流。读取日志文件#!/usr/bin/perl -w 2 3 $logfile="log/secure"; 4 open LOG,
原创
2022-09-30 10:17:21
346阅读
1.关闭utf8centos6.5:/root#cat t2.pl use Mojolicious::Lite; use JSON qw/encode_json decode_json/; use Enc...
转载
2017-03-12 16:16:00
134阅读
2评论
package FileOperate;sub new{ my $class = shift; #一个空的引用 my $ref = {}; #将引用和对象绑定 bless($ref,$class); #返回引用 return $ref;&n
原创
2013-07-09 19:06:26
1945阅读
[root@dr-mysql01 ~]# cat a1.pl use Encode; use JSON; use URI::Escape; use LWP::Simple; my $host = "http://192.168.32.101:3000/api/getcode?env=z...
转载
2016-04-27 13:23:00
388阅读
2评论
名字:dbd-oracle-timeout.pod 测试DBD-Oracle超时操作使用Sys::SigAction摘要:本文讨论我使用SIGALRM来超时某个DBD-Oracle操作遇到的问题Perl 5.8...
转载
2019-02-15 11:45:00
278阅读
2评论
[root@dr-mysql01 ~]# cat a1.pl use Encode; use JSON; use URI::Escape; use LWP::Simple; my $host = "ht...
转载
2016-04-27 13:23:00
154阅读
2评论
表示日期的方式多种多样：“18 Jan 1973″ ，”18/01/1973″ ，”01/18/1973″ ，”Jan 18 1973″ ，”18-01-73″ ，”18-01-1973″ ，”01/73″，其中一些格式含义不清(如”01-06-1973″是表示6月1日呢，还是表示1月6日呢？) 如果不规定日期的表示形式，是很难处理的。想了解”18 Jan 1973″和”6 Se
转载
精选
2009-06-22 10:41:50
2802阅读
