Javascript だらけの世の中で w3m 使いが少しは快適に生活できるかもしれない local cgi
はてなダイアリーのはまぞうでの検索(リンクの挿入はできません)と mixi のマイミクシィ最新日記はどうにか使えるようになります。
余計なリンクが沢山できることは気にしないで下さい。
改善案などあったら教えて下さい。
#!/usr/local/bin/perl # # keymap KEY GOTO file:/cgi-bin/スクリプト名 # $type = $ENV{W3M_TYPE}; $charset = $ENV{W3M_CHARSET}; $url = $ENV{W3M_URL}; $file = $ENV{W3M_SOURCEFILE}; -f $file || exit; $| = 1; print <<EOF; Content-Type: $type; charset=$charset EOF if ($type =~ /^text\/html/i && $url){ print "<base href=\"$url\">\n"; } if ($file =~ /\.gz$/i ){ open(IN, "/usr/bin/zcat $file |"); }else{ open(IN, "< $file"); } while (<IN>){ if($_ =~ /<(a|input)\s+[^>]*(href|onclick)\s*=\s*"javascript:.*>/i){ print $_; $temp = $_; while($temp =~ /'([^'"]*)'/){ print "<a href=\"$1\">$1</a>"; $temp = $'; } }else{ print $_; } } close(IN);