文本的剪切和複製粘貼的規定位置

Question

我的虛擬文本文件（一個連續的行）看起來是這樣的：

AAChvhkfiAFAjjfkqAPPMB 

我想：

1. 刪除特定文本的一部分（範圍）;
2. 複製粘貼（特定字符範圍）在文件內。

如何，我這樣做：

爲了削減在所需位置文本的一部分（從5到7個字符&從10到14個字符），我用cut

echo 'AAChvhkfiAFAjjfkqAPPMB' | cut --complement -c 5-7,10-14 
AAChfifkqAPPMB 

但我真的不知道如何複製粘貼文本。例如：將15到18個字符的文本複製並粘貼在字符1之後（也使用上一個剪切命令）。爲了得到這樣的最終結果：

fkqAAAChfifkqAPPMB 

所以我必須提問：用perl，awk的給定範圍或sed的

1. 如何閱讀的文本（從...到）&粘貼此文字在特定的位置。
2. 如何將此文字粘貼與上一個剪切指令相結合，因爲剪切文字後會移動到左側，因此會複製錯誤的文字。

Answer 1

也許是這樣的：

$ echo AAChvhkfiAFAjjfkqAPPMB | awk '{ print(substr($1, 0, 14) substr($1, 18) substr($1, 15, 3)) }' 
AAChvhkfiAFAjjAPPMBfkq 

Answer 2

在perl，你可以使用陣列片，通過在陣列分裂串：

my $string = "AAChvhkfiAFAjjfkqAPPMB1"; 
my @arr = split //, $string; 

和切片（打印元素5至7和10到14）：

print @array[5..7,10..14]; 

可以使用splice()得重新安排數組。

的perldoc說：

刪除指定通過OFFSET和從數組LENGTH的元素，以及與列表的元素，如果有的話替換它們。

見http://perldoc.perl.org/perldata.html#Slices

Answer 3

在Perl中，我認爲SUBSTR將是一個不錯的選擇，嘗試如。

$a = '1234567890'; 
#from pos 2, replace 3 chars with nothing, return the 3 chars 
$b=substr($a,2,3,''); 
print "$a\t$b\n"; #1267890 345 
#in posistion 0 (first), replace 0 characters (ie pure insert) 
#with the content of $b 
substr($a,0,0,$b); 
print "$a\t$b\n"; #3451267890 345 

請參閱http://perldoc.perl.org/functions/substr.html瞭解更多詳情。 splice（）也可能是候選人。

Answer 4

使用awk很簡單：

kent$ echo "AAChvhkfiAFAjjfkqAPPMB"|awk ' 
{for(i=5;i<=7;i++)$i=""; 
for(i=10;i<=14;i++)$i=""; 
for(i=15;i<=18;i++)t=sprintf("%s%s",t,$i); 
$0=t""$0}1' OFS="" FS="" 
fkqAAAChfifkqAPPMB 

編輯

扭轉文本的一部分，你只需要更換t和$i：

kent$ echo "AAChvhkfiAFAjjfkqAPPMB"|awk ' 
{for(i=5;i<=7;i++)$i=""; 
for(i=10;i<=14;i++)$i=""; 
for(i=15;i<=18;i++)t=sprintf("%s%s",$i,t); 
$0=t""$0}1' OFS="" FS="" 
AqkfAAChfifkqAPPMB