2017年02月24日

復習にも初めてのPerl学習、プログラミング学習にも役立つ「もっと自在にサーバを使い倒す 業務に役立つPerl」

ログから文字列検索したい場合、
file名と検索したい文字列を引数に指定する
Perlスクリプトです。

○環境
OS:Ubuntu 14.04.5 LTS
Perl:5.18.2

○使用方法:./modern_script.pl sample.txt clam

-----------------
modern_script.pl
-----------------
#!/usr/bin/perl

=head1 NAME
get_match_line.pl

=head1 SYNOPSIS
perl get_match_line.pl FILE STRING

=head1 DESCRIPTION

=cut

use strict;
use warnings;

my ($file,$match) = @ARGV;

die "Usage: $0 FILE STRING" unless $file && $match;

print_match_line($file,$match);

sub print_match_line{
my ($file,$match) = @_;

open my $fh,'<',$file or die qq{Can't open file: "$file": $!};

while(my $line=<$fh>){
print $line if index($line,$match) > -1;
}
close $fh;
}

もっと自在にサーバを使い倒す 業務に役立つPerl」P55参照

急に、なんだか良くわからないサーバーの
ログを見る羽目になった場合にも
Perlさえあれば、手軽に使用できます。
※最近は、Perlがインストールされていない場合も増えてますが。


◎もっと自在にサーバを使い倒す 業務に役立つPerl:3,002円
もっと自在にサーバを使い倒す 業務に役立つPerl (Software Design plus) -
もっと自在にサーバを使い倒す 業務に役立つPerl (Software Design plus) -

◎Perlベストプラクティス:円
Perlベストプラクティス -
Perlベストプラクティス -

◎初めてのPerl 第6版:円
初めてのPerl 第6版 -
初めてのPerl 第6版 -
posted by アンドレアス at 10:47| Comment(0) | TrackBack(0) | Perl | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。

この記事へのトラックバック