$::folder = 'E:\FOLDER\Test\WEB';
$::config = {
license => 'kit-licence.zip',
programs => [
#template society =>\%program_work
'VIKTOR DESCRIPTION PRODUCT' => {
name => 'VIKTOR ',
parameters => [
Count_id => '06 (Viktor)',
Birth_date => '1995-04-30',
Marriage_date => '2014-05-26',
Divorce_date => '2015-03-30',
Activities_folder => $folder.'\VIKTOR\independent worker',
Activities_format => 'Enterprise Format (V35)',
Description_File_from => $folder.'\VIKTOR\FILE\description.xlm',
]
},
]
};
####
#! perl -slw
use strict;
use Data::Dump qw [ pp ];
do 'work.conf' or die $!;
print $::folder;
pp $::config;
####
C:\test>junk
Name "main::folder" used only once: possible typo at C:\test\junk.pl line 7.
Name "main::config" used only once: possible typo at C:\test\junk.pl line 9.
E:\FOLDER\Test\WEB
{
license => "kit-licence.zip",
programs => [
"VIKTOR DESCRIPTION PRODUCT",
{
name => "VIKTOR ",
parameters => [
"Count_id",
"06 (Viktor)",
"Birth_date",
1995-04-30,
"Marriage_date",
2014-05-26,
"Divorce_date",
2015-03-30,
"Activities_folder",
"E:\\FOLDER\\Test\\WEB\\VIKTOR\\independent worker",
"Activities_format",
"Enterprise Format (V35)",
"Description_File_from",
"E:\\FOLDER\\Test\\WEB\\VIKTOR\\FILE\\description.xlm",
],
},
],
}