l i n u x - u s e r s - g r o u p - o f - d a v i s
L U G O D
 
Next Meeting:
April 21: Google Glass
Next Installfest:
TBD
Latest News:
Mar. 18: Google Glass at LUGOD's April meeting
Page last updated:
2010 Nov 30 13:18

The following is an archive of a post made to our 'vox-tech mailing list' by one of its subscribers.

Report this post as spam:

(Enter your email address)
Re: [vox-tech] subroutine arguments with PERL
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [vox-tech] subroutine arguments with PERL



On 11/30/10 10:59 AM, Brian Lavender wrote:
> How do you tell perl to warn or not compile if you are not using
> the correct number of arguments in a subroutine?
>
> sub foo() {
>    my ($stat_ref, $record_number, $prev_line, $line, $line_number) = @_;
>    # do stuff
> }
>
> # say in my call, I put the wrong number of arguments.
>
> &foo($stat_ref, $record_number, $prev_line, $line, $line_number);

Remove the ampersand before foo...
foo($stat_ref, $record_number, $prev_line, $line, $line_number);

On Perl 5.10.1 that leads to the following error message:
Too many arguments for main::foo at /tmp/args.pl line 10, near 
"$line_number)"

If you put parenthesis after the subroutine name, you are telling Perl 
to check the type and number of arguments.  E.g. sub noargs() { }, sub 
onescalar($) { }, etc.

Cheers,
Matt

_______________________________________________
vox-tech mailing list
vox-tech@lists.lugod.org
http://lists.lugod.org/mailman/listinfo/vox-tech



LinkedIn
LUGOD Group on LinkedIn
Sign up for LUGOD event announcements
Your email address:
facebook
LUGOD Group on Facebook
'Like' LUGOD on Facebook:

Hosting provided by:
Sunset Systems
Sunset Systems offers preconfigured Linux systems, remote system administration and custom software development.

LUGOD: Linux Users' Group of Davis
PO Box 2082, Davis, CA 95617
Contact Us

LUGOD is a 501(c)7 non-profit organization
based in Davis, California
and serving the Sacramento area.
"Linux" is a trademark of Linus Torvalds.

Sponsored in part by:
EDGE Tech Corp.
For donating some give-aways for our meetings.