atom_seed の回答履歴

HTMLデータを取得しようと思いまして 以下のサイトのソースを使わせてもらっているのですが http://www.ksknet.net/perl/lwpuseragent_we.html 後半の取得結果を出力するところの print $res->content; の意味がよくわかりません。 これはどういう意味なのでしょうか？ また、取得したHTMLコードを変数に格納したいのですが $resの中には無いようです、これも->contentが関係しているのでしょうか？

ActivePerlをインストールして ムーバブルタイプを導入するつもりです。 ムーバブルタイプには色々モジュールのインストールについて 記載されていますが、 ActivePerlに最初から入ってるモジュールはどんなものが あるのでしょうか？ もし可能なら一覧にしていただけませんでしょうか？ よろしくお願いします。

ActivePerlをインストールして ムーバブルタイプを導入するつもりです。 ムーバブルタイプには色々モジュールのインストールについて 記載されていますが、 ActivePerlに最初から入ってるモジュールはどんなものが あるのでしょうか？ もし可能なら一覧にしていただけませんでしょうか？ よろしくお願いします。

前質で→　http://oshiete1.goo.ne.jp/qa4142221.html #print "<option value=\"$day1\">$day1";　で出来たのですがｗ dayの日範囲を多くするとかなり長くなってしまい(T_T) （初心者のくせに）foreachを使ってみようかと エスケープしたりダブルコーションにしたり色々やっても・・・ <option>に月日が表示されません(T_T) 基本的に間違っているのでしょうか・・・　お願いします。 ＊他にも変なところがあったら教えて下さい。 -------------------------------------- <select name=dd><option value="なし" selected> ↓ <option value="なし">指定なし EOM foreach (0 .. $#pl) { if ($in{'plan'} eq $_) { print "<option value=\"$_\">$pl[$_]\n"; } else { print "<option value=\"$_\">$pl[$_]\n"; } } print "</option></select>\n"; #-------------------------------------- ###　↑メイン.cgiです。↑ ###　↓　サブ.cgiです。↓ #-------------------------------------- #　時間 $time = time(); #　範囲日 $day1 = day0($time + (86400 * 2)); $day2 = day0($time + (86400 * 3)); $day3 = day0($time + (86400 * 4)); ############　上下の行のday数が１４日間位まで続く・・・ @pl = ('$day1', '$day2', '$day3'); #　日計算 sub day0{ my(@weekdayname) = ('日','月','火','水','木','金','土'); my $time = shift || time(); my $day0 = $time + (24 * 60 * 60); my ($yyyy, $mm, $dd, $w) = (localtime($day0))[5,4,3,6]; $yyyy += 1900; $mm += 1; return( sprintf('%4d/%2d/%2d(%s)', $yyyy, $mm, $dd, $weekdayname[$w]) ); }

前質で→　http://oshiete1.goo.ne.jp/qa4142221.html #print "<option value=\"$day1\">$day1";　で出来たのですがｗ dayの日範囲を多くするとかなり長くなってしまい(T_T) （初心者のくせに）foreachを使ってみようかと エスケープしたりダブルコーションにしたり色々やっても・・・ <option>に月日が表示されません(T_T) 基本的に間違っているのでしょうか・・・　お願いします。 ＊他にも変なところがあったら教えて下さい。 -------------------------------------- <select name=dd><option value="なし" selected> ↓ <option value="なし">指定なし EOM foreach (0 .. $#pl) { if ($in{'plan'} eq $_) { print "<option value=\"$_\">$pl[$_]\n"; } else { print "<option value=\"$_\">$pl[$_]\n"; } } print "</option></select>\n"; #-------------------------------------- ###　↑メイン.cgiです。↑ ###　↓　サブ.cgiです。↓ #-------------------------------------- #　時間 $time = time(); #　範囲日 $day1 = day0($time + (86400 * 2)); $day2 = day0($time + (86400 * 3)); $day3 = day0($time + (86400 * 4)); ############　上下の行のday数が１４日間位まで続く・・・ @pl = ('$day1', '$day2', '$day3'); #　日計算 sub day0{ my(@weekdayname) = ('日','月','火','水','木','金','土'); my $time = shift || time(); my $day0 = $time + (24 * 60 * 60); my ($yyyy, $mm, $dd, $w) = (localtime($day0))[5,4,3,6]; $yyyy += 1900; $mm += 1; return( sprintf('%4d/%2d/%2d(%s)', $yyyy, $mm, $dd, $weekdayname[$w]) ); }

