-5

値を検索して印刷するのに問題があります。これは私がこれまでに持っているものです。私は何を間違っていますか？出力を検索して目的の出力を取得するにはどうすればよいですか?

my $host = $ARGV[0];
my $port = $ARGV[1];
my $domain = $ARGV[2];
my $bean = $ARGV[3];
my $get = $ARGV[4];

open(FILE, ">", "/home/hey");
print FILE "open $host:$port\n";
print FILE "domain $domain\n";
print FILE "bean $bean\n";
print FILE "get -s $get\n";
print FILE "close\n";
close FILE;    
open JMX, "/root/jdk1.6.0_37/bin/java -jar /var/scripts/jmxterm-1.0-alpha-4-uber.jar -v      silent -n < /home//hey |";
open (dbg, ">", "/home/donejava1");
#print JMX "help \n";

foreach ( <JMX> )
{
chomp;
print $_;
open (LOG, ">", "/home/out1");
print LOG $_;
close LOG;
}

//出力

{
committed = 313733;
init = 3221225472;
max = 3137339392;
used = 1796598680;
}

// 属性 "used" を探して 1796598680 を出力するにはどうすればよいですか?

4

1 に答える 1

2

次の例はあなたに解決策を提供するはずです。

perl -lne'print $1 if /used\s*=\s*(\d+);/' filename
于 2013-01-17T17:53:30.123 に答える