Perl

use LWP::UserAgent; use HTTP::Request::Common qw(POST); my $url = 'https://toto.netbk.co.jp/main/smm0100'; my %formdata = ('userName' => 'ID', 'loginPwdSet' => 'Pass'); my $request = POST($url,[%formdata]); my $ua = LWP::UserAgent->new; $ua->agent('Mozilla/5.0'); $ua->ssl_opts(verify_hostname => 0); my $res = $ua->request($request); print $res->as_string; サポートされないブラウザーで弾かれます 解決策、教えてください

Perl初心者です。 以下のサンプルコード中の「->」「=>」「%$」「@$」はそれぞれ何というものでしょうか。 #!/usr/bin/perl use Net::POP3; #POPサーバに接続 my $pop = Net::POP3->new('サーバのホスト名', Timeout=> 120) || die "Cound\'t Connect to POP server\n"; $pop->login('ユーザ名', 'パスワード') || die "Authentication failed\n"; #メールのリストを取得（メッセージ番号 => サイズ からなるハッシュリファレンス） my $list_href = $pop->list; #メールを一通づつ取得 foreach my $msg_id (keys %$list_href){ my $message = $pop->get($msg_id); #メールを取得 print @$message; $pop->delete($msg_id); #メールを削除 } $pop->quit; よろしくお願いいたします。

たびたびお世話になります。 perl CGIを作っています。作っているCGIとは別のディレクトリにあるファイルをrequireしたいのですが、リモートログインできないレンタルサーバのため@INCのいじり方がわかりません。 こういった場合のrequire方法（あるいはプログラム再利用方法）をお教えください

はじめまして。 要点だけになってしまいますが 教えていただきたいことがあってトピしました。 この構文では動きませんが僕がやりたいことは こういうイメージです。 111.txt 444 444 1.txt 111 222 333 444 a=`cat 111` echo $a 結果 444 444 1.txt | sed 's/222/$a/g' 　　　　　　　　 ↑ ↑ 　　　　置換対象　変数 word　を　$a　に収まっている文字列で置換します。 結果 111 444 444 333 444 どなたかわかるかた教えてください。 よろしくお願いします。

