Question

如何用perl来截取每行前8个字？

本人菜鸟，现在有一个文件aaa.txt内容如下：(xxx表示注释内容，各种乱七八糟的东西)
17827613 //xxxxxxxxxxxxx
88271210 //xxxxxx
01992832 //xxxxxxxxxxxxxxxx
.................
如何用perl读取这个文件，并把“//xxxxxxxxxx”全部删除，并保存文件呢（//之前的全部都是8位的数）？

多谢各位高手！

Answer 1

第一种方法：读取之后把 //后面的内容去掉，s/\/\.*$///g;

第二种方法：读取之后只取每行的前八个字符，substr($line,0,8) 或者正则 /(^.{8})/

Answer 2

awk '{print $1}' aaa.txt