Help for this page

Select Code to Download


  1. or download this
    
    my $li_insert =  "insert into LI values(LI_SEQ.nextval,?,?,?,?,?,?,?,?
    +,?,sysdate,?,?,?,?)";
    my $mechanism_insert = "insert into mechanism (TAGET,ACTIONTYPE,ID,LI_
    +ID) values(?,?,MECH_SEQ.nextval,LI_SEQ.currval)";
    
  2. or download this
    5,2,1,12
    6,1,2,12.
    
  3. or download this
    {
    'taget '=> [5,6],
    'Action_type' =>[2,1]
    }
    
  4. or download this
    # to get each hash from an array of hash 
    foreach my $results(@$hash_of_excel){
    ...
    sub insertMech{
    my ($mech_results ) = @_; 
    my $mech_array_values = SomethingUnPipeModifyRecord($mech_results);