一个简单的perl程序

Posted 2020-08-29 永远的麦田

和朋友聊天，说perl的神奇，最主要的是一行代码搞定所有。

想想用python3写的测试脚本，觉得还是有点多的，真的用几行代码写一个测试脚本，可以节约不少时间。

当然，网上黑perl的还是很多，不过自用嘛，要的是快，可以几分钟搞定的就不必再花几小时去折腾了。

老规矩，先找一个乘手的工具，Padre是一个不错的工具，简单实用，最关键是官方提供，免费。

下载的地址：http://padre.perlide.org/download.html，不过看起来需要vpn才行，国内提供相应安装包的下载。

先来个简单的代码，当作练手：

从C盘读取文件abc.txt,然后依次打印出来

  1: open(F ,"C:\\\\abc.txt")|| die"S!";
  2: while(<F>)
  3: {
  4:     print;
  5: }

 

运行截图如下：