Re: [PERL] prototypes

[Jan Eggert Kofoed <sslug@sslug>]

Ask Bjoern Hansen wrote:
> 
> On Sun, 25 Apr 1999, Jan Eggert Kofoed wrote:
> 
> Proev:
> 
>  jk(1,2,3);
> 
>  sub jk($$$) {
>      print("3.rd argument is $_[2]\n");
>  }
> 
> Anbefalet laesning:
> 
>   $ perldoc perlsub
> 
> Soeg efter "As of the 5.002 release of perl, if you declare", saa
> kommer du ned til afsnittet om prototypes. Jeg tror ikke at de er det
> du vil.
> 
>  - ask
> 
> --
> ask bjoern hansen - <http://www.netcetera.dk/~ask/>

Jeg siger mange tak! Jeg havde læst den del af dokumentationen, men bare
ikke gjort som der står. Den fanger i hvert fald de tilfælde, hvor
antallet
af argumenter ikke passer. Jeg lister mit eksempel her, for
fuldstændighedens
skyld.

____________________________________________________________________________
: # Use perl
eval 'exec perl -S $0 "$@"'
    if $running_under_some_shell;
# Forward declaration
sub jk($$$);

# Some Main function statements
print("jk is no longer having problems with forward declarations!\n");
$a = 3.5;

# Subroutine definition
sub jk($$$)
{
    print("3.rd argument is $_[2]\n");
    $_[2] = 4;
}

# Subroutine use
jk(1,2,$a);
print("Now 3.rd argument is $a\n");
____________________________________________________________________________

Med venlig hilsen
Jan Eggert Kofoed