%HashTempRec =
(
'Name' => '',
'AlarmConsistencyMgr' => '',
'AlarmForwarder' => '',
'AlarmForwarderServer' => '',
'alert_publisher' => '',
'AnalogGatewayMain' => '',
'AssetTracking' => '',
'CallerPosition' => '',
);
####
for each $item (@Dependency)
{
@HashTempRec = $item;
}
####
--Hash table definiion here--
$Test1 = "D:\\Profiles\\p57571\\Desktop\\Book3.csv";
if( -e $Test1)
{
print "Opening $Test1\n";
open(PACKAGEINPUT, "<$Test1");
my(@lines) = ;
foreach $temp(@lines)
{
chomp $temp;
if( $temp =~ m/\S/ig)
{
#find the extension
my $fileExt = substr( $temp, -3 ) ||'';
#this searches for exe's then any coresponding dlls
if( $fileExt eq 'exe' )
{
foreach my $element( split /,/, $temp)
{
if( $element =~ m/\.exe/)
{
#print "element = $element\n";
}
}
}
else
{
print "temp = $temp\n";
%HastTempRec = $temp;
}
}
}
}
else
{
print "$Test1 does not exist\n";
}