Landscape - エンジニアのメモ 2003-06

- バックアップが必要なディレクトリ

- バックアップが必要ないもの。

- 現在のディスク容量と割り当て

-k 一括コピー操作時、空の列には、挿入される列の既定値ではなく、NULL 値を保持すること指定します。

qmailでは、RFCにおいてクォート処理が必要とされているメールアドレスを
【確実に】クォートしていることが判明しました。
これが、アダとなって、2003/06/08以降、e-mailを受け取れないでいるユー
ザが多数います。
対象は、メールアドレスのユーザ部がドット（.）で終わるユーザです。

(引用者により中略)

また、ユーザにアドレス変更をお願いするのも、すぐには実現できません。
そこで、qmailにクォート処理をやめさせます。

qmail-1.03では、quote.cのquote_need()という関数で、クォート有無を決定
しています。
この関数の以下の行が、ユーザ部がドット終わりとなっている場合の評価です。
  if (s[n - 1] == '.') return 1;

今回は、この行の前後を#ifdef式で囲むこととしました。
  #ifdef LAST_DOT_QUOTE
    if (s[n - 1] == '.') return 1;
  #endif

オリジナルのソースであれば、LAST_DOT_QUOTEは未定義なので、コンパイル
されません。

この処理を復活させたいのであれば、コンパイルオプションに、
  -DLAST_DOT_QUOTE
を追加（Makefileの編集で実現）して再コンパイルします。

以上の内容となります。
今後、別サーバにqmailを導入する際の参考としてください。

StreamWriter strm = new StreamWriter(@"c:\test.txt");
strm.Write("OK!");
strm.Close();

- スレの発端は47氏の発言

882 ：47 ◆KbtLZwerNc ：03/06/19 08:50 ID:AhStOI42
Winny作者ですが

あれがクローズドシステムになっているのは、好きでそうしているわけではなく、
こちらの設計能力不足によるものですので、もしオープンソースでも問題ないメカニズムが
導入できるのなら、こちらでそれを取り入れてWinnyのソースを公開するのもありかと思ってます。

その際には現在のWinnyとの互換性はなくなると思いますが。

今やってるWinny2のその次を考えるとどうしても一人でやっているのは限界があるわけで、
オープンシステム化かもしくは別の方法による大規模化は避けて通れないでしょう。

とりあえず設計さえ煮詰まれば実装はこちらでやっても良いので、考えるのだけはよろしくお願いします。
だめならソース非公開なままでUNIX版を作るという手もありですが、こちらの時間的余裕の問題で
オープンにできないのであればUNIX版ができることは無いと思います。

　　　　　　　　　　　　　　　　　　　　　　　　　ﾊｲ!ﾊｲ!
　　≡　(ﾟ∀ﾟ )ｽｷｽｷｽｷ　　　　　　　　　 ヾ(ﾟ∀ﾟ)ﾉ
　≡　〜( 〜)　ｽｰｷｽｷｽ　　　　　　　　　　 (　　)
　　≡ 　ノ ノ　　　　　　　　　　　　　　　　　 <　<


