Perl

シェルへの組込み方法

perl -e

# perl -e 'while(<>){print $_;}' /etc/passwd
root:x:0:0:Super-User:/:/sbin/sh
daemon:x:1:1::/:
bin:x:2:2::/usr/bin:
sys:x:3:3::/:

 ※ 省略

#

perl -ane


 perl -ane を使用すると 配列@Fに格納される。
# cat aa.tmp
FILE=/var/adm/messages
DIR=/var/adm
FILE=/var/adm/syslog
#

FILE=以降の部分のみを表示する
# cat aa.tmp | \
  perl -ane 'foreach(@F){chomp;if(m/FILE=/){s/$&//;print $_."\n";}}'
/var/adm/messages
/var/adm/syslog
#
その他例

 検索対象(TargetHost)ホスト名に、
 検索する(SearchHost)ホスト名が含まれているかをチェックする。

SearchHost="host00,host01"
TargetHost="host11,host12,host13,host01"

MATCH=`echo $SearchHost $TargetHost | \
       perl -ane 'TOP:foreach $h (split(",",$F[1])){
                      foreach (split(",",$F[0])){if($h eq $_){print;last TOP}}}'`

if [ -n "$MATCH" ]; then
  echo "Host Match"
fi



戻る

      Document-Folder          一覧
HP-UX
HULFT
JAVA
JP1
JavaScript
Linux
MAC
PHP
Perl
Python
Ruby
SOA
Solaris
Unix全般
Windows
XML
エクセル
スタイルシート
セキュリティー
データベース
ネットワーク
パソコン
ブラウザ
プログラム構文
仮想化
          RSS-Folder
ニュース
   アットマーク・アイティ(@IT)
   シンクイット(ThinkIT)
   インターネットコム
   インターネットウォッチ
   日経IT-Pro
   日経パソコン
   CNET Japan
   ZD-NetJapan
   MYCOM
   RBB-Today
ベンダー
   日本IBM
   日本HP
   サンマイクロシステムズ
   NEC
   富士通
   日立
ソフトウェア
   マイクロソフト
   トレンドマイクロ
   オラクル
   サイボウズ
   Mozilla
   野村総合研究所
   (その他ソフトウェア企業)
更新履歴 一覧
 07/08 PERF
プログラム構文
 07/07 PERF
プログラム構文
 06/25 オブジェクトプログラミング2
Perl>サンプル
 07/12 クローン作成
仮想化>vCenter
 07/12 vyatta設定
ネットワーク>vyatta
 07/12 vyattaインストール
ネットワーク>vyatta
 07/12 リポジトリサーバ
Linux>サーバ構築
 07/05 VMwareのインストール
仮想化>VMware
 07/05 PXEブート
仮想化>KVM
 07/01 DHCPでのPXEブート
仮想化>KVM
 06/27 qcow2仮想DISK作成
仮想化>KVM
 06/13 NWの設定
仮想化>VMwareEsxi
 06/13 IPアドレスの変更
仮想化>VMwareEsxi
 06/12 自動ssh
Unix全般>シェル>Bash
 06/12 diffプログラミング
Python
Google