Try www.sharemation.com/~perl/tut
those are some beginners tutorials i wrote that should explain most of your
questions
hth,
Jos Boumans
[EMAIL PROTECTED] wrote:
> I am totally new to Perl and I have no training in perl at all and I was
> asked to look at tons of code and basically translate to english.....I have
> an idea what this code does but it small bits like @_; that I havn't a clue
> about and their doesn't seem to be any really good sites for total
> beginners.
>
>
> Jos Boumans
> <boumans@frg. To: [EMAIL PROTECTED]
> eur.nl> cc: [EMAIL PROTECTED]
> Subject: Re: Reading Code
> 25/06/01
> 15:52
>
>
>
> This wouldnt, by chance, be your homework now would it?
>
> [EMAIL PROTECTED] wrote:
>
> > Can anyone tell me how to read this bit of code in english ?
> >
> > > sub accum_cycle_count
> > > {
> > > # @acc_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(@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));
