26. november 2001 - 00:59
Der er
3 kommentarer og 1 løsning
Farve i cgi-scripts
Hvordan får jeg følgende cgi script til at komme med sit resultat i farven : #FFE796 #!/usr/bin/perl eval { ($0 =~ m,(.*)/[^/]+,) && unshift (@INC, \"$1\"); ($0 =~ m,(.*)\\\\[^\\\\]+,) && unshift (@INC, \"$1\"); require \"admin/links.cfg\"; require \"$db_lib_path/db_utils.pl\"; require \"$db_lib_path/links.def\"; }; if ($@) { print \"Content-type: text/plain\\n\\n\"; print $@; exit; } &main; sub main { my @data = `tail -$max_new $db_links_name`; my $i = 0; print \"Content-type: text/html\\n\\n\"; print \"<table>\"; foreach (@data) { $i++; chomp; split /\\|/; print qq|<tr><td>$i.</td><td><a href=\"$_[$db_url]\" target=\"_blank\">$_[$db_title]</a></td></tr>|; } print \"</table>\"; }
Annonceindlæg fra QNAP
26. november 2001 - 01:20
#1
#!/usr/bin/perl eval { ($0 =~ m,(.*)/[^/]+,) && unshift (@INC, \"$1\"); ($0 =~ m,(.*)\\\\[^\\\\]+,) && unshift (@INC, \"$1\"); require \"admin/links.cfg\"; require \"$db_lib_path/db_utils.pl\"; require \"$db_lib_path/links.def\"; }; if ($@) { print \"Content-type: text/plain\\n\\n\"; print $@; exit; } &main; sub main { my @data = `tail -$max_new $db_links_name`; my $i = 0; print \"Content-type: text/html\\n\\n\"; print \"<table>\"; foreach (@data) { $i++; chomp; split /\\|/; print qq|<tr><td><font color=\"#FFE796\">$i.</font></td><td><a href=\"$_[$db_url]\" target=\"_blank\"><font color=\"#FFE796\">$_[$db_title]</font></a></td></tr>|; } print \"</table>\"; }
26. november 2001 - 01:27
#2
Ups. jeg mente endeligt baggrundsfarven. Thomas, vil du give svaret for de samme point ?
26. november 2001 - 01:42
#3
Yahoo. Thomas - Du gav mig indirekte løsningen Tak
Kurser inden for grundlæggende programmering