Perlにて、 emlの本文(htmlとplain)の取得をしたいです。 ライブラリとして、 Email::MIME を使用しております、現在以下の様な感じです。 my $parsed = Email::MIME->new($text); for my $part ($parsed->parts) { if($part->{ct}{discrete} !~ /^text/){ }elsif($part->content_type =~ m|text/html|){ #html }else{ #plain } この状態で$part->body_strや$part->bodyで取得が可能かと考えておりましたが、 emlにて入れ子構造が上手く取得出来ず、困っております。 やり方等、如何様でも構いませんので、ご指摘頂ければ幸いで御座います。 sampleのEML※サンプルなのでhtmlはhtml形式になっておりません。 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Return-Path: <test@test.jp> X-Original-To: test@test.jp Delivered-To: test@test.jp X-Env-Sender: test@test.jp Date: Wed, 7 Dec 2011 02:48:11 -0600 (CST) From: <test@test.jp> To: test@test.jp Subject: =?UTF-8?B?dGVzdA==?= =?UTF-8?B?dGVzdA?= =?UTF-8?B?dGVzdA?= =?UTF-8?B?dGVzdA==?= Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="----=_Part_33646_1423332566.1323247678520" ------=_Part_33646_1423332566.1323247678520 Content-Type: multipart/alternative; boundary="----=_Part_33649_2021685376.1323247678532" ------=_Part_33649_2021685376.1323247678532 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: base64 dGVzdA == ------=_Part_33649_2021685376.1323247678532 Content-Type: text/html;charset=UTF-8 Content-Transfer-Encoding: base64 dGVzdA== ------=_Part_33649_2021685376.1323247678532-- ------=_Part_33646_1423332566.1323247678520-- \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

perlにて、 htmlを解析して、コメントアウトのみ除去したいと思っております。 正規表現で可能な気がするのすが、上手く抽出出来ず、 ヒントでも構いませんので、ご指摘頂ければ幸いで御座います。 例)下記から<div>a</div><div>aa</div> --------------------------------- <div>a</div> <!-- <div>a</div> --> <div>aa</div> ---------------------------------

http://yowyow.sakura.ne.jp/test/http.cgi httpのレスポンスを確認するための動作をテストしていたところ 上記で送信ボタンを押すと処理が行われた後に、要素が一つ認識されなくなります 文字コードの問題かと思ってutf-8に変換しても同様の結果でした 以下にソースを圧縮したものを置いてあります http://yowyow.sakura.ne.jp/test/test.zip 何が悪いのか教えていただけますでしょうか・

http://yowyow.sakura.ne.jp/milbon/board.cgi IEだけIEだけInternal Server Errorとか出るんですけどなぜでしょうか？ 他のブラウザだと別のエラーメッセージが出ますがそれは期待通りの動作です

Perlを使ったCGIからHTMLメールの送信がしたいです。 そして、そのメール本文に、Formタグのボタンを付けて、そこからCGIのページを開きたいです。 メール送信はできていて、受信した時にHTML形式のメールになっているのですが、FormのボタンからさらにCGIを開こうとすると、ページは開いても、Body部分は空の状態のページが開きます。 そのFormの部分は、HTMLのページ上に設置するとそこからは希望通りのページの表示をしてくれます。 メール本文中にFormタグを設置してもうまく動かないのでしょうか。 CGIのメール送信部分は以下です。 my $mailtext =<<"MAILTO_TEXT"; To: aaa@bb.co.jp Cc: From: aaa@bb.co.jp Subject: テストです Content-Transer-Encording: 7bit Content-Type: text/html; charset=ISO-2022-JP テストです。<Br><BR> 下のボタンを押してご確認ください。<br><br> <form name="mst" method="post" action="aaaaaa.cgi" enctype="multipart/form-data"> <input name="submit" type="submit" value="詳細"></form> MAILTO_TEXT open(MAIL,"| $sendmail -f $mailto -t") ; print MAIL $mailtext; close (MAIL); おかしい部分、足りない部分などありましたら教えて下さい。 どうぞよろしくお願いいたします。

サーバー上でのカウンター制御。 個人別にログインカウンターを設けます。 訪れる度に、カウンターは0から始まり、あるパスワードを10回ログインする事により、 中に侵入出来るようにします。 ロジックは、phpでも、perlでもどちらでもその他でも良いのですが、 ファイル等は一切設置しません。 よって、引数の引き渡しにより、 http:// ～ abcd?counter=1の用にして管理します。 ここで質問なのですが、 ある条件を加える事で、上記、abcd～、の部分を見れなくします。 当然、カウンターは増えないので、侵入する事は出来ません。 その条件なのですが、色々な事を想定してます。 私が考える条件としては、 ブラウザ、例えば、ieならカウンターは増えない、firefoxなら増える。 プロクシを使用していれば、カウンターが増える。 この二つしか思いつかないのですが、 その他の制御方法があったら、教えて頂きたいのですが、宜しくお願いします。 追記。 どんな事象を起こすことを聞いているので、 クッキーとか、getにするとか聞いているのではないです。

素人ですみません。 Windows の Strawberry Perlで ”Device::USB ”をCPANからインストールしようとしてますがうまく インストールができません。 何をすればいいのでしょうか？ C:\Users\TEST002\Documents>cpan Device::USB CPAN: CPAN::SQLite loaded ok (v0.204) Database was generated on Wed, 26 Aug 2015 05:01:23 GMT Running install for module 'Device::USB' CPAN: Digest::SHA loaded ok (v5.92) CPAN: Compress::Zlib loaded ok (v2.064) Checksum for C:\STRAWB~1\cpan\sources\authors\id\G\GW\GWADEJ\Device-USB-0.36.tar.gz ok CPAN: Archive::Tar loaded ok (v2.04) CPAN: File::Temp loaded ok (v0.2304) CPAN: YAML::XS loaded ok (v0.52) CPAN: Parse::CPAN::Meta loaded ok (v1.4414) CPAN: CPAN::Meta loaded ok (v2.142060) CPAN: Module::CoreList loaded ok (v5.20140914) Configuring G/GW/GWADEJ/Device-USB-0.36.tar.gz with Makefile.PL ERROR: Missing required environment variables to compile under Windows. LIBUSB_LIBDIR should contain the path to the libusb libraries LIBUSB_INCDIR should contain the path to the libusb include files Warning: No success on command[C:\Strawberry\perl\bin\perl.exe Makefile.PL] GWADEJ/Device-USB-0.36.tar.gz C:\Strawberry\perl\bin\perl.exe Makefile.PL -- NOT OK Stopping: 'install' failed for 'Device::USB'. C:\Users\TEST002\Documents>

perlにて.xlsxフォーマットのExcelファイルを読む場合、１万行以上の場合、Spreadsheet::XLSX->new(ファイル名)　を用いると１分以上の時間がかかります。 それでより読み込み速度の速い他のCPANモジュールを探していたら、Data::XLSX::Parser を見つけたので、それをインストールして試用することにしました。 それで、このモジュールのドキュメントにあったSYNOPSISの、以下のソースを作成し実行してみました。 use Data::Dumper; use Data::XLSX::Parser; my $parser = Data::XLSX::Parser->new; $parser->add_row_event_handler(sub { my ($row) = @_; print Dumper $row; }); $parser->parse(ファイル名); 実行した結果、 Can't locate object method "parse" via package "Data::XLSX::Parser" at xlsx.pl line "$parser->parse(ファイル名);"の行番 となり実行不可となります。即ち、このモジュールにはparseというメソッドは無いと言っているようです。 この原因は何で、どう対処したら実行可能になるかを教えて頂きたいと思います。 また、このモジュール全般に関する詳細なドキュメントを見つけられていないので、どこにアクセスすればその情報が得られるかも教えて頂きたいと思います。

perlで%ENVを使って環境変数を使いPerlスクリプトを作りwebページで表示したいと考えています。 このようなことをしたい場合はどのような手順でスクリプトを書けばよいのでしょうか？ かなりアバウトな質問ですがよろしくお願いします。

perl初心者です。 二つのテキストファイルを1行ずつ交互に出力するプログラムを作成しています。 コマンドラインからファイル名を渡して、 （二つのファイル名がそれぞれファイルa、ファイルbとした時） 1:ファイルa 1行目 2:ファイルb 1行目 3:ファイルa 2行目 4:ファイルb 2行目 となるようにしたいです。 while <STDIN>　などを使うのでしょうか？ 自分の知識ではプログラミングしきれそうにないのでどのようにしたらいいのか回答お願い致します。

perlの連想配列である%ENVがよくわかりません。 具体的にはいつ使うのか、また使い道は何なのか。 %ENVとはどのようなものなのかがわかりません。 どなたか教えていただけると幸いです。

perlの連想配列を使い "AP" => "Apple" "BN" => "Banana" "OG" => "Orange" という値を格納します。 そしてこの格納した値をキーボードからの入力で取り出します。 このように表示したいです↓↓ "好きな果物を入力してください[AP/BN/OG]" そして入力を受けるとその果物の値を返し果物の名前を表示します↓↓ "あなたの好きな果物はAppleですね" ここまではできたのですが、この格納した果物以外を入力するとwhileで格納した果物が入力されるまで"３種類から選んでください”というようにループしたいです。 この場合どのように書けばよいのでしょうか。 whileの場合andで書きたい場合はどのように書けばよいのでしょうか。 また入力には<STDIN>を使い引数はchmopで処理すると良いとアドバイスを貰いましたがchompの使い道がよくわかりません。 そちらも説明していただけると幸いです。 わかりにくい質問ですがよろしくお願いします。

PerlでWEBサイトを作る為には 必ずApacheやIISのインストールが必要ですか？

恐れ入ります。 LWPで、特定サイトにアクセスした時に発行されるCookieを任意のディレクトリに保存したいのですが、どのようにしたらよいかわかりません。 use HTTP::Cookies; use LWP::UserAgent; $ua = LWP::UserAgent->new(); $cookie_file = './cookie/xxx.txt'; $cookie_jar = HTTP::Cookies->new(file => $cookie_file, autosave => 1); $url = "http://～～"; $response = $ua->get($url); print $response->content; で、コンテンツは表示されますが、xxx.txtにcookieが保存されません。 #LWP-Cookies-1.0 のみが記載された白紙のxxx.txtが精製されます。 よろしくお願いします。

substr_count() のPerl版はありますか？ substr_count() のような関数をPerlで使いたいんです。 基本的に該当文字列の出現回数さえカウントできればいいんです。 誰か教えてください。

ブログのシステムを変更して、 記事中にある内部リンクの書き換えが必要となりました。 現在、記事中に post-001.html post-005.html 　・ 　・ 　・ post-853.html という文字列があります。 数字は飛び飛びでそれぞれ異なり500個ほどあります。 WordPressのプラグインの「Search Regex」を使って置換をしたいのですが、 正規表現で置換して、 ハイフンをアンダーバーに置換し、お尻の「.html」は削除して post_001 post_005 　・ 　・ 　・ post_853 としたいのですが、正規表現で置換する場合、 どのようにすればいいのでしょうか。 「post-」を　( )　でくくればいいのでしょうか。 「.html」削除するにはどうすればいいのでしょうか。 Search Regex に Search pattern（置換前の文字列）と Replace pattern （置換後も文字列）を入力する欄があります。 上のような文字列を置換したい場合は、 それぞれどのような記号を入力すればよいのでしょうか。 アドバイスをよろしくお願いいたします。