发表了问答
2012/01/05 18:51

请问大家写Perl都是用的什么编辑器啊

我用UE 但是感觉很麻烦还要调DOS窗口,想用Ecilpse+EPIC但是不知道怎么设置,请教!

29
0
发表了问答
2016/06/18 11:15

perl脚本问题求助

找到了脚本maskedByGff.pl,内容如下: #!/usr/bin/perl use strict; my $usage = "USAGE:\n\tperl maskedByGff.pl file.gff genome.fasta\n"; unless (@ARGV) { print $usage; exit } open GFF, '<', $ARGV[0]; open FASTA, '<', $ARGV[1]; my $fasta_head; my %fasta; while (<FASTA>) { chomp; if (/^>/) { $fasta_head = $_; $fasta_head =~ s/>//; }else { $fasta{$fasta_head} .= $_; } } while (<GFF>) { if (/(.+)\t.+\...

1
0
发表了问答
2016/05/12 21:28

perl脚本中的中文注释乱码

现系统是Linux Mint Debian Edition 2。现需要用到一个重要的perl脚本,内有大量中文注释,但都乱码。据了解这个脚本原是在linux中编写的,后来曾转为gb2312,再后来在linux中就乱码了,文件目前的编码是utf8。现在非常需要读这些注释,怎办解决中文注释乱码问题?求解

9
0
发表了问答
2016/05/04 17:04

如果只能选择一样,Perl or Python

老生常谈了,最近在走读一个工具代码,用python写的,中间用了一些Perl写的模块, 第一次接触到Perl,找了本入门书看了一下觉得似乎挺强大的, 不知道现在大家有没有在公司还使用Perl的?用的话一般是用来干嘛呢?

4
0
发表了问答
2016/01/22 22:45

有关C代码中嵌入调用Perl程序问题

C代码中嵌入调用Perl程序,已根据调查完成如下的代码编写: --------------------- static PerlInterpreter *my_perl;//定义一个perl解释器 PERL_SYS_INIT3(NULL,NULL,NULL);//语句执行perl环境的初始化 my_perl = perl_alloc();//为解释器分配资源 if(!my_perl){ return;} perl_construct( my_perl );//创建一个解释器 char *embedding[] = {"","D:\\GetHttp.pl ",""}; perl_parse( my_perl, NULL, 0, embedding,(char**)NULL)...

3
0
发表了问答
2015/12/25 08:37

怎样检测用户的IDLE-TIME

用PERL编了一个小程序(也可用Bash shell),利用<stdin>捕获用户的输入。想实现如果在一定时间内用户无输入则退出,否则程序继续运行,怎么作呢?无头绪,哪位能帮一下呀?先谢过了。

1
0
发表了问答
2015/11/19 08:51

新手问题,为啥我用while循环感觉只读了第一行之后就结束啦?

我想把文件A分割成四个文件 A的内容为 >chr1 NNNNNNNNNNNNNNNNNNNNAAAAAAAAAAAAAAAA >chr2 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN >chr3 TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT >chr5 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG 想分割为chr1, chr2, chr3, chr5四个文件,内容分别是每个标题下的内容, 例如chr1的内容就是: >chr1 NNNNNNNNNNNNNNNNNNNNAAAAAAAAAAAAAAAA 我的程序是这样写...

7
0
发表了问答
2015/09/18 22:09

用perl程序将fq文件的序列行反向输出

本人实属perl小小白一枚 现遇到生信方面的一个问题 需要 将fastq文件中含序列的行做反向处理,其他行不动,最后输出 这里有师兄帮我写的代码 但是在Linux下运行总是提示错误 大牛能否帮忙一看,小小白不胜感激! 首次接触木虫,金币为0,攒了金币后会送给帮助我的牛牛们! 大谢~ 举个栗子 @HWI-ST833:306:C7AYCACXX:1:1101:1491:2080#0/1 CGCTGAGAATGAGCCCCGTGTGGTTGGTGCGCGGACACGCACTGCCTGCGTAACTAGAGGGAGCTGACGGATGACGCCCCCG...

1
0
发表了问答
2015/08/30 23:09

Perl主要用于做什么?

2
0
发表了问答
2015/04/19 18:57

Perl 6 语言文档整理

Perl 6 是一门值得学习的语言。但现在中文文档缺乏(事实上英文文档也非常混乱)。 我写了一些基本的文档,但知道一个人力量有限,特意分享出来,如果有人想一起分享,最好不过了。 https://github.com/songzan/perl6-doc Perl 6 是第一个将语言的语法单独分离出来的语言。

5
3
发表了问答
2015/03/27 18:20

谁可以用perl写一个京东秒杀程序

有人能用perl写一个京东的秒杀程序吗?求大神显灵!

10
1
发表了问答
2015/07/07 18:49

linux字符串替换问题,有点难度

