perl - Linux コマンド「ifconfig」を模倣する perl スクリプトの作成に関する問題

Question

Linux でコマンドを模倣する Perl スクリプトを作成する課題がありますifconfig。このコマンドは基本的に、ネットワーク インターフェイスに関する情報を表示します。私はすでにプログラムを作成しましたが、数行でいくつかの問題が発生しています。誰かがコードを修正していただければ幸いです。私が得ているエラーはそれを言っていますが$get_iface_data requires an explicit package name at line 8、それを宣言する方法がわかりません。

#!/usr/bin/perl
use strict;
use warnings;
use Net::Int::Stats;
use Net::Ifconfig::Wrapper;

my $Iface   = $ARGV[0];
my $rx_packets  = $get_Iface_data->value($Iface, 'rx_packets');
my $Iface_Info = Net::Ifconfig::Wrapper::Ifconfig('list', '', '', '');
print "\tether ". $Iface_Info->{$Iface}{'ether'}."\n";

私の課題では、基本的に、ifconfigコマンドが行うように、インターフェースを入力として取得し、そのインターフェースに関する情報を表示する必要があります。また、2 つのパッケージを使用Net::Int::StatsしNet::Ifconfig::Wrapperました。ifconfig私のスクリプトとコマンドの唯一の違いは、私のスクリプトはパラメーターとしてインターフェイスを必要とすることです

Answer 1

Net::Int::Stats オブジェクトを作成する行がありません:

#!/usr/bin/perl
use strict;
use warnings;
use Net::Int::Stats;
use Net::Ifconfig::Wrapper;

my $Iface   = $ARGV[0];
my $get_Iface_data = Net::Int::Stats->new();
my $rx_packets  = $get_Iface_data->value($Iface, 'rx_packets');
my $Iface_Info = Net::Ifconfig::Wrapper::Ifconfig('list', '', '', '');
print "\tether ". $Iface_Info->{$Iface}{'ether'}."\n";