Opened by pktm at 2004-02-27 21:58
User since
2003-08-11
457 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
457 Artikel
BenutzerIn
Hi die Zeile in der die Subroutine aufgerufen wurde bekommst du ueber caller im Listenkontext.
edit: das LINE Token erzeugt 'n Parsefehler\n\n
<!--EDIT|coax|1077917533-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
foo();
foo();
sub foo {
my($package, $filename, $line) = caller();
print "Aufgerufen in: $line\n";
}
edit: das LINE Token erzeugt 'n Parsefehler\n\n
<!--EDIT|coax|1077917533-->
,,Das perlt aber heute wieder...'' -- Dittsche