三九宝宝网宝宝教育学龄段教育

Perl文本处理问题

02月11日 编辑 39baobao.com

[怎样处理与各种小人之间的微妙关系]在处理与各种小人之间的微妙关系时,可以参照以下原则去做事:1。不要得罪小人通常来讲,小人比较敏感,而且容易自卑,所以不要在言语上刺激他们,也不要在日常交际 中招惹他们。同时,不...+阅读

参考下面代码实现my %tree;while(){ chomp; my d=split ',',$_; for (0..$#d) { if (!exists($tree{$d[$_]})) { $tree{$d[$_]} = {-n=>0, -c=>[],-s=>$d[$_]}; } if ($_ >0) { my $f = 0; my $c= $tree{$d[$_-1]}->{-c}; for my $i(0..$#$c) { if ($c->[$i] == $tree{$d[$_]}) { $f = 1; } } if ($f == 0) { $tree{$d[$_]}->{-n}++; push {$c},$tree{$d[$_]}; } } }}for(keys(%tree)){ prt($tree{$_},0) if $tree{$_}->{-n} == 0;}sub prt{ my ($t,$d)=_; my $c=$t->{-c}; print "\t" x $d, $t->{-s},"\n"; for (0..$#$c) { prt($c->[$_],$d+1); }}__DATA__AABB,CCDD,EEFF,GGHHAABB,CCDD,EEFF,RRTT,ZZXXAABB,CCDD,EEFF,RRTT,YYQQAABB,CCDD,EEFF,RRTT,UUIIAABB,CCDD,GGMM,PPSSAABB,CCDD,GGMM,OOXXAABB,CCDD,JJYY,ZZMM,FFSSAABB,GGRR,SSTT,MMOO,NNFFAABB,GGRR,SSTT,MMOO,LLJJAABB,GGRR,SSTT,MMOO,BBJJLLHH,IISS,TTYY,GGQQ,KKAALLHH,IISS,TTYY,VVCC,PPOOLLHH,IISS,TTYY,VVCC,DDWWLLHH,IISS,TTYY,VVCC,ZZXXLLHH,IISS,TTYY,EEDD,MMGGLLHH,IISS,OOUU,VVXXLLHH,IISS,OOUU,PPWW,BBNNLLHH,IISS,OOUU,PPWW,AALLLLHH,HHPP,KKGG,MMEE,FFJJLLHH,HHPP,RRLL,VVQQ...

以下为关联文档:

如何才能更好的处理人际关系如何搞好人际关系是一个技术的问题,在说明该问题之前,先要讨论的是为什么要搞好人际关系。如果没有必要,技术上的讨论也就没有了价值。从心理上讲,不管身份高低,每个人都希望受人...

如何才能处理好人际关系人际交往有:五项原则、七个技巧、及26条处事小节 (1) 平等的原则:社会主义社会人际交往,首先要坚持平等的原则,无论是公务还是私交,都没有高低贵贱之分,要以朋友的身份进行交往,才能...

怎样更加的处理好人际关系如何处理好人际关系 如何搞好人际关系这个话题,现根据本人经验,谈些不成熟的意见,供参考。但愿对你能有那么一点帮助。 人际关系是我们生活中的一个重要组成部分。倘若搞不好人...

如何处理好的人际关系处理好人际关系的关键是要意识到他人的存在,理解他人的感受,既满足自己,又尊重别人。下面有几个重要的人际关系原则: 1、人际关系的真诚原则。真诚是打开别人心灵的金钥匙,因为真...

如何用python3处理好多个excel数据# 需安装 xlrd-0.9.2 和 xlutils-1.7.1 这两个模块 from xlwt import Workbook, Formula import xlrd book = Workbook() sheet1 = book.add_sheet('Sheet 1') sheet1.write...

python批处理excel文件import glob, os.path import xlrd COLNO = 1 def files(path, fnmatch): for fname in glob.glob(os.path.join(path, fnmatch)): yield fname def suminxlsfile(xlsfile):...

perl程序如何实现将一段文本插入某一行下方#!/usr/bin/perl#t.plopen A,"txt1"; #一段文本my a1=();while(){ #插入文本if (/I(19|12)/){print $_,"a1";}else {print $_}}===============perl t.pl txt2I19 (AGND AVDD vb_4...

perl提取特定文本行的下一行如何实现open F, "F:/1.txt"; #1.txt是你画面上那个文件 open OUT, ">F:/out.txt"; #o.txt是你要保存的文件 array=; $count=-1; foreach (array){ $count++; if(/固定文本/){$start=$coun...

汽车空调不制冷的解决方案汽车空调不制冷压缩机老化应该如何处理多数情况下,没有正确使用才是最大元凶。 ▲内循环提升制冷效率 虽然并不提倡长期使用空调的内循环功能,但如果想达到最快最有效的制冷,内循环绝对不能忽略。内循环的另一个作用...

推荐阅读
图文推荐