Thread Aufruf im Browser (12 answers)
Opened by Gast at 2006-04-24 13:27

renee
 2006-04-25 12:22
#7421 #7421
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=haijp,25.04.2006, 10:06][...]
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;

[...][/quote]
Was soll den $INFO sein?? Darüber verlierst Du hier kein Wort. Und i ist auch keine Variable (Du hast wahrscheinlich $i gemeint).

So sollte es funktionieren:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/perl

use strict;
use warnings;

use CGI qw( :all );
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;
my $url;
my $links = '/SAN/content/cgi-bin/links';

print $cgi->header('text/html');
print $cgi->start_html();

open (INFO, '<', $links)
or die "Fehler beim Oefnen von $links: $! ";

while (my $zeile = <INFO>) {
   if($. % 2 == 1){
     print $cgi->p('',$cgi->a({-href => $url},$zeile]));
   }
   else{
     $url = $zeile;
   }
}
close (INFO);
print $cgi->end_html();


Zur Bedeutung von $. siehe perlvar
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Aufruf im Browser