$title

#!/usr/bin/perl ;# ;# (c) info@hpnavi.sakura.ne.jp ;# http://www.hpnavi.sakura.ne.jp/ #------ 初期設定 ---------------------------------------------------------- #■日本語コード変換ライブラリ require 'jcode.pl'; # #■名称 $title = 'Office HP Navi　～　Ｂｅマニュアル不要（朝日新聞）'; $title2 = 'Office HP Navi　～　てくの生活入門（朝日新聞）'; $title3 = 'Office HP Navi　～　Ｂｅｎｇｌｉｓｈ（朝日新聞）'; $title4 = 'Office HP Navi　～　お金の悩み　彼女の場合（朝日新聞）'; $title5 = 'Office HP Navi　～　ソフ得！（朝日新聞）'; $title6 = 'Office HP Navi　～　年金術（朝日新聞）'; $title7 = 'Office HP Navi　～　マネーの外来（朝日新聞）'; #■処理画面のボディ設定 $body = ''; $link = '1'; $linktxt = './dat/manual.txt'; # リンクデータファイル名 $link2txt = './dat/tec.txt'; # リンクデータファイル名 $link3txt = './dat/benglish.txt'; # リンクデータファイル名 $link4txt = './dat/money.txt'; # リンクデータファイル名 $link5txt = './dat/softoku.txt'; # リンクデータファイル名 $link6txt = './dat/nenkin.txt'; # リンクデータファイル名 $link7txt = './dat/gairai.txt'; # リンクデータファイル名 $count =0; #*************************** first seting mode *********************************** if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'}); } else { $QUERY_DATA = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$QUERY_DATA); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s//>/g; $value =~ s/\n//g; $value =~ s/\,//g; &jcode'convert(*value,'sjis'); $QUERY{$name} = $value; } $ENV{'TZ'} = "JST-9"; ### 表示レベル設定 $level1="★☆☆"; $level2="★★☆"; $level3="★★★"; $LEVEL=""; $bgcol="#efeffe"; $bgcol1="#eefcef"; $bgcol2="#fefcef"; $bgcol3="#feecef"; $keyl=""; ### ＳＯＲＴ設定 $keys="a"; $sortgif1="sort1.gif"; $sortgif2="sort2.gif"; $sortalt1="日付降順"; $sortalt2="日付昇順"; ###検索：メール、パソコン、ウィルス、携帯 ### LinkData Select if ($QUERY{'link'} eq '2') { $linktxt=$link2txt; $title=$title2; $link=2; } elsif ($QUERY{'link'} eq '3') { $linktxt=$link3txt; $title=$title3; $link=3; } elsif ($QUERY{'link'} eq '4') { $linktxt=$link4txt; $title=$title4; $link=4; } elsif ($QUERY{'link'} eq '5') { $linktxt=$link5txt; $title=$title5; $link=5; } elsif ($QUERY{'link'} eq '6') { $linktxt=$link6txt; $title=$title6; $link=6; } elsif ($QUERY{'link'} eq '7') { $linktxt=$link7txt; $title=$title7; $link=7; } ######## data読み込み #&data_read; open(IN,"$linktxt") || &error("Open Error: link.txt"); @DATA = ; close(IN); ######## ### Level Select if ($QUERY{'lev'} eq '1') { $LEVEL=$level1; $bgcol=$bgcol1; $keyl="&lev=1"; } elsif ($QUERY{'lev'} eq '2') { $LEVEL=$level2; $bgcol=$bgcol2; $keyl="&lev=2"; } elsif ($QUERY{'lev'} eq '3') { $LEVEL=$level3; $bgcol=$bgcol3; $keyl="&lev=3"; } ### Sort if ($QUERY{'sort'} eq 'r') { @DATA = reverse(@DATA); $keys="r";} #if ($QUERY{'sort'} eq 'r') # { ; $sortgif=$sortgif1; $sortalt=$sortalt1; } #else { $keys="r"; } ### Key Search if ($QUERY{'key'} ne '') { $rkey = $QUERY{'key'}; $rkey =~ tr/[A-Z]/[a-z]/; $rkey =~ s/　/ /g; @KEY = split(/ /,$rkey); $keycount = @KEY; # @DATA = reverse(@DATA); foreach $mline (@DATA) { $line = $mline; $line =~ tr/[A-Z]/[a-z]/; $match = 0; foreach $key (@KEY) { if (index($line,$key) >= 0) { $match = 1; last; } } if ($match) { push(@MATCH,$mline); } } @DATA = @MATCH; $count = @MATCH; $key = $QUERY{'key'}; } #&decode; #&htmlout; &linkhtml; sub linkhtml { print "Content-type: text/html\n\n"; print " $title "; print <<"_HTML_";

下記に移転しました。自動で切り替わらない時はenter

http://www.hpnavi.sakura.ne.jp/be/

_HTML_ print "\n"; exit; } #----------------# # 一覧画面出力 # #----------------# sub htmlout { # &header; print "Content-type: text/html\n\n"; print " $title $body "; if ($link eq '1'){ print " "; } elsif(0) { print " "; } print " "; #print "

$title

毎日のニュースやテレビ番組等、ネットで済ませてしまう私ですが、このｂｅ日曜版は毎週楽しみに、ほぼくまなく読んでいます。皆様にもお気に入りのｂｅのページをご紹介します。 asahi.com ｂｅのバックナンバー一覧は約３カ月分で消えてしまう様です。けれど各ページは保存されています。まだまだ消されない事を期待して！！



	"; if ($QUERY{'key'} ne '') { if ($count > 0) { print "キーワード[$key]で$count件の該当が有りました。もう一度「検索」（キーワード：空白）で選択解除します\n";} else { print "キーワード[$key]で該当が有りません。もう一度「検索」（キーワード：空白）で選択解除します\n";} } else{ print "キーワード検索ができます。\n"; } print "

"; print ""; print <<"_HTML_"; _HTML_ print "

朝日新聞　日曜版
　ｂｅバックナンバーより

★★マネーの外来★★　
今年春からスタートした
「ｂｅｅクリニック」～
なかなか理解しずらいお金の
問題をやさしく教えてくれます
しっかり勉強しないと・・・

★★ 年金術 ★★　
今、一番注目の年金問題を
わかりやすく教えてくれます。
残念ながら2005年3月で
終わってしまいました。

★★てくの生活入門★★
2004年4月からスタート。

★★　ソ\フ得！★★　
作者のリンク先追加。
ｂｅバックナンバー一覧には
無いので追加しました。

★★benglish ★★
映画で学ぼう
満点への道

★★お金の悩み★★
お金には縁がないですが
とても参考になります。

★★マニュアル不要★★
一番のお気に入りだったんですが、
残念ながら2004年3月末で
終了してしまいました。

"; print ""; foreach $line (@DATA) { @f = split(/\t/,$line); if ($LEVEL eq $f[2]){ # ソフ得　リンク先表示 if ($link eq "5"){ print "\n"; print "\n"; print "\n"; print "\n";} else { print "\n"; print "\n"; print "\n"; } } elsif ($LEVEL eq ""){ # 表示レベル選択（マニュアル不要） print "\n"; print "\n"; print "\n"; } } print "

	$f[1]$f[2]	$f[3]
	$f[4]	$f[3]
	$f[1]$f[2]	$f[3]
	$f[1]$f[2]	$f[3]

\n"; print <<"_HTML_"; _HTML_ print "\n"; exit; } #--------------# # エラー処理 # #--------------# sub error { # if ($lockflag) { &unlock; } # &header; $error = $_[0]; print "Content-type: text/html\n\n"; print " $title $body

ERROR ! ($error)

"; exit; } 1; __END__