LWP::UserAgentでHTTP_USER_AGENTを格納する方法
use LWP::UserAgent; my $url = "http://www.sample/****.cgi"; my $ua = LWP::UserAgent->new; #ユーザーエージェント設定 my $agent = $ua->agent('USER_AGENT/NANDAYO'); #リクエスト送信 my $req = new HTTP::Request GET...
View ArticleLWP::UserAgentでHTML出力を返す方法
use LWP::UserAgent; my $url = "http://www.sample.com/****.cgi"; my $ua = LWP::UserAgent->new; my $agent = $ua->agent('USER_AGENT/NANDAYO'); my $req = new HTTP::Request GET => $url; my $res =...
View ArticlePHPの$_REQUESTなどで配列を受け取る方法
思い出せばなんってことはないんだけど、それゆえに度忘れしてしまうのでメモっす。 $data1 = $_REQUEST['data']; ※inputのname設定はdata[] これだけで十分ですた･･･orz $data1に配列として入力されるってばよ。 情報を保持できない脳みそ。。腐っとるな、自分。
View Article自分自身の絶対パスを取得する方法
覚えていなくていつも探し回るのでメモ。 「実行しているPHP自身のファイルパスを取得したい」 $_SERVER['SCRIPT_NAME']; ←これもパスだけど。。。なんだっけ？ $_SERVER['SCRIPT_FILENAME']; ←こっちが絶対パス 覚えとけ〜、自分
View ArticleiモードIDの仕様
あちこちにありますけどね、自分用のメモ。 3/31からこの仕様で使えるようになったらしいのですが、なんか中途半端な仕様っぽい。 一応メモ書き。 http://example.com?guid=ON で次ページでの受け取りが $get_guid = $_REQURST['guid']; でいいらしい。 ただ･･･formでのpostでは送信できないとのこと。 <input...
View Articlemb_encode_mimeheaderの代わり
実はこの関数に結構泣かされまして。 PHPのバージョンの仕様にもよるのかもしれないけど、にしても長い件名の場合途中で改行されてしまうという仕様の持ち主でした。 バグなんだかそうじゃないんだか分からないけど、この関数でエンコードすると、生メールメッセージのソース上でのヘッダ情報の部分で、subjectの項目が途中で改行されてしまう。...
View Articleひらがな・カタカナ検索検索
//ここはプログラムファイルの文字コードにあわせる //ex)ファイル保存をShift_JISの場合はUTF-8をSJISに mb_regex_encoding("UTF-8"); $chk = false; if(mb_ereg("[ぁ-ん]", $utf_mes)) { //ひらがなが含まれてます $chk = "hira"; }elseif(mb_ereg("[ァ-ヶ]",...
View ArticleLWPでのPOST送信のソース
#!/usr/bin/perl use LWP::UserAgent; my $url = "http://www.exsample.com"; my $ua = LWP::UserAgent->new; my $agent = $ua->agent('USER_AGENT/NANDAYO'); my $req = new HTTP::Request POST => $url;...
View ArticleLWPメモ
use LWP::UserAgent; $request = HTTP::Request->new(GET => 'http://www.example.com/', ['foo1'=>'bar1', 'foo2'=>'bar2', 'user-agent'=>'hogehoge']); $ua = LWP::UserAgent->new; $response...
View ArticlePerl並列処置のParallel::ForkManagerは便利
CPANだかでinstall Parallel::ForkManagerだったかな、をすれば良いらしい。 ループさせたい時とか簡略化出来ていいね。 #!/usr/local/bin/perl use Parallel::ForkManager; #---------------------------------- # 並列処理関連...
View ArticleLWP::UserAgentでHTTP_USER_AGENTを格納する方法
use LWP::UserAgent; my $url = "http://www.sample/****.cgi"; my $ua = LWP::UserAgent->new; #ユーザーエージェント設定 my $agent = $ua->agent('USER_AGENT/NANDAYO'); #リクエスト送信 my $req = new HTTP::Request GET...
View ArticleLWP::UserAgentでHTML出力を返す方法
use LWP::UserAgent; my $url = "http://www.sample.com/****.cgi"; my $ua = LWP::UserAgent->new; my $agent = $ua->agent('USER_AGENT/NANDAYO'); my $req = new HTTP::Request GET => $url; my $res =...
View ArticlePHPの$_REQUESTなどで配列を受け取る方法
思い出せばなんってことはないんだけど、それゆえに度忘れしてしまうのでメモっす。 $data1 = $_REQUEST['data']; ※inputのname設定はdata[] これだけで十分ですた・・・orz $data1に配列として入力されるってばよ。 情報を保持できない脳みそ。。腐っとるな、自分。
View Article自分自身の絶対パスを取得する方法
覚えていなくていつも探し回るのでメモ。 「実行しているPHP自身のファイルパスを取得したい」 $_SERVER['SCRIPT_NAME']; ←これもパスだけど。。。なんだっけ？ $_SERVER['SCRIPT_FILENAME']; ←こっちが絶対パス 覚えとけ～、自分
View ArticleiモードIDの仕様
あちこちにありますけどね、自分用のメモ。 3/31からこの仕様で使えるようになったらしいのですが、なんか中途半端な仕様っぽい。 一応メモ書き。 http://example.com?guid=ON で次ページでの受け取りが $get_guid = $_REQURST['guid']; でいいらしい。 ただ・・・formでのpostでは送信できないとのこと。 <input...
View Articlemb_encode_mimeheaderの代わり
実はこの関数に結構泣かされまして。 PHPのバージョンの仕様にもよるのかもしれないけど、にしても長い件名の場合途中で改行されてしまうという仕様の持ち主でした。 バグなんだかそうじゃないんだか分からないけど、この関数でエンコードすると、生メールメッセージのソース上でのヘッダ情報の部分で、subjectの項目が途中で改行されてしまう。...
View Articleひらがな・カタカナ検索検索
//ここはプログラムファイルの文字コードにあわせる //ex)ファイル保存をShift_JISの場合はUTF-8をSJISに mb_regex_encoding("UTF-8"); $chk = false; if(mb_ereg("[ぁ-ん]", $utf_mes)) { //ひらがなが含まれてます $chk = "hira"; }elseif(mb_ereg("[ァ-ヶ]",...
View ArticleLWPでのPOST送信のソース
#!/usr/bin/perl use LWP::UserAgent; my $url = "http://www.exsample.com"; my $ua = LWP::UserAgent->new; my $agent = $ua->agent('USER_AGENT/NANDAYO'); my $req = new HTTP::Request POST => $url;...
View ArticleLWPメモ
use LWP::UserAgent; $request = HTTP::Request->new(GET => 'http://www.example.com/', ['foo1'=>'bar1', 'foo2'=>'bar2', 'user-agent'=>'hogehoge']); $ua = LWP::UserAgent->new; $response...
View ArticlePerl並列処置のParallel::ForkManagerは便利
CPANだかでinstall Parallel::ForkManagerだったかな、をすれば良いらしい。 ループさせたい時とか簡略化出来ていいね。 #!/usr/local/bin/perl use Parallel::ForkManager; #---------------------------------- # 並列処理関連...
View Article
