Question

perl处理txt数据

想把A.txt的数据都除以10后，保存在B.txt文档中，怎么用perl实现？
我想用一个perl程序，不是命令形式的

Answer 1

perl -pe 's/(\d+(?:\.\d+)?)/$1/10/eg' A.txt >B.txt

追问

我是想用perl程序形式的，谢谢

追答

#!/usr/bin/perl
use strict;
use warnings;

open A, " A.txt" or die "A: $!";
open B, ">B.txt" or die "B: $!";

while () {
chomp;
print B $_/10, "\n";
}
close A;
close B;