Perl学习

Perl入门工程

想要学习Perl完全是因为有些公司的招聘要求，熟悉Perl或Tcl脚本语言，所以这个月初开始接触Perl，一本书“Perl语言入门_中文版_第六版.pdf”（或英文版“Learing Perl 6th Edition”）以及播布客的“Perl语言视频教程”，就这样启程。
目标：
Perl输入最简单的“Hello World！”
准备工作：
WIN64环境下，官网下载ActivePerl，我的版本是5.24.0；
sublime输入下边代码并文件命名为hello.pl

    #!/usr/bin/perl ##此路径为Unix路径，实际编译路径取决于安装路径
    use 5.024; #版本描述
    use utf8;
    use open ":encoding(gbk)",":std";#显示中文字符
    print "Hello,World！";

操作：
WIN+R进入cmd窗口→d:（进入d盘）→cd perl（进入d盘perl文件夹）→hello.pl

补充（摘自微信公众号“芯司机”）
总结Perl的作用：
1.用于生成Verilog代码
遇到一些规律性强，编写比较麻烦的代码，重用性较强（总线模块，FIR滤波器，IIR滤波器）就比较适合用来自动生成实现其功能的Verilog代码
2.用于扩充Verilog语法
有些Verilog没有的语法功能，可以使用perl来扩充。比如工程中某个变量位宽有变化导致门级描述中门的个数变化，可以用perl来生成相应的Verilog代码
3.用于验证中的数据处理
验证中有哪些数据格式需要处理，还有些数据需要分析。用MATLAB生成的数据改写成Verilog中的ROM格式，或者直接生成ROM的Verilog
4.后端根据与前后级联接的格式处理
如果说Tcl比较常用在后端的软件使用中，那么perl就大多数用在软件和软件之间粘合上。有一些前级的工具所得结果不能直接用于下级工具的输入，那他们之间的转换用perl是完全合适的。

题目：
用perl或者shell脚本对当前目录中所有符合下面名字的文件内容进行处理，并同意第一列每个单词出现的个数，左图为源文件，右图为处理后的文件。

答案
open INF, "excel.txt";
my $line = <INF>;
my $string_num; #统计单词出现的次数
while (defined $line) {
if ($line =~/^[a-z]+,(\w\w),(\w\w),(\w\w),(\w\w),(\w\w)$/) {
print "$5$4$3$2$1\n";
$string_num = $string_num + 1;
} else {
print "$line";
}
$line = <INF>;
}
close <INF>;

Referece ：
https://mp.weixin.qq.com/s/nfAaNvs2s9-VZZhYm_vzGg