我有一个字符串类似: (1,1,{1,1},{1,1,{2,2},cco1{2,2},cbax[{2,2},{2,2}]},{ccp1[{2,2},{2,2}]}) 这里面有大括号嵌套大括号, 我想做到的是将第二层大括号内的逗号,全部替换成 | 符号. 替换后效果如下: (1,1,{1,1},{1,1,{2|2},cco1{2|2}|cbax[{2|2}|{2|2}]},{ccp1[{2|2}|{2|2}]}) 这个shell应当如何写呢,我研究了好久, 求大神现身 说明一下,本例子中的1,2 数字只是为了方便查看我举的特例,实际可情况是可以为其它任何字...

8
0
发表了问答
2015/07/03 10:16

正则表达式去除两个特定字符串之间的内容

var _d_={}; var _t_={ appId:"2882303761517246742", appKey:"5621724658742", jspcomplete:(new Date()).getTime(), supportLocalstorage:!!window.localStorage, samplingBase:100, samplingRate:5 }; if(window.performance){ var timing=performance.timing; if(!timing.responseEnd){ timing.responseEnd=timing.responseStart; } _d_.startTS=timing.fetchStart _d_.endTS=timing.responseEnd; }else{ _d_.startTS=_d_.e...

4
0
发表了问答
2015/04/15 11:08

如何让java Runtime启动的进程能正常输入输出?

我用java写了一段代码,将perl代码加密,运行时先在内存中解密再启动一个进程运行perl脚本。 这个perl脚本中有输入有输出,输入可能不止一处。 然后我发现,网上的解决方案要么是针对读,要么是针对写,无法满足我这种“有时候读,有时候写”的需求 String cmd = "C:\\STRAWBERRY\\perl\\bin\\perl.exe";     Process p = Runtime.getRuntime().exec(cmd);          // Write perl code to perl process     BufferedWriter writer = ne...

1
0
发表了问答
2012/08/28 23:25

使用 Bash 编写的 TCP 端口扫描器

我突然有一个用 Bash 来编写 TCP 端口扫描器的想法。Bash 支持可读写的特殊文件 /dev/tcp/host/port ,往这个文件写内容可以让 bash 打开一个 TCP 连接到 host:port ,如果写文件成功则表示此端口是打开的,否则说明该端口没有打开。 因此我们先简单的写一个测试脚本: for port in {1..65535}; do echo >/dev/tcp/google.com/$port && echo "port $port is open" || echo "port $port is closed" done 该脚本将扫描 ...

26
109
发表了问答
2014/11/14 13:52

perl 发送imap邮件

我是在Ubuntu12.04下发送邮件的,由于网络限制, 我不能接受匿名邮件,且无法登陆163,qq等邮箱,只能用公司的exchange邮箱。听说可以用perl实现,想请帮忙提供一个模板,公司用的是imap,验证方式查出来应该是ntlm。希望有人帮个忙,谢谢了!

1
0
发表了问答
2012/09/27 15:41

四步让你学会打造自己的模版引擎

这里以Javascript为例,但思路可延伸到其它语言。 第一步:原始模版文件 <? var connotation = "error"; var user={   name:"OSC" }; function addLink(k){   return "http://www.oschina.net/?p="+k; } var is_print = true; var print2 = "very 2."; ?> <div class="alert alert-${cn.global.connotation} alert-block"> <div class="alert alert-${connotation}">   <button type="button" class="close" data-d...

5
12
发表了问答
2014/10/16 21:15

关于Perl使用net::ssh::perl模块的问题

@宝仔love 你好,想跟你请教个问题: 您好! 看到您的文章《perl自动化批量执行脚本》,上面提供的代码是运行在什么操作系统上。我现在在windows安装该模块,在执行到dmake test的时候,就报错。 t/03-packet.t ...... Use of uninitialized value $ENV{"HOME"} in concatenation (. ) or string at E:\perl\modules\Net-SSH-Perl-1.34\blib\lib/Net/SSH/Perl.pm line 1 08. The getpwuid function is unimplemented at E:\per...

1
1
发表了问答
2012/04/24 15:26

circos 安装失败?

Circos 安装时,不少人遇到一些 perl 相关的 以及 GD库相关的错误信息,导致不能快速尝试circos,笔者简单列举如下: 1 circos是一个perl开发的开源软件,使用了较多的perl第三方模块,官方给出的清单包括: Config::General (v2.50 or later) GD GD::Polyline List::MoreUtils Math::Bezier Math::Round Math::VecStat Params::Validate Readonly Regexp::Common Set::IntSpan (v1.16 or later) Text::Format 在 linux 和 mac上...

1
0
发表了问答
2014/08/29 15:14

正则表达式添加千位分隔符

正常的整数分隔: my $number = <STDIN>; if( $number =~ s/(\d{1,3})(?=(?:\d{3})+(?!\d)/$1,/g){ print $number; } 但是现在我们要给比如12312312.13123这样带小数的分隔,上面就不能用, 有网友提供 s/(\d{1,3})(?=(?:\d{3})+(?!\d|$)/$1,/g 的确可以匹配,但我不太懂什么意思,$是末尾的意思,这里是怎么组合的? 还有这个匹配反过来也不能匹配没有小数的,有大虾可以写出既同时匹配小叔和整数的办法不...

8
1
没有更多内容
加载失败,请刷新页面
点击加载更多
加载中
下一页