Help for this page

Select Code to Download


  1. or download this
    &unpack_a( $lines[$_] ) if ( $RECORD_SEQ_ID eq 'A' );
&unpack_b( $lines[$_] ) if ( $RECORD_SEQ_ID eq 'B' );
&unpack_c( $lines[$_] ) if ( $RECORD_SEQ_ID eq 'C' );
  2. or download this
    my $fun = "&UNPACK_$RECORD_SEQ_ID('$lines[$_]')";