Opened by Gast at 2006-04-24 13:27
User since
2006-04-11
14 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-11
14 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
use strict;
use warnings;
use CGI qw( :all );
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
my $links = '/SAN/content/cgi-bin/links';
open (INFO, '<', $links)
or die "Fehler beim Oefnen von $links: $! ";
print $cgi->header('text/html');
print $cgi->start_html();
while (my $zeile = <INFO>) {
print $cgi->p('',$cgi->a({-href => $zeile},$zeile));
}
close (INFO);
print $cgi->end_html();
1;
So sieht mein File Links aus
Code: (dl
)
1
2
3
4
http://www.komacrew.com
Beschreibung: Das ist die erste Seite.
http://www.mouz.de
Beschreibung: Und das die zweite.
will jetzt erreichen das er das erste element also den wirklichen link natürlich nimmt aber was man sieht soll nur die beschreibung sein (als link) warum geht das dann bitte nicht so? :(
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl
use strict;
use warnings;
use CGI qw( :all );
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
my $i = 1;
my $links = '/SAN/content/cgi-bin/links';
open (INFO, '<', $links)
or die "Fehler beim Oefnen von $links: $! ";
print $cgi->header('text/html');
print $cgi->start_html();
while (my $zeile = <INFO>) {
print $cgi->p('',$cgi->a({-href => $zeile},$INFO[i]));
my $i = $i +1
}
close (INFO);
print $cgi->end_html();
1;
Hab oben doch eine neue Variable deklariert und unten beim print nimmt er doch dann "$zeile" also Element 0 (der link) und soll dann aber dafür ausgeben "$INFO[i]" also beim ersten mal Element 1 (Die Beschreibung) und dann erhöh ich $i aber so gehts leider net warum? :(
pls help