chaimasuka の回答履歴

自分の ~/.bash_profile で、 export PERL5LIB=/usr/local/lib というように設定しているのですが、 CGIではこれが反映されていません。 どこでPERL5LIBを設定すれば、 /usr/local/lib が @INCに組み込まれるようになるのでしょうか?

簡単な正規表現ではまってます。お助けを・・・ PHP5.1.6です。 アクセスされたURLの最後にハンカクスラッシュがあった場合、これを削り取って、 新しいURLへ、301のステータスコードでリダイレクトさせたいと思ってます。 で、以下のようなスクリプトを書いたのですが。。。 $this->sPattern = "/(.*)\/$/"; $_SERVER['REQUEST_URI'] = preg_replace($this->sPattern, $1, $_SERVER['REQUEST_URI']); $this->bReturn301StatusCode = true; Parse error: syntax error, unexpected T_LNUMBER, expecting T_VARIABLE or '$' in /var/www/_include/class/uri.class on line 54 といわれてしまいます。 なお、54行目は、 $_SERVER['REQUEST_URI'] = preg_replace($this->sPattern, $1, $_SERVER['REQUEST_URI']); の行です。 エラーメッセージで検索したのですが、分からず。。。 どこが間違っているのでしょうか？ 教えていただければ幸いです。 以上、よろしくお願い申し上げます。

.htaccessを使って「特定のIPアドレス・ホストからのアクセスを拒否」と 「特定のリンクからのアクセスを拒否 」の２つを一緒に設定したいのですが、 どうすればいいのでしょうか？ 単独での書き方はそれぞれ調べて分かったのですが、1つにまとめての記述方法が分かりません。 --------------------------------------------------- order allow,deny allow from all deny from ●● deny from ○○ deny from ▲▲ deny from △△ SetEnvIf REFERER "http://○○○.com/" Ref1 Order Allow,Deny Allow from all Deny from env=Ref --------------------------------------------------- といった感じに記述したものの、全く動作してくれません。 ご存知の方いらっしゃいましたら、宜しくお願いいたします。

http://www.rfs.jp/sb/perl/08/01_02.html#3_install_check 上記のサイトにインストールモジュールの確認方法は書いているのですが、たとえばXML::RSSが入っているかというのは、どういう風にすればわかるのですか？ また、CPANのことについて詳しく書いているサイトや本があれば教えてください。 お願いします。

自分の ~/.bash_profile で、 export PERL5LIB=/usr/local/lib というように設定しているのですが、 CGIではこれが反映されていません。 どこでPERL5LIBを設定すれば、 /usr/local/lib が @INCに組み込まれるようになるのでしょうか?

CPANでモジュールをインストールしたいのですが、うまくできていないようです。 たくさんメッセージが出ているのでメッセージが画面外に消えてしまいます。メッセージを全文見るにはどうすればよいのでしょうか？

perl5.8.5でCGIのプログラムを作っています。 全角・半角が混じったテキストの100文字以上を"・・・"にしたいと思っています。 プログラムの文字コードはEUCで書いています。 文字数の取得は、Jcodeを使って出しています。 $len = Jcode->new( $text )->jlength; これで100文字以上なら100文字以上の部分を削除して"・・・"を付け足すという感じにしたいと思っています。 よろしくお願いします。

@data = (aaa, bbb, ccc, ddd, eee, fff); if(@data == ccc);{ print "ccc"; } これを書いても偽がかえって来ます。 @dataの中に○○○があれば真をかえすようなものを作りたいのですがどうしたらいいでしょうか

はじめまして。 静的なファイルであれば、javascript:alert(document.lastModified) や (stat 'ファイル名')[9]で最終更新日の取得ができますが CGIやPHP、サーバから送り出される際自動的に広告が挿入されるHTMLの 最終更新日を読むことは出来ないものなのでしょうか。 （例えば、日付を保持してミラーリングするなど） CGI設置不可・自動広告挿入のとあるWEBスペースに 　相当数のHTMLファイルを置いており、 これのファイルリストを作りたいと思っています。 別の、CGI可のサーバに置いたスクリプトから LWP::SimpleやWgetを使ってヘッダ取得を試してみましたが やはり（当たり前といえば当たり前なのですが） タイムスタンプはスクリプトを作動させた日付になってしまいます。 ※今回リスト化したいファイルのあるサーバは、 　CGIの置けないサーバですが、もし置ける環境であっても 　stat関数では動的なファイルのLastModifiedは読めませんよね？ もし何か良い方法をご存じでしたらぜひご教示ください。 何卒宜しくお願いします。

