Perl Thrift客户到Hive？

脚步：

>下载,构建和安装Thrift：http://incubator.apache.org/thrift/download/.
不要忘记在lib / perl中安装代码.
>在Hive安装(http://svn.apache.org/viewvc/hive/)的下方,从Hive的SVN下载基础架构的.thrift文件.我使用过的文件：fb303.thrift,queryplan.thrift,hive_metastore.thrift和thrift_hive.thrift.
我手动找到它们,但可能有更好的方法.
>使用thrift生成Perl代码：
thrift -r –gen perl hive_service.thrift
注意：我必须为所需的包构建目录树,并对该树的根使用-I指令.我从错误节俭中得到了所需的结构,但同样,可能还有更优雅的方法.

现在,以下Perl代码,围绕Hive的客户端Wiki中的python示例行编写,对我有用：

use Thrift;  

use Thrift::Socket;  
use Thrift::FramedTransport;  
use Thrift::BinaryProtocol;  
use lib <LOCATION OF GENERATED PERL CODE>;  
use ThriftHive;  

# init variables ($host,$port,$query)
#  

my $socket = Thrift::Socket->new($host,$port);  
my $transport = Thrift::BufferedTransport->new($socket);  
my $protocol = Thrift::BinaryProtocol->new($transport);  
my $client = ThriftHiveClient->new($protocol);  

eval {$transport->open()}; #do something with Exceptions  
eval {$client->execute($query)};  

for (my $i = 0; $i < $count; $i++)  
{         
   my $row;  
   eval {$row = $client->fetchOne()};  

   #use $row  
}  

$transport->close();