Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
 |
|< 1 2 >| |  |
13 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$cgi = new CGI;
$links = '/SAN/content/cgi-bin/links';
open (INFO, $links);
@lines = <INFO>;
close (INFO);
foreach $zeile (@lines)
{
print $cgi->header('text/plain'), "$zeile\n\n";
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#!/usr/bin/perl -w use CGI; use CGI::Carp qw(fatalsToBrowser); $cgi = new CGI; $links = '/SAN/content/cgi-bin/links'; open (INFO, '<', $links) or die "Fehler beim Öffnen von $links: $!\n"; print $cgi->header('text/plain'); while (my $zeile = <INFO>) { print $zeile; } close (INFO);
use strict benutzen! Und - wie nepos schon gesagt hat - auch Fehler abfangen!Artikel. Und wenn es dann noch nicht funktioniert und Du eine 500er Fehlermeldung (Internal Server Error) bekommst, hilft Dir vielleicht dieser Artikel.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl -w
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$cgi = new CGI;
$links = '/SAN/content/cgi-bin/links';
open (INFO, '<', $links)
or die "Fehler beim Ãfnen von $links: $! ";
print $cgi->header('text/plain');
while (my $zeile = <INFO>) {
$cgi->a({-href => '$zeile'},'Link auf selfhtml.org')),
}
close (INFO);
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
$cgi->a({-href => $zeile},'Link auf selfhtml.org')), # ohne die single-quotes um $zeileQuote\n\nBitte
Und wie man sich eine Testumgebung baut, steht auch in einem
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl -w
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$cgi = new CGI;
$links = '/SAN/content/cgi-bin/links';
open (INFO, '<', $links)
or die "Fehler beim Ãfnen von $links: $! ";
print $cgi->header('text/plain');
while (my $zeile = <INFO>) {
$cgi->a({-href => '$zeile'},'Link auf selfhtml.org')),
}
close (INFO);
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/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'); # ! nicht /text/plain
print $cgi->start_html();
while (my $zeile = <INFO>) {
print $cgi->a({-href => $zeile},'Link auf selfhtml.org');
}
close (INFO);
print $cgi->end_html();
1;
|
|< 1 2 >| | |
13 Einträge, 2 Seiten |
![[Powered by Battie]](/battie/img/powered.png)
