awk ファンクラブ (332レス)
上下前次1-新
抽出解除 レス栞
116: 2011/06/08(水)01:01:03.76 ID:48mfCmU6(1) AAS
そっかー、分かり易さは、上の方だと思ったのですよ。
下のは、awkがどう動くかを知ってないと気持ち悪い感じ。
101みたいなsedスクリプトを、初めて見たときのような。
125(1): 2011/06/15(水)21:26:33.76 ID:QLTzRiMx(1) AAS
HTMLファイルからタイトル(title要素の持つ文字列)を取得する
awk '/<title>/{ b=1 }; b{ s=s $0 RS }; /<\/title>/{ gsub(/.*<title>|<\/title>.*/,"",s); print s; exit }'
分かりやすさと効率を無視、短さを優先した別解。
awk '{ s=t=s $0 RS }; gsub(/.*<title>|<\/title>.*/,"",t)>1{ print t; exit }'
どっかのスレにて、出遅れ、荒れ気味なので。
改行も保存してるけど、必要ないならRSを除けばいい。
perlの無いシステムでもawkはある!はず。
省1
146: 2011/07/08(金)20:31:15.76 ID:bJ65EBT8(1) AAS
昨日はこのスレの3周年だったのです。
164(1): 2011/07/14(木)23:45:53.76 ID:I04Pjvnw(2/2) AAS
引数で与えられたファイルをメモリに読み込み繰り返し検索する
awk 'BEGIN{f=ARGV[1];while((getline<f)>0)a[n++]=$0;close(f);ARGV=1};{for(i=0;i<n;++i)if(a[i]~$0)print a[i]}'
最近、用途が限られているもの中心だったので使えそうなワンライナーにしてみたよ。きっと。
指摘を受けたので、スペースは削ることにしました。ちっと見づらい?
↓は大文字小文字を無視するもの。こうするとdmesgの出力を何回も検索できる。
awk 'BEGIN{f=ARGV[1];while((getline<f)>0)l[n++]=tolower(a[+n]=$0);close(f);ARGC=1};{for(i=0;i<n;++i)if(l[i]~tolower($0))print a[i]}' <(dmesg)
261: 2022/01/10(月)19:56:17.76 ID:CxUz26hu(1) AAS
winget install awkで入る(g)awkじゃいかんの?
今のところ困った事はない
279: 2024/08/06(火)17:01:56.76 ID:mqunBzkJ(1) AAS
まず
自身のメンタル体力が落ちてるからアベガーがツボガーになったよ
スタッフなの分まで歌う」
上下前次1-新書関写板覧索設栞歴
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 0.015s