Re: Reading Code

[EDonnelly]

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));