Skript hängt sich auf (gelöst) - #172213 (Allgemeines zu Perl)

GwenDragon

2013-11-25 19:37

User since
2005-01-17
14761 Artikel
Admin1

Schau mal, da gibt es doch eine endlose Ersetzung:

Code (perl): (dl )

while ($file =~s/Report/Report_mod/) {}

Denn das bedeutet:
Solange Report durch Report_mod ersetzt werden kann, ersetze Report durch Report_mod.

Wenn du den Dateiname ändern willst, ist das sinnvoll:

Code (perl): (dl )

$file =~s/Report/Report_mod/;

Auch das erschließt sich mir nicht:

Code (perl): (dl )

1
2

while ($temp =~s/false/0/) {}                           # ersetzt alle "false" durch "0"
while ($temp =~s/true/1/) {}                            # ersetzt alle "true" durch "1"

Es könnte ersetzt werden durch:

Code (perl): (dl )

1
2

$temp =~s/false/0/g;
$temp =~s/true/1/g;

Last edited: 2013-11-25 19:40:34 +0100 (CET)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten