(´-`).｡ｏＯ(なんでだろ？)

[過去ﾛｸﾞ] (´-`).｡ｏＯ(なんでだろ？) (1001ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

13: login:Penguin [age] 01/10/23 02:38 ID:Mai+UEMB

(´-`)y-~~
このスレの>>8は当然偉人だろう…
が、debになるのを当然待っちまうだろう…
そして、勝手にお礼のスクリプトを書くのが当然だろう…

# 標準入力から読み込み、urlを抽出して、標準出力へ。
while(<>){while($_=~/($http_URL_regex)/g){print $1."\n";}}

# 標準入力から読み込み、ttpをhttpに変換して、標準出力へ。
while(<>){$_=~s/($http_URL_regex)/h$1/g;print;}

$http_URL_regexは以下を当然使うだろう…

$http_URL_regex =
q{\b(?:https?|shttp)://(?:(?:[-_.!~*'()a-zA-Z0-9;:&=+$,]|%[0-9A-Fa-f} .
q{][0-9A-Fa-f])*@)?(?:(?:[a-zA-Z0-9](?:[-a-zA-Z0-9]*[a-zA-Z0-9])?\.)} .
q{*[a-zA-Z](?:[-a-zA-Z0-9]*[a-zA-Z0-9])?\.?|[0-9]+\.[0-9]+\.[0-9]+\.} .
q{[0-9]+)(?::[0-9]*)?(?:/(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f]} .
q{[0-9A-Fa-f])*(?:;(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-} .
q{Fa-f])*)*(?:/(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f} .
q{])*(?:;(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*)*)} .
q{*)?(?:\?(?:[-_.!~*'()a-zA-Z0-9;/?:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])} .
q{*)?(?:#(?:[-_.!~*'()a-zA-Z0-9;/?:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*} .
q{)?};

個人的にはemacsのM-|で利用するつもりだったんだけれども、シェルからでも、
またnavi2ch愛用者は以下のシェルスクリプトでも幸せ(?)になれるはず。

#!/bin/sh
PREFIX=$HOME/.navi2ch/www2.bbspink.com/ascii
for i in `ls $PREFIX/*.dat`
do
cat $i \
| ttp変換 | URL抽出 | uniq \
| wget オプション -i - >/dev/null 2>&1
done
exit 0

(´-`)y-~~ もう何時なんだろう。でも、何とか大丈夫なんだろう…

http://mao.5ch.io/test/read.cgi/linux/1003766072/13

上下前次 1-新書関写板覧索設栞歴

あと 916 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.012s