如何用perl删除一个文件里面每一行前八个字符 和 后八个字符

wzh330

请问一下，怎么才能用perl删除一个文件里面每一行的前八个字符 和 后八个字符 （包括数字，字母，空格等）

yinyuemi

回复 1# wzh330

1. echo '12345678xxccd12 4 678' |perl -nple 's/^.{8}|.{8}$//g'
   
2. xxccd
   

复制代码

vinian

1. 
   
2. my $offset  = 8;
   
3. my $length = length $str;
   
4. $str = substr( $str,  $offset,  $length - 2 * $offset )
   

复制代码

午夜凋零

如果一行的长度不够16个，楼主希望产生什么样的结果？

wzh330

2,3楼已经是我想要的答案了 ，非常感谢。
至于4楼说的问题，额， 没有考虑到