|
すみません。 Perlです。 |
|
> # 見本求む。 見本かどうか分かりませんが、私は次のように書きました。 #!/usr/bin/awk -f { array[$2] = sprintf("%s %s", array[$2], $1); } END { for( key in array ){ split(array[key], tmp); if( 2 in tmp ) printf("%s %s %s %s\n", key, tmp[1], key, tmp[2]); else printf("%s %s\n", key, tmp[1]); } } 起動は % awk -f script file1 file2 としてください。連想配列に記録して、最後に出力という感じです。 ただし、次のような $2 が同じだが $1 が違う値を含む形式のデータは 仮定していません。 10 abcde 11 abcde どちらかを捨てるようになっているかと思います。実際にはデータの形式の チェックが要るかと思います。あと出力の順が不定になります。出力の 順番に依存する処理には向きません。動作チェックはしていません。 多分、本家の awk じゃ無理かな。動作チェックは gawk でやっています。 |
|
># 見本求む。 単なるバリエーションということで… #!/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になったので一般に配布されている 日本語化パッチの類が簡単に使用できるようになりま した。 |
|
えっと、早い話が「エポ」の場所教えて下さい！！ sachiyo@viola.ocn.ne.jp までメールで教えて下さいっす！ |
|
どうも、おひさしぶりです。 > 現状でこれをしちゃうとまずい UA ってありますっけ? 現状の解釈が、わからなかったので、手元のブラウザで 調査しました。 OK win98 IE2 IE4 w3m(cygwin) FreeBSD Nestcape3 chimera w3m NG win98 Netscape3 とりあえず、こんな感じです。 ※ ディスク容量が足りなくなって、だいぶuninstall したので、この程度位までしか調査できませんでした。 |
|
> 68user さん > 行頭のスペース、全角スペースを に置換するように > してみました。 おかげで助かります。今まで、unexpand して投稿していましたが、 インデントが崩れるのが悩みの種でした。 どうもありがとうございます。 |
|
DATを初期化するコマンドって、UNIXでありますか？？ |
|
> 行頭のスペース、全角スペースを に置換するように > してみました。 やっぱ、これが一番現実的みたいですね。 ウチでやらなかったのは、当時、使ってたWin95 NN4.1 が カット＆ペーストで全角スペースに変換してたからだけど、 今のNN4.73では、ちゃんと半角になります。 ところで、 タブ も変換して貰えると助かるんですが… |
|
> NG win98 Netscape3 なるほど。よく知らないんですが、 が中黒になる んでしたっけ? UNIX 系の NN3 も表示できないと思って いたんですが、OK なんですね。では、Win+NN3 環境は 残念ながら泣いていただく、ということにします。 > ところで、タブも変換して貰えると助かるんですが… tab stop はいくつがお好みですか? (僕は4です) でもこれをやるなら、書き込み時に置換しないと いけないので、 TAB が発見されました。tab stop=4 だと以下のように表示されます。 [OK TAB=2にする TAB=8にする] てな感じ? (笑) ところで行頭以外のスペースを に置換するのって 意味ありますかね? > DATを初期化するコマンドって、UNIXでありますか？？ テープ関係はよく知りませんが、mt erase あたりではダメでしょうか。 > http://tsu.virtualave.net/TSU/whimsy.html 僕も何度かおじゃまさせていただきました。お暇な方はどうぞ。 |
|
> が中黒になる そうです。目も当てられないです。 >UNIX 系の NN3 も表示できないと思って 少なくとも、Version 3.04 [ja_euc]はそうでした。 |
|
すいません、追加です。 winで確かめたNetscapeは、Version 3.01です。 .01と.04の差か(不明)？ ←信じられん ※ win+NN3は、サポート外でいいと、思います。 ほとんどNN4/IE4以上だろうし・・・ |
|
どなたかP内部のCPUやメモリーやモデムなどに詳しい方 色々教えて下さい。 仕事上、自らバージョンアップをしたいと考えていますのでよろしくお願いします。 またこのURLは現在の仕事上のものです。 興味がある方はアクセスしてください。 |
|
Ｎｏ．１３４３，１３４５、１３４６の例を参考にやってみたのですが、SolarisのＡｗｋでは動きませんでした、、、、 そこで、InputFile１の＄２だけをInputFile３にcopyして、InputFile２の＄２を、InputFile４にCopyし、単純にINputFile３、と４を比較し、同じ内容はOutputFile１へ、違う内容はOutｐｕｔFile２へ出すようにするのであれば、Awkでもできるでしょうか？ |