2015-12-31

• 菜单
  54red 发表了新话题 2015-12-31 10:23

  perl 初始化一个全部NA 的数组 怎样做呢？谢谢！
  要初始化很多长度的不定的数组，内容都是NA 这个字符串 可以自己写sub 函数，我觉得可能有更加简洁的办法。 sub _array{ my $n=shift; my @array; ...

2015-11-12

• 菜单
  54red 发表了新话题 2015-11-12 16:24

  关于perl三目运算符的使用有个地方不懂
  今天写了一个程序发现三目运算符（？：）用的不对，请各位帮我看看我错在哪了！ $X="b"; $X eq "a" ? print "$X\n" : $X eq "b" ? print "$ ...

2015-10-23

• 菜单
  54red 发表了新话题 2015-10-23 15:49

  排序的问题
  我一个hash_test键值是这样的chr1:378格式，我用语句： foreach my $data_ref_2 (sort {$a cmp $b} keys(%hash_test)) { print $data_ref_2."\t";} ...

2015-09-22

• 菜单
  54red 发表了新话题 2015-09-22 10:34

  求一列非连续的数字的连续的区间，想了一天，实在想不出，求大家帮帮忙！
  我有一组数据，如下面的格式，第一列相同，第三列大于5，求第二列的连续区间，输出是一段一段的小区间，实在是想不出怎么写这个程序，求大家帮帮忙！ A 74851 1 ...

2015-09-09

• 菜单
  54red 发表了新话题 2015-09-09 17:15

  复制文件到其他目录window,附自己十分绕的小白程序，希望大家提提意见！
  就是在windows 下把一个文件夹下的所有子文件夹里的文件复制到一个文件夹。 举个例子： haha/files/ files_1 files_2 ...

2015-09-01

• 菜单
  54red 发表了新话题 2015-09-01 11:30

  交叉比对，取最大的，求思路或者程序。
  有两个输入 ： file1：：：：：gene_list.txt PEX19 NDUFS2 file2：：：：：NM.txt NM_015840 ADAR 15 3603 NM_001111 ADAR 15 3681 NM_001193495 AD ...

2015-08-12

• 菜单
  54red 发表了新话题 2015-08-12 15:33

  求一个统计数字的程序或者编写思路，谢谢！
  我有一个原始统计数字的表： 统计表： 熊猫 1 老鼠 2 猫 3 小鸡 1 会有很多的新样本： 样本1： 熊猫 猫 章鱼 执行样本1 以后会生成两个文件： 样 ...
• 菜单
  54red 发表了新话题 2015-08-12 10:36

  求一个正则表达式，用来选择要的文件
  015_S21_vcf_HSP_else_mutation1.txt 015_S21_vcf_HSP_else_mutation2.txt 015_S21_vcf_HSP_mutation1.txt 015_S21_vcf_HSP_mutation2.txt others.txt 我 ...

2015-08-10

• 菜单
  54red 发表了新话题 2015-08-10 12:06

  perl 如何打印出中文
  my $dir = getcwd; my $out_file=$dir."\/"."ALL.xls"; print "$out_file\t"; open(OUT,">$out_file"); for my $file(@files) { my $str =" ...

2015-08-06

• 菜单
  54red 发表了新话题 2015-08-06 15:21

  类似key查找value的perl程序，附自己程序和数据，有点问题，谢谢！
  有两个输入一个输出 运行命令是 perl gene_change.pl data.txt find.txt 明明应该是替换了15次，但是我这个总是替换不全，先谢谢大家帮我看一下。 （编的 ...

2015-08-04

• 菜单
  54red 发表了新话题 2015-08-04 14:07

  

  perl 程序如何跳过空行
  我的数据是下面图片的格式，发现总会多出一个空行来 当我用 map{chomp;@data=split/\t/,$_;hash{data[0]}="data[1]\n";}@data 就会提示我最后一行有问题， ...

2015-08-03

• 菜单
  54red 发表了新话题 2015-08-03 16:54

  perl的结果如何存到指定的目录下，求助！
  我可以打开指定的目录， $in_file="D:\\test\\test.txt"; 以前存到指定的地方用的都是 perl haha.pl in.txt ./test/out.txt 因为现在用了个循环遍 ...

2015-07-29

• 菜单
  54red 发表了新话题 2015-07-29 17:22

  求一个更高效的程序，内附自己小白程序！
  while () { chomp; my $line=$_; my @snp_data=split/\t/,$line; my $chr="chr"."$snp_data[0]"; foreach (@gene) { chomp; my @pos= ...
• 菜单
  54red 发表了新话题 2015-07-29 11:41

  服务器纯白求教，我打算用硬盘把数据考到服务器里，怎么办呢？
  打算把硬盘的数据直接拷进服务器，以前用的软件从自己的电脑拷进去的，这回数据比较大，打算直接拷，请问有什么办法么，听说可以挂载怎么做的呢？

2015-07-28

• 菜单
  54red 发表了新话题 2015-07-28 16:39

  我写的这三句代码有点问题，请各位帮忙看看！
  my $dis_new = max @tmp; foreach(@tmp){ if($_==5){$dis_new=5;last;} else if($_==4){$dis_new=4;} } 我是痛苦的分割线-- ...

2015-07-23

• 菜单
  54red 发表了新话题 2015-07-23 13:54

  有关hash引用，谁能解释一下这句,谢谢！
  push @{$hash{$data[3]}{$data[0]}},($data[1],$data[2]); data chr1 1959561 1959766 GABRD chr1 1960516 1960731 GABRD chr1 1960946 1961229 GABRD ch ...

2015-07-16

• 菜单
  54red 发表了新话题 2015-07-16 11:48

  关于open的小问题，open (IN1,"gzip -dc rs_path|")，怎么解释呢？
  open (IN1,"gzip -dc haha|") 我知道这句的意思是可以直接取读haha.gz这个压缩文件的内容 但是我不明白的 haha后面的 | 的意思 先谢过大家了！

2015-07-09

• 菜单
  54red 发表了新话题 2015-07-09 16:43

  安装libpng 模块出问题了，求帮助
  我是打算安装matplotlib，这个依赖libpng easy_install libpng不行 打算手动安装 命令是这样的!! tar -xzf *.tar.gz cd libpng-1.6.17 sudo ./configure ...
• 菜单
  54red 发表了新话题 2015-07-09 16:39

  linux下python安装libpng.freetype.matplotlib问题
  我是python新手，现在需要安装一个matplotlib模块，首先使用的easy_install matplotlib安装 提示错误： 缺少 libpng freetype easy_install libpng不行 打算 ...

2015-07-07

• 菜单
  54red 发表了新话题 2015-07-07 09:39

  

  有关用perlApp打包perl程序的问题，多谢！
  我打算用perlApp打包一个perl程序，project也就下面图片的第一行，要输入一个.perlapp文件，这个文件是怎么来的呀！小白求大家给点帮助！多谢~

2015-07-06

• 菜单
  54red 参与了关于 看看 perl 板块，在校学生多还是在职员工多？ 的投票 2015-07-06 15:54
• 菜单
  54red 发表了新话题 2015-07-06 11:52

  perl调用外部命令，为什么没返回值呢？多谢！
  学perl没多久，打算调用samtools这个软件返回结果，但是这样写执行后没有返回值，有人知道问题出在哪么，或者其他方法可以做到这个的，十分感谢！ my $bam1 = ...
• 菜单
  54red 和 小尾巴鱼 成为了好友 2015-07-06 11:42

2015-06-15

• 菜单
  54red 发表了新话题 2015-06-15 11:27

  谁能给解释一下数组和hash的引用，拿下面的例子来看，十分感谢~
  问题描述： while () { chomp; my @data = split /\t/,$_; my $key = shift @data; push @{$hash_bed{$key}},[@data]; # 没明白这句，谁能给解释一下， ...

2015-06-11

• 菜单
  54red 更新了自己的基本资料 2015-06-11 09:47

2015-06-10

• 菜单
  54red 发表了新话题 2015-06-10 15:36

  新手在线求助！比较两个文件符合条件的输出到第三个文件。
  刚接触perl 现在编写程序就会简单的 open（） my %hash while() print close 求高人指点一下面程序！！！先谢过！ 问题是： 表1： chr1 5366261 ...