Ok .. I have been requested to provide more info ...
here is the first part of my program ...
#!/home/freetool/bin/perl5
open(CLI,"datablitz_dump") or die "datablitz_dump not found\n";
$iline = 0;
while(<CLI>)
{
if (/^Dn:/)
{
$iline++;
# ($dn1)= $_ =~ /^Dn: \w+ (\w+ = \d+)/;
$trav=$_;
$nbwd = ($trav =~ s/(\w+\s+=\s+\d+)//g);
$trav=$_;
$trav=~ s/Dn: //;
$walknbwd[$iline][0] = $nbwd;
for ($i=1;$i<=$nbwd;$i++)
{
# ($bid,$dns[$i-1]) = ($trav =~ /(\w+\s+(\w+\s+=\s+\d+),*\s*){$i}
+/);
($bid1,$bid2,$walkdns[$iline][$i-1],$walkdnval[$iline][$i-1]) =
+($trav =~ /(\w+\s+((\w+)\s+=\s+(\d+)),*\s*){$i}/);
}
I get the following syntax error during compliation
perlprog[3]: syntax error at line 3: '(' unexpected
If I replace line 3 with
open CLI, "database_dump";
I get the following errors during compliation
perlprog[3]: open: not found
perlprog[5]: =: not found
perlprog[7]: syntax error at line 7: ')' unexpected
I know this works in theory but I can't seem to run it on my machine ... my machine is the problem I think but I don't know why ...
Ta
Rich