小编use*_*197的帖子

我一直在努力使perl程序工作数周.其他人写了它,从那以后数据源已被更改.我花了几周时间逐行搜索并做了教程.我被卡住了.代码说它@{ $Routings{$Code} }有一个值列表[ $ProcessID, $Setup, $Process ]但在代码的底部,foreach ( @{ $Routings{$Code} } ) {my $ProcessCodeID = @$_[0];}它似乎没有返回数据.如果有人甚至可以帮助我,print $ProcessCodeID那么我可以跟踪数据,这将是非常有帮助的.

此外,如果你能解释什么@{$value{$key}}代表真的会有所帮助.

谢谢堆.

%Routings = ();
my $dbh = DBI-> connect('dbi:ODBC:SQL')
    or die "Couldn't open Databaxe: $DBI::errstr;  stopped";

my $query= $dbh->prepare("SELECT Code, Setup, Process, ProcessID FROM ROUTING");

$query->execute() or die "Couldn't execute statement: $DBI::errstr; stopped";

while ( my ($Code, $setup, $process, $processid) = $query->fetchrow_array() ){
    push ( @{ $Routings{$Code} }, [ $ProcessID, $Setup, $Process …