DreamHostでCGIを使う場合の設定について
米国のDreamHostのVPSにあげているCGIのページなのですが 最近になって表示がおかしくなりました。 ソースは簡単な下の10行ほどなのですが・・・ 【CGIのソース】 ——————————————————————————— #!/usr/bin/perl $rand = int(rand(1000)); print "Content-type: text/html¥n¥n"; print...
View Articleファイルに差異があるかの確認ができない
普段VBを使用しており、Perlはほぼ初心者 （十年前に教科書読んでちょっと作成した程度）です。 何千ものファイルを処理する必要があるため Perlを使用することになったのですが、 「File::Compare」のcompareを使用したファイルの比較が うまくいきません。Text::Diffを使用した比較はうまくいくため 何がいけないのかわからず困っております。 前提として、Perl...
View Articleperlでcsvファイルから複数行を抽出したい
プログラミング初心者です。 お知恵をお貸しください。 perlでcsvファイルから任意の複数行を、コマンドライン引数を使って抜き出したいです。 1行だけだとうまくいきますが、以下ではすべてのcsvデータが出力されてしまいます。 ----------------------getcsv.pl ここから---------------------- #!/usr/bin/perl -- use...
View ArticleNET::SFTP::FOREIGNについて
NET……FOREIGNを使って、ファイルのパーミッション（アクセス権）を変えようと試みましたが、変えられませんでした。 いや、変更は可能なのですが、意図したパーミッションになりません。 例えば、0755とすると、0363となります。 Perlのフォームデータから755と送られてきたときに正常に変更させるにはどうしたらいいですか？ ちなみに、直接数値でなら正常に変更できます。 簡略しますが……...
View ArticleNET::SFTP::FOREIGN
perlモジュールのnet::sftp::foreignについてですが、$sftp->chmodと打っても、サーバ上のファイルのパーミッションを変えることができません。 $sftp->にchmodのコマンドは使えないのですか？ また、パーミッションを変えるコマンドが他にある場合、それも教えて下さい。
View Article日本語ドメインか16進数かで別物になる
サーチコンソールに下記のように出てしまいます。 参照元ページ https://www.就～.tokyo/html/link.html ユーザーが指定した正規 URL https://xn～.tokyo/html/link.html 日本語ドメインなので、日本語のドメイン名と、16進数のドメイン名が別物として認識されているようです。...
View ArticleJSON Perlで指定のデータのみ抽出
恐れ入ります。 {"num":29,"name","山田太郎"}{"num":30,"name","山田花子"}{"num":31,"name","山田次郎"} というJSONデータを読み込むことは出来たのですが、 この中からnumを、例えば29と指定したら、 {"num":29,"name","山田太郎"}のみが表示される形にしたいのですが、方法が分かりません。 宜しくお願い致します。
View ArticlePerl ローカル運用 exe起動
恐れ入ります。現在anhttpdでperlプログラムをローカルマシン（windows10)で作成しているのですが、perl実行時に、ローカルのコマンドを実行したいのですが、どのようにしたら良いか分かりません。 具体的には、bitsadmin.exeを使ってグローバル上の特定のファイルをローカルフォルダにダウンロードするイメージです。 以上宜しくお願い致します。
View ArticlePerl cookie 削除か書込
Perl cookie cookie→NAMEというクッキーデータを 削除か、まったく別のものに書き換えたいのですが、どうすればいいのでしょうか？ 現在はJavaScriptで書き込んでいるのですが、 <script> \$(function(){ \$('#NAME).val(\$.cookie("NAME")); \$("#Login").click(function(){...
View ArticlePerl の use strict に付いて
●HTML <html><head> <meta http-equiv="content-type" content="text/html;charset=UTF-8" /> <title>テスト5（UTF-8）</title> </head> <body> <form action="test5.cgi"...
View Articleperl print文で日本語表示するには
perlのプログラムで use utf8が宣言されていない時(test1.pl)は、 print文で日本語が正しく表示されるのですが、 use utf8が宣言されている時(test2.pl)は、 print文で日本語が正しく表示されないかエラーになります。 encode('utf-8', $string)やencode('cp932', $string) も試してみましたがうまくいきませんでした。...
View ArticlePerl 文字の中にある複数ワードを１つにしたい
教えてほしいです。 $text = "１テストp41p2Ap2、テストp22、p4テストp2testp4w"; @M = ("p4","p2"); 上記の２つの変数から 下記のようにする方法はありますでしょうか？ $text = "１テストp41p2A、テストp22、p4テストtestw"; ※消したいワード [p4][p2]が複数ある場合 配列内の文字が複数ある場合、最初の一致だけを残しあと消す。...
View ArticleCGIで受け取った日本語文字列を正規表現で
perlでcgiを作っています。 テキストボックスに入れてもらった文字列から正規表現で数字を抽出します。 以下のように、組むと "USA"のような半角英数はただしくマッチしますが、 "アメリカ"や"ドル"などはマッチしません。簡単に解決する方法をお教えください。 my $text = $in_data{'data_text'}; $text =~ tr/+/ /; $text =~...
View ArticlePerl 先頭行に追加
恐れ入ります。 Perlで、配列がカンマで区切られたデータを読み込み、 その先頭行にデータを挿入したいのですが、 中々うまくいきません。 データ（/data/xxx.txt）の中身は、 test,test2 bbb,bbb2 ccc,ccc2 という感じで、カンマで区切られて改行で並んでいます。 そこに新たに$dateと$contで受けたデータを先頭行に追加する感じです。...
View Article[Perl]XML::SimpleでSJIS
Windows7、ActivePerl v5.24.1を使っています。 use XML::Simple; use Data::Dumper; my $data = XMLin('test.xml'); print Dumper($data); というコードで、以下のXMLファイルを読み込むと、 <?xml version="1.0" encoding="shift_jis"?>...
View ArticlePerl 高速でファイルを結合させたい
ある集計データを作成しているのですが、 とにかく遅いです。 下記のソースで、繰り返しファイルをオープンさせ 結合を繰り返しているからでしょうが これを早くするにはどうすればいでしょうか？ ※やりたいことは実際はできております。 まず条件として ディレクトリのデータは数年分あり 今回は、4年分の統計を取りたい。 →2018年度、2017年度、2016年度、2015年度...
View Articleperl utf8ファイル処理について
ファイルがutf8で作成されています。 open処理にて、utf8をshifjisに変換して処理する事って出来ますか。 今の所は、utf8のファイルを入力して、shiftjisに変換して、outputして、 それを読み込んで処理してます。 やはりこれ以外の方法はないでしょうか。
View ArticleWindowsでのPerl開発環境
Windows7/10上のPerlでのwebアプリに関するベストな開発環境を知りたいです。 実行環境イメージは、50画面相当ある中大規模webアプリで、windows server + apache + oracle使用です。 当方、JSF(primefaces)によるweb開発は経験がありますが、Perlは初めてです。...
View Article
