Anker springt nicht wie erwartet!

[Beat]

Hi Struppi,

Du meinst den https://forum.selfhtml.org/?t=172060&m=1126994? Da trifft meine Aussage auf jeden Fall zu.

Nein! Ich meine diesen Hi-Tech-Code:

#!/usr/bin/perl -w

SÜNDE nr 1

use strict; # nicht vorhanden,

###############################################################################

DecisionMaker:                   Version 1.00                               #

Developed started in:            22.05.2008                                 #

Finished in:                     XX.XX.2008                                 #

Programmed by:                   Gary-Technologies                          #

###############################################################################

SÜNDE nr 2

header Info ohne reale Funktion

$counter = 0;

SÜNDE nr 3

use strict hätte auf fehlende my erklärung hingewiesen

Variablen im Packege main sollte man $Globale_Variable beschriften

um sie in Subfunktionen als globale Variablen zu erkennen

my $Counter = 0

my $Layout1;
my $Thema;
my $Bild;
my @LinkCollect;
open(LESER, "<public/publisher.csv");

SÜNDE nr 4

open mit 2 statt mit drei Variablen

besser: $fh statt FH für Filehandles

open(my $fh, "<", $file)

SÜNDE nr 5

kein Error-Handling auf open.

Das weitere Parsen wurde wegen zu viel _Moderne_ abgebrochen.

mfg Beat