perl 数字转换字符串

jiannma

比如有两个文件：

test1.log

This number is  20000
This number is  30000

test2.log
20000    "hello world"
30000    "world"


想要实现的效果是使test1.log成为：
This number is "hello world"
This number is "world"


请教该如何实现呢？ 谢谢....

rubyish

实现:

1. #!/usr/bin/perl -w
   
2. 
   
3. open A, 'log1';
   
4. open B, 'log2';
   
5. 
   
6. my %c = map { /(\S+)\s+(".*")/; $1, $2 } <B>;
   
7. my $d = do { local $/; <A> };
   
8. $d =~ s/$_/$c{$_}/g for keys %c;
   
9. 
   
10. print $d;

复制代码

zuerrong

比如有两个文件：

test1.log

This number is  20000
This number is  30000

test2.log
20000    ...
jiannma 发表于 2011-11-24 19:25

    在日志里，一切都是字符呀。转没啥意义吧。

Perlvim

大姐姐给小妹妹解答问题，大眼妖精说风凉话