hi , iam new to perl i am trying to understand this code please tell me more about this code .what i need to learn to understand this code
my $sql = "exec pr_SelectPhysicalLocation $Build,$operatingsystem";
if ($mydb->Sql($sql))
{
Win32::ODBC:umpError();
}
if ($mydb->FetchRow())
{
%Info = $mydb->DataHash();
$SourcePath = $KitInfo{PhysicalLocation};
$Baseline = $KitInfo{BaselineVersionShortName};
writelog(info,"destdir = $SourcePath");
}
$mydb->Close();
my $sql = "exec pr_SelectPhysicalLocation $Build,$operatingsystem";
if ($mydb->Sql($sql))
{
Win32::ODBC:umpError();
}
if ($mydb->FetchRow())
{
%Info = $mydb->DataHash();
$SourcePath = $KitInfo{PhysicalLocation};
$Baseline = $KitInfo{BaselineVersionShortName};
writelog(info,"destdir = $SourcePath");
}
$mydb->Close();