.htaccessにて、Perlで作成されたスクリプトのURLを以下のようにmod_rewriteで変換を行っています。 RewriteEngine on RewriteBase /cgi/ RewriteRule ^([0-z]+)/([0-z]+)\.html$ index.cgi?mode=$1&no=$2 通常の場合、 http://example.com/cgi/index.cgi?mode=pv&no=1 といったURLが、mod_rewriteにて http://example.com/cgi/pv/1.html というURL形式でアクセスが可能です。 そこでやりたい事なのですが、上記のpvの箇所をpastという風に変更したいと思っています。 http://example.com/cgi/pv/1.html http://example.com/cgi/past/1.html スクリプト側の問題かも知れませんが、過去ログに移行したデータなどはpastになるのですが、何故かpv（現行ログ）でもアクセス出来てしまいまして、出来れば.htaccessでpastに統一したいと思っています。 そこで単純ながら、Redirect permanentを使い、 Redirect permanent /cgi/view/ http://example.com/cgi/past/ としたところ、リダイレクトはされるのですが、 http://example.com/cgi/past/1.html?mode=view&no=1 となってしまいます。 語尾のクエリ部分「?mode=view&no=1」が出ないようにしたいのですが、どのような方法があるか、ご教示頂けますと幸いです。 RewriteCond %{QUERY_STRING}なども調べて見たのですが、詳しくどう記述すれば良いかわかりませんでした。 よろしくお願いいたします。

はじめまして、言語に疎いもので質問させて頂きます。 次のようなsample.txtというファイルがあります。 【sample.txt】 ABC #１行目 ＜タブ＞DEF #２行目 行頭にタブ ＜タブ＞GHI #３行目 行頭にタブ JKL #４行目 ＜タブ＞MNO #５行目 行頭にタブ PQR #６行目 ＜タブ＞STU #７行目 行頭にタブ ＜タブ＞VWX #８行目 行頭にタブ （・・・以下上記のような２、３行のブロックパターンがランダムで続く） １～３行目を１ブロック、また４～５行目、６～８行目を一部ロックとして 半角スペースを間に挟んで一行に連結し、下のように別ファイルに出力したいと考えております。 【output.txt】 ABC DEF GHI JKL MNO PQR STU VWX ファイル自体は次のようにopen関数で開き、一行ずつ読み込んでいますが、現在の行を読みつつ、 次の行の内容をどうしたら読むことができるかわかりません。 また行の連結はどのように行えばよいでしょうか。 ２、３行のブロックパターンがランダムで続くため、次の行の先頭にタブがあれば連結するという 処理も加えたいと考えております。 open(IN, $sample.txt); while (<IN>) { 　　 $line = <IN>; } 質問内容もわかり辛いかと思いますがご教授頂けますでしょうか。

動的ページを静的ページにするために.htaccessを使い次のようなURL変換をしたいと考えております。 例１） http://●●.com/tag/キーワード1 ↓ http://●●.com/search?word=キーワード1 例2） http://●●.com/tag/キーワード1/キーワード2/キーワード3 ↓ http://●●.com/search?word=キーワード1+キーワード2+キーワード3 いわゆる「はてな」のタグアーカイブの様な構造です。 只、数が固定されていれば自分でも解決できるのですが このようなキーワードが1～無限にある場合の対象方法がわかりません。 これは.htaccess上の設定だけで対処可能なのでしょうか？

.htaccessにて、Perlで作成されたスクリプトのURLを以下のようにmod_rewriteで変換を行っています。 RewriteEngine on RewriteBase /cgi/ RewriteRule ^([0-z]+)/([0-z]+)\.html$ index.cgi?mode=$1&no=$2 通常の場合、 http://example.com/cgi/index.cgi?mode=pv&no=1 といったURLが、mod_rewriteにて http://example.com/cgi/pv/1.html というURL形式でアクセスが可能です。 そこでやりたい事なのですが、上記のpvの箇所をpastという風に変更したいと思っています。 http://example.com/cgi/pv/1.html http://example.com/cgi/past/1.html スクリプト側の問題かも知れませんが、過去ログに移行したデータなどはpastになるのですが、何故かpv（現行ログ）でもアクセス出来てしまいまして、出来れば.htaccessでpastに統一したいと思っています。 そこで単純ながら、Redirect permanentを使い、 Redirect permanent /cgi/view/ http://example.com/cgi/past/ としたところ、リダイレクトはされるのですが、 http://example.com/cgi/past/1.html?mode=view&no=1 となってしまいます。 語尾のクエリ部分「?mode=view&no=1」が出ないようにしたいのですが、どのような方法があるか、ご教示頂けますと幸いです。 RewriteCond %{QUERY_STRING}なども調べて見たのですが、詳しくどう記述すれば良いかわかりませんでした。 よろしくお願いいたします。

はじめまして。 静的なファイルであれば、javascript:alert(document.lastModified) や (stat 'ファイル名')[9]で最終更新日の取得ができますが CGIやPHP、サーバから送り出される際自動的に広告が挿入されるHTMLの 最終更新日を読むことは出来ないものなのでしょうか。 （例えば、日付を保持してミラーリングするなど） CGI設置不可・自動広告挿入のとあるWEBスペースに 　相当数のHTMLファイルを置いており、 これのファイルリストを作りたいと思っています。 別の、CGI可のサーバに置いたスクリプトから LWP::SimpleやWgetを使ってヘッダ取得を試してみましたが やはり（当たり前といえば当たり前なのですが） タイムスタンプはスクリプトを作動させた日付になってしまいます。 ※今回リスト化したいファイルのあるサーバは、 　CGIの置けないサーバですが、もし置ける環境であっても 　stat関数では動的なファイルのLastModifiedは読めませんよね？ もし何か良い方法をご存じでしたらぜひご教示ください。 何卒宜しくお願いします。

メールフォームで入力していただいた内容を 項目 内容 空行 の繰り返しにしたいのですが、どこを変更すればいいのか分からず困っています。 また[ Date ]などとなっている部分の[]も取ってしまいたいです。 スクリプトのここらへんかな？と思う部分も貼ってみましのたで、どなたかアドバイスいただけるとうれしいです。 [ Date ] 2007/11/10 (Sat) 20:16 [ RemoteHost ] **************************** [ RemoteAddr ] ***** [ HttpUserAgent ] ****************** ************** [ ] 実際にはこの行にメールタイトルが入ってます。 [ お名前 ] test [ 郵便番号 ] test （以下省略） //スクリプト if ($AddArea) { foreach (0..$#area) { my $AreaTurn = $area[$_]{'turn'}; my $AreaName = $area[$_]{'name'}; my $AreaVlue = $in{"area$_"}; $AreaName =~ s/<br>//ig; if ($AreaLine) { $AreaVlue = &SplitMessage($AreaVlue); $AreaVlue =~ s/<br>/\r/ig; } $AddMail[$AreaTurn] = "[ $AreaName ]\n"; $AddMail[$AreaTurn] .= "$AreaVlue\n"; if ($CsvUse) { $AreaVlue =~ s/(\r\n|\r|\n)//g; $AreaName =~ s/<[a-zA-Z][^>]*>//g; $AreaName =~ s/<\/[a-zA-Z][^>]*>//g; $AreaTurn2 = sprintf("%03d",$AreaTurn); $CsvSub{$AreaTurn2} = $AreaName; $CsvBdy{$AreaTurn2} = $AreaVlue; } } } if ($AddAttc) { @attach = (); $c = 0; foreach (0..$#attc) { my $AttcVlue = $in{"attc$_"}; my $AttcName = "$AttcTmp$in{\"attc$_->name\"}"; my $AttcType = $in{"attc$_->type"}; my $AttcTurn = $attc[$_]{'turn'}; my $AttcName2 = $attc[$_]{'name'}; $AttcName = $in{"attc$_\_name"} if $AttcName eq $AttcTmp; $AttcType = $in{"attc$_\_type"} if !$AttcType; if ($AreaLine) { $GetMessage = &SplitMessage($GetMessage) if $GetMessage =~ /<br>/; } if ($GetEmail eq $MailAddr[0]) { $BodyEmail = ""; } else { $BodyEmail = $GetEmail; } $AddMail[$SubNum] = "[ $SubTtl ] \n$GetSubject\n"; $AddMail[$NameNum] = "\n[ $NameColumn ] \n$GetName\n"; if ($KanaFix) { $AddMail[$KanaNum] = "\n[ $KanaColumn ] \n$GetKana\n\n"; } $AddMail[$MailNum] = "\n[ $MailColumn ] \n$BodyEmail\n"; $AddMail[$MessNum] = "\n[ $MessColumn ]\n\n"; $AddMail[$MessNum] .= "$GetMessage\n\n"; $MailBody = "[ Date ] \n$NowTime\n"; $MailBody .= "[ RemoteHost ] \n$RemoteHost\n"; $MailBody .= "[ RemoteAddr ] \n$RemoteAddr\n"; $MailBody .= "[ HttpUserAgent ]\n $UserAgent\n"; foreach (@AddMail) { $MailBody .= $_; } $MailBody .= "\n$ScriptVer\n\n"; if ($HeaderFrom) { $SendFrom = "$GetName <$GetEmail>"; } else { $SendFrom = $GetEmail; }

