配列を使っての文字列抽出について

質問

よろしくお願いします。

コマンドラインから
>netstat -rnf inet
を打つと下の結果が表示されました。

*****************
Routing tables

Internet:
Destination Gateway Flags Refs Use Netif
default 192.168.AA.B UGSc 20 5 en0
127 127.0.0.1 UCS 0 0 lo0
127.0.0.1 127.0.0.1 UH 10 1948 lo0
169.254 link#4 UCS 0 0 en0
192.168.AA link#4 UCS 2 0 en0
192.168.AA.B 0:A:BB:CC:DD:EE UHLW 20 70 en0
192.168.AA.C 127.0.0.1 UHS 0 0 lo0
192.168.AA.DD link#4 UHLWb 3 47 en0
*****************

ここから、10行目の3項目「UHS」の文字列だけを取出したく、
次のPerlスクリプトをくみました。

1:open(IN,`netstat -rnf inet`);
2:while(<IN>){
3: next if /Routing.*/;
4: next if /\s/;
5: next if /Inter.*/;
6: next if /Desti.*/;
7: next if /default/;
8: chomp;
9: @A=split(/\s/ + / UHS /,IN);
10: print @B."\n";
11:}
12:close IN;

しかし、欲しい結果が得られません。
正規表現が間違っている事まではなんとか辿り着いたのですが、
どのように書いたら良いのか分かりません。
（3 - 7行目と、9行目）

どなたか教えて頂けませんでしょうか。
よろしくお願いいたします。

回答No.1

qtea · ベストアンサー

＞4: next if /\s/;

この場合、空白か改行がふくんでいれば、nextします。
なので、次行以降は処理されません。
たぶん、
next if /^$/;
でいけるのではないかと。

＞9: @A=split(/\s/ + / UHS /,IN);

これは、if文の書きかたからすると、
@A=split /\s+/;
くらいで良いのではないでしょうか？
(@A=split(/\s+/,$_);と同じ意味です)

＞10: print @B."\n";

@Bって…@Aの間違えですよね？
print @A."\n";
かな。
ただ、「.」で連結してしまうと、@Aをスカラーで評価してしまうので、@Aの個数を表示することになってしまいます。
せめて、ピリオドではなく、カンマくらいにしときましょう。
たぶん意図するものは、
print $A[2]."\n";
なのではないかと。

他はたぶん、大丈夫そうな感じです。

個人的には、
＞3: next if /Routing.*/;
これは、
next if /^Routing.*/
か
next if /^Routing/
と、行頭にマッチする、としたいですが…(他のとこもね)

お礼

ご返答ありがとうございます。
遅くなってすみません。
正規表現をいろいろと変えていたら何とか出来ました。
このあたりはややこしいですね。
ありがとうございました。