my ($NatureSwift)=($FileCfg=~m/(.*)\..*/);
^ Here $NatureSwift is set to "509"
$TABLETYPE{$NatureSwift}=1;
# LINE 339 STARTS HERE
^ Position "a"
$$NatureSwift{"CleSequenceRef"}=[@CleSequence];
^ Here that is used as the *name* for a hash
"509" is not a *word* that is valid as an identifier, which should start with _ or an alphabetical
@CleSequence="";
$$NatureSwift{"CodeSwiftSequenceRef"}=[@CodeSwiftSequence];
:
:
$$NatureSwift{"PreTraitementCmd"}=ConstantesSwiftImp::returnPreTraitementCmd(
);
Change that code to:
my ($NatureSwift)=($FileCfg=~m/(.*)\..*/);
$TABLETYPE{$NatureSwift}=1;
# LINE 339 STARTS HERE
my %ns;
$ns{"CleSequenceRef"}=[@CleSequence];
@CleSequence="";
$ns{"CodeSwiftSequenceRef"}=[@CodeSwiftSequence];
@CodeSwiftSequence="";
$ns{"NbCarSequence"}=[@NbCarSequence];
@NbCarSequence="";
$ns{"OptionsTranscoSequenceRef"}=[@OptionsTranscoSequence];
@OptionsTranscoSequence="";
$ns{"Paterne_Id"}=ConstantesSwiftImp::RegExId();
$ns{"Table_account"} = ConstantesSwiftImp::returnAccountTable();
$ns{"Autorisation_verif_account"} = ConstantesSwiftImp::returnAutorisationAccount();
$ns{"Autorisation_Import_Swift"} = ConstantesSwiftImp::returnAutorisationIndi();
$ns{"Autorisation_Import_Swift2"} = ConstantesSwiftImp::returnAutorisationIndi2();
$ns{"RegExIndincateurImp"} = ConstantesSwiftImp::returnRegExIndincateurImp2();
$ns{"Paterne_Ncompte"}= ConstantesSwiftImp::RegExNCompte();
$ns{"Paterne_NcompteBis"}= ConstantesSwiftImp::RegExNCompteBis();
$ns{"Paterne_CodeBranche"}=ConstantesSwiftImp::RegExcodeBranche();
$ns{"Paterne_CodeBrancheOutput"}=ConstantesSwiftImp::RegExcodeBrancheOutput();
$ns{"Paterne_DeviCode"}=ConstantesSwiftImp::RegExcodeDevise();
$ns{"LibName"}=ConstantesSwiftImp::LibName();
$ns{"PostTraitementCmd"}=ConstantesSwiftImp::returnPostTraitementCmd();
$ns{"PreTraitementCmd"}=ConstantesSwiftImp::returnPreTraitementCmd();
{ no strict "refs";
%{$NatureSwift} = %ns;
}
Enjoy, Have FUN! H.Merijn
Enjoy, Have FUN! H.Merijn
