awk ファンクラブ

awk　がなくなると困る・・・・・
Perlで$3 を表示しる！とかどーすんよ

awk ‘{print $3}’

>>22
なんかこう、Perlってスクリプトにエレガントさを感じないんだよな。つぎはぎが多い
というか。

awkの場合、cに近いスタイルでありながらパターンマッチングとか連想配列の実装が
エレガントだからコードを見ててきれいに感じる。

awk /./

の7文字だけでOK
RSは初期値が入ってるんだから

誰でも簡単にパソコン1台で稼げる方法など
参考までに、
⇒　『宮本のゴウリエセレレ』 というブログで見ることができるらしいです。

グーグル検索⇒『宮本のゴウリエセレレ』

DCQTVO9E2N

awkって今時オブジェクト指向もサポートしてねぇのか。
だせぇ・・・

とか思ってたらこんなのもあるんだな。
http://awk.info/?doc/dsl/awkplusplus.html

速くて短いし、そっちのがコードと意味が一致するかと

オークは便利だオーク

いや、しかし最近目から鱗落ちまくりです。沢山の書き込みに感謝感謝。

みなさん教えて下さい。

一行毎に読み込み@<と@>で囲まれた部分を
ランダムなアルファベット10文字に置換し、
元々@<@>に囲まれた部分の文字列と置換したランダムな文字列の対応を
別ファイルに書き出し

っていうのをやりたいです。
awkとsedでできるの？

pythonで書くべき？

awkの処理についてアドバイスを下さい。
スペースで区切られたテキストファイルがあります。

例（フィールド数も文字数も全部異なります）

abc efg hij http://www.example.com/index.html xyz
123 http://www.example.org/ she good love look good
4edi http://www.example.net/test/test.html

こんな感じのテキストファイルからURLだけを抽出したい
場合、どう言った処理を行うと良いでしょうか？

printなどは使えそうにないし頭を抱えています。
是非お助け下さい。

>>153
ホント？Delphiなんて懐かしいなぁ。GUIでなく、Webでの利用なら、もはやOSあまり関係ないような気も。よく分からん。

>>155
聞いたことはあるけど、見たことはない程度には珍しいかと。gawkはネットに対応してるから頑張ればサーバにもなれるかな？

>>134
これを使って正規表現によって grep とどれだけ実行速度に差が出るのか計ってみた。
ttp://pastebin.com/bpXZ5pg8

数字だけではよく分からないので、ユーザ時間のグラフを描いた。
ttp://i53.tinypic.com/303a4iv.jpg
赤がawk、青がgrep
こっちじゃないと見れないかも → ttp://tinypic.com/r/303a4iv/7

awk もばらつきがあるけど、grep ほどではない。
どちらも、マッチする可能性が高い正規表現は遅くなる傾向があるのかなぁ？

RSが空だとRS=¥n+として解釈されるんじゃまいか

わらうw
ttp://awk.info/?doc/dsl/awkplusplus.html

object_variable = class_name.new[(optional parameters)]
object_variable.method_name(parameters)
object_variable.delete

自分は
match($0, /http:¥/¥/[^ ]+/, f)
を使う気がする。

>>142
BEGIN{for(;i<256;++i)c[t=sprintf(“%c”,i)]= i==32?”+”:t‾/[0-9A-Za-z]/?t:”%”sprintf(“%x”,i)}
{for(s=i=””;i++<length;s=s c[substr($0,i,1)]); print s}

マルチバイト対応してて length() とか substr() とかが
バイト数ではなく文字数を数えて動作するような小賢しい awk だと逆に動かない。

perl->pythonときてawkの便利さに気付いた。

awkオンリーってのがムズイので、Cygwin上でsh他外部コマンドと組み合わせて使う事が多い

sedのスレとかあったので、思わず「なんでawkを使わない？」って突っ込んでしまったけど、
実はおれも長らくsedからawkへ行けなかった。田中さん(緑のSerrow)が月刊asciiに書いた
記事を読んで使えるようになったのだった。

いまではperlも使うが、やはりawkが楽だなぁ。16進→10進変換の関数作ったり、
バイナリデータ読むためのコードをCで作ったりして無理やり使ってたころが
懐かしい。

自己レスです。
BEGIN { FPAT = “([^” FS “]+)|(¥”[^¥”]+¥”)” }
みたいな事をしました。

>>70はマルチ

そんなん普通に複数ファイル処理すればいいやん。

getline は毎回リファレンス見に行ってるなぁ
頭が劣化しとるわー

時間計測の結果を追記。

time grep -C 500 ‘public class¥|jar cf¥|javac¥|¥.java’ <strings_a.txt >/dev/null
real 0m2.112s
user 0m1.528s
sys 0m0.311s

time awk ‘BEGIN{ L=500;（略）}; /public class|jar cf|javac|¥.java/{（略）}; n++<=L’ <strings_a.txt >/dev/null
real 1m20.089s
user 1m15.426s
sys 0m0.389s

一回計測。約50倍くらい遅いか。ネイティブとスクリプトだから、まあこうなる、と言ったところだと思う。
短い処理なら有利な場合もあるんだろうけど。

オライリーのsed&awkがはじまりだったなあ・・・
んでもってx68kで遊んでいたw

しつもん
http://gauc.no-ip.org/awk-users-jp/blis.cgi/DoukakuAWK_050 のスクリプトの35行目

