搜索
查看: 177|回复: 4

perl小白脚本求助

[复制链接]

1

主题

3

帖子

21

积分

新手上路

Rank: 1

积分
21
发表于 2020-4-21 03:49:06 | 显示全部楼层 |阅读模式
my %intersec=()
open(RF,"string_interactions.tsv") or die $!;
open(WF,">network.txt") or die $!;
print WF "node1\tnode2\tNet\n";
while(my $line=<RF>){
  next if($.==1);
  chomp($line);
  my @arr=split(/\t/,$line);
  if( (exists $hash{$arr[0]}) && (exists $hash{$arr[1]}) ){
    print WF "$arr[0]\t$arr[1]\tppi\n";
    $intersec{$arr[0]}=1;
    $intersec{$arr[1]}=1;
  }
}
close(RF);
第二行总是提示语法错误,求助



上一篇:求助有没有大神有表观组与转录组的结合分析的实战教程
下一篇:Homo_sapiens.GRCh38.dna.toplevel.fa 文件过大
回复

使用道具 举报

1

主题

58

帖子

864

积分

高级会员

Rank: 4

积分
864
发表于 2020-4-21 14:42:40 | 显示全部楼层
Bevis-Li 发表于 2020-4-21 14:39
报错信息提示:
C:%users\Administrator\Desktop\Net>perl prepare.pl
syntax error at prepare.pl line 15 ...

第一行少个;
回复 支持 1 反对 0

使用道具 举报

1

主题

58

帖子

864

积分

高级会员

Rank: 4

积分
864
发表于 2020-4-21 14:37:00 | 显示全部楼层
你可以把报错也发上来
回复 支持 反对

使用道具 举报

1

主题

3

帖子

21

积分

新手上路

Rank: 1

积分
21
 楼主| 发表于 2020-4-21 14:39:26 | 显示全部楼层
生信小小菜鸟 发表于 2020-4-21 14:37
你可以把报错也发上来
报错信息提示:
C:\Users\Administrator\Desktop\Net>perl prepare.pl
syntax error at prepare.pl line 15, near ")
open"
回复 支持 反对

使用道具 举报

1

主题

3

帖子

21

积分

新手上路

Rank: 1

积分
21
 楼主| 发表于 2020-4-21 14:45:43 | 显示全部楼层

谢谢,运行出来了
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|生信技能树 ( 粤ICP备15016384号  

GMT+8, 2020-6-6 09:54 , Processed in 0.040140 second(s), 25 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.