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
###############################################################################
DecisionMaker: Version 1.00 #
Developed started in: 22.05.2008 #
Finished in: XX.XX.2008 #
Programmed by: Gary-Technologies #
###############################################################################
$counter = 0;
my $Layout1;
my $Thema;
my $Bild;
my @LinkCollect;
open(LESER, "<public/publisher.csv");
flock(LESER, LOCK_SH);
print "Content-type: text/html\n\n";
while(! eof(LESER)){
$counter = $counter + 1;
my $zeile = <LESER>;
my ($Layout1, $Thema, $Bild) = split(/,/,$zeile);
push (@LinkCollect, $Thema);
if($Layout1 eq "L") {
print "<!-- ############################### -->\n";
print "<!-- #Das ist die Klasse Text Links# -->\n";
print "<!-- ############################### -->\n";
print "\n";
print '<a name="A'. "$counter", '"></a>', "\n";
print '<div class="inner_left_links">',"\n";
print '<p class="report">';
open(INHALT, "<../httpdocs/sammler/artikel_text/$Thema");
flock(INHALT, LOCK_SH);
$insert = <INHALT>;
close(INHALT);
print $insert;
print "</p>\n";
print "</div>\n";
print '<div class="inner_right_links">',"\n";
print '<img src="sammler/artikel_pics/';
print $Bild;
print '" alt="">',"\n";
print "</div>\n";
print '<div class="big_line">',"\n";
print "</div>\n";
}
if($Layout1 eq "R") {
print "<!-- ################################ -->\n";
print "<!-- #Das ist die Klasse Text Rechts# -->\n";
print "<!-- ################################ -->\n";
print "\n";
print '<a name="A'. "$counter", '"></a>', "\n";
print '<div class="inner_left_rechts">',"\n";
print '<img src="sammler/artikel_pics/';
print $Bild;
print '" alt="">',"\n";
print "</div>\n";
print '<div class="inner_right_rechts">',"\n";
print '<p class="report">';
open(INHALT, "<../httpdocs/sammler/artikel_text/$Thema");
flock(INHALT, LOCK_SH);
$insert = <INHALT>;
close(INHALT);
print $insert;
print "</p>\n";
print "</div>\n";
print '<div class="big_line">',"\n";
print "</div>\n";
}
if($Layout1 eq "O") {
print "<!-- ############################## -->\n";
print "<!-- #Das ist die Klasse Text Oben# -->\n";
print "<!-- ############################## -->\n";
print "\n";
print '<a name="A'. "$counter", '"></a>', "\n";
print '<div class="inner_up_oben">',"\n";
print '<p class="report">';
open(INHALT, "<../httpdocs/sammler/artikel_text/$Thema");
flock(INHALT, LOCK_SH);
$insert = <INHALT>;
close(INHALT);
print $insert;
print "</p>\n";
print "</div>\n";
print '<div class="inner_down_oben">',"\n";
print '<img src="sammler/artikel_pics/';
print $Bild;
print '" alt="">',"\n";
print "</div>\n";
print '<div class="big_line">',"\n";
print "</div>\n";
}
if($Layout1 eq "U") {
print "<!-- ############################### -->\n";
print "<!-- #Das ist die Klasse Text Unten# -->\n";
print "<!-- ############################### -->\n";
print "\n";
print '<a name="A'. "$counter", '"></a>', "\n";
print '<div class="inner_up_unten">',"\n";
print '<img src="sammler/artikel_pics/';
print $Bild;
print '" alt="">',"\n";
print "</div>\n";
print '<div class="inner_down_unten">',"\n";
print '<p class="report">';
open(INHALT, "<../httpdocs/sammler/artikel_text/$Thema");
flock(INHALT, LOCK_SH);
$insert = <INHALT>;
close(INHALT);
print $insert;
print "</p>\n";
print "</div>\n";
print '<div class="big_line">',"\n";
print "</div>\n";
}
}
close(LESER);
print '<div class="wc_body">',"\n";
print "<ul>\n";
$i = 0;
foreach $LinkCollect (@LinkCollect) {
$i = $i+1;
print '<li><a href="#A'. "$i", '">', "$LinkCollect", "</a></li>\n";
}
print "</ul>\n";
print "</div>\n";
Und, nur zu Errinnerung *quengel*: Was ist jetzt mit dem dofen Anker? Ich habe die Selftinfos betreffend Verweise und Anker schon mehrmals durch.
Viele, liebe, herzliche *einschleim-bitte-bitte* Grüsse Gary ;-)