for (++day;;) {

の意味と動作がよくわからんです
which で等価なループを書くとどんな感じになるの？　ｶｺｲｲ先輩おしえてplz

見にくいので、セミコロンで改行して欲しい。

入力からランダムで1行表示する
awk ‘{ l[i++]=$0 }; END{ srand(); print l[int(i*rand())] }’

シェルスクリプトの方が短いか？

md5sumコマンドの出力から重複するMD5チェックサムを持つファイルを列挙する
awk ‘{ i=++a[$1,0]; a[$1,i]=$0 }; END{ for (i in a) if (!k[split(i,k,SUBSEP)] && a[i]>1) for (j=1; j<=a[i]; j++) print a[k[1],j] }’

まだ短く書けそうかな？
あるディレクトリ以下を調べるなら、こんな感じでMD5チェックサムを計算する。
find sda6.photorec -type f -exec md5sum ‘{}’ +
この出力をパイプか何かで食わせればいい。

gawkの4.0が出たか。いろんな亜種を使う機会があるから、なかなか依存したプログラムは書けないね。
よく使うのはgawkとmawkだけど、皆何をよく使ってるのだろう？使用者が少ないから余計に気になる。

デバッガって使いやすい？いまだにprintで表示してやってるなぁ。

うちは>>77の条件を index($i, “http:”) == 1 で書くだろうなぁ
でも、処理内容がそれだけなら sed -n ‘s/^.*¥(http:[^ ]*¥).*$/¥1/p’ だなぁ
避けられるなら正規表現は避けたほうが速いんじゃないかと思ってる

xgawkは使ってないなぁ。使ってる鳥には無いし。XHTMLが対象ならもっと短く書けるのだろうか。

>>130
おー！これはクール。
gawkは大文字小文字無視する処理書くの楽だね。流石だ。

>>131
前後の行を表示させたりが楽かも。まあ、滅多にお世話になることないけど…
rm -r *でデータ飛ばしたから、そのサルベージに役立つとは…orz

ごめん、
awk ‘{if (match($0,”href=¥”([0-9]{4}-[0-9][0-9]-[0-9][0-9])¥””,a)) print a[1]}’

複数のtimeコマンドの出力から平均を求める
awk -Fm ‘{ a[$1]+=$2; a[0,$1]++ }; END{ for(i in a) if(i‾/^[rus]/) printf “%sm%.3fs¥n”,i,a[i]/a[0,i] }’

昨日の時間計測のために書いた。
いろいろ問題あり。これ以上短くかけなかった、残念だわ。

sedがすっごい遅いので全部メモリに読み込んで処理させてみた。
time cat src.txt |sed -n ‘1x;1!H;${x;s/¥n¥n¥+/¥n/gp}’ >/dev/null
real 0m24.515s
user 0m18.584s
sys 0m2.005s
# ちなみに、昨日のも含めて3回試した結果を平均した

…やっぱ遅い。GNU sedが悪いの？スレ的に満足な結果だけど。
便利で速くてシンプルなのに、あまり使われない紹介されない、消え行くawk、カワイソス

フィールドを抜き出すワンライナーはやっぱawkでしょ
perl -pae’$_=$F[8].$/’
ruby -nae’puts$F[8]’
awk ‘print$9’

そうか、Windowsでの使用率は考えたことなかったわ。そっちで今何が流行ってるのかは知らないけど、
GUI扱うライブラリを持つLLが使われてそうだ。こればかりは厳しい。そもそも、ライブラリって概念がないのが避けられてるのかな。

個人的にはawkは今まで通りシェルのお供でいいと思う
perlとかでもそりゃ書けんことは無いが
シェルのお供として使うには微妙に違和感あるんだよな〜

紙質が悪くてボロボロになった

データ集計に便利

>>129
gawk ‘$0=gensub(“</?title>”, “”, “g”, RT)’ RS='<title>.*</title>’ IGNORECASE=1

>>157
いやまあDelphiは新規としては瀕死で、過去遺産の保守で使われるのが主だけどね。

>>20
perl -ane ‘print $F[2], “¥n”‘でいいんじゃね？

awkは言わねえ、たった一行・・・

>>25
autosplit modeってusageに書いてあるじゃん。

上だと¥n¥rになっちゃうけど
CRLFの¥r¥nとは違うから
Windowsでは認識しないのでは？

>>95の表記初めて見た
このスレの住民にはこれくらい当たり前なのか…

このスレ七夕に立ってたのか。3周年って言われると、まだ3年かと思ってしまう。
3年前といえばLLが盛り上がってた頃だから、もう少し前に立ってればここももっと盛り上がっていたかもね。
gawkは新しくなったけど、確実に他のLLに流れてるよなぁ…

>>145
どこぞのOSでは使えない文字をわざわざファイル名に使わないよねって思い、楽してます。
ただパスに含まれる可能性はあるので、そういった場合は file -F; のようにして
fileコマンドの使うセパレータを（使われていない）任意の文字に設定して下さい。

スタイルに関しては全くその通りで、自分でも冗長だと思いつつ残しています。以下言い訳…

スペースは読み辛くなると思う所にだけ残すようにしています。また、ここに貼ると、
表示がプロポーショナルフォントになって、幅が狭い文字の隣から一部分コピペする操作をよくミスるため、
そういった幅の狭い文字（｝とか；）の後には残しています。
ifやwhileの後、print $1 や “a” b “c” に含まれるものも省略できますが、違和感が物凄いので残しています。

セミコロンは（POSIXの仕様で）必要なものだけを残しているつもりです。
過去の互換性のために省略可能なものは、残すようにしています。

>>44
SSIの仕組みは理解できていますか。
ttp://httpd.apache.org/docs/2.0/ja/howto/ssi.html

>>172
それ、CSVとかでもよく語られることだけど、意外と面倒なのよ。
例えば「”」自体を文字列に入れたい場合はどうするのか、とか色々決めなきゃならんし。

dgawk便利だね。