No, subroutines only get run if you explictitly run them:
<code>
#!/usr/bin/perl -w
use strict;
&runme(); #run the runme subroutine
sub runme {
print "You ran me!\n";
}
sub do_not_run_me {
print "Why did you run me?\n";
}
</code>
Based on the fact that the file ends with 1; I am willing to bet this is
a module that another perl file is including with the use command (Like
I included "strict" in my example).
On 21 Jun 2001 15:16:21 +0100, [EMAIL PROTECTED] wrote:
>
> Does that mean that it will run 4 different sub routines ?
>
>
>
>
>
> Chas Owens
>
> <cowens@inter To: [EMAIL PROTECTED]
>
> call.com> cc: [EMAIL PROTECTED]
>
> Subject: Re: SUB ?
>
> 21/06/01
>
> 14:55
>
>
>
>
>
>
>
>
> Which one? I count four.
>
> On 21 Jun 2001 15:02:52 +0100, [EMAIL PROTECTED] wrote:
> > If it is sub routine, What does this mean ?
> >
> > ----- Forwarded by Elaine Donnelly/Saturn on 21/06/01 14:49 -----
> >
>
> > [EMAIL PROTECTED]
>
> > rndisc.com To: [EMAIL PROTECTED]
>
> > cc:
>
> > 21/06/01 15:00 Subject: SUB ?
>
> >
>
> >
>
> >
> >
> >
> > Hi All,
> >
> > Can you tell me what this sub is. Is it sub routine ?
> >
> > Regards,
> > Elaine.
> >
> >
> > local(@acc_fields) = @_;
> > return(-810) if ( $acc_fields[0] == 0 || $acc_fields[0] eq '' );
> > return(-811) if ( $acc_fields[1] eq "" );
> > return(-812) if ( $acc_fields[2] eq "" );
> > return(-813) if ( $acc_fields[7] < 0 );
> > $acc_fields[8] = &get_date if ( $acc_fields[8] eq '' );
> >
> > return(&send_ddc("tdilc5110b000","accum_cycle_count",@acc_fields));
> > }
> >
> > sub ilc_cycle_counting
> > {
> > # @icc_fields are:
> > # 0 - Cycle Counting Order
> > # 1 - Warehouse
> > # 2 - Location
> > # 3 - Item Code
> > # 4 - Container
> > # 5 - Lot Code
> > # 6 - Storage Unit
> > # 7 - Counted Inventory
> > # 8 - Counting Date
> >
> > local(@icc_fields) = @_;
> > return(-810) if ( $icc_fields[0] == 0 || $icc_fields[0] eq '' );
> > return(-811) if ( $icc_fields[1] eq "" );
> > return(-812) if ( $icc_fields[2] eq "" );
> > return(-813) if ( $icc_fields[7] < 0 );
> > $icc_fields[8] = &get_date if ( $icc_fields[8] eq '' );
> >
> > return(&send_ddc("tdilc5110b000","ilc_cycle_counting",@icc_fields));
> > }
> >
> > #
> >
> -----------------------------------------------------------------------------
>
> >
> > # called from ccount form to ensure wharehouse/order combination is valid
> > #
> >
> -----------------------------------------------------------------------------
>
> >
> >
> > sub validate_whse_order
> > {
> > local($whse) = $_[0];
> > local($corder) = $_[1];
> >
> > return if ($whse eq "");
> > return if ($corder eq "");
> >
> > &display_status("Checking Order...");
> > $select = "SQL$;VALCCORDER$;${company}$;N$;$;${corder}$;${whse}";
> > return(&send_dc($select));
> > }
> >
> > sub item_loc_on_ccorder
> > {
> > my($item,$loc,$corder) = @_;
> >
> > return if ($item eq "");
> > return if ($loc eq "");
> > return if ($corder eq "");
> >
> > &display_status("Checking Item/Loc...");
> > $select = "SQL$;ITMLOCCCORDER$;${company}$;N$;$;${corder}$;${item}$;
> > ${loc}";
> > return(&send_dc($select));
> > } # item_loc_on_ccorder
> >
> > sub get_ccorder_item_date
> > {
> > my($item,$location,$order,$warehouse,$lot) = @_;
> >
> > &display_status("Checking Item/Loc...");
> > $select = "SQL$;CCORDERDATE$;${company}$;N$;$;${order}$;${warehouse}
> $;
> > ${location}$;${item}$;${lot}";
> > ### return(&send_dc($select));
> > $return = &send_dc($select);
> > ($cdate) = split($;,$err_msgs[0]);
> > if ( $return == 1 )
> > {
> > return 0;
> > }
> > else
> > {
> > return 1;
> > }
> > } #
> >
> > 1;
> >
> >
> >
> >
> >
> >
> >
> --
> Today is Boomtime, the 26th day of Confusion in the YOLD 3167
> P'tang!
>
>
>
>
>
>
>
--
Today is Boomtime, the 26th day of Confusion in the YOLD 3167
Hail Eris, Hack Linux!
