「Perl」の版間の差分

提供: fukudat.net
ナビゲーションに移動検索に移動
 
(同じ利用者による、間の2版が非表示)
1行目: 1行目:
 
Perl に関する覚書。
 
Perl に関する覚書。
 +
 +
== Plenv ==
 +
https://github.com/tokuhirom/plenv を参照してインストール。
 +
 +
<pre>
 +
$ git clone https://github.com/tokuhirom/plenv.git ~/.plenv
 +
</pre>
 +
 +
次のコードを .bash_profile に入れる。
 +
<pre>
 +
if [ -d ~/.plenv]; then
 +
  eval $(~/.plenv/bin/plenv init -)
 +
fi
 +
</pre>
 +
 +
=== plenv-update ===
 +
<pre>
 +
$ mkdir -p ~/.plenv/plugins
 +
$ git clone git@github.com:Tacahilo/plenv-update.git $PLENV_ROOT/plugins/plenv-update
 +
</pre>
 +
 +
次のコマンドで plenv とそのプラグインがアップデートされる。
 +
<pre>
 +
$ plenv update
 +
</pre>
  
 
== Database Interface ==
 
== Database Interface ==
 
DBI を使う。データベースの種類ごとに driver をインストールする。
 
DBI を使う。データベースの種類ごとに driver をインストールする。
MySQLなら、MySQLの開発省ライブラリを事前にインストールが必要となる。
+
MySQLなら、MySQL用の開発ライブラリを事前にインストールする必要がある。
  
 
=== Install (Ubuntuの場合) ===
 
=== Install (Ubuntuの場合) ===
14行目: 39行目:
 
Syslogにログを残したいときは、Sys::Syslog を使う。
 
Syslogにログを残したいときは、Sys::Syslog を使う。
  
Install:
+
=== Install ===
 
<pre>
 
<pre>
 
$ sudo cpan Sys::Syslog
 
$ sudo cpan Sys::Syslog
 
</pre>
 
</pre>
  
使い方(snipet):
+
===  使い方 ===
 
<pre>
 
<pre>
 
use Sys::Syslog qw(:standard :macros :extended);
 
use Sys::Syslog qw(:standard :macros :extended);

2021年7月5日 (月) 09:36時点における最新版

Perl に関する覚書。

Plenv

https://github.com/tokuhirom/plenv を参照してインストール。

$ git clone https://github.com/tokuhirom/plenv.git ~/.plenv

次のコードを .bash_profile に入れる。

if [ -d ~/.plenv]; then
  eval $(~/.plenv/bin/plenv init -)
fi

plenv-update

$ mkdir -p ~/.plenv/plugins
$ git clone git@github.com:Tacahilo/plenv-update.git $PLENV_ROOT/plugins/plenv-update

次のコマンドで plenv とそのプラグインがアップデートされる。

$ plenv update

Database Interface

DBI を使う。データベースの種類ごとに driver をインストールする。 MySQLなら、MySQL用の開発ライブラリを事前にインストールする必要がある。

Install (Ubuntuの場合)

$ sudo apt-get install libmysql++-dev libmysql++3v5 libmysqlclient-dev
$ sudo cpan DBI DBD::mysql 

Syslog

Syslogにログを残したいときは、Sys::Syslog を使う。

Install

$ sudo cpan Sys::Syslog

使い方

use Sys::Syslog qw(:standard :macros :extended);

setlogsock('unix');
openlog("$cmd $$",  'ndelay',  'user');
setlogmask(
    LOG_MASK(LOG_CRIT) |
    LOG_MASK(LOG_ERR) |
    LOG_MASK(LOG_WARNING) |
    LOG_MASK(LOG_INFO) |
    0
);

syslog 'info', "log message";