#Perl# 给文本中的数字添加千分符

日常做完生信分析后,我们会对某些数据进行统计并做成一份统计结果,而统计结果出现数字是再正常不过的。100,1000,100000这样的还好,但是对于如基因表达count等数据,几百万上千万都不为过。因此,为了方便阅读,在合适的地方添加千分符是很有必要的。如一万是这样的:10,000,100万是这样的:1,000,000。

今天安利一段对文档中的数字添加千分符的perl程序:

use strict;
use warnings;
my $input =shift;
my $output=shift;

open IN,$input;
open OUT,">$output";
while(my $line=<IN>){

     if($line=~s/(\d+.{0,1}\d+)/&separate($1)/eg);  #匹配数字,每匹配到一次,进行添加千分符操作

      print OUT $line;

}

sub separate{
       my $number=$1;
       if(substr($number,0,1)==0){return $number;}  #首位数字wei0,直接返回原数字
       if($number=~m/./){
                 return $number;   #如数字带有小数点,直接返回原数字
       }
      if(length($number)>3){    #数字长度大于3,添加千分符
              my $l=length($number);
              my $i=int $l/3;    #对3取余数
              my $j=$l%3;       #对3取模
              my $newnum="";   #添加千分符后的变量
              my $h=substr($number,0,$j);
              for(;$i>0;$i--){      #循环添加千分符
                    if($j!=0){$newnum=$newnum.$h.",";}  #如模不为0,则在第$j位置添加千分符
                    $h=substr($number,$j,3);
                     $j+=3;
             }
             $newnum=$newnum.$h;
             return $newnum;
      }
       else{return $number;}  #数字长度小于3,则返回原数字
    }
  close(IN);
  close(OUT);

这个程序思路不难,关键是要灵活运用模式匹配和函数,即首先要知道自己要干嘛,然后边写边想吧。

更多原创精彩内容敬请关注生信杂谈

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 151,511评论 1 330
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 64,495评论 1 273
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 101,595评论 0 225
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 42,558评论 0 190
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 50,715评论 3 270
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 39,672评论 1 192
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 31,112评论 2 291
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 29,837评论 0 181
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 33,417评论 0 228
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 29,928评论 2 232
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 31,316评论 1 242
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 27,773评论 2 234
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 32,253评论 3 220
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 25,827评论 0 8
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 26,440评论 0 180
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 34,523评论 2 249
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 34,583评论 2 249

推荐阅读更多精彩内容

  • Spring Cloud为开发人员提供了快速构建分布式系统中一些常见模式的工具(例如配置管理,服务发现,断路器,智...
    卡卡罗2017阅读 134,048评论 18 139
  • 操作符优先级 S03-operators/arith.t lines 46–342 S03-operators/p...
    焉知非鱼阅读 1,017评论 0 0
  • 范围和范围迭代器语法 .. 范围操作符有各种在两端带有 ^符号的变体以表明把那个端点排除在范围之外。 它总会产生一...
    焉知非鱼阅读 788评论 0 0
  • 最近在看 Greg London 的Impatient Perl,再次感受 Perl 的奇怪(不过之前用过 Rub...
    Pope怯懦懦地阅读 920评论 1 5
  • 我爱你,不是当你枝繁叶茂,当你是高山仰止当你美如画卷时, 锦上添花,毕竟是tm特容易的一件事 我爱你,我也摸不清楚...
    就是丑人阅读 287评论 6 2