【求助】读取一个文件的第一行，并把读取的内容替换另外一个文件指定行的内容

shi007

【求助】读取一个文件的第一行，并把读取的内容替换另外一个文件指定行的内容
读取c:\1.txt的第一行文件内容。
并c:\2.txt 第二行的指定内容进行替换

文件内容如下
c:\1.txt
hello perl


c:\2.txt

hello world

hello world

期望的2.txt 的内容是

c:\2.txt

hello world

hello perl


谢谢

grshrd49

直接写的 ,你试试

1. open F1 "file1.txt";
   
2. open F2 ">file2.txt";
   
3. @a1 = <F1>;
   
4. @a2 = <F2>;
   
5. close F1;
   
6. 
   
7. $a2[1] = $a1[0];
   
8. print F2 $_ for(@a2);
   
9. close F2;

复制代码

sunzhiguolu

回复 1# shi007
试下:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use Tie::File;
   
6. 
   
7. my ($sF1, $sF2) = ("First File", "Second File");
   
8. open (my $fhF1, '<', $sF1);
   
9. my $sOneLine = <$fhF1>;
   
10. close ($fhF1);
    
11. tie (my @aF2, 'Tie::File', $sF2, memory => 0);
    
12. $aF2[1] = $sOneLine;
    
13. untie (@aF2);
    

复制代码

将代码的第 6 行的 "First File", "Second File" 替换成实际的文件路径.

shi007

sunzhiguolu 发表于 2015-12-09 18:32
回复 1# shi007
试下:将代码的第 6 行的 "First File", "Second File" 替换成实际的文件路径.

谢谢
刚才看错了。抱歉

shi007

回复 2# grshrd49

谢谢