Problems with split

[Andy Roden]

Anyone help out...

%router_tables is something like (1.1.1.1|cisco, 2.2.2.2|juniper etc)

foreach $i (sort keys %router_tables)
{
        next if ($i =~ "unknown");
        ($router_table{i},$router_type{$i}) = split(/\|/, 
$router_tables{i});
        if ($router_table{i} ne "") {
        print SH "\"$router_table{$i}\" ";
        }
        else {
        print SH "\"$router_tables{$i}\" ";
        }
}

For some reason, the script doesn't execute the split as I would hope
(giving $router_table{i} = 1.1.1.1  $router_type{i} = cisco) it just
returns two blanks (and hence prints out the $router_tables{$i} as its
told to

Any help appreciated

Andy