# Net::Hadoop::DFSAdmin::ReportParser * http://github.com/tagomoris/Net-Hadoop-DFSAdmin-ReportParser ## DESCRIPTION Parser module for output of 'hadoop dfsadmin -report'. use strict; use warnings; use Net::Hadoop::DFSAdmin::ReportParser; open($fh, '-|', 'hadoop', 'dfsadmin', '-report') or die "failed to execute 'hadoop dfsadmin -report'"; my @lines = <$fh>; close($fh); my $r = Net::Hadoop::DFSAdmin::ReportParser->parse(@lines); ### Results $VAR1 = { 'capacity_configured' => '35339596017664', 'capacity_present' => '33022305342866', 'capacity' => '33022305342866', # perfectly same as capacity_present 'used' => '18601463580050', 'used_percent' => '56.33', 'used_non_dfs_total' => '2317290674798', 'used_non_dfs_total_percent' => '6.56', 'remaining' => '14420841762816', 'remaining_percent' => '40.81', 'datanode_remaining_min' => '1569816522752', 'datanode_remaining_max' => '1629772095488', 'blocks_with_corrupt_replicas' => '6', 'blocks_under_replicated' => '15' 'blocks_missing' => '0', 'datanodes_num' => '9', 'datanodes_available' => '9', 'datanodes_dead' => '0', 'datanodes' => [ { 'name' => '10.0.0.1:50010', 'status' => 'normal', 'capacity_configured' => '3905711992832' 'used_dfs' => '2059255336448', 'used_percent' => '52.72', 'used_non_dfs' => '268170412544', 'remaining' => '1578286243840', 'remaining_percent' => '40.41', 'last_connect' => 'Wed Feb 01 12:56:17 JST 2012', }, # ... ], }; * * * * * ## License This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.