佐伯といいます。 windows XPでperl(v5.8.8)とmysql(DBI)の連携を 行おうと思ってインストールさせましたが 下記のようなエラーが出てきます。 なぜ出るのか原因を教えてください。 下記のURLを参考にしましたが、PPMの操作などもわかっていま せん。 http://perldoc.jp/docs/modules/DBD-mysql-2.1026/DBD/mysql/INSTALL.pod PPMがGUI化になり、コマンドがPPM起動後、コマンドが入力で きません。 ppm install DBI（入力ができない） install DBD-mysql（入力ができない） perl package managerのウィンドウが立ち上がります。 ---------------------------- C:\Program Files\Apache Group\Apache\cgi-bin>a.pl install_driver(mysql) failed: Can't locate loadable object for module DBD::mysq in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at (eval 4) line 3 Compilation failed in require at (eval 4) line 3. Perhaps a module that DBD::mysql requires has

お世話になります。 掲示板のログファイルから、特定の箇所のデータを取得して表示させたいと思っています。 log.cgi（パーミッション666） ログデータの中身 3<><><> 3<><><><><><><> 2<><><><><><><> 1<><><><><><><> 上記のような感じになっており、「<>」と「<>」の間にいろいろなデータが入っています。 １行目の最初の数字が、これまで投稿された記事総数になっており、この数字を取得したいと思っています。 log.cgiを読み込んで、この記事総数を「$allnumber」と記述すれば、その箇所に表示させるにはどのようにすれば良いでしょうか。 ご教授をお願い致します。

こんにちは初心者です。 現在、既存のperl cgiをカスタマイズしております。 エンコードをshift_jisからUTF8に変更したいのですが、表示はCGI自体をUTF-8に変更し普通に見ることができるのですが、書き込みをしようとすると文字化けがおこります。 jcode.plをjcode.pmに変換すればよいらしいまでは分かったのですが、どこをどう変換すればいいのかjcode.pmのサイトを見ても理解できません。簡単な説明サイト紹介やアドバイス等をいただけませんでしょうか？

FedoraCore4 自宅サーバーの環境で、身内限定に100人程度に無料でHPスペースと無料メールアカウントを発行しております。（自分の勉強のため趣味程度です） 開始して約1年になるのですが、最近全体的に動作が重くなったような気がします。サーバー機は私のメインPC(Windows）からSSHコマンドのみで操作しております。 開始してから7ヶ月まではここまで重くなかったのですが、最近になって下記の項目で、気になるようになってきました。 1.メールフォームのお申し込み受付完了（管理側・応募側含む）メールが届くのが非常に遅くなった 2.SSHでアカウントを発行する際に動作が非常に遅くなった 3.SSHにログインする際の動作が非常に遅くなった 4.FTPにもログインするまでの動作が非常に遅くなった 上記4点については、個人的にかなり気になります。 どうにか改善したいと思うのですが、主に何が原因と考えられますでしょうか？ FedoraについてはWindowsみたいに最適化してくれる デフラグという機能はないのでしょうか？ もしある場合はどのようなコマンドで実行するのでしょうか？ 当方、一著前にSSHでログインしていますが、趣味程度なのでかなり初心者です。 どうかよろしくお願い致します。

ご存知の方がいらっしゃいましたら教えていただきたいのですが、 複数の外部BLOGのRSS配信情報を束ねて、（収集して） その一覧をRSS配信するようなCGIなどございますでしょうか？ ≪例≫ 今日はAさんがBLOGを更新しました。 昨日はBさんがBLOGを更新しています。 ↑↑↑↑↑↑ この束ねた情報自体をRSS配信したいと考えています。 各BLOGのPing情報を受信して、発信するようなものでも結構です。 自身のホームページに設置して運用を考えています。 ※ソフトでもいいです。