文件替換并疊加抬頭

scriptshooks

11
fdsffffffdss654656546
12
fdsff55964ffffdss908904
13
rewr25449rewrdsfdsfdsfdsf

上面是一個.txt文本，
把11、12、13替換成
a7、b8、c9
怎么實現(xiàn)呢？

xiaoxingan99

用if吧，最簡單

sunzhiguolu

1. perl -nle 'BEGIN{%h=(11=>"a7",12=>"b8",13=>"c9")}{$.%2?print $h{$_}:print}' f

復制代碼

a7
fdsffffffdss654656546
b8
fdsff55964ffffdss908904
c9
rewr25449rewrdsfdsfdsfdsf

104359176

1. use 5.020;
   
2. use File::Slurp qw(read_file);
   
3. use List::Util qw(pairs);
   
4. use List::MoreUtils qw(mesh);
   
5. 
   
6. my @array = split(/\s+/xms, read_file("sample.txt"));
   
7. my @keys = qw/a7 c8 b9/;
   
8. my @values = map { $_->[1] } pairs(@array);
   
9. say (join "\n", mesh(@keys, @values));

復制代碼