　　　　ｽｷｽｷｽｷ　 ( ﾟ∀ﾟ)　≡　　　　　　　ｷｭﾝｷｭﾝ!
　　　　 ｽｰｷｽｷｽ　(〜 )〜　≡　　　　　　　(ﾟ∀ﾟ)
　　　　　　　　　　　（ （ 　　≡　　　　　　　 ﾉ( ﾍﾍ

- ゲームの主題歌だったのか

- この曲は、やばい

string j = @"one
two
three";

<!--  セッション状態の設定
      既定では、ASP.NET は Cookie を使用して、要求がどのセッションに属するかを識別します。
      Cookie が使用できない場合は、URL にセッション識別子を入力することで、セッションを見つけることができます。
      Cookie を有効にするには、sessionState を cookieless="false" に設定してください。
-->
<sessionState
        mode="InProc"
        stateConnectionString="tcpip=127.0.0.1:42424"
        sqlConnectionString="data source=127.0.0.1;Trusted_Connection=yes"
        cookieless="false"
        timeout="20"
/>

function FindProxyForURL(url, host) {
  if (dnsDomainIs(host, '.2ch.net') || dnsDomainIs(host, '.bbspink.com')) {
    return 'PROXY localhost:8095; DIRECT';
  } else {
    return 'DIRECT';
  }
}

754 ：ぱくぱく名無しさん ：03/06/13 16:53
★ラーメン屋さんの半熟トロ〜リ煮卵★

材料：卵、煮汁（醤油：みりん：水＝１：１：３）、削り節

１．殻が割れないように常温にした卵を、煮立った湯に入れ5分ゆでる（時間厳守）
２．茹で上がったら氷水に入れ急冷し、殻をむく。（その後も氷水に入れてキンキンに冷やす）
３．煮汁の材料を鍋で煮立たせ、削り節を一掴み入れ、再び煮立ったら灰汁を除く
４．仕上げにほんだし等で出汁を利かせ、キッチンペーパーで煮汁を濾す
５．タッパーに軽く水切りした卵を入れ、熱い煮汁を一気にかける
６．キッチンペーパーで浮いてこないように中蓋をし、タッパーを閉め、粗熱を取って冷蔵庫へ
７．８時間くらい経ったものがウマーです。

冷たい卵に熱い煮汁を一気にかけることによって、浸透圧の原理で出汁が中までしみ込みます。
お弁当にもＯＫだし、冷奴などに乗せてもウマーです。

767 ：ぱくぱく名無しさん ：03/06/16 12:01
>>754
昨日作って一晩置いて、今朝食べてみた。→ｺｲﾂｱ(ﾟДﾟ)ｳﾒｴ!!

そのままでもイイけどレンジであっためて熱々にしてもウマウマー。
何時間を過ぎたら煮汁から出して保存した方がいいとかあるのかな?
何はともあれ多謝〜

772 ：ぱくぱく名無しさん [sage] ：03/06/17 18:49
>>754　今仕込み中〜　楽しみだ〜
>>767　レンジで暖めると中はどうなるの？固まる？

773 ：ぱくぱく名無しさん [sage] ：03/06/17 19:00
>>767
「爆発たまご」にはなりませんか？(; ´Д`)

774 ：ぱくぱく名無しさん ：03/06/18 00:19
>>754の煮卵って、５分しか茹でないと皮剥いてる間に卵が崩れちゃうんだけど・・・
なんかコツあるの？

775 ：ぱくぱく名無しさん ：03/06/18 00:24
>>774
菜箸の後ろで細かいひびを入れた後水の中でむくと綺麗にむけるよ。
はなまるマーケットで言ってた。

776 ：ぱくぱく名無しさん [sage] ：03/06/18 00:31
>>774
754じゃないけど、卵は少なくとも常温にしておくこと。あるいは
水から入れて沸騰してから５分。このくらいが黄身とろーり半熟卵
の目安でつ。そんなにトロトロでなくっていいなら、もう１〜２分
ゆでても別に問題なくおいしいです。

777 ：ぱくぱく名無しさん ：03/06/18 00:45
>>774
重みで割れやすいから水の中でむくんだそう。

さらにソンタグ氏によると、流用されたコードには、
NUMA（Non Uniform Memory Access）技術を使うマルチプロセッササーバで
Linuxを動かすための拡張機能、Journaled File Systemが含まれる。
加えて、マルチプロセッササーバで一部メモリのボトルネックを軽減するための
RCU（Rea-Copy Update）も流用されたという。

- リファラを隠蔽するためと、広告を見せるために存在している。

# 日付単位に分解
sub split_entry() {
    my $str = shift;
    return split(/(?=^\d{4}-\d{2}-\d{2})/m, $str);
}

# * で始まるアイテム単位に分解
sub split_item() {
    my $str = shift;
    $str =~ s/^\t//gm;
    my @item = split(/(?=^\*.*:)/m, $str);
    shift(@item); # 先頭は日付のところなので削除。
    return @item;
}

# アイテムを file_name と body に分解
sub split_body() {
    my $str = shift;
#    print $str; # DBG
    my ($file_name, $body) = ($str =~ /^\*\s+(.*?)\n(.*)/s);
    return ($file_name, $body);
}

単一引用符で囲まれた文字列に単一引用符を埋め込む場合は、
単一引用符を 2 つ続けて並べることで 1 つの単一引用符を表します。
文字列が二重引用符で囲まれている場合は該当しません。

- sa アカウント

- 権限

- ロール

$log =~ s!((^[>|].*\n)+)!<blockquote>$1</blockquote>!mg;
$log =~ s!((^\t(&gt;|\|).*\n)+)!<blockquote>$1</blockquote>!mg; # ChangeLog メモ用

ポンキッキーズ・メロディ(2)

ディック・リー / 和田アキ子 / 森高千里 / 糸井重里 / 米米CLUB / コニーちゃん / カジヒデキ / Folder / 小林和子 / 小森田実
発売日: 1998/12/01


amazon で詳しく見る

- シングルの情報

- 事前準備

- クエリの例

- ノイズ語 (インデックスされない単語) を納めたファイルは \mssql\ftdata\config にある。

- FREETEXT は OR 検索しかできない。CONTAINS は AND 検索が可能。

- SELECT をブロックするには XLOCK じゃないとダメなの?

557 ：デフォルトの名無しさん ：03/05/06 17:35
SQLServer2000です。
SELECTと同時にロックをかける・・・Oracleでいう、FOR UPDATEみたいな
動作をさせたい場合はどうすれば良いのでしょうか？
ヘルプには、SELECT文に使うヒント句でロック方法を指定するような記述が
あるのですが・・・

どのヒントを指定しても別の接続からSELECTできてしまいます。
(UPDATE等は出来ないので、ロックはされているようです)


558 ：デフォルトの名無しさん ：03/05/06 17:52
>>557
FROM table_name (UPDLOCK) かな?


559 ：デフォルトの名無しさん ：03/05/06 18:00
すまん。UPDLOCK中でもSELECTはできるから排他ロックが必要なのかな。
FROM table_name (XLOCK)

この辺見るといいかも
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/acdata/ac_8_con_7a_7xde.asp
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/acdata/ac_8_con_7a_8um1.asp



560 ：557 ：03/05/06 18:05
>５５９
XLOCKで逝けました!!

>557で「どのヒントを指定しても」って書いたのにXLOCKを試していませんでした。
何故なら、印刷したヘルプのXLOCK以下が切れていた為(鬱死
今度はもっとヘルプをよく読みます。
ありがとうございました。

- 判明

>>487
> WindowsクライアントからSAMBAのファイルを更新すると、
> 強制的にcreate maskで指定したパーミッションになってしまいますが、
> これはどうにかならないのでしょうか？

[samba-jp:08599] シェルスクリプトの実行属性によると、どうにもならないようだ。

http://www.samba.gr.jp/ml/samba-jp/htdocs/20010214/8599.html
http://www.samba.gr.jp/ml/samba-jp/htdocs/20010214/8602.html
http://www.samba.gr.jp/ml/samba-jp/htdocs/20010214/8603.html
http://www.samba.gr.jp/ml/samba-jp/htdocs/20010214/8607.html
http://www.samba.gr.jp/ml/samba-jp/htdocs/20010214/8608.html

Windows のエディタの多くは、上書き保存するときに
1) すでにあるファイルを rename して、
2) 新しくセーブするべきファイルを作成し、
3) 前のファイルを消す
ということをしているから、とのこと。

このデッド・ロックの原因を理解するにあたって必要な知識は「SQL Serverは他のユーザがcommit/rollbackするまで当該行の読み取りをブロックする」ということだけでした（ORACLEの場合はトランザクション開始前のデータを読み取る）．SQL Serverはロックをエスカレーションさせるとか，分離レベルを上げた場合の振る舞いとか，そういう難しい話は全く関係なし．

SQL Server は、ソケット ネットワーク ライブラリを使用して TCP/IP 上で通信する Winsock アプリケーションです。SQL Server は特定のポートで接続要求を待ち受けます。SQL Server 用のデフォルトのポートは 1433 です。SQL Server 用のポートは 1433 である必要はありませんが、1433 は SQL Server の公式の IANA (Internet Assigned Number Authority) ソケット番号です。

さらに、SQL Server 2000 の名前付きインスタンスは、デフォルトでは、動的な送信先ポートを使用します。このポートは、ファイアウォールを構成する前に、固定ポートに変更する必要があります。送信先ポートを構成するには、SQL Server ネットワーク ユーティリティを使用します。SQL Server ネットワーク ユーティリティの使用方法の詳細については、SQL Server Books Online を参照してください。

さもなければ、クライアント コンピュータはランダムな UDP ポートを開く必要があります。そして、サーバーは UDP ポート 1434 を使用して、インスタンス名を送信します。インスタンスがクラスタ化されている場合、SQL インスタンスのバージョン、インスタンスが受信待ちしている TCP ポート番号、およびインスタンスが使用している名前付きパイプを送信します。ただし、ファイアウォールで開くポート番号を最小限にすることが目的の場合は、デフォルトのインスタンスおよびすべての名前付きインスタンスで使用する静的なポート番号を選択する必要があります。クライアント コンピュータは、特定の ServerName または ServerName インスタンスおよび固定のポート番号に接続するように構成する必要があります。

- meta 要素でロボット避け

Some examples:

<meta name="robots" content="index,follow">
<meta name="robots" content="noindex,follow">
<meta name="robots" content="index,nofollow">
<meta name="robots" content="noindex,nofollow">

Note the "robots" name of the tag and the content are case insensitive.

- robots.txt でロボット避け

- ロボット避け? ロボット除け?

２ちゃんにまつわる重要連絡ver4.6

104 ：あなたのうしろに名無しさんが・・・ ：03/06/05 20:09
過去ログのhtml化をもうすこしすすめて欲しいです。


105 ：(･∀･∀･)ﾇｯﾍｯﾎｰ ◆5VPd6kqpDI ：03/06/05 23:53
それについては、残念ですがこんなお話が・・・。

ｈｔｍｌ化するのが遅すぎるぞ・・・・・
http://qb.2ch.net/test/read.cgi/accuse/1054699848/

3 名前： KC-130@マァヴ ◆jxAYUMI09s saitamasaitama@saita.ma 投稿日：03/06/04 13:12 ID:pZfVjUP8
>1
つかhtml化はおおむね終了しました(^_^;)

10 名前： KC-130@マァヴ ◆jxAYUMI09s saitamasaitama@saita.ma 投稿日：03/06/04 13:27 ID:pZfVjUP8
>8
正解(^_^;)
全板セミさんコースということになってるみたいです。
――――――――――――――――――――
セミさんコースというのは、過去ログ化を定期的にせず、七年の間にはなんとか・・・というコース。
つまり、ほとんど過去ログhtml化は行なわれないって事なんですねー。



106 ：(･∀･∀･)ﾇｯﾍｯﾎｰ ◆5VPd6kqpDI ：03/06/05 23:58
で、対策としては三つ程あります。

１、●を買う。

http://2ch.tora3.net/

２、isp.2ch.netの過去ログ閲覧機能を使う。

http://isp.2ch.net/

３、有志によるhtml化スレの利用

読めないdat落ちスレのミラー作ります [18]（ガイドライン板）
http://that.2ch.net/test/read.cgi/gline/1054143437/
ｄａｔ落ちしてスレが見れないときは（カレーマニアさんとこ）
http://jbbs.shitaraba.com/movie/bbs/read.cgi?BBS=1413&KEY=1029382314

まあ、どれを選ぶかは各人の判断ですが、●を買ってあげると夜勤さんが喜んで
鯖が強化されますから、お金に余裕のある人は●を買えばいいんじゃないかと。

# compare previous log with current log
LOG_HASH=`/usr/bin/md5sum $LOG_PATH |perl -na -e 'print @F[0]'`
PREVIOUS_LOG_HASH=`/usr/bin/md5sum $PREVIOUS_LOG_PATH |perl -na -e 'print @F[0]'`
if [ $LOG_HASH == $PREVIOUS_LOG_HASH ]; then
  exit 1
fi

- sonic で動かしている seti が、いつの間にか CPU 時間100000分を超えたようだ。

$ date
Fri Jun  6 14:16:43 JST 2003

$ top
  2:16pm  up 83 days, 19:37,  1 user,  load average: 1.00, 1.00, 1.00
34 processes: 32 sleeping, 2 running, 0 zombie, 0 stopped
CPU states:  0.8% user,  6.0% system, 93.0% nice,  0.0% idle
Mem:    65128K av,  61080K used,    4048K free,      0K shrd,  10604K buff
Swap:  257032K av,    1644K used,  255388K free                  17960K cached

  PID USER    PRI  NI PAGEIN  SIZE SWAP  RSS SHARE LC STAT %CPU %MEM  TIME COMMAND
7747 hiroaki  20  19 115933 15816  40  15M  404  0 R N  86.0 24.2  1677h setiathome

$ ps -auxww |grep seti
hiroaki  7747 95.5 24.2 17388 15776 ?      RN  Mar25 100513:53 /home/hiroaki/dist/setiathome-3.03.i386-pc-linux-gnu-gnulibc2.1/setiathome -proxy 172.16.4.1:17241

- 冗長版

GO
DROP TRIGGER log_transaction_ao;
GO
CREATE TRIGGER log_transaction_ao ON users FOR INSERT, UPDATE AS
BEGIN
  INSERT INTO users_log SELECT * FROM inserted
  IF (SELECT COUNT(*) FROM inserted WHERE commit_master = 1) > 0 BEGIN
    DECLARE @user_cd VARCHAR(5)
    SELECT @user_cd = user_cd FROM deleted
    IF (@user_cd IS NOT NULL)  BEGIN
      DELETE FROM user_master WHERE user_cd = @user_cd
    END
    INSERT INTO user_master SELECT * FROM inserted
  END
END

- 簡潔版

GO
DROP TRIGGER log_transaction_users;
GO
CREATE TRIGGER log_transaction_users ON ao FOR INSERT, UPDATE AS
BEGIN
  INSERT INTO user_log SELECT * FROM inserted
  IF (SELECT COUNT(*) FROM inserted WHERE commit_master = 1) > 0 BEGIN
    DELETE FROM user_master WHERE user_cd IN (SELECT user_cd FROM deleted)
    INSERT INTO user_master SELECT * FROM inserted
  END
END

- 参考

- mirror をミラーしているサイト

- 環境

- mirror_defaults のサンプル。

- 2004年10月28日追記

- one liner、日本語で言うと一行野郎

- Internet Archive で見つけた。

●標準perlだけで使える1行野郎

[置き換え]
すべてのcのファイル中のfooをbarに置き換える。
bakでバックアップ付き
\bは単語の区切り
perl -p -i.bak -e 's/\bfoo\b/bar/g' *.c

それぞれのファイルに含まれる数値を１増やしてセーブします
bakでバックアップ付
perl -i.bak -pe 's/(\d+)/ 1 + $1 /ge' file1 file2 ....

改行コードを0D0A から 0Aに変換します
perl  -pe  's/\015\012/\012/g' file

改行コードを0A から 0D0Aに変換します
perl  -pe  's/\012/\015\012/g' file



[部分的な取り出し]
スペースで区切られたフィールドの最初から4番目までと6番目を表示
perl -lane 'print "@F[0..4] $F[6]"' file

コロンで区切られたフィールドの最初から4番目までを表示
perl -F: -lane  'print "@F[0..4]\n"' /etc/passwd

STARTとENDに挟まれた部分を表示
perl -ne 'print if /^START$/ .. /^END$/' file

STARTとENDに挟まれた部分以外を表示
perl -ne 'print unless /^START$/ .. /^END$/' file

最初の50行を表示
perl -pe 'exit if $. > 50' file

最初の10行を表示しない
perl  -ne 'print unless 1 .. 10' file

15 から 17 行目だけを表示
perl -ne 'print if 15 .. 17' file

各行の80文字以降を捨てる
perl -lne 'print substr($_, 0, 80) = ""' file

各行の最初の10文字を捨てる
perl -lne 'print substr($_, 10) = ""' file



[よりよいgrep]
commentという文字列が含まれている行を表示
perl -ne 'print if /comment/' duptext
commentという文字列が含まれていない行を表示
perl -ne 'print if /comment/' duptext

commentまたはappleという文字列が含まれている行を表示
perl -ne 'print if /comment/ || /apple/' duptext

commentまたはappleという文字列が含まれている行を表示
perl -ne 'print if /comment/ || /apple/' duptext

commentとappleの両方の文字列が含まれている行を表示
perl -ne 'print if /comment/ || /apple/' duptext

commentという文字列が含まれている行とファイル名を表示
findと一緒に使うと便利
perl -ne 'print "$ARGV:$_" if /comment/' file1 file2 file3 ...

intにだけ一致する（printには一致しない)grep
perl -ne 'print if /\bint\b/' test.txt

port0からport9までの10個の単語に一致する
perl -ne 'print if /\bport\d\b/' test.txt

port0からport9999などといった数字が末尾につく単語に一致する
perl -ne 'print if /\bport\d+\b/' test.txt



[フィールド間の演算]
最初のフィールドと最後から２番目のフィールドを合計する
perl -lane 'print $F[0] + $F[-2]'



[ソート]
ファイルを行単位でソートします
perl  -e 'print sort <>' file

ファイルをパラグラフ単位でソートします
perl  -00 -e 'print sort <>' file

複数ファイルをファイル毎比較してソートしてから１本のファイルとして表示し
ます
perl  -0777 -e 'print sort <>' file1 file2



[反転]
あたえられたファイルを行単位でひっくり返します
perl -e 'print reverse <>' file1

ファイルを文字単位ですべてひっくり返します
perl -0777e 'print scalar reverse <>' f1 f2 f3 ...

ファイルをパラグラフ単位でひっくり返します
perl -00 -e 'print reverse <>' file1 file2 file3 ....

１行の中で文字単位でひっくり返します
perl -nle 'print scalar reverse $_' file1 file2 file3 ....

辞書から回文を探します。残念ながら日本語には対応していません
perl -lne 'print if $_ eq reverse' /usr/dict/words

ファイル中に２回以上連続して現れる単語があれば、そのうちの１個を表示しま
す
perl -0777 -ne 'print "$.: doubled $1\n" while /\b(\w+)\b\s+\b\1\b/gi'



[数値変換]
入力された１０進数を１６進数に変換して表示します。CTRL-Cで終了
perl  -ne  'printf "%x\n",$_'

入力された１０進数を８進数に変換して表示します。CTRL-Cで終了
perl  -ne  'printf "%o\n",$_'

入力された１６進数を１０進数に変換して表示します。CTRL-Cで終了
perl -ne 'print  hex($_)."\n"'

入力された８進数を１０進数に変換して表示します。CTRL-Cで終了
perl -ne 'print  oct($_)."\n"'

簡易電卓として計算できます。CTRL-Cで終了
perl -ne 'print  eval($_)."\n"'



●-Mは反則だろう。でも便利。モジュールな1行野郎

http://www.yahoo.co.jp/のページのソースを表示
perl -MLWP::UserAgent -e 'LWP::UserAgent->new->request(HTTP::Request->new('GET',$ARGV[0]),sub{print $_[0];});' http://www.yahoo.co.jp/

引数で指定したところからすべてのファイルを見つけて表示します
perl -MFile::Find -le 'find {wanted=>sub {print;}},$ARGV[0]'

カレントディレクトリからすべての拡張子plファイルを見つけて表示します
perl -MFile::Find -le 'find {wanted=>sub {print if /\.pl$/;}},$ARGV[0]'

ディレクトリを作ります。mkdirと違って深い階層を一度に作ることができま
す。
perl -MFile::Path -e 'mkpath([@ARGV],1,0777)' test/tmp1 test2/tmp2

Base64でエンコードします
perl -MMIME::Base64 -ne 'print &MIME::Base64::encode_base64( $_)' file

Base64でエンコードされたfileをデコードします
perl -MMIME::Base64 -ne 'print &MIME::Base64::decode_base64( $_)' file

Quoted-Printable でエンコードします(参照 RFC 2045 )
perl -MMIME::QuotedPrint -ne 'print &MIME::QuotedPrint::encode_qp( $_)' file

指定されたページを取ってきて表示します。
perl -MLWP::Simple -e 'getprint "http://www.foo.bar.com/";

ftpでファイルをダウンロードします。
perl -MLWP::Simple -e 'getstore "ftp://ftp.sunet.se/pub/lang/perl/CPAN/src/latest.tar.gz","perl.tar.gz"'

httpドキュメントのミラーリング
perl -MLWP::Simple -e 'mirror("http://www.perl.com/", "perl.html");'



●一行野郎のためのオプション解説

-0数字(8 進数)
レコードセパレータ ($/) を 8 進数で示します。デフォルトセパレーターは改
行です

-00
パラグラフモードにします。パラグラフとは連続した改行で区切られる
文の固まりです

-0777 セパレーターを無効にします。すなわちファイル全体が１パラグラフにな
ります

-a 自動splitモード
  配列 @F = split(' ');
  区切り文字は-Fで指定可能
  デフォルトは1文字スペース

-e
1行野郎のキーワード
コマンドラインにあたえられた文字列をperlのプログラムとして実行します
複数の-eを使うこともできますがセミコロンが必要

-i拡張子
.bakなどを指定することで、個々のファイルのバックアップを取って上書きし
ます。

-l数字(8 進数)
自動chomp
出力時に数字(8 進数)を改行コードに置き換える。


-n
自動ループ
  while (<>) {
          ... # ここでスクリプトが実行される
  }


-p
自動ループprint付
  while (<>) {
          ... # ここでスクリプトが実行される

  }

組み合わせ

-na -F正規表現
  while (<>) {
        @F=split(/正規表現/);
          ... # ここでスクリプトが実行される
  }

-pa -F正規表現
  while (<>) {
        @F=split(/正規表現/);
          ... # ここでスクリプトが実行される
        print ;
  }

- IBM developerWorks の Perl One liner 特集

- 速習 Perl: 1行スクリプト

- トリガを使うことで、INSERT/UPDATE 文を複数のテーブルにそのまま反映させることができる。

- 「ユーザが入力した内容の履歴を取りたい」というリクエストを受けた。本番のテーブルへ投げられたクエリと同じクエリを別途用意したログ用のテーブルに追記していく、というやり方で実現できるだろう。

- 解決策

- サンプル

DROP TRIGGER log_transaction_user;
CREATE TRIGGER log_transaction_user ON user FOR INSERT, UPDATE AS
BEGIN
  INSERT INTO user_log SELECT * FROM inserted
  IF (SELECT COUNT(*) FROM inserted WHERE commit_master = 1) > 0 BEGIN
    DECLARE @user_cd VARCHAR(5)
    SELECT @user_cd = user_cd FROM inserted
    DELETE FROM user_master WHERE user_cd = @user_cd
    INSERT INTO user_master SELECT * FROM inserted
  END
END

ここではなく、各cron.daily等のディレクトリ中に入っている
各実行ファイル内につけます。例えば、/etc/cron.daily/中に
あるslocate.cronは、以下のような使い方をしています。

- デリミタがカンマで n = 5のとき

$ perl -F, -lane  'print "$F[0..4]"' data.csv

- オプションの説明:

while (<>) {
  ... # ここでスクリプトが実行される
}