Subroutine in Package - #147500 (Allgemeines zu Perl)

topeg

2011-04-09 15:41

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Es kommt auf den Aufruf an:

Code (perl): (dl )

package test_package;

sub func
{
  print "VALS: @_\n";
  my $val=@_>1?$_[1]:$_[0];
  print "VALUE:$val\n";
}

package main;

test_package->func('test1');
print "###############################\n";
test_package::func('test2');