Код: Выделить всё
while ($i < $count)
{
if ($str[$i] =~ /$fields_int[$l]/g)
{
$str[$i] =~ /<$fields_int[$l]>(.*?)<\/$fields_int[$l]>/;
my $max = $1 + 1;
$str[$i] =~ s/$1/$max/;
print $fout $str[$i];
$i++;
}
print $fout $str[$i];
$i++;
}
<R100_reliable>1</R100_reliable>
Не увеличивает 1 между тегами, а вот что получается
<R200_reliable>1</R100_reliable>
Не могу понять почему?