50元求一shell或perl脚本

园丁

读取a的条目，然后填充b模板生成对应的文件。b模板里面要替换的条目对应的行应该是不变的吧，那就手动写入要修改的位置

1. #!/bin/bash
   
2. a="$1" ##目标文件
   
3. b="$2" ##模板
   
4. 
   
5. #array=(1 2 3) 下面填入行数
   
6. array=()  
   
7. 
   
8. while read line
   
9. do
   
10.         filename="$line"
    
11.         cp $b "$filename"
    
12.         n=1
    
13.         for i in ${array[*]}
    
14.         do
    
15.                 sed -i "${i}s/.*/${line}/" "$filename"
    
16.         done
    
17. done < $a

复制代码

hawk

保存为 xxx.pl, 然后执行 xxx.pl <a> <b>

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. my $src = $ARGV[0];
   
6. my $tmplt = $ARGV[1];
   
7. 
   
8. open _TEMPLATE_HNDL_, $tmplt or die $!;
   
9. my $template = do { local $/=undef; <_TEMPLATE_HNDL_>; };  
   
10. close _TEMPLATE_HNDL_;
    
11. 
    
12. open _FILE_HNDL_, $src or die $!;
    
13. while(<_FILE_HNDL_>) {
    
14.     my $line = $_ =~ s/^\s+//gr;
    
15.     $line =~ s/\s+$//g;
    
16. 
    
17.     open _OUTPUT_HNDL_, ">$line";
    
18.     print _OUTPUT_HNDL_ $template =~ s/\$\d+/\E$line/gr;
    
19.     close _OUTPUT_HNDL_;
    
20. }
    
21. close _FILE_HNDL_;
    

复制代码