Zeilen löschen - #183866 (Allgemeines zu Perl)

betterworld

2016-02-13 17:49

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Zwei Verbesserungsvorschläge:

Code: (dl )

1
2
3

for (my $i=0; $i <= $#data -1; $i++)
# ersetzen durch:
for my $i (0..$#data-1)

Das ist viel kürzer und sieht nicht so nach C aus :)

Außerdem:

Code: (dl )

1
2
3

 $data[$i] = undef;
# Ersetzen durch
$data[$i] = "";

Denn sonst würde es Warnungen ausgeben...

Außerdem würde es eine Warnung geben, wenn eine Zeile keine 3 Felder hat, die man splitten kann. Das kommt insbesondere dann vor, wenn man die Zeile gerade entfernt hat. Da ist natürlich auch gefragt, wie denn hier das korrekte Verhalten gewünscht wäre... Soll man dann stattdessen nochmal die vorherige Zeile nehmen, weil die Zeilen ja näher zusammengerückt sind?

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class