2017年02月24日

本日発売(じゃ、なかった。明日だった!)Interface(インターフェース) 2017年 04 月号、ビギナー向き ラズパイXクラウド人工知能、が読みたい!

今から買ってきます。

他にも、WIRED vol.27とか、佐藤 優さんの新刊とか
まとめて買ってこよう。

間違えてました。
25日発売でした。

先行販売もしておらず・・・。
明日買いに行きます。
結局、違う本・雑誌を買いました。
何年振りかの、「日経PC21」とか。


◎Interface(インターフェース) 2017年 04 月号:1,000円
Interface(インターフェース) 2017年 04 月号 -
Interface(インターフェース) 2017年 04 月号 -

◎Interface(インターフェース) 2017年 03 月号:円
Interface(インターフェース) 2017年 03 月号 -
Interface(インターフェース) 2017年 03 月号 -

◎日経Linux(リナックス)2017年3月号:円
試せる人工知能30選、特集は、強力です!
日経Linux(リナックス)2017年3月号 -
日経Linux(リナックス)2017年3月号 -

posted by アンドレアス at 10:58| Comment(0) | TrackBack(0) | 日記 | このブログの読者になる | 更新情報をチェックする

復習にも初めての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 | このブログの読者になる | 更新情報をチェックする