Opened by SirLant at 2003-08-17 23:34
User since
2003-08-04
704 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
704 Artikel
BenutzerIn
funktioniert doch? du hast nur ein problem, wenn du die subroutine als methode aufrufst (also $instanz->methode und nicht PACKAGE->subroutine). dann wird als erstes argument automatisch die instanz mitübergeben:
also datenschutz_link anpassen: (ja, das geht auch anders ...)
=>
Quotekabel@linux:~/progs/perl/sirlant> head index.cgi -n 15
#!e:/programme/bin/perl.exe -w
#index.cgi - Homepage der PseudEcom
use lib qw %./WebDB%;
#use WebDB;
use WebDB::PseudEcom;
use strict;
use CGI qw(:standard escape escapeHTML);
use CGI::Carp qw /fatalsToBrowser/;
my $peh = WebDB::PseudEcom->new ();
print $peh->datenschutz_link ("adf"), $/;
print WebDB::PseudEcom::datenschutz_link ("adf"), $/;
exit;
kabel@linux:~/progs/perl/sirlant> perl -w index.cgi
<a href="http://localhost/statisch.pl?seite=datenschutz">WebDB::PseudEcom=HASH(0x815ac9c)</a>
<a href="http://localhost/statisch.pl?seite=datenschutz">adf</a>
kabel@linux:~/progs/perl/sirlant>
also datenschutz_link anpassen: (ja, das geht auch anders ...)
Code: (dl
)
1
2
3
4
5
6
7
8
9
sub datenschutz_link
{
my $bez = shift;
my $self;
$self = $bez if ref $bez ==
$bez = shift;
return (create_link (statische_seite_url ("datenschutz"), $bez));
}
=>
Quotekabel@linux:~/progs/perl/sirlant> perl -w index.cgi
<a href="http://localhost/statisch.pl?seite=datenschutz">adf</a>
<a href="http://localhost/statisch.pl?seite=datenschutz">http://localhost/statisch.pl?seite=datenschutz</a>
kabel@linux:~/progs/perl/sirlant>
-- stefan