- 1 名前：login:Penguin mailto:sage [2008/07/07(月) 20:45:18 ID:wYmB5VwU]
- おーくについて語りましょう
- 44 名前：login:Penguin mailto:sage [2009/07/19(日) 04:55:45 ID:TalGZSOR]
- awk初心者です。質問させてください。
awkでアクセスカウンタを作ろうと思い、
以下のようなスクリプトを書いたのですが、
最後のhtmlへの出力（表示）の方法がわかりません。
どうしたらいいのでしょうか？
- 45 名前：44 [2009/07/19(日) 04:57:30 ID:TalGZSOR]
- BEGIN{
#プロセスロック
lock()
#カウント数の読み込み
while (getline < count.dat > 0){
before_count = $1;
}
close(count.dat);
#カウントを１進める
new_count = before_count + 1;
#数字の置換を行う
sub(before_count, new_count, $1);
#プロセスロック解除
unlock()
}
- 46 名前：44 [2009/07/19(日) 04:58:33 ID:TalGZSOR]
- print "Context-Type: text/text";
print "\r";
END{
#表示テンプレートの読み込み
while (getline < count.txt > 0){
txt_file[++i] = $0;
}
close(count.txt);
#あらかじめセットしてあるテンプレート上の文字列を置換
gsub("<!--#count.cgi--!>", new_count, $0);
print $0;
}
- 47 名前：login:Penguin mailto:sage [2009/07/19(日) 11:16:35 ID:xa/YVpR4]
- >>43
getline知らなかったわ。
難しそうだな・・・
- 48 名前：login:Penguin [2009/07/19(日) 15:13:23 ID:Ge8Nt7Pt]
- >>44
SSIの仕組みは理解できていますか。
ttp://httpd.apache.org/docs/2.0/ja/howto/ssi.html
- 49 名前：hogehoge mailto:sage [2009/07/21(火) 14:50:51 ID:PUGBjRE4]
- getline は毎回リファレンス見に行ってるなぁ
頭が劣化しとるわー
- 50 名前：login:Penguin mailto:sage [2009/08/01(土) 15:31:08 ID:z6H8O5Sr]
- こんなものが落ちてたw
ttp://mitya.pp.ru/chamberlen/assorted/OReilly%20-%20Sed%20&%20Awk%202nd%20Edition.pdf
- 51 名前：login:Penguin mailto:sage [2009/08/15(土) 20:33:21 ID:7GY0b2Yy]
- Mac OS X Leopard 10.5.8でjgawkを使いたいのです。
ターミナルでawk '{print $0}' filenameですと日本語が悲しいです。
お使いのみなさん、使用法等教えて下さい。
- 52 名前：login:Penguin mailto:sage [2009/08/19(水) 18:02:30 ID:GJ3CGMhT]
- 板違い。
- 53 名前：login:Penguin mailto:sage [2009/08/22(土) 09:19:23 ID:rmix/tng]
- Mac OS XをUnixとして使ってる人の為のスレ その15
pc11.2ch.net/test/read.cgi/mac/1247059597/
こっちのが詳しいかもね
- 54 名前：正月前 mailto:zzhong33@yahoo.co.jp [2009/12/29(火) 22:19:45 ID:UAwxD9+5]
- awk初心者です。
awkにはperlのjoinみたいの関数ありますか？
perl:
print join(":",$_);
- 55 名前：login:Penguin mailto:sage [2009/12/30(水) 01:06:12 ID:Q1gMau4C]
- データ集計に便利
- 56 名前：login:Penguin mailto:sage [2009/12/30(水) 01:44:22 ID:jMgIWDpO]
- >>54
BEGIN {OFS=":"}{$1=$1;print}
- 57 名前：正月前 [2009/12/31(木) 16:45:37 ID:z/pUNj8p]
- 重複を削除するBASHスクリプトに、perlの部分はawkの連想配列で書き換えたいんですが、splitした後の処理方法が分かりません
教えて頂ければ幸いです。
-----------------------------
hoge='a:b:c:d:a:b:c:d:a'
echo -n $hoge | perl -F: -ane 'chop;foreach(@F){$s{$_}++ or push(@b,$_)}print join(":",@b)'
-----------------------------
- 58 名前：login:Penguin mailto:sage [2010/01/05(火) 11:48:18 ID:iQ1ypvd/]
- 素人なりですけど
echo -n $hoge | awk 'BEGIN{OFS=":"}{n=split($0,a,":");m=1;for(i=1;i<=n;i++){if(!(a[i]in b)){$m=a[i];b[$m]++;m++}}print}'
- 59 名前：login:Penguin mailto:sage [2010/01/05(火) 12:34:43 ID:APedkSZb]
- echo -n $hoge | awk 'a[$0]++<1{printf(NR>1?RS:_)$0}' RS=:
- 60 名前：login:Penguin mailto:sage [2010/01/05(火) 12:50:31 ID:APedkSZb]
- a[$0]++<1 じゃなくて
!a[$0]++ とした方が1バイト短くなるな
って、そういう趣旨じゃないか
- 61 名前：login:Penguin mailto:sage [2010/01/08(金) 21:03:31 ID:pPQjxZAI]
- プログラミングAWK 3度目の復刊
www.fukkan.com/fk/CartSearchDetail?i_no=68313239&tr=t
- 62 名前：正月前 mailto:zzhong33@yahoo.co.jp [2010/01/11(月) 22:20:00 ID:jx5sxsA2]
- >>58,59,60
ご回答、誠に有難うございました！
まだawkの部分理解してないけど、期待通りの動作が確認できました！
- 63 名前：login:Penguin mailto:sage [2010/03/16(火) 14:08:38 ID:hRXCRI1I]
- Linuxじゃないんですが、Gawk on Windowsだと、
gawk '{print $1;}' data.txt
ていうのは、クォーテーションはダブルにしないといけないんですね。。。
- 64 名前：login:Penguin mailto:sage [2010/03/16(火) 14:27:11 ID:OV90ZKd/]
- うん、引数文字列をどう解釈するかは awk じゃなくてシェルだから。
cmd.exe の仕様の問題であって、awk の側では対応しようにもできない。
- 65 名前：login:Penguin [2010/05/14(金) 13:36:36 ID:XjQaHos9]
- BEGIN {
printf "２５６倍のコードが提供されてる\n"
printf "ttp://books.ascii.jp にアクセス\n"
printf "本には4756101623なんてのがついてるけど、本の通りに入れるとnot found\n"
}
END {
print "昔と本の内容が変わってるみたいだな"
}
- 66 名前：login:Penguin mailto:sage [2010/05/14(金) 21:49:15 ID:KfNsslph]
- END {
print "まだ始まってもねーよっ！"
}
BEGIN {
printf "・・・ごめ・・・\n"
}
|
 |
