Question

如果用perl多次复制一个文件内容并进行修改呢

比如 a.txt中 有1 2 3 4 5 我想在b.txt中将a.txt复制多遍并对某些数进行替换，1 2 3 4 6 1 2 3 4 7 1 2 4 4 5

怎么实现呢

Answer 1

这个实现起来不麻烦，但是也要分情况看。
如果a.txt 是一个小文件，可以直接读入内存的那种，那么你可以直接把a.txt先存入一个数组m，然后随便你操作多少次都可以，只要你不修改m或者清空数组m，你随时可以遍历它。
如果a.txt 是一个大文件，不能暴力的直接读入，那么就要考虑用分段读取a.txt进入数组，后续操作一样。
先提供下思路，不知道能否帮上忙。

Answer 2

类似这样子就可以了
$m = '1 2 3 4 5';
@d = split(' ',$m);
for (1..100)
{
$i =int(rand($#d));
$t = $d[$i];
$d[$i] = int(rand(10));
print " @d";
$d[$i] = $t;
}