내 스크립트로 들어오는 로그 라인을 배열 참조로 파싱하려고합니다. 이 로그 라인이 특정 값을 추출하기 위해 전달되는 또 다른 서브 루틴이 있지만 함수가 로그 라인을 수신하지 않고 값 1을 얻는 것처럼 보입니다.이 작업은 배열 ref를 역 참조하려고 할 때 발생합니다. 그것을 스칼라에도 할당하십시오. 서브 루틴 호출이 print Dumper ($logline
배열의 내용이 인쇄 될 때 hashref2의 key3에 원하는 값이 없습니다 (달성해야 할 대상은 hashref1이 key3의 배열을 value1로 가지는 것입니다. hashref2는 value2를 갖는 key3의 배열을가집니다). 코드 흐름에서 먼저 hashrefs를 채우고 데이터를 하위 배열로 푸시해야합니다. 하위 배열에 대한 참조를 사용하면 올바른 방
DBIselectall_array을 사용하여 mysql에서 모든 데이터를 가져옵니다. 내 쿼리는 모든 행에 대해 1 개의 열을 반환합니다. 내가하고 싶은 것은 모든 하나의 배열에 도메인 (NO 심판) 또는 추출하는 방법입니다 $VAR1 = [
'1.ptmp'
];
$VAR2 = [
'e1.ptmp'
];
$
나는 이것에 관한 많은 기사를 보았고 아무도 저를 위해 일하지 않습니다. > {참조} (또는 문제에 접근하는 더 나은 방법을 이야기한다 - $var1->{reference} = sql_get_rows();
sub sql_get_rows(){
etc
return ($sth->fetchall_arrayref());
};
내가하고 싶
저는 perl에 익숙하지 않아 웹 페이지를 유지 관리하는 임무를 부여 받았습니다. 수정 방법을 모르는 버그를 발견했습니다. perl 스크립트가 다음 코드에서 중지됩니다. my @failedTests = (sort(keys ($TestResultsData{$currPlatform}{$currDate}{failedtests})));
while (@failed