文本里面每一条记录的末尾要附加时间字符，怎么做？

qbxy_dream

比如我有一个文本，里面有很多条记录，我现在想在每一条记录的末尾都要加上一个时间，比如说加上20130125，用perl怎样实现呢？请教大家。

zhlong8

perl -i.bak -pe "s/$/20130125/" some.file

原文件的备份是 some.file.bak

qbxy_dream

嗯，手动执行单个命令行肯定是没问题，谢谢版主先，不过呢，我这里有几百个文件需要处理，我是想写一个脚本来循环处理，在脚本里面我不知道该怎样才能达到这样的效果。。。。请教。。。。

只是一个红薯

虽然有点笨拙，看看能实现不：

1. #!perl
   
2. use 5.016;
   
3. use strict;
   
4. use autodie;
   
5. my $path='D:\perl\perl file\list';  #文件目录
   
6. chdir ($path);
   
7. foreach my $file (glob '*') {
   
8.    my $outfile="$file.bak";  #输出末尾文件加日期了
   
9.   open FH,'<',"$file";
   
10.    open FU,'>',"$outfile";
    
11.    while (<FH>) {
    
12.    
    
13.     chomp;
    
14.     $_.= "20130125\n"; #每条数据行末尾加上日期
    
15.     print FU $_;
    
16.    }
    
17. 
    
18. }

复制代码

回复 4# qbxy_dream


   

qbxy_dream

嗯，确实可用。非常感谢：）又学到一招

jiang870320

#!/usr/bin/perl
use strict;
use warnings;
my $datetime=`date +%Y-%m-%d`;
open TEST, "test111.txt" or die "$!\n";
while (<TEST>){
        s/(.*)$/$1 $datetime/;
        chomp;
        print $_;
}
close TEST;

rubyish

又学到一招

懒狒狒

不错不错，好多种方法