随笔分类 - Perl
摘要：表的数据字典格式如下：如果手动写MySQL建表语句，确认麻烦，还不能保证书写一定正确。写了个Perl脚本，可快速构造MySQL脚本语句。脚本如下：#!/usr/bin/perluse strict;my $line;while(){ s/\r\n//; if(/(\S+)\s+(\S...
阅读全文
摘要：最近写了一个perl脚本，实现的功能是将表格中其中两列的数据进行拼凑，然后将拼凑后的数据用“|”连接在一起。表格内容如下： 员工号码员工姓名职位入职日期1001张三销售1980/12/17 0:00:001002李四财务1981/02/20 0:00:001003王五经理1981/02/22 0:...
阅读全文
摘要：在实际生产环境中，常常需要从后台日志中截取报文，报文的形式类似于.........一个后台日志有多个报文，每个报文可由操作流水唯一确定。以前用AWK写过一个，程序如下：beginline=`awk 'BEGIN{i=0}{if($0~"") i=NR;if($0~"'$oprseq'"){print...
阅读全文
摘要：巡检类工作经常会出具日报，最近在原有日报的基础上又新增了一个表的数据量统计日报，主要是针对数据库中使用较频繁，数据量又较大的31张表。该日报有两个sheet组成，第一个sheet是数据填写，第二个sheet则是基于第一个sheet的数据进行的文字描述和图表展示。文字描述主要包括两部分：一、呈现该31...
阅读全文
摘要：1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(<>){ chomp; print "$_\n" unless exists $hash{$_}; $hash{$_}+=1; } 刚开始没有$hash{$_}+=1这一行，结果发现无论怎么执行，
阅读全文
摘要：最近写的一个perl程序，通过关键词匹配统计其出现的频率，让人领略到perl正则表达式的强大，程序如下：#!/usr/bin/perluse strict;my (%hash,%hash1,@array);while(){ s/\r\n//; my $line; if(/-...
阅读全文
