Perl

• Perlの情報。どんな書き方もできるので人によって好き嫌いが分かれる。CPANというライブラリが豊富

基本テクニック†

ファイルを読み込んで表示†

while(<>){
   print "$_\n";
}

一行Perl†

HTMLの一括置き換え＆バックアップ†

perl -p -i.bak -e 's/catalog/index/g' *html

タブの置き換え†

perl -p -i.bak -e 's/\t/    /g' tabtest

CPAN†

ここを参考に設定する。ほとんどリターンキーでＯＫで、ミラーサイトの選択だけ慎重に！

基本操作†

perl -MCPAN -e 'install "Bundle::Bugzilla"'

• DBIとPostgres(CentOS3.4で成功）

perl -MCPAN -e 'install "DBI"'
perl -MCPAN -e 'install "DBD::Pg"'

インクルードパスの追加†

• @INCという配列変数にしたがってモジュールを検索している。大抵カレントも含まれるので最悪ライブラリを同じ場所において置けばよい。中身みたいなら以下のコマンドで

print join("\n",@INC);

• 追加するにはこんな感じで配列に加えてやる

unshift @INC,'/var/tmp';

• こんなやり方もある。こっちが直感的にわかりやすい気がする。

use lib 'ライブラリへのパス';

• コードにライブラリへのパスを書くのはいやだという人には環境変数PERLLIBを設定することをお勧めする。

正規表現ライブラリ†

• というほど大げさなものではなく、一度やったことのメモ書き。大概２ヶ月もたつと忘れてしまいますからね。

# 改行コード除去
$var =~ s/\r\n//g;
$var =~ s/\n//g;
# タブ除去
$var =~ s/\t//g;
# タグ除去
$var =~ s/<.*?>//g;
# 実体参照変換
$var =~ s/&gt;/>/g;
$var =~ s/&lt;/</g;
$var =~ s/&nbsp;/ /g;
$var =~ s/&quot;/"/g;
$var =~ s/&amp;/&/g;

# 英数字以外が含まれていた場合は不正とみなす。
if ($var =~ /[^a-zA-Z0-9]+/) {
    return undef;
}

*メニュー編集

ウィンタースポーツ

• スキー情報

その他

• 自動車
• 旅行
• 温泉
• 音楽

外部リンク

• 雪山愛好家の日記
  2015-12-05T10:25:48+00:00

  • 十二月第1週の営業情報 志賀高原オープン情報追加

  2015-12-04T15:36:15+00:00

  • 2015-2016 12月1週の営業状況

  2015-11-19T23:23:27+00:00

  • 2015-2016 １１月下旬の営業情報

  2015-10-05T03:32:15+00:00

  • 人工雪だけど１０月にオープンするゲレンデ

  2015-09-30T11:32:47+00:00

  • JTB共通シーズン券　スノーリゾートクラブに名称変更

  2015-09-30T00:27:45+00:00

  • 中央自動車道 上り渋滞 迂回路 国道139号松姫バイパス開通後

  2015-03-29T01:10:00+00:00

  • ジェフグルメカード お釣りが出るか　体を張って試してきた　久兵衛屋編

  2015-03-29T01:05:53+00:00

  • ジェフグルメカード お釣りが出るか　体を張って試してきた　リンガーハット編

  2015-02-26T13:05:43+00:00

  • ジェフグルメカード お釣りが出るか 体を張って試してきた 牛めし　松屋編

  2014-12-18T11:02:27+00:00

  • 十二月第三週の営業状況
• NIFTYにあるHP
• 旅行記写真館

今日の訪問 1

オンライン人数 9

最新の20件

人気の40件

今日の20件