모듈 perl에서 해시를 반환하는 방법

Question

그래,이 질문은 당분간 저를 괴롭 혔습니다. 데이터베이스에 연결하고 쿼리의 값을 반환하는 모듈을 실행하고 있습니다. 모듈을 호출하고 모듈의 서브 루틴에서 값을 반환하려고하는 스크립트가 있습니다. 코드는 말보다 더 나은이기 때문에하지만, 여기에 내가 가진 무엇 :

내 모듈의

sub selectCustomerName ($code){ 
    connectDB() or die "Failed in subroutine"; 
    #Selects customer name from customer table where code is $code 
    my $selectName = "SELECT * FROM customers WHERE code = ?"; 
    my $sth = $dbh->prepare($selectName); 
    $sth->execute($code); 
my $hash = $sth->fetchrow_hashref; 
$hash->{customer_name} = $name; 
return $name; 
$sth ->finish(); 
$dbh->disconnect(); 
} 

, 여기 내 스크립트입니다 : 변수를 장난과 스위칭을 많이에서

#!/usr/bin/perl 
require Connect; 
use warnings; 
my $dbh = Connect::connectDB(); 
my $results = Connect::selectCustomerName('38d'); 
print $results; 

나는 인쇄에있어 0 및 해시 참조는 있지만 해시의 실제 값은 아닙니다. 어떤 도움이라도 대단히 감사 할 것입니다!

Answer 1

몇 가지 실수가 있습니다. 이 시도 :

use strict; use warnings; # never forget this 2 pragmas 
use Data::Dumper; # print what's inside data structures or object 

sub selectCustomerName { 
    my $code = shift; # or my ($code) = @_; 

    connectDB() or die "Failed in subroutine"; 
    #Selects customer name from customer table where code is $code 
    my $selectName = "SELECT * FROM customers WHERE code = ?"; 
    my $sth = $dbh->prepare($selectName); 
    $sth->execute($code); 
    my $hash = $sth->fetchrow_hashref; 
    print Dumper $hash; 
    $name = $hash->{customer_name}; 
    $sth ->finish(); 
    $dbh->disconnect(); 
    return $name; 
} 

• 을 당신이 return 후 finish() & disconnect()를 넣어 경우, 그들은 호출되지 않습니다.

Answer 2

실제로 가장 가까운 방법은 아마도 Data::Dumper입니다.

#!/usr/bin/perl 

use strict; 
use warnings; 

require Connect; 
use Data::Dumper; 

my $dbh = Connect::connectDB(); 
my $results = Connect::selectCustomerName('38d'); 
print Dumper $results; 

하지만 해시 레퍼런스가 있다면 당신은 %{$hash_ref}를 사용하여 복종 할 수 있으며, 다른 해시를 사용로 사용합니다.

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 

require Connect; 

my $dbh = Connect::connectDB(); 
my $results = Connect::selectCustomerName('38d'); 

foreach (keys %{$results}) { 
    say "Key: $_, Value: $results->{$_}"; 
}