-
-
1万能的吧友, $A =~ /[]+$/; 百度说左边的字符串是否匹配右边的正则表达式。 不了解,如果匹配会怎么样,不陪配又会怎么样
-
1有偿请高高手写一个perl小程序,用于数据统计,有兴趣的加我q774659690感谢!
-
1不知道有没有靠谱的吧友... 直诉问题啦: 升级perl时遇到了点问题,原本我的版本是5.8, 按照一些教程,下载解
-
1facebook最开始是不是用Perl写的?
-
1【求助】编写好的perl文件怎么编译为.exe
-
3
-
0Perl的代码如下,思路是把当前数字的整数倍的数字全都直接干掉,这样比一个个的去验证是否为质数要快
-
11 #!/usr/bin/perl -w 2 3 @a=(1,6,3,8,2,4,9,7,0); 4 5 print "@a\n"; 6 7 for(@a){ 8 open(L,"./a.sh"); 9 while(<L>){ 10 11 } 12 close L; 13 } 14 15 print "@a\n"; 运行结果如下: 1 6 3 8 2 4 9 7 0 Use of uninitialized value $a[0] in join or string at ./t2.pl line 15. Use of uninitialized value $a[1] in join or string at ./t2.pl line 15. Use of uninitialized value $a[2] in join or string at ./t2.pl line 15. Use of uninitialized value $a[3] in join or string at ./t2.pl line 15. Use of uninitialized value $a[4] in join or string at ./t2.pl line 15. Use of uni
-
2我的代码是如下这样 ,但是在sleep过程中 Ctrl+C,程序就直接退出了 并没有打印异常日志,求解!!!在线等 #! /usr/bin/perl use strict; sub main{ my $i = 0; print "i=$i\n"; sleep 6; return -1; } my $ret; eval { $ret = main; if( $ret != 0 ){ die "return error"; } }; if($@){ print "捕获异常$@\n"; exit -1; } exit 0;
-
0四年perl开发经验,有意者可发我邮箱 black_bean@aliyun.com
-
5有需要的私信,或者加微信liubo19910609
-
0大家有没有做过用net::ssh::perl 登陆上server然后再继续登陆到另一台server去执行一些命令的啊
-
2perl -e '$map=shift;$fasta=shift;open MAP,$map;open FASTA,$fasta;while(){chomp;@f=split /\t/,$;$id{$F[-1]}=$F[0]}while(){chomp;if(/^>
-
16如题,mysql_config 报错,mysql安装目录下倒是有个mysql_config.pl但是指向这个文件还是不行
-
12
-
1有关Perl的几个问题,希望大神解答 QQ:1305859607,有赏金
-
4谢谢 有意
-
1那个大神帮帮 我有些文件是.pl格式的,百度说需要安装perl,但是我安装以后还是使用不了。如双击,则命令指示符跳出马上就消失了(也就是一闪即过),不知道该怎么办。
-
4如题。,百度的唯一一个答案 说是
-
7
-
10现在在英国大二在读电子商务,这学期突然要求学习perl,毫无头绪。。。有没有英语比较好的大神可以带
-
3
-
2
-
0系统是win7 32位,perl是xampp里集成的,版本是5.16.3,现在要连接远程的Oracle,下载了DBD-Oracle-1.74和Mingw-5.1.6
-
0哈囉大家, 想請教一個問題 我有一個檔案紀錄了名稱(第一欄),個樣本編號(第二欄)以及其他相關的信息(第三~四欄) 例如: A 100 pi0001 pi0001 A 160 pi0003 pi0003 A 189 pi0002 pi0002 A 200 pi0002 pi0002 A 210 pi0001 pi0001 A 263 pi0004 pi0004 B 61 pi0001 pi0001 B 70 pi0003 pi0003 B 189 pi0002 pi0002 B 200 pi0002 pi0002 B 210 pi0001 pi0001 B 237 pi0002 pi0002 B 263 pi0004 pi0004 . . . 然後我希望可以從中抽取一些樣 滿足的條件是: 1. 依照名稱抽取 2. 第一個抽取的樣本編號須為大於50遇到的第一個 3. 之後依照第一
-
0morbo mojo 这些是什么程序?怎么安装? 求教咯
-
1
-
3小白,请问-alne,$F[-1],F[0],这三个命令是什么意思?谢谢各位
-
2读取一个txt文件,例如 a 数学 3 b 语文 3 c 英语 2 然后进行匹配处理,找到第三列是数字3的行输出到新的txt文件中 为什么结果文件中会有中文是乱码显示的,而且不是全部乱码,是部分,如上例,结果中“数学”两个字显示乱码。但是“语文”两个字正常,这种部分乱码情况是什么原因,怎么解决?
-
0各位兄弟,现在我手头有个项目,需要用到TK,但现在在windows下面似乎下载不了TK模块了,有哪位兄弟能提供一下windows下的TK模块安装文件呢,多谢多谢
-
1文本A如下: 1 1 1 1 day1 dept1 7 8 1 1.00000 1 1 1 1 day3 dept7 7 8 2 2.00000 1 1 1 1 day2 dept2 7 8 3 3.00000 如果第2-3列相同
-
10大家好,我是perl新手,有个问题需要大家帮助我一下! 我想打开含有中文的路径下的文本文件,代码是这样的: 运行时候就会报错:Cann't open the file: No such file or directory at testfile.pl line 11. 我要是用英文路径就没问题,请问大家,有没有什么方法可以使用中文路径啊!在线等,感谢 !
-
0想把横纵坐标名称 都对图里 my $align = GD::Text::Align->new($img, valign => 'center', halign => 'center',color =>$black); $align->set_font('C:\WINDOWS\Fonts\TIMESI.TTF', $fontScale); $align->set_valign('bottom'); $align->set_halign('center'); $align->set_text("A"); $align->draw(1000,100,0); $align->set_text("B "); $align->draw(10,1000,-1.57) 最好怎么改正呢?
-
5帮忙教下毕设
-
1如何用perl通过ftp读xml文件? ftp已经连上了,文件也通过my $file=$ftp->retr("a.xml");获取到了 print <$fi
-
4刚刚转一个星期,好懵逼感觉
-
4有没大神给个perl应用ajax异步查询的demo 本人刚刚从php转入perl2周,还在蒙蔽中,求demo
-
6$count=0; print"Please input some words:\n"; chomp(@words=<STDIN>); for($i=0;$i<@words;) { foreach(@words) { if($_==$word
-
6两年前曾向一网友请教,让他帮忙写了一条perl的运行代码,处理txt文件用。之后换过电脑,原来的运行文
-
1如题,我想创建一个文件夹然后在里面新建文件,然而总是die不能打开文件句柄,查看文件夹是read only的
-
14现有一个字符串“,,..,,w,,,AAa,,...kK..,”,如何写一个程序统计这个字符串里的不同字母的种类数,不统计逗点和句点,字母不区分大小写,这个程序的结果应该是3.(w、a、k三个) 该如何解决呢,求大神稍微指点一下吧
-
3综合实验用putty跑了一个序列的vcf文件出来,接下来要计算这里面一共有多少个snp,师兄让我自己写一个perl脚本计算。。。。 不会啊,一脸懵,怎么写脚本
-
1有一个.csv的文件,里面有1024组ABC的值,然后把ABC的值分别替换到另一个. v的文件带*号的位置,并且生成10
-
1在连接MQTT服务器之后,向服务器发送一个不定长的数据,怎么结束发送? TCP连接后发送定长数据时,发送
-
1有两行用户名的数据,相同则输出1不同则输出0,形成矩阵 数据a: aname 舞-465893 skoooa かつぴん* スナフキング jusmie さいとうま ももこ09 (*^^*)&(*^^*) うばーれ 数据b: doggyhonzawa しほss スナフキング アットコスメメンバー ドロップ・シロップ ももこ09 アットコスメメンバー じゅん96 うばーれ 以数据a为行,数据b为列输出矩阵如下: 000000000 000000000 000100000 000000000 000000000 000000100 000000000 000000000 000000001 因为数据里偶尔含有特殊符号较为复杂 想请教
-
1
-
3#!/usr/bin/perl -w use strict; &FunctionA(); sub FunctionA { my $res = &FunctionB(2, 3, a); my $final = 5 + $res; #我希望当有
-
0