w3m その8 (738レス)
w3m その8 http://mevius.5ch.net/test/read.cgi/unix/1185784998/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
623: 名無しさん@お腹いっぱい。 [sage] 2019/06/23(日) 12:17:05.62 >>622 まさか当日中にレスが帰ってくるとは・・・! ありがとうございます! 今プログラム作ってるのでできたらやってみたいと思います http://mevius.5ch.net/test/read.cgi/unix/1185784998/623
624: 名無しさん@お腹いっぱい。 [sage] 2019/06/23(日) 15:45:01.17 最初のところはcurlとかwgetとかでやったほうがいいんでねえの? http://mevius.5ch.net/test/read.cgi/unix/1185784998/624
625: 名無しさん@お腹いっぱい。 [sage] 2019/06/23(日) 21:09:34.15 >>624は頭悪そう http://mevius.5ch.net/test/read.cgi/unix/1185784998/625
626: 名無しさん@お腹いっぱい。 [sage] 2019/06/28(金) 00:37:34.49 最初のところはw3mで閲覧中に | 入力にしたほうがいいんでねえの? http://mevius.5ch.net/test/read.cgi/unix/1185784998/626
627: 名無しさん@お腹いっぱい。 [sage] 2019/06/29(土) 07:23:16.16 ブログとか読むのに Perl の HTTP::Proxy 使っていろいろやってたよ。 整形だけでなく、どの記事を読んだかとか SQLite で管理してた。 最近は https だからローカルサーバに URL を渡して処理するね。 こっちも検索結果のマージとか、いろいろなことに利用してる。 http://mevius.5ch.net/test/read.cgi/unix/1185784998/627
628: 名無しさん@お腹いっぱい。 [] 2019/09/05(木) 01:09:36.88 難しい事してるんだな。どんな風に管理するんだろ。 まああまり頭良い使い方は向いてないだろうな。 自分が頭良くない事は痛いほどに痛感する重言する。 >>621 とかはlocal cgiといという機能もある。 w3mのtarballを展開したdoc-jp/*にちょっと説明が書いてある。 そのdoc-jp/の中で実行すればlocal cgiから使える機能とkeymapの説明を合体させてみた。 .w3m/keymapとして使えるはず?。ちなみに、linein.cを変更すれば入力の時のkeymapも変更出来る。 並び替えるだけ。 ---zsh sed '/^#/d; $ adummy' keymap.default |while read do test -z "$REPLY" && {echo; continue} if test $REPLY != dummy then mark=( $(grep -o '[^[:space:]]*$' <<<$REPLY) $mark) grep "^$mark[1]"[[:space:]] README.func \ |sed 's%[^[:space:]]\+[[:space:]]\+%# %' echo $REPLY else grep -Ev "$(printf '^%s|' $mark |sed 's%|$%%')" README.func \ |awk '{printf "# %s\n#keymap undefined-key %s\n", $2, $1}' fi done |nkf -w |cat <(grep '^#' keymap.default) - |less ------ http://mevius.5ch.net/test/read.cgi/unix/1185784998/628
629: 名無しさん@お腹いっぱい。 [] 2019/09/05(木) 01:10:41.21 local cgiはoptionで設定されたディレクトリにあるものはcgiとして実行出来るよ、 その時w3mの機能も使えるよという感じか。 まずw3mで一度optionの画面を開いて設定してもいいし、適当に保存すると、 .w3m/configが出来るから扱いやすいと思う。 w3m -show-option すると何のoptionか分かる。 場所決めてそこに^*2のようなscriptを入れて実行..あれ実行..なんて言うんだっけ とにかくそれをして以下のように呼び出すとgoogleのsourceの画面になる。後は勘でいけると思う。 俺も勘でしか触ってないし、勘で触って色々出来ると思うよ。 w3m file:///cgi-bin/echo.zsh?http://google.com/ ---*2 #!/bin/zsh <<EOF Content-Type: text/plain w3m-control: GOTO $QUERY_STRING w3m-control: VIEW EOF ------ 後便利なのはEXTERNとかは以下みたいな使い方も出来るよとかか。 なんでこんな書き方するのというのは、ただの説明の為。辞書系の機能も色々出来るね。 keymap ft EXTERN 'p=%s; |echo $p |xsel -a' http://mevius.5ch.net/test/read.cgi/unix/1185784998/629
630: 名無しさん@お腹いっぱい。 [] 2019/09/05(木) 01:15:40.40 #!/bin/zsh # 見れなくなったgoogleの対処を書いた。やっつけだけどやっつけがいつも自分を助けてくれない? # googleがおまえもっと使いにくいスタイルで使えと言ってきたら.w3m/.cookieを削除したり。 # httpsをhttpに変えてみたり、後num=100を50ぐらいに減らしたら文句言われない場合もある。 # 以下のようにcommandを実行した場合に変数$QUERY_STRINGに入っている'test%20test'を # test+testへ変えて吐き出す。 # w3m file:///cgi-bin/google.zsh?'test test' # 日本語は%エンコーディング?へ変えている。 # sedの処理は長い日本語をnkf -MQした時に入る改行への対応をしている。 w3go () { printf %s $1 |nkf -MQ |sed -n ':S $! {N; b S;}; s/=\n//g; s/=/%/g; p' test $# -eq 1 || {shift; echo -n +; w3go $@} } # 次のページへの対応。 if test "$QUERY_STRING" \=~ '^start=[0-9]*;' then NEXT="&$(cut -d ';' -f 1 <<<$QUERY_STRING)" QUERY_STRING=$(cut -d ';' -f 2- <<<$QUERY_STRING) fi # 検索部分の対応。 # formから送られてくるspaceが+に変換されたものを変える。 test "$QUERY_STRING" \=~ '^submit=1&' \ && QUERY_STRING=$(cut -d '&' -f 2- <<<$QUERY_STRING |sed 's/+\+/%20/g') http://mevius.5ch.net/test/read.cgi/unix/1185784998/630
631: 名無しさん@お腹いっぱい。 [] 2019/09/05(木) 01:16:45.84 # 飛ぶURLを作る。 URL="https://www.google.co.jp/search?\ q=$(w3go $(nkf --url-input <<<$QUERY_STRING))&hl=ja&biw=&bih=&gbv=1&num=100" # googleのhtmlをfilteringして表示する。 # ここら辺は癖なのか仕様なのかがあってcopyして実行しても # 動かないだろうからこういう書き方をしている。 # またここは丁寧にやれはやるほど遅くなる。 # 最後のsを,で仕切っているのは$QUERY_STRINGの中に%が含まれる為。 <<EOF Content-Type: text/plain w3m-control: GOTO $URL$NEXT w3m-control: VIEW w3m-control: PIPE_BUF sed 's%<form.*/form>'\ '%<form action="file:///cgi-bin/google.zsh">'\ '<input name=submit type=hidden value=1>'\ '<input type=text value="$(nkf --url-input <<<$QUERY_STRING)"></form>%;'\ 's%\(<a [^>]*>\)<[^>]*>\([^<]*\)</[^>]*>%\1\2%g;'\ 's%\(<a [^>]*href="\)/%\1https://www.google.co.jp/%g;'\ 's,<a [^>]*;\(start=[0-9]*\)[^<]*\(&.t;</a>\)'\ ',<a href="file:///cgi-bin/google.zsh?\1;$QUERY_STRING">移動 \2,g' w3m-control: VIEW EOF http://mevius.5ch.net/test/read.cgi/unix/1185784998/631
632: 名無しさん@お腹いっぱい。 [] 2019/09/05(木) 01:18:46.25 以下みたいに実行。動かなかったらごめんな。でも俺の環境だと動いてる。 w3m file:///cgi-bin/google.zsh?'わずかばかりの 運の悪さを 恨んだりして' http://mevius.5ch.net/test/read.cgi/unix/1185784998/632
633: 名無しさん@お腹いっぱい。 [] 2019/09/05(木) 06:03:14.23 色々変な事してるなsubmitされて来て完成されてる文字列を+を%20とかに変える必要ないな。 inputってdefaultで入ってる文字列の方を加工すべきで。 後やっぱ一度に表示しないと戻る時にゴミが入りすぎるな。 まあ直さないんだけど。ノシ。 http://mevius.5ch.net/test/read.cgi/unix/1185784998/633
634: 名無しさん@お腹いっぱい。 [] 2019/09/05(木) 18:12:55.36 やっぱ後でやっつけで直す。 http://mevius.5ch.net/test/read.cgi/unix/1185784998/634
635: 名無しさん@お腹いっぱい。 [] 2019/09/05(木) 19:33:02.44 #!/bin/zsh w3go () { printf %s $1 |nkf -MQ |sed -n ':S $! {N; b S;}; s/=\n//g; s/=/%/g; p' test $# -eq 1 || {shift; echo -n +; w3go $@} } case "x$QUERY_STRING" in xstart=[0-9]*\;*) # 次のページへの対応。 NEXT="&$(cut -d ';' -f 1 <<<$QUERY_STRING)" QUERY_STRING=$(cut -d ';' -f 2- <<<$QUERY_STRING) URL="https://www.google.co.jp/search?\ q=$( w3go $(nkf --url-input <<<$QUERY_STRING))&hl=ja&biw=&bih=&gbv=1&num=100" ;; xsubmit=1\&*) # formから流れて来た文字列は加工しない。 # こうしないと移動の表示が狂う。 QUERY_STRING=$( cut -d '&' -f 2- <<<$QUERY_STRING ) URL="https://www.google.co.jp/search?\ q=$QUERY_STRING&hl=ja&biw=&bih=&gbv=1&num=10" ;; *) URL="https://www.google.co.jp/search?\ q=$( w3go $(nkf --url-input <<<$QUERY_STRING))&hl=ja&biw=&bih=&gbv=1&num=100" ;; esac http://mevius.5ch.net/test/read.cgi/unix/1185784998/635
636: 名無しさん@お腹いっぱい。 [] 2019/09/05(木) 19:33:51.68 <<EOF Content-Type: text/plain w3m-control: GOTO $URL$NEXT w3m-control: VIEW w3m-control: PIPE_BUF sed 's%<form.*value="\(.*\)"[^>]*name="q".*/form>'\ '%<form action="file:///cgi-bin/google.zsh">'\ '<input name=submit type=hidden value=1>'\ '<input type=text value="\1"></form>%;'\ 's%\(<span[^>]*>\|</span>\)%%g; s%<div[^>]*>%%g; s%</div>%<div>&%g;'\ 's%\(<a [^>]*href="\)/%\1https://www.google.co.jp/%g;'\ 's,<a [^>]*;\(start=[0-9]*\)[^<]*\(&.t;</a>\)'\ ',<a href="file:///cgi-bin/google.zsh?\1;$QUERY_STRING">移動 \2,g' w3m-control: VIEW w3m-control: DELETE_PREVBUF w3m-control: DELETE_PREVBUF w3m-control: DELETE_PREVBUF w3m-control: DELETE_PREVBUF EOF http://mevius.5ch.net/test/read.cgi/unix/1185784998/636
637: 名無しさん@お腹いっぱい。 [] 2019/09/05(木) 19:35:35.50 まだ色々間違ってるだろうけど、まあ適当には使えるじゃないか。 おしまい。 http://mevius.5ch.net/test/read.cgi/unix/1185784998/637
638: 名無しさん@お腹いっぱい。 [] 2019/09/05(木) 19:38:44.80 あ、一ヶ所だけnum=が10になっちゃってるから手動で直して。 http://mevius.5ch.net/test/read.cgi/unix/1185784998/638
639: 名無しさん@お腹いっぱい。 [] 2019/09/06(金) 01:07:27.43 明日か明後日には検索出来ない文字列と、時間指定の対応をする。 http://mevius.5ch.net/test/read.cgi/unix/1185784998/639
640: 名無しさん@お腹いっぱい。 [] 2019/09/06(金) 02:07:31.95 #!/bin/zsh # これだけで良かったのか簡単になった。でも半分寝てるから何処か間違えてるだろう。 w3go () { printf %s $1 |nkf -MQ |sed -n ':S $! {N; b S;}; s/=\n//g; s/=/%/g; p' test $# -eq 1 || {shift; echo -n +; w3go $@} } UNIQ=$(mktemp -u XXXXXXXX) case "$UNIQ$QUERY_STRING" in ${UNIQ}submit=1\&*) # formから流れて来た文字列は加工しない。 URL="https://www.google.co.jp/search?\ q=$( cut -d '&' -f 2- <<<$QUERY_STRING )&hl=ja&biw=&bih=&gbv=1&num=100" ;; ${UNIQ}dummy\&*) # 次のページへの対応。# 時間指定への対応。 URL="https://www.google.co.jp/search?$( cut -d '&' -f 2- <<<$QUERY_STRING )" ;; *) URL="https://www.google.co.jp/search?\ q=$( w3go $(nkf --url-input <<<$QUERY_STRING))&hl=ja&biw=&bih=&gbv=1&num=100" ;; esac http://mevius.5ch.net/test/read.cgi/unix/1185784998/640
641: 名無しさん@お腹いっぱい。 [] 2019/09/06(金) 02:08:09.58 <<EOF Content-Type: text/plain w3m-control: GOTO $URL$NEXT w3m-control: VIEW w3m-control: PIPE_BUF sed 's%<form.*value="\(.*\)"[^>]*name="q".*/form>'\ '%<form action="file:///cgi-bin/google.zsh">'\ '<input name=submit type=hidden value=1>'\ '<input type=text value="\1"></form>%;'\ 's%\(<span[^>]*>\|</span>\)%%g; s%<div[^>]*>%%g; s%</div>%<div>&%g;'\ 's%\(<a [^>]*href="\)/url?%\1https://www.google.co.jp/url?%g;'\ 's%\(<a [^>]*href="\)/search?\([^"]*"\)%\1file:///cgi-bin/google.zsh?dummy\&\2%g' w3m-control: VIEW w3m-control: DELETE_PREVBUF w3m-control: DELETE_PREVBUF w3m-control: DELETE_PREVBUF w3m-control: DELETE_PREVBUF EOF http://mevius.5ch.net/test/read.cgi/unix/1185784998/641
642: 名無しさん@お腹いっぱい。 [] 2019/09/06(金) 03:07:34.05 何度もごめん見直して無い部分は大概間違ってるな。 そもそも最初testしてた時のcodeがまったくいらない。 まったく分けから無く見えてるなこれじゃ。 http://mevius.5ch.net/test/read.cgi/unix/1185784998/642
643: 名無しさん@お腹いっぱい。 [] 2019/09/06(金) 03:09:12.97 #!/bin/zsh UNIQ=$(mktemp -u XXXXXXXX) case "$UNIQ$QUERY_STRING" in ${UNIQ}submit=1\&*) # formから流れて来た文字列は加工しない。 URL="https://www.google.co.jp/search?\ q=$( cut -d '&' -f 2- <<<$QUERY_STRING )&hl=ja&biw=&bih=&gbv=1&num=100";; ${UNIQ}dummy\&*) # 次のページへの対応。# 時間指定への対応。 URL="https://www.google.co.jp/search?$( cut -d '&' -f 2- <<<$QUERY_STRING )";; *) URL="https://www.google.co.jp/search?\ q=$QUERY_STRING&hl=ja&biw=&bih=&gbv=1&num=100";; esac <<EOF Content-Type: text/plain w3m-control: GOTO $URL w3m-control: VIEW w3m-control: PIPE_BUF sed 's%<form.*value="\(.*\)"[^>]*name="q".*/form>'\ '%<form action="file:///cgi-bin/google.zsh">'\ '<input name=submit type=hidden value=1>'\ '<input type=text value="\1"></form>%;'\ 's%\(<span[^>]*>\|</span>\)%%g; s%<div[^>]*>%%g; s%</div>%<div>&%g;'\ 's%\(<a [^>]*href="\)/url?%\1https://www.google.co.jp/url?%g;'\ 's%\(<a [^>]*href="\)/search?\([^"]*"\)%\1file:///cgi-bin/google.zsh?dummy\&\2%g' w3m-control: VIEW w3m-control: DELETE_PREVBUF w3m-control: DELETE_PREVBUF w3m-control: DELETE_PREVBUF w3m-control: DELETE_PREVBUF EOF http://mevius.5ch.net/test/read.cgi/unix/1185784998/643
644: 名無しさん@お腹いっぱい。 [] 2019/09/06(金) 07:26:48.59 #!/bin/zsh #おかしいな寝る前は対処出来てたんだけど起きたら世界が変わってた。変な所を一度消す。 case "$QUERY_STRING" in rotate\&*) # 次のページへ、時間指定等の対応。 URL="https://www.google.co.jp/search?$( cut -d '&' -f 2- <<<$QUERY_STRING )";; decode\&*) # ここから再検索して下さいの対処。 URL="https://www.google.co.jp/search?\ $(nkf --url-input <( sed 's/[^&]*&//; s/%25/%/g' <<<$QUERY_STRING ))";; *) #default, またはformから流れてくるもの。 URL="https://www.google.co.jp/search?q=$QUERY_STRING&hl=ja&biw=&bih=&gbv=1&num=100";; esac <<EOF Content-Type: text/plain w3m-control: GOTO $URL w3m-control: VIEW w3m-control: PIPE_BUF sed 's%<form.*value="\(.*\)"[^>]*name="q".*/form>'\ '%<form action="file:///cgi-bin/google.zsh">'\ '<input type=text value="\1"></form>%;'\ 's%\(<span[^>]*>\|</span>\)%%g; s%<div[^>]*>%%g; s%</div>%<div>&%g;'\ 's,\(<a [^>]*href="\)/url?q=/search%3F\(q%3D[^"]*"\)'\ ',\1file:///cgi-bin/google.zsh?decode\&\2,;'\ 's%\(<a [^>]*href="\)/url?%\1https://www.google.co.jp/url?%g;'\ 's%\(<a [^>]*href="\)/search?\([^"]*"\)%\1file:///cgi-bin/google.zsh?rotate\&\2%g' w3m-control: VIEW w3m-control: DELETE_PREVBUF w3m-control: DELETE_PREVBUF w3m-control: DELETE_PREVBUF w3m-control: DELETE_PREVBUF EOF http://mevius.5ch.net/test/read.cgi/unix/1185784998/644
645: 名無しさん@お腹いっぱい。 [] 2019/09/06(金) 18:14:55.56 #!/bin/zsh test "${QUERY_STRING%%&*}" = $(basename $( factor $PPID |md5sum )) \ && UNIQ=$(basename $( factor $PPID |md5sum )) case "$QUERY_STRING" in ${UNIQ}\&rotate\&*) # 次のページへ、時間指定等の対応。 URL="https://www.google.co.jp/search?$( cut -d '&' -f 3- <<<$QUERY_STRING )";; ${UNIQ}\&decode\&*) # ここから再検索して下さいの対処。 URL="https://www.google.co.jp/search?\ $(nkf --url-input <( sed 's/\([^&]*&\)\{2\}//; s/%25/%/g' <<<$QUERY_STRING ))";; *) #default, またはformから流れてくるもの。 URL="https://www.google.co.jp/search?q=$QUERY_STRING&hl=ja&biw=&bih=&gbv=1&num=100" UNIQ=$(basename $( factor $PPID |md5sum ));; esac <<EOF Content-Type: text/plain w3m-control: GOTO $URL w3m-control: VIEW w3m-control: PIPE_BUF sed 's%<form.*value="\(.*\)"[^>]*name="q".*/form>'\ '%<form action="file:///cgi-bin/google.zsh">'\ '<input type=text value="\1"></form>%;'\ 's%\(<span[^>]*>\|</span>\)%%g; s%<div[^>]*>%%g; s%</div>%<div>&%g;'\ 's,\(<a [^>]*href="\)/url?q=/search%3F\(q%3D[^"]*"\)'\ ',\1file:///cgi-bin/google.zsh?${UNIQ}\&decode\&\2,;'\ 's%\(<a [^>]*href="\)/url?%\1https://www.google.co.jp/url?%g;'\ 's%\(<a [^>]*href="\)/search?\([^"]*"\)'\ '%\1file:///cgi-bin/google.zsh?${UNIQ}\&rotate\&\2%g' w3m-control: VIEW $( printf '%s\n' 'w3m-control: DELETE_PREVBUF'{,,,} ) EOF http://mevius.5ch.net/test/read.cgi/unix/1185784998/645
646: 名無しさん@お腹いっぱい。 [] 2019/09/06(金) 18:15:42.68 # この星の一等賞んなりたいのw3mで俺は!そんだけ! # 変数UNIQ関係は検索した文字列がcaseの命令と重ならないようにしている。 # それはw3mの起動ごとに変わるはず。もしかしたらいらないのかな。 http://mevius.5ch.net/test/read.cgi/unix/1185784998/646
647: 名無しさん@お腹いっぱい。 [] 2019/09/06(金) 18:18:11.34 あーまた間違える。さっきまでとまた世界が変わってる。 http://mevius.5ch.net/test/read.cgi/unix/1185784998/647
648: 名無しさん@お腹いっぱい。 [] 2019/09/06(金) 18:30:16.64 #!/bin/zsh test "${QUERY_STRING%%&*}" != $(basename $( factor $PPID |md5sum )) \ && UNIQ=$(basename $( factor $PPID |md5sum )) case "$UNIQ$QUERY_STRING" in rotate\&*) # 次のページへ、時間指定等の対応。 URL="https://www.google.co.jp/search?$( cut -d '&' -f 3- <<<$QUERY_STRING )" UNIQ=$(basename $( factor $PPID |md5sum ));; decode\&*) # ここから再検索して下さいの対処。 URL="https://www.google.co.jp/search?\ $(nkf --url-input <( sed 's/\([^&]*&\)\{2\}//; s/%25/%/g' <<<$QUERY_STRING ))" UNIQ=$(basename $( factor $PPID |md5sum ));; ${UNIQ}*) #default, またはformから流れてくるもの。 URL="https://www.google.co.jp/search?q=$QUERY_STRING&hl=ja&biw=&bih=&gbv=1&num=100";; esac <<EOF Content-Type: text/plain w3m-control: GOTO $URL w3m-control: VIEW w3m-control: PIPE_BUF sed 's%<form.*value="\(.*\)"[^>]*name="q".*/form>'\ '%<form action="file:///cgi-bin/google.zsh">'\ '<input type=text value="\1"></form>%;'\ 's%\(<span[^>]*>\|</span>\)%%g; s%<div[^>]*>%%g; s%</div>%<div>&%g;'\ 's,\(<a [^>]*href="\)/url?q=/search%3F\(q%3D[^"]*"\)'\ ',\1file:///cgi-bin/google.zsh?${UNIQ}\&decode\&\2,;'\ 's%\(<a [^>]*href="\)/url?%\1https://www.google.co.jp/url?%g;'\ 's%\(<a [^>]*href="\)/search?\([^"]*"\)'\ '%\1file:///cgi-bin/google.zsh?${UNIQ}\&rotate\&\2%g' w3m-control: VIEW $( printf '%s\n' 'w3m-control: DELETE_PREVBUF'{,,,} ) EOF http://mevius.5ch.net/test/read.cgi/unix/1185784998/648
649: 名無しさん@お腹いっぱい。 [] 2019/09/06(金) 18:33:46.29 全然違うわ。なんなんだよ。 http://mevius.5ch.net/test/read.cgi/unix/1185784998/649
650: 名無しさん@お腹いっぱい。 [] 2019/09/06(金) 19:09:05.53 #!/bin/zsh # あってるのかな。 UNIQ=$(basename $( factor $PPID |md5sum )) if test "${QUERY_STRING%%&*}" != $UNIQ; then # default, またはformから流れてくるもの。 URL="https://www.google.co.jp/search?q=$QUERY_STRING&hl=ja&biw=&bih=&gbv=1&num=100" else case "$QUERY_STRING" in ${UNIQ}\&rotate\&*) # 次のページへ、時間指定等の対応。 URL="https://www.google.co.jp/search?$( cut -d '&' -f 3- <<<$QUERY_STRING )";; ${UNIQ}\&decode\&*) # ここから再検索して下さいの対処。 URL="https://www.google.co.jp/search?\ $(nkf --url-input <( sed 's/\([^&]*&\)\{2\}//; s/%25/%/g' <<<$QUERY_STRING ))";; esac fi <<EOF Content-Type: text/plain w3m-control: GOTO $URL w3m-control: VIEW w3m-control: PIPE_BUF sed 's%<form.*value="\(.*\)"[^>]*name="q".*/form>'\ '%<form action="file:///cgi-bin/google.zsh">'\ '<input type=text value="\1"></form>%;'\ 's%\(<span[^>]*>\|</span>\)%%g; s%<div[^>]*>%%g; s%</div>%<div>&%g;'\ 's,\(<a [^>]*href="\)/url?q=/search%3F\(q%3D[^"]*"\)'\ ',\1file:///cgi-bin/google.zsh?${UNIQ}\&decode\&\2,;'\ 's%\(<a [^>]*href="\)/url?%\1https://www.google.co.jp/url?%g;'\ 's%\(<a [^>]*href="\)/search?\([^"]*"\)'\ '%\1file:///cgi-bin/google.zsh?${UNIQ}\&rotate\&\2%g' w3m-control: VIEW $( printf '%s\n' 'w3m-control: DELETE_PREVBUF'{,,,} ) EOF http://mevius.5ch.net/test/read.cgi/unix/1185784998/650
651: 名無しさん@お腹いっぱい。 [] 2019/09/07(土) 00:34:24.46 #!/bin/zsh UNIQ=$(basename $( factor $PPID |md5sum )) if test "${QUERY_STRING%%&*}" != ${UNIQ}=; then # default. URL="https://www.google.co.jp/search?q=$QUERY_STRING&hl=ja&biw=&bih=&gbv=1&num=100" else case "$QUERY_STRING" in ${UNIQ}=\&*) # formから流れてくるもの。 URL="https://www.google.co.jp/search?$( cut -d '&' -f 2- <<<$QUERY_STRING )";; ${UNIQ}=\&rotate\&*) # 次のページへ、時間指定等の対応。 URL="https://www.google.co.jp/search?$( cut -d '&' -f 3- <<<$QUERY_STRING )";; ${UNIQ}=\&decode\&*) # ここから再検索して下さいの対処。 URL="https://www.google.co.jp/search?\ $(nkf --url-input <( sed 's/\([^&]*&\)\{2\}//; s/%25/%/g' <<<$QUERY_STRING ))";; esac fi <<EOF Content-Type: text/plain w3m-control: GOTO $URL w3m-control: VIEW w3m-control: PIPE_BUF sed \ 's%Shift_JIS%UTF-8%g; s%\(<form \)\([^>]*>\)'\ '%\1action="file:///cgi-bin/google.zsh" \2<input name="${UNIQ}" type=hidden>%;'\ 's%\(<span[^>]*>\|</span>\)%%g; s%<div[^>]*>%%g; s%</div>%<div>&%g;'\ 's,\(<a [^>]*href="\)/url?q=/search%3F\(q%3D[^"]*"\)'\ ',\1file:///cgi-bin/google.zsh?${UNIQ}=\&decode\&\2,;'\ 's%\(<a [^>]*href="\)/url?%\1https://www.google.co.jp/url?%g;'\ 's%\(<a [^>]*href="\)/search?\([^"]*"\)'\ '%\1file:///cgi-bin/google.zsh?${UNIQ}=\&rotate\&\2%g' w3m-control: VIEW $( printf '%s\n' 'w3m-control: DELETE_PREVBUF'{,,,} ) EOF http://mevius.5ch.net/test/read.cgi/unix/1185784998/651
652: 名無しさん@お腹いっぱい。 [] 2019/09/07(土) 00:43:08.66 formから流れてくるものはqueryの変更をしない事にした。ニュースを検索したいのに「すべて」を 検索してしまう事への対応。 Shift_JISは変えないと、formから流れてくる文字の検索が失敗する。 大体これで前と一緒な感じがするな。ただ眠るとどうだろうな。 まあ誰か役に立てば。 http://mevius.5ch.net/test/read.cgi/unix/1185784998/652
メモ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 86 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.026s