Приращение переменных в файлах

Question

Я полный новобранец с Perl. То, что я пытаюсь сделать, - открыть список файлов, увеличить три разных переменных в каждом файле, сохранить файлы и закрыть.

Переменные выглядеть следующим образом

This_Is_My_Variable03 
This_Is_My_Variable02 
This_Is_My_Variable01 

Переменная окончание в 01 в файле несколько раз. Переменные иногда являются частью строки символов. This_Is_My_Variable часть переменной никогда не изменяется.

Спасибо.

Это может быть не лучшим решением, но это работает

#!perl=C:\IBM\RationalSDLC\ClearCase\bin\perl 

use warnings; 
use strict; 

use Tie::File; 

tie my @data, 'Tie::File', 'myfile.txt' or die $!; 

s/(This_Is_My_Variable)(\d+)+/$1.++($_=$2)/eg for @data; 

untie @data; 

Спасибо Бородину за получение меня началось с Tie::File: это определенно помогло.

Второе решение с использованием в то время как петля

#!perl=C:\IBM\RationalSDLC\ClearCase\bin\perl 
use warnings; 

#use strict; 

sub inc { 
    my ($num) = @_; 
    ++$num; 
} 

open(FILE, "myfile.txt") || die $!; 
$i = 0; 
while (<FILE>) { 
    $string = $_; 
    if (/This_Is_My_Variable../) { 
     $string =~ s/(This_Is_My_Variable)(\d+)+/$1.++($_=$2)/eg; 
     print "$string \n"; 
     $i++; 
    } 
    else { 
     print "$string \n"; 
    } 
} 

close FILE; 

Answer 1

Ваш "Второе решение с использованием в то время как петля" имеет ряд проблем.

• Никогда отключить use strict, чтобы получить программу работать. Все, что делает проблемы скрытия в коде

• У вас есть неиспользуемая подпрограмма inc и неиспользуемая переменная $i

• Вы должны всегда использовать форму трехпараметрической open, и лексические дескрипторы файлов

• Нет необходимости проверять, содержит ли строка строку перед применением замены

• Вы можете просто использовать ($2+1) в своей заменяемой строке, а не ssigning значения для $_ и приращение его ++($_=$2)

• Если вы собираетесь использовать именованный переменные строки считываются из файла, то, как правило, вы должны использовать while (my $string = <$fh>) {...}. Для коротких блоков, как это лучше всего использовать $_

• Вы не chomp вход, который был бы хорошо, за исключением вы печатаете дополнительный пробел и символ новой строки после каждой строки

• Вы print "$string \n" в ваш код дважды. Это, возможно, также появляются только один раз за пределами структуры if

Этот код выполняет тот же самый процесс. Я надеюсь, что это помогает.

use strict; 
use warnings; 

open(my $fh, '<', 'myfile.txt') || die $!; 
while (<$fh>) { 
    s/(This_Is_My_Variable)(\d+)/$1.($2+1)/eg; 
    print; 
} 

Answer 2

use strict; 
use warnings; 

use Tie::File; 

tie my @data, 'Tie::File', 'myfile' or die $!; 

s/(\d+)$/sprintf '%02d', $1+1/e for @data;