前質で→　http://oshiete1.goo.ne.jp/qa4142221.html #print "<option value=\"$day1\">$day1";　で出来たのですがｗ dayの日範囲を多くするとかなり長くなってしまい(T_T) （初心者のくせに）foreachを使ってみようかと エスケープしたりダブルコーションにしたり色々やっても・・・ <option>に月日が表示されません(T_T) 基本的に間違っているのでしょうか・・・　お願いします。 ＊他にも変なところがあったら教えて下さい。 -------------------------------------- <select name=dd><option value="なし" selected> ↓ <option value="なし">指定なし EOM foreach (0 .. $#pl) { if ($in{'plan'} eq $_) { print "<option value=\"$_\">$pl[$_]\n"; } else { print "<option value=\"$_\">$pl[$_]\n"; } } print "</option></select>\n"; #-------------------------------------- ###　↑メイン.cgiです。↑ ###　↓　サブ.cgiです。↓ #-------------------------------------- #　時間 $time = time(); #　範囲日 $day1 = day0($time + (86400 * 2)); $day2 = day0($time + (86400 * 3)); $day3 = day0($time + (86400 * 4)); ############　上下の行のday数が１４日間位まで続く・・・ @pl = ('$day1', '$day2', '$day3'); #　日計算 sub day0{ my(@weekdayname) = ('日','月','火','水','木','金','土'); my $time = shift || time(); my $day0 = $time + (24 * 60 * 60); my ($yyyy, $mm, $dd, $w) = (localtime($day0))[5,4,3,6]; $yyyy += 1900; $mm += 1; return( sprintf('%4d/%2d/%2d(%s)', $yyyy, $mm, $dd, $weekdayname[$w]) ); }

メンバーサイト構築にて質問です。 ユーザーから送られてきたメールのメールアドレスで、 メンバーであるか新規であるかを判断するプログラムをperlで作成したいと思っております。 まだperl初心者なのでもっと良い方法がないか考えたいのですが経験がないので考えが浅はかです。 何卒、ご意見または別の案などご教示頂けないでしょうか。 （メンバー数の想定は10万～100万　データベースは使いません） ※当初の考え ファイルに新規ユーザーのメールアドレスを追記 →ファイルをオープンして１行づつ検索 懸念：メンバー数が多くなればファイルをオープンするだけで結構なメモリを消費するのではないか、ループで１行づつ検索したらすごい負荷がかかるのではないか。 ※現時点の考え 新規ユーザーのメールアドレスをファイル名にしたファイルを作成（＠マークなどは別の記号に変更） →ファイル検査演算子でファイルがあるかどうか判断 懸念：すごく速い気がするのですが、これって現実的なんでしょうか？？

アクセスログをZIPファイルにしてダウンロードした後ファイルが自動的に削除されるようにしようと思っていますが、失敗続きです。 今までの軌跡、 1、ZIPファイルをArchive::Zipで作成、print "Location×××.zip:\n\n";でダウンロード後、当該ZIPファイルをunlink 結果、失敗　404エラーになる 2、ZIPファイルをArchive::Zipで作成、print "Location×××.zip:\n\n";でダウンロード後、当該ZIPファイルをENDサブルーチンでunlink 結果、失敗　404エラーになる 3、File::TempをZIPに利用できないか試みるがArchive::Zipはファイルハンドルを使わないため利用できないのではと断念。 とまあこんな感じで現在に至っています。 なぜ削除しなければならないのかというと外部からアクセスされるとアクセスログがダウンロードできるとこまるからです。なのでダウンロード後すぐに削除、できればダウンロード後すぐ削除されれば理想と思っています。 3、に関してですが、ならばZIPにしないでテキストでダウンロードさせればいいじゃんと思うかもしれませんが、色々なファイルをまとめてダウンロードさせたいと思っているので、それはできない状況。 手段を知っている方助けてください。

アクセスログをZIPファイルにしてダウンロードした後ファイルが自動的に削除されるようにしようと思っていますが、失敗続きです。 今までの軌跡、 1、ZIPファイルをArchive::Zipで作成、print "Location×××.zip:\n\n";でダウンロード後、当該ZIPファイルをunlink 結果、失敗　404エラーになる 2、ZIPファイルをArchive::Zipで作成、print "Location×××.zip:\n\n";でダウンロード後、当該ZIPファイルをENDサブルーチンでunlink 結果、失敗　404エラーになる 3、File::TempをZIPに利用できないか試みるがArchive::Zipはファイルハンドルを使わないため利用できないのではと断念。 とまあこんな感じで現在に至っています。 なぜ削除しなければならないのかというと外部からアクセスされるとアクセスログがダウンロードできるとこまるからです。なのでダウンロード後すぐに削除、できればダウンロード後すぐ削除されれば理想と思っています。 3、に関してですが、ならばZIPにしないでテキストでダウンロードさせればいいじゃんと思うかもしれませんが、色々なファイルをまとめてダウンロードさせたいと思っているので、それはできない状況。 手段を知っている方助けてください。

症状： perlのプログラム内でDBIを使うと、その後の行がすべてスキップされてしまいます。エラーをだしてくれることもなく、何が原因なのかさっぱりわかりません。 「 #!/usr/bin/perl use DBI; print "Content-type: text/html", "\n\n"; print "this is test"; $d = 'DBI:mysql:test:Localhost';# データソース $u = 'root';# ユーザ名 $p = 'mypass';# パスワード # データベースへ接続 $dbh = DBI->connect($d, $u, $p) or print "Can't connect to MySQL"; print "<br />success!"; 」 「this is test」は表示されるのですが、「success!」が表示されないのです。もちろん「Can't connect to MySQL」も、その他のエラー表示も表示されません。 「 $dbh = DBI->connect($d, $u, $p) or print "Can't connect to MySQL"; 」 の行を消すと、「success!」も表示されます。 DBIを再インストールしたほうがよいのでしょうか？　もともと、DBIをインストールするとき、いろいろてこずっていて、その時に何かおかしなことになってしまったのかもしれません。 それとも別の場所に問題があるのでしょうか。 ________________________________ 環境： Ubuntu8 Xampp ちなみにcpanで i DBIとやると、 「 CPAN: Storable loaded ok (v2.18) Going to read /root/.cpan/Metadata Database was generated on Fri, 20 Jun 2008 07:02:51 GMT Strange distribution name [DBI] Bundle Bundle::DBI (TIMB/DBI-1.605.tar.gz) Module = DBI (TIMB/DBI-1.605.tar.gz) 2 items found 」 とでます。 この問題のおかげでもう2日間作業がすすまないでいます。どなたか力をかしてください。おねがいします。

現在、HTMLのフレームを左右に２分割しています。左側に用意したいくつかのラジオボタンやフォームの入力内容などの条件を入れてボタンを押すと、Perlで書き出された結果表示が右側に出る仕組みです。 とりあえず、今は、初期状態の右側画面にはダミーのHTMLを表示させてますが、 HTMLを読み込んだときの初期画面として、左側のデフォルトの条件での結果表示を、（ボタンを押さずに）右側に表示させたいのです。 わかりにくい説明で申し訳ありません・・・。 簡単なJavaScript記述で、「onload」とか使ってできますか？ ほかの方法でもかまいません。 ご教授よろしくお願いします。 （ちなみに今回のperlは人に教わりながらようやく書き、JavaScriptも初心者です。）

######## AAかBBがあったらprint PEALで　　AA || BB　　 AA か BB　って事はわかりましたが AA と BB　両方ともあった場合は？ ######## AAかBBがあったらprint if (($in{'AA'}) || ($in{'BB'})) { print "$in{'AA'}"; print "$in{'BB'}"; }

自分がされて嫌な事は絶対しない。 友達を大事にする。 夢を叶えるために頑張り続ける。（ほぼ叶えて充実している） 一生一緒に笑っていたい どんな事も理解してあげたい。 どんなに嫌な態度をとられても怒らない。そうさせた自分が悪いと考える。 相手のせいにしない。 彼女の人生を行ける所まで理解してあげたい。 浮気はしない（彼女のためでなく自分の信念） 男は黙って働く。目標はしっかり達成する。 世界中の面白い事を二人で見て行きたい。 助けて欲しい時は正直に言う。 やりたい事があるなら全面的に協力する。 こう言う事を本気で言う男、つき合いづらいと思う意見、そんな人について行きたいと思う意見。双方の意見や傍目のつっこみをお願いします。「男ってそうだろ？」などと思っている男。女を知らない甘チャン？そうあるべき？

25歳男です。 今まで友達が1人もできたことがありません。 普通の人が、友達と旅行に行ったり飲みに行ったりしているのを見て、とても羨ましく思います。 どうすれ友達ができるかアドバイスを下さい。 友達ができない大きな原因はコミュニケーション能力のなさだと自分では思っています。 今までほとんど人付き合いをしてこなかったため、人とどう接すれば良いかどんな話をすれば良いかなどが分からないのです。 僕は見た目は結構オシャレ（服が好きなので）していて雰囲気も明るい感じなので、最初は初対面の方もよく話しかけてくれます（新学期など）。しかし、人に話しかけられるとテンパってしまいます。何をどんな表情で話をするべきか分からないからです。 友達の多い妹に相談することもありますが、いつも「そんなん普通に話せばいいやん！」とよく分からない回答です。「普通ってなに！！？」と思います。 僕はイジメられたりするタイプではありません。 だけど、もし服が好きでなくて外見が暗い雰囲気なら、性格的なジャンルからいえばイジメられるタイプに属するような気もします。 文字数の関係で、この程度しか自分を客観的に説明することができませんが、とにかく友達をつくってみたいんです。それでもし「あ～やっぱ独りがいいわぁ」と思ったとしても前進ですから。 どんなことでも良いのでアドバイスお願いします。

例 if (($in{'pre'} ne "0") && ($in{'pre'} ne "-1")) { 不要なoptin valueを　0と-1。必要が1-47。 value="1"　から　value="47"　までを真にしたいのですが 例を簡単にするには　[1-47]　1<　とかどう書けば良いのでしょう？・・・ -------------------------------------------- if ($in{'nam'} && $in{'tel'} && ($in{'pre'} ne "0") && ($in{'pre'} ne "-1") && $in{'add'}) { 今はこんな感じでやってるのです・・・ 全部揃ったら真って感じです。条件文が毎回長くなってw（≧ｍ≦）w

はじめて質問いたします。 現在MovableType導入しようとしています。 ですが、ActivePerlとMYSQLを接続させる為のDBD::Mysqlが インストールができません。どなたか詳細な方法を 教えてください。 ActivePerl:5.10 windows XP Apache 2.0.63 DBIはインストールできています。 コマンドプロンプトで ppm-shell install DBD-mysql 上記を試すと下記のエラーがでます。 ppm 4.02Copyright (C) 2007 ActiveState Software Inc. Allrights reserved. ppm> install DBD-mysql Downloading ActiveState Package Repository packlist...not modified ppm install failed: Can't find any package that provides DBD-mysql Perl　package　managerで確認すると DBD::Mysqlはありませんでした。 よろしくお願いします。

ban5.txtには以下になってます。 4131048 4131053 x x 4850328 x x x x 3870357 3870369 x x 4131038 4131045 x x x この場合にxの行を一番最後の行の数値に置き換えたい場合 perlだとどのようにすればいいんでしょうか。 シェルでやろうとしたんですけどシェルだとちょっと難しいみたいなので perlでやりたいと思ってます。誰かいいスクリプトを教えて下さい。 宜しくお願いします。

$PR_data=<<"EOM"; EOM EOM間にperl文を入れたいんですがどのようにしたらよいのでしょうか？よろしくお願いいたします。

$PR_data=<<"EOM"; EOM EOM間にperl文を入れたいんですがどのようにしたらよいのでしょうか？よろしくお願いいたします。

こんにちは。 外国の担当者に英語のメールを書くにあたって、「対応」という言葉　にどの単語を使ってよいのかわかりません。 インターネット上の辞書で翻訳すると「correspondence」という単語になるのですが、逆翻訳(英→日)すると「調和」や「一致」という意味合いが強いようです。 「問題解決に向けて対応していますか？」という文を英語にしたいです。