搜索
查看: 1260|回复: 2

下面是我写的答案和注释说明

[复制链接]

1

主题

2

帖子

40

积分

新手上路

Rank: 1

积分
40
发表于 2018-5-11 16:47:47 | 显示全部楼层 |阅读模式
同perl小白,历经2天加了三个好友之后终于可以发帖
下面是我写的答案和注释说明
[Perl] 纯文本查看 复制代码
#!usr/bin/perl -w
use strict;
open IN ,"state.txt";
open OUT ,">result";
my (%count,@total_txt,$total_txt,@vocabulary,$vocabulary);
#@total_txt=<IN>;
while(<IN>){
        chomp;#去掉换行符
        $total_txt .=$_;#将所有行$_合成为一个标量$total_txt;
}
        $total_txt=~ s/[\W]/ /g;#用空格替换所有非单词的字符,即去掉逗号等符号
        @vocabulary=split/\s+/,$total_txt;
        #print "@vocabulary\n";
foreach $vocabulary(@vocabulary){
        $count{$vocabulary}+=1;
        #print "$vocabulary => $count{$vocabulary}\n";#可省略,用于验证哈希有没有建立成功
}
foreach $vocabulary(sort keys %count){
         print OUT "$vocabulary => $count{$vocabulary}\n";
}
close OUT;
close IN;




上一篇:一个关于分析代谢组学数据流的软件INCA
下一篇:关于clusterprofiler的一些疑问(结果和教程不一致)
回复

使用道具 举报

365

主题

512

帖子

1713

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
1713
发表于 2018-5-13 23:54:36 | 显示全部楼层
历经2天加了三个好友,O(∩_∩)O哈哈哈
看得出来你的艰辛,我帮你把代码高亮了,你还需要学习很多
回复 支持 反对

使用道具 举报

1

主题

2

帖子

40

积分

新手上路

Rank: 1

积分
40
 楼主| 发表于 2018-5-14 10:17:34 | 显示全部楼层
ydchen 发表于 2018-5-13 23:54
历经2天加了三个好友,O(∩_∩)O哈哈哈
看得出来你的艰辛,我帮你把代码高亮了,你还需要学习很多 ...

谢谢,原本这个是用于回复 ,莫名地按错发成了帖,需要学习的的确很多,非常感谢你!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2019-11-13 21:38 , Processed in 0.031051 second(s), 24 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.