自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(4)
  • 收藏
  • 关注

原创 perl练习(统计文件中cell的数量)

文件cell.txt中有很多cell名字,很多重复的,把它们统计一下,输出有多少种cell,每一种重复了几次 #!/usr/bin/perl use warnings; open IN, "<cell.txt"; while (<IN>){ $cnt++; $line = $_; $line =~ s/...

2019-10-08 15:34:50 468

原创 perl学习第三篇:把某个文件夹下面的所有文件中含有“my”字符的行写入输出文件(my.rpt)中(菜鸟的继续练习)

文件夹的名字是try_vim,其中包括很多.pl脚本文件和一些其他的乱七八糟的东西,我想把这个文件夹里面的perl脚本文件筛选出来,然后再把脚本里含有定义my语句的行整理出来。 #!/usr/bin/perl use warnings; use strict; my $dir = "../try_vim"; my $file; my @filename; undef $/; opendir (DI...

2019-08-01 15:57:03 317

原创 perl学习第二篇:将数据转为哈希列表,再排序输出(菜鸟练习总结)

这是第二篇文章,慢慢总结学习的perl语言 这个程序就是把DATA里面的内容先分割,再存入哈希列表中,在利用哈希的key和value进行排序输出。 #!/usr/bin/perl use warnings; use strict; undef $/; my $file = <DATA>; my @a = split(m/^A\d\d\d/m, $file); shift @a; my ...

2019-07-29 16:06:33 768

原创 perl语言学习第一篇:将文本perl.txt内容读入,再格式化输出(菜鸟小试牛刀)

实习较闲,自学perl,刚看完菜鸟教程,小试牛刀 下面的程序主要是读入perl.txt文件 cat perl.txt 4 karsa 1 uzi 3 xiaohu 2 ming 5 langx 然后格式化输出如下字样 -------------------- id name ------------...

2019-07-26 15:48:03 1008

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除