1
2
3
4
5
6
7
8
9
10
...
# set the type
$entry->{type} = $type ;
# set the filename
$entry->{filename} = $filename ;
# make a safe url
$entry->{url} = make_safe_url ($filename) ;
2011-09-06T18:29:11 AndiE„... Thus, llgal generates static web-pages. “Wie fügt man das in Perl ein? In der Beschreibung habe ich nichts dazu gefunden.
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/usr/bin/perl use strict; use warnings; use CGI qw(:all); charset('iso-8859-1'); print header(-type=>'text/html'); print start_html, h1('Überschrift'), p('Das ist Text und ein ', a({-href=>'http://example.org'}, 'Link')), end_html;
1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl use strict; use warnings; use CGI qw(:all); charset('iso-8859-1'); print start_html, h1('Überschrift'), p('Das ist Text und ein ', a({-href=>'http://example.org'}, 'Link')), end_html;