J'ai développé un script (principalement en visitant plusieurs solutions et en fusionnant mes préférés) pour trouver et remplacer les mots dans les fichiers. Les fichiers sont tous contenus dans un répertoire. Pour une raison quelconque, mon script va dans une boucle infinie, mais il semble que cela fonctionne.Pourquoi mon script Perl boucle-t-il infiniment?
J'apprécierais toute explication quant à pourquoi il ne sortira pas de la boucle.
#!/usr/bin/perl -i.bak
my $DIRECTORY = '/home/mrk28/testing/findreplace';
opendir (DIR, $DIRECTORY);
@count = readdir(DIR);
my $count = @count;
print $count-2;
my $i = 0;
while ($i < $count) {
s/prods55a/sapprda/;
$i=+1;
print;
}
Merci. Évidemment, je suis nouveau à Perl. – MikeKusold