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

2025-04-26 17:45:58
推荐回答(2个)
回答1:

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

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

回答2:

awk '{print $1}' aaa.txt