|
># 見本求む。 単なるバリエーションということで… #!/usr/bin/awk -f NR == 1 { f = FILENAME } f == FILENAME { hash[$2]=$1 } f != FILENAME { if ( $2 in hash ) { print hash[$2], $2, $1, $2 delete hash[$2] } else print $1, $2 } END { for (r in hash) print hash[r], r } |
|
もう他人の書いた awk スクリプトを見ても意味がわからん (笑) > Perlです。 で、どういう処理をするサブルーチンの例を見たいのですか? あと、素人とか初心者とかいうハンドルはやめてください。 それから、誰に向けて言うわけでもないですが、回答をもらっても 返事をする気がないなら、最初から質問しないでね。 |
|
沢山の回答、どうもありがとうございます。 あとお礼が遅くなってどうもすいません。 試してみてから出そうと思っていたのですが、家にＵＮｉｘがないので 月曜になってしまいます。 このページを発見して間もないのですが、これから色々質問することもある思うので、その時はまたよろしくお願いします！ |
|
行頭のスペース、全角スペースを に置換するように してみました。 if ( m/^(<BR>)?(\>|＞)/ ){ $_ = qq(<FONT COLOR="$color{QUOTE}">$_ </font>); } の後に s|^( +)|' ' x length($1)|e; s|^( +)|' ' x length($1)|e; を追加しただけです。 現状でこれをしちゃうとまずい UA ってありますっけ? |
|
こんにちは、はじめての書込ですが... http://tsu.virtualave.net/TSU/whimsy.html 今週上のようなのをやることになったので お時間のある方はどうぞ。(ちなみに日本語コードが 前のようなSJIS固定から、普通の日本語チャンネルと 同様のJISになってます) GUIクライアントは、FreeBSDだとportsにGTK+使うXchat の日本語化版があるそうです。 Linuxだとhttp://dns.manabi.gr.jp/~blend/の辺りが よいかと(FreeBSDでこれrpmから出して使う場合は GNU makeが要ります)。 いずれにせよJISになったので一般に配布されている 日本語化パッチの類が簡単に使用できるようになりま した。 |