1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; test(); sub test { my @caller = caller(1); print Dumper(\@caller); }
Quote$VAR1 = [];
2012-07-06T17:00:37 pqversuchs mal mit caller(0)
2012-07-06T17:07:58 GwenDragoncaller() liefert sehr wohl was bei dir.