Help for this page
sub mysort (&@) { my $sub = ref $_[0] eq 'CODE' ? shift : sub {...}; ... mysort {...} 'x', 'y', 'z'; mysort \&subname, 'x', 'y', 'z'; &mysort( 'x', 'y', 'z');
www.com | www.net | www.org
No recent polls found
