カテゴリー:perl
今まで動いていたデータベースにアクセスできなくなっていた。
今まで動いていたデータベースにアクセスできなくなっていた。これは、エックスサーバーでの出来事だ。調べたら、install_driver(mysql) failed: DBD::mysql object version 4…
詳細を見るカラフルボックスなど cpanel サーバーでPerlでMySQLにアクセスできないときの対策
カラフルボックスでPerlでMySQLにアクセスできないときの対策カラフルボックスでPerlでMySQLにアクセスできない!エラーメッセージは、mysql のドライバーがない。こんなメッセージが返ってきます。db c…
詳細を見るperl システムコマンド実行後 500 エラーがでる
perl で、システムコマンドを実行させると実行後 500 エラーがでる。トレースでは、プログラムは最後まで行ってるのに・・・答えは、すごく単純なことなんだけど、はまってしまうことありますよね?例えば、sys…
詳細を見る自分のサイトのURLを取得する PERL
PERLでCGIを作っていると自分のURLを知りたかったりするよね?プログラムの中に埋め込んでしまったら可搬性が悪い。けど、環境変数には HTTP_REFERER ぐらいしか見当たらない。けど、ブックマークで飛んでく…
詳細を見るperl 文字コード自動判定
perl で自動判定する方法を見つけた。データを既存システムからWPに移行するためになんかしらないけどUTF8とSJISが混在している。もうUTF8かSjisかってのはわかってるので、UTF8がわかればいいということで、こんな感じ。…
詳細を見るperl リダイレクト
たまにしか使わないので、毎回確認する1行。perl でリダイレクトをするには、どう書くか。stdout へ、一番最初に書きださないといけないってのがたまにひっかかることがあるので注意wprint "Location: …
詳細を見る実態参照(&#)の変換 Perl
#!/usr/bin/perluse Encode;use utf8;binmode STDOUT, ":utf8";my $a = "情報&am…
詳細を見る正規表現が正しく動く(実体参照(&#xnum;)をsjis に変換
正規表現がこれだと動く。何のときに $1 が使えるのか不明。require "MyLibs/strcode_hex.cgi"; #←うち専用 strcode_hexJIS をこのファイルに保存してある$a…
詳細を見る正規表現が正しく動かないソース。
$revers_str="食玩・チョコ";$revers_str =~ tr…
詳細を見る文字変換、文字列変換
EUC-JPS-JISUTF8UTF16JIS文字実体参照HEXVALA1A18140E3808030002121  300012288A1A28141E3808130012122、、…
詳細を見るアマゾンページ解析時の文字変換
アマゾンの文字変換は、めんどくさい。わざとだろう?wキーワード部分。(これはヤフーショッピングなどと同じ)$revers_str="http://www.amazon.co.jp/%E5%86%8D%E8%B2%A9-…
詳細を見るYouTubeに動画をアップロードしてみよう
と、思った。とりあえず、スクリプト集めだな。そかそか、APIのデベロッパーキーが必要ね?ん?クライアントIDってなんだっけ? この辺りは簡単に探せそうだな。my $developer_key = 'xxxxxx';my $c…
詳細を見る