Home > Archive > PERL Miscellaneous > September 2004 > Order of subroutines
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
Order of subroutines
|
|
| Aris Xanthos 2004-09-28, 9:03 am |
| Hi,
I have a problem with the order of subroutines
and I couldn't find help about that in books or
online.
Could someone tell me why this code works fine:
------------------
#!/usr/bin/perl
Function1();
sub Function1() {
Function2( 'arg' );
}
sub Function2() {
my ( $arg ) = @_;
}
------------------
and not this one:
------------------
#!/usr/bin/perl
Function1();
sub Function2() {
my ( $arg ) = @_;
}
sub Function1() {
Function2( 'arg' );
}
------------------
which yields the following error message:
Too many arguments for main::Function2 at
D:\Developpement\Perl\test.pl line 10, near "'arg' )"
Execution of D:\Developpement\Perl\test.pl
aborted due to compilation errors.
I have this problem in the framework of a rather
long (tk) script (about 2'000 lines so far), and the
calls to various subroutines are getting too intricate
for me to find an order that works (besides, it is not
a satisfying solution).
I hope this does not duplicate a previous post.
Aris Xanthos
| |
| Josef Moellers 2004-09-28, 9:03 am |
| Aris Xanthos wrote:
> Hi,
>=20
> I have a problem with the order of subroutines
> and I couldn't find help about that in books or
> online.
>=20
> Could someone tell me why this code works fine:
>=20
> ------------------
> #!/usr/bin/perl
>=20
> Function1();
>=20
> sub Function1() {
> Function2( 'arg' );
> }
>=20
> sub Function2() {
> my ( $arg ) =3D @_;
> }
>=20
> ------------------
>=20
> and not this one:
>=20
> ------------------
> #!/usr/bin/perl
>=20
> Function1();
>=20
> sub Function2() {
> my ( $arg ) =3D @_;
> }
>=20
> sub Function1() {
> Function2( 'arg' );
> }
>=20
> ------------------
>=20
> which yields the following error message:
>=20
> Too many arguments for main::Function2 at=20
> D:\Developpement\Perl\test.pl line 10, near "'arg' )"
> Execution of D:\Developpement\Perl\test.pl=20
> aborted due to compilation errors.
It's as it says:
In the first case, the compiler cannot know how much arguments Function2 =
accepts, because the prototype of Function2 happens after the call, so=20
it assumes 1 argument is OK. In the second case, it can determine that=20
Functon2 does not accept any arguments, so it complains.
If you change the definition of Function 2 to
sub Function2($)
the compiler will know that it accepts a single argument and will be=20
satisfied. If you change it to
sub Function2
the compiler will know that you don't care and will be satisfied.
HTH,
Josef
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
| |
| Gunnar Hjalmarsson 2004-09-28, 9:03 am |
| Aris Xanthos wrote:
> I have a problem with the order of subroutines
> and I couldn't find help about that in books or
> online.
>
> Could someone tell me why this code works fine:
>
> ------------------
> #!/usr/bin/perl
use strict;
use warnings;
and let Perl hint you about possible problems.
> Function1();
>
> sub Function1() {
----------------^^
Why are you using prototypes? If you don't know, you shouldn't do that.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
| |
| Paul Lalli 2004-09-28, 4:11 pm |
| "Aris Xanthos" <Aris.Xanthos@ling.unil.ch> wrote in message
news:b3b0e6f5.0409280258.51e7d232@posting.google.com...
> Hi,
>
> I have a problem with the order of subroutines
> and I couldn't find help about that in books or
> online.
>
> Could someone tell me why this code works fine:
>
> ------------------
> #!/usr/bin/perl
>
> Function1();
>
> sub Function1() {
> Function2( 'arg' );
> }
>
> sub Function2() {
> my ( $arg ) = @_;
> }
If you had warnings enabled, you would see that while this code 'works',
it certainly doesn't work 'fine'. Indeed, that warning message would
help you to understand why the second snippet doesn't work at all.
Please ask the Perl interpreter for help before asking thousands of
people on the internet for help.
Paul Lalli
> and not this one:
> ------------------
> #!/usr/bin/perl
>
> Function1();
>
> sub Function2() {
> my ( $arg ) = @_;
> }
>
> sub Function1() {
> Function2( 'arg' );
> }
>
| |
|
|
| Tony Skelding 2004-09-28, 4:11 pm |
| Aris.Xanthos@ling.unil.ch (Aris Xanthos) wrote in message news:<b3b0e6f5.0409280258.51e7d232@posting.google.com>...
> Hi,
>
> I have a problem with the order of subroutines
> and I couldn't find help about that in books or
> online.
>
> Could someone tell me why this code works fine:
>
> ------------------
> #!/usr/bin/perl
>
> Function1();
>
> sub Function1() {
> Function2( 'arg' );
> }
>
> sub Function2() {
> my ( $arg ) = @_;
> }
>
> ------------------
>
> and not this one:
>
> ------------------
> #!/usr/bin/perl
>
> Function1();
>
> sub Function2() {
> my ( $arg ) = @_;
> }
>
> sub Function1() {
> Function2( 'arg' );
> }
>
> ------------------
>
> which yields the following error message:
>
> Too many arguments for main::Function2 at
> D:\Developpement\Perl\test.pl line 10, near "'arg' )"
> Execution of D:\Developpement\Perl\test.pl
> aborted due to compilation errors.
>
> I have this problem in the framework of a rather
> long (tk) script (about 2'000 lines so far), and the
> calls to various subroutines are getting too intricate
> for me to find an order that works (besides, it is not
> a satisfying solution).
>
> I hope this does not duplicate a previous post.
>
> Aris Xanthos
You probably don't realise that you are defining a prototype for
Function2, i.e.
sub Function2() {
....
says that the function should expect no parameters. Leave the () off
and it will be unprototyped.
The reason the first example works OK is that the prototype for
Function2 has not been compiled at the time that Function1 is
compiled.
| |
| Andres Monroy-Hernandez 2004-09-28, 4:11 pm |
| Try not using empty prototypes. Your code would be cleaner if you had:
Function1();
sub Function2 {
my ( $arg ) = @_;
}
sub Function1 {
Function2('arg');
}
It seems that there is no need for prototypes.
---
-Andres Monroy-Hernandez
| |
| Aris Xanthos 2004-09-29, 8:05 pm |
| Thank you for your answers, all of them help.
Indeed I should have used strict and warnings.
Aris Xanthos
|
|
|
|
|