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

wzh330

請問一下，怎么才能用perl刪除一個文件里面每一行的前八個字符 和 后八個字符 （包括數(shù)字，字母，空格等）

yinyuemi

回復(fù) 1# wzh330

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

復(fù)制代碼

vinian

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

復(fù)制代碼

午夜凋零

如果一行的長度不夠16個，樓主希望產(chǎn)生什么樣的結(jié)果？

wzh330

2,3樓已經(jīng)是我想要的答案了 ，非常感謝。
至于4樓說的問題，額， 沒有考慮到