Perlコーディング初心者質問スレ Part 38

**nobodyさん** · 04/10/07 23:23:08

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 04/11/09 09:59:56

>>626
lwpでもなんでもいいけど
httpのヘッダで
Date　か　Last-Modified　みるしかなかんべ。
取れなかったら諦めるしかない。

**nobodyさん** · 04/11/09 10:07:38

>>627
ありがとう。
そういうものなんですか。

**nobodyさん** · 04/11/09 18:49:56

>>625
$hoge =`uname -m`; とか。
詳しいことはUNIXのコマンドリファレンスでも探せば良し。

>>626
他のサーバーのデータは、
socketでソケット作って、connectで繋いで初めて得られる。
色々複雑だから、素直に解説本読みなはれ。

**nobodyさん** · 04/11/09 19:46:44

>>625
http://aspn.activestate.com/ASPN/docs/ActivePerl/lib/Win32.html

use Win32;
print join(', ', Win32::GetOSVersion()), "\n";
print join(', ', Win32::GetOSName()), "\n";

**nobodyさん** · 04/11/09 22:34:49

>>629-630
ありがとうございます。こんな風にしていろいろな環境でOS名を取得できました。
# 自分の目的のためには下の例で事が済んだのですが。

#-------
my $OS;
if ( $OS = `uname -s` ) {
#do nothing
} elsif ( !$OS and eval{require Win32} ) {
$OS = ( Win32::GetOSName() )[0];
} else {
die "MacPerl?";
}
print $OS;
> Linux, FreeBSD, Win2000, Win98...

#-------
my $OS = $^O;
if ( $OS eq 'MSWin32' ) {
require Win32;
$OS = ( Win32::GetOSName() )[0];
}
print $OS;
> linux, freebsd, Win2000, Win98...

**nobodyさん** · 04/11/09 23:22:24

CGIにhtml組み込んで、
アクセスしてみたら、真っ白のページが表示されます。
んで、ホームページのソース表示してみたら、
確かにそこにはhtmlソースがちゃんとあるんだけど、
表示されていない。

原因はどんなことが考えられますでしょうか？

**nobodyさん** · 04/11/09 23:29:58

>>632
どうせまともな HTML 吐いてないとかじゃないの？

**nobodyさん** · 04/11/09 23:31:31

タグの閉じ忘れ

つうか原因探ってほしいならソースをどっかにあげましょう

**632** · 04/11/09 23:34:40

print <<__HTML__;
Content-Type: text/html; charset=EUC-JP

<html lang="ja"><head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=EUC-JP">
<title>test</title>

このコードに問題ありますか？

**632** · 04/11/09 23:36:40

タグの閉じ忘れっぽいですね、
他ブラウザで試したら表示されました。
企業から配布されてるスクリプトなのにテキトーだなぁ

サンクスでした。

**nobodyさん** · 04/11/10 00:18:59

スレ違いだったら大変申し訳ございません。

cronでcgiを動かすにはどのように設定ファイルを書けば宜しいのでしょうか。

/public_html/a.cgi
にありますcgiを例えば１時間毎にa.cgi?a=1&b=2とパラメータを渡してcronで
実行したいのですが。

よろしくお願い致します。

**nobodyさん** · 04/11/10 00:22:22

ｽﾚ違いだな。ｽﾚﾀｲを100回音読してから、また質問しに来ような

**nobodyさん** · 04/11/10 00:37:27

>>638
大変申し訳ありません。
該当スレを御存知でしたらお願いしたいのですが。

**nobodyさん** · 04/11/10 00:39:15

>>639
犬板のくだ質

**nobodyさん** · 04/11/10 05:09:30

>>637
perl /public_html/a.cgi
パラメータは渡せるが動的にするのはcronじゃ無理じゃないかな～（知らないだけかも）
ちなみにコマンドラインのときはGETメソッドじゃなく引数になるから受け方違うよ

a=1とb=2が決まってるなら
ファイルの最初に宣言した方が早い

どうしてもCGIとして動かしたいならばWWW経由で/public_html/a.cgiを呼び出すプログラムが必要

それよりコマンドラインでperlを使ったことなさそうだけど
作るときちゃんと文法チェックしてるのかな？

**nobodyさん** · 04/11/10 08:39:47

誘導済みのスレ違いの質問にレス付ける馬鹿。
晒し上げ。

**nobodyさん** · 04/11/10 11:45:26

@data = (system("df"));
とかして、ディスクの使用状況をテキストに書き出したいんだけど、
これじゃあ戻り値を取得できないですよね。
どうやったら取得できますか？

**nobodyさん** · 04/11/10 11:55:42

643です。
自己解決しますた。m(_ _)m

**nobodyさん** · 04/11/10 16:07:28

PERLで作成したファイルをPERLからダウンロードさせる場合に
どのようにしたらいいのでしょうか？

ﾌｧｲﾙ作成後に「ダウンロード」とボタンを表示してクリックしたら
ﾌｧｲﾙをダウンロードするみたいな感じです。

**nobodyさん** · 04/11/10 17:04:37

>>645
print "<a href=\"file\">DL</a>\n";

**nobodyさん** · 04/11/10 18:18:53

リダイレクト前にcookieを作って、リダイレクトページで生成したcookieの値を取得したいのですが、
結構な頻度で値が取得できません。
ですが、少し時間をおいて取得すると値が取得できるので、
cookie作成のスピードよりもリダイレクト後のページで値を取得してるっぽいです。

従いまして、cookie作成時に少し時間を開けてからリダイレクトしたいのですが、
sleepを入れても意味がありませんでした。

この様な場合の対処方法をご存知の方がいらっしゃいましたら、どうかご教授ください。

よろしくお願いいたします。

**nobodyさん** · 04/11/10 20:55:28

ファイルから１行読み取り、その読み取った行を削除してファイルを上書きするにはどうしたらよいのでしょうか。

aaa,bbb,ccc,ddd
111,222,33,4444

このようなファイルがありaaa,bbb,ccc,dddを読み込んだ後にaaa,bbb,ccc,dddを削除して
ファイルを上書きするような処理です。

よろしくお願いします。

**nobodyさん** · 04/11/10 21:03:44

>>645
「ダウンロード」とボタンをクリックしたらファイルを作成して
print "Location: http://www.example.com/file.zip\n\n"

**nobodyさん** · 04/11/10 21:52:59

>>645
ダウンロードボタンをクリックしてCGIでperlを動かした先で

$length = (-s $file);
print "Content-type: application/octet-stream\n";
print "Content-disposition: attachment; filename=hoge.dat\n";
print "Content-Length: $length\n\n";
open(fp, "<$file");
binmode(fp);
print <fp>;
close(fp);

するとＯＫだと思う

**nobodyさん** · 04/11/10 21:55:59

>>648

削除したい行以外を別の一時ファイルに書き込んで、元のファイル名にリネームする
で良いんじゃない？

他にいい方法があれば知りたい

**nobodyさん** · 04/11/10 21:57:30

何でわざわざ別ファイルに書かせなきゃならんのかがわからん

**nobodyさん** · 04/11/10 22:21:12

>>647
クッキーを食べない時と食べる時がある状況が良く分からないけど…。
<meta http-equiv="refresh" ..>
を使ってクライアント側で飛ばして見るとか。

# 状況は改善されない予感。

**nobodyさん** · 04/11/10 22:24:11

読み書きモードでオープンすればいいんだっけ？

**nobodyさん** · 04/11/10 22:30:47

読み書きモードでその場更新でもいいけど、更新中にプログラムが
あぼーんすると変な状態で残ったりする。別ファイルに書き込み、
書き終わったらrenameなら書き換え前か書き換え後のどっちかには
なるので、オレはこのほうが好き。

**nobodyさん** · 04/11/10 23:55:31

>>647
確認できるソース求む

**nobodyさん** · 04/11/11 00:08:27

647ではないんだけどプログラム変えてないのに
IEでcookieが急に読めなくなった。（前はできてました。）
プログラムAでcookie送信してプログラムBに遷移して
そのcookieを取ろうとしても取れなかった。
他のcookieは取得することができました。
ネスケでは大丈夫だったんだけどなぁ。

ちなみにCGI.pm使って
$hoge=param('hoge');
とやって$hogeが空になっており、
cookieのフォルダを見るとちゃんとそのcookieがありました。

**nobodyさん** · 04/11/11 00:21:14

>>657
確認できるソース求む

**nobodyさん** · 04/11/11 00:52:30

まずはIEのクッキー設定を疑うよろし。

**657** · 04/11/11 01:49:17

657ミスりました。
paramのとこcookieです。

>>659
クッキーの設定も疑って全て許可にしてもだめだったのです。
でも、今家のPCで同じスクリプト走らせたらできました･･･。
で、サーバの方も試したらできました。
仕事場のPCからやった時はできなかったんですよほほほ。
ご迷惑おかけしました。

**nobodyさん** · 04/11/11 11:33:09

文字列$aが数字以外を含んでいたら、
エラー出したいんですが、
どうすればいいんでしたでしょうか？
~[0-9]を使えばいいことはわかるんですが・・・

if($a=^[0-9]){
echo"error";}

何か間違ってますか？（＾＾；

**nobodyさん** · 04/11/11 11:35:42

age

**nobodyさん** · 04/11/11 11:51:58

>>661
うむ、それもかなり激しく

if($a=~/[^0-9]/){

**nobodyさん** · 04/11/11 11:54:04

>>663
間違えまくってますね笑汗
ありがとうございます、助かりました。

**nobodyさん** · 04/11/11 13:59:06

/\D/ 小泉こうだろう？

**nobodyさん** · 04/11/11 14:33:41

自分のPCで実行して、入力先をWEBページにして、
記載されている内容を処理しファイルに書きたいのですが
可能でしょうか？

基本的なことですみません。
何の言語を覚えたらいいのかわかりませんので。

**nobodyさん** · 04/11/11 14:54:37

何言ってるんだかわからん

**nobodyさん** · 04/11/11 15:18:47

すみません。説明が下手で。
以下のようなことをWindows XP上でしたいのです。
できますか。

実行したら、例えばこの板のスレッド一覧
http://pc5.2ch.net/php/subback.html
を読んで
インデックス/スレタイ/その時点での書き込み数
をCSVファイルに書き込むようなものです。
中でリンクから各スレを読んで>>1のハンドルも取得できればなおよいです。

**nobodyさん** · 04/11/11 15:20:41

>>668
できるよ

**nobodyさん** · 04/11/11 15:21:57

LWP

**nobodyさん** · 04/11/11 15:28:02

翻訳
perlプログラムをローカルPCで実行
ネット上のウェブページの情報を取得
いろんな処理
ローカルPCに保存

ってこときゃ？

**671** · 04/11/11 15:29:21

チョコ食ってる間に進んでた。
すまそ

**nobodyさん** · 04/11/11 15:32:15

ウェブから入力された新しいユーザー名を、ユーザ名の入ったファイルを
チェックして必要があれば弾いたり空いている場所に追加したり削除する
CGIを作りたいのですが・・・・。

ユーザー名の入ったファイルを行入力演算子で配列に読み込んで、
それをいろいろやってから再び配列に戻して、最後に
$i=0;
while($i<=$count){
print FILE "$username[$i]\n";
$i++;
}
みたいに、改行して出力すれば次にCGIを呼び出したときに再び
行入力演算子で配列に読みこめるファイルが作成できるのでしょうか？
何度もやったのですが、どうしてもうまくファイルが作成できないのです。

**nobodyさん** · 04/11/11 15:33:41

>>671
そんな感じぢゃな。

perlプログラムをローカルPCで実行 → ActivePerl をゲットせよ
ネット上のページの情報を取得 → LWPの使い方を習得せよ
解読処理 → HTMLをパースする方法、正規表現とか HTML::Parser とかを習得せよ
CSVファイルに書き込む → まあ何とでもなるぢゃろう

>>672
その FILE とかいうファイルハンドラは
当然書き込みモードで open されとるんぢゃろうな?

**nobodyさん** · 04/11/11 15:33:44

>>668
perlスレなのでperlを覚えてください

**673** · 04/11/11 15:35:58

>>674
いえ、入力モードで開いて配列に読み込んで、
一旦閉じてから再び出力モードで開いてます

**nobodyさん** · 04/11/11 15:46:34

>>671 >>674
ありがとうございます。

>>675
覚えてからできないのがわかったら悲惨ですから
先に確認したいと思いました。
じゃ勉強始めます。

**nobodyさん** · 04/11/11 16:00:47

スレタイ見るだけのスクリプトなら、手元にあるから、貼っといてやるよ。
スレの中身見るのは、自分で作りな。

use LWP::Simple;
$url = "http://pc5.2ch.net/php/subback.html";
@lines = split(/[\r\n]/, get($url));
foreach my $buf (@lines) {
　if ($buf =~ /<base href="([^\"]+)"/){
　　$base_ref = $1;
　　last;
　}
}
foreach $buf (@lines) {
　if ($buf =~ /<a href="(\d+)\/l50">(\d+):(.*)$(\d+)$/){
　　$thethread = $1;
　　$num = $2;
　　$title = $3;
　　$rescount = $4;
　　print "$thethread, $num, $title, $rescount\n";
　}
}

**nobodyさん** · 04/11/11 16:42:01

レンタルサーバにてたまにcgiがCPU 90%を長時間(600hとか)使うことがあります。
このスクリプトの問題点を調べたいのですが、どのようにすればよい
かアドバイスを頂けたらと思います。

利用しているスクリプトは、余裕派掲示板です。
http://specters.net/cgipon/

バージョンは、2.62と、3.00 beta7を利用しておりどっちが
CPUを食っているかはまだわかりません。

そこまでCPUを使ってるのにkillしないサーバ屋もサーバ屋ですが、
とりあえず、他人の迷惑になるので調査したいのですが、とっかかり
がわかりません。

発生頻度は、1-2日に1回位起きてるのかもという位で、まだ
詳しくはわかりません。

よろしくお願いします。

**nobodyさん** · 04/11/11 16:49:47

＞Perlのコーディングで困ってる人のスレです。

**nobodyさん** · 04/11/11 17:00:04

>>679
Devel::DProf
で調べると良いよ。

**nobodyさん** · 04/11/11 17:25:26

>>681
素晴らしいです。
#!/usr/bin/perl -d:DProf

にすれば良さげです。ちょっと仕掛けてみます。

**nobodyさん** · 04/11/11 20:23:40

ちょっといいか･･･？
＞レンタルサーバにてたまにcgiがCPU 90%を長時間(600hとか)使うことがあります。
600時間てあんた、一体何動かしてるんだ？
ほぼ一ヶ月だぞ？

**nobodyさん** · 04/11/11 20:45:48

>>681
これ良いです
便利なものがあるもんですね

**nobodyさん** · 04/11/11 21:02:10

>>683
600minでしたすまそ

一行ごとに解析できる Devel::SmallProf というのもあるらしい。

**nobodyさん** · 04/11/11 21:11:26

@hogeに20行の文字列が入ってて、
それを指定した位置から指定した位置の複数文字([6]から[14]までの文字)を
$hogeに入れるにはどうしたらよいですか？

**nobodyさん** · 04/11/11 21:16:03

for(i=6;i<=14;i++){
$hoge .= $hoge[$i];
}

**nobodyさん** · 04/11/11 21:35:44

>>687
多謝！！

**nobodyさん** · 04/11/11 22:09:33

$hoge = join('', @hoge[6 .. 14]);

**nobodyさん** · 04/11/12 00:37:35

ずっと気になっているんですが、.= とは何ですか？行数をどう処理するものなんですか？

**nobodyさん** · 04/11/12 00:44:05

連結演算子

**nobodyさん** · 04/11/12 00:47:37

<textarea>で作った2行の文字から改行を取り除くにはどうすればよろしいでしょうか？
$value =~ s/\n//;としてもだめでした。

perlバージョンは最新です。windows2000です

**nobodyさん** · 04/11/12 01:02:29

>>692
Win環境は\r\nだよ

**nobodyさん** · 04/11/12 01:02:48

$value =~ s/\r\n//g;

**nobodyさん** · 04/11/12 01:03:03

>>692
Perlメモ
でググってから、もう一度来い

**nobodyさん** · 04/11/12 01:18:01

ありがとうございます。うまくできました。

**nobodyさん** · 04/11/12 03:20:48

>>690
$hoge .= $foo;　と　$hoge = $hoge . $foo;　は同じ

>>692
漏れはどっちでも対応できるように $value =~ s/\r?\n//g; ってしてる。

**nobodyさん** · 04/11/12 07:17:05

>691>697
思い出しました、ありがとうございます

**nobodyさん** · 04/11/12 09:07:08

$_ = "AAA_BBB ZZZZ-DDD_EEE/FFF.";
のような文字列中からアルファベット三文字のリストを抜き出そうとしています。
my(@list) = $_ =~ /(?:^|[^A-Z])([A-Z]{3})[^A-Z]/g;
foreach (@list) {
　　print "$_\n";
}
にしてみたのですが抜き出されるのは
AAA,DDD,FFFの３つでAAA_のマッチのあとのBBBとDDD_のあとのEEEがとれません＞＜

**nobodyさん** · 04/11/12 10:27:18

>>699
こいでいいじゃん。
while(s/[A-Z]{3}//) {
print $&, "\n";
}

**nobodyさん** · 04/11/12 10:29:01

>>699
これでどうよ？

my $t = "AAA_BBB ZZZZ-DDD_EEE/FFF.AAA";
my(@list) = $t =~ /(?:^|[^A-Z])([A-Z]{3})(?=[^A-Z]|$)/g;
foreach (@list) {print "$_\n";}

最後のAAAにマッチさせたくないのであれば|$の部分をｶｯﾄ

**699** · 04/11/12 16:58:54

701さんのでうまくいきました。
ありがとうございました。

**nobodyさん** · 04/11/13 12:05:38

パスの区切り文字が環境（ＯＳ）によっては / だったり、\ だったりするので
実行環境を判定して場合分けしようと思いましたが、定番の方法があれば教えてください。

一応、こんなことしか思いつかないのですが・・
$^X=~/exe$/i

**nobodyさん** · 04/11/13 12:59:33

>>703
CGI.pmのソース読んでみて。

**703** · 04/11/13 13:14:55

>>704
なるほどわかりました。これが定番なんですね。
スマートな方法じゃないのでがっかりんこです。

**nobodyさん** · 04/11/13 13:50:49

>>703
my $os = $^O;
my $separator = '/';
if ($os =~ /^MSWin/i or $os =~ /^dos/i or $os =~ /^OS2/i){
$separator = '\\';
} elsif ($os =~ /^MacOS/i) {
$separator = ':';
}
でも構わないと思うけど。

# 手抜きするなら、/[:\/\\]/で区切るとか。

**nobodyさん** · 04/11/13 15:05:09

>>703
やりたいことをまずは書いたほうが解決は早いよ。
ディレクトリ部分を削除してファイル名のみにしたいとか。そんな感じじゃないの？

**nobodyさん** · 04/11/13 17:15:37

ファイルハンドルがcloseされているのかされていないのかを明示的に調べる
方法はありますでしょうか？

**nobodyさん** · 04/11/13 17:46:23

はい

**nobodyさん** · 04/11/13 17:49:37

フォームに記入してもらったメールアドレスにsendmailでメールを送信するCGIを組んで運用しているのですが、
infoseekのwebメールサービスで本文の文字化けが起きてしまいます。
例）あああああ → ??????????

ヘッダには以下のものを設定してあります。
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

ググってみたところ同じ問題を抱えているweb管理者さんがたくさんいることはわかったのですが
解決方法を見つけることはできませんでした。

文字化けさせない方法があったら教えてくださいませ。

**nobodyさん** · 04/11/13 18:46:27

charset="iso-2022-jp" で試してみそ

**nobodyさん** · 04/11/13 19:12:30

>>711
レスありがとうございます。

実は以前は""で括っていました。
これが文字化けの原因かも？と思い現在は""を外しているわけですが
やはり文字化けしてしまっているという状況です。

この問題が解決できれば、多くのWeb管理者さんが助かることになると思います。
（もちろん私もですが…）
どうか皆さん、お知恵をお貸しください。

**nobodyさん** · 04/11/13 19:20:00

化けるメールと化けないメールのヘッダを比べてみたら？

**nobodyさん** · 04/11/13 19:33:36

>>713
レスありがとうございます。

何度も見直しているのですが、PCのメーラから送ったものと特に違う箇所は無いのです。
（Received、Message-ID、X-Mailer等は抜かします）

Subjectは両方ともISO-2022-JPのBでエンコーディングして（されて）います。

**nobodyさん** · 04/11/13 19:40:31

Charset=iso-2022-jp ではダメか？
とにかく化けたメールのヘッダを晒してみんしゃい

**nobodyさん** · 04/11/13 19:42:20

ごめん 710にかいてあった鬱

**nobodyさん** · 04/11/13 19:56:16

自作のCGI(PHPのPEAR:Mailを使用)で、710と同じヘッダでInfoseek宛に
メール送信してみたが、文字化けはしない。

710の使っているCGIとHTMLのソースを見たら、原因が分かるかも。

**nobodyさん** · 04/11/13 20:03:52

>>709
>>708じゃないけど、よかったら教えてくださいな。

>>710
本文の文字コードが2022-JPかどうかをもう一度確認。

**710** · 04/11/13 20:07:15

>>717
あまり綺麗なソースではないので恥ずかしいのですが、よろしくお願いします。
xxxの箇所は伏せさせてください。

my　$mailer = '/usr/sbin/sendmail';
my　$mlfr= 'xxx@xxx';
my　$mlto= 'xxx@infoseek.jp';
my　$mlsb= 'xxx';
my　$mlmsg = "あああああ";

my　$mlhd= "Reply-to: $mlfr" . "\n" . "MIME-Version: 1.0" . "\n" . "Content-Type: text/plain; charset=iso-2022-jp" . "\n" . "Content-Transfer-Encoding: 7bit" . "\n" . "From: $mlfr" . "\n" . "To: $mlto" . "\n" . "Subject: $mlsb" . "\n\n";

my　$err = 0;
open( MAIL, "| $mailer -t -f'$mlfr'" ) or $err = 1;
if ( $err == 0 ) {
　print MAIL $mlhd;
　print MAIL $mlmsg;
　print MAIL "\n";
　close( MAIL );
}

なお、通常のメーラ、そしてyahooやhotmailなど他の無料メールサービスでは正常に表示されています。

**nobodyさん** · 04/11/13 20:35:30

$mlmsgはホントにiso-2022-jpか？

**nobodyさん** · 04/11/13 21:16:07

> my　$mlmsg = "あああああ";
でエラー出てないから、送ってるコードはiso-2022-jpじゃ無いだろ。
コード変換しろ。

**710** · 04/11/13 21:17:27

>>720
鋭いご指摘ありがとうございます。
素晴らしく見事に見過ごしてました…orz

$mlmsgにコード変換かますことで解決しました。
皆さんありがとうございました。

**nobodyさん** · 04/11/13 21:19:42

- - - - - ここまで釣り - - - - -

**nobodyさん** · 04/11/13 21:25:31

>ググってみたところ同じ問題を抱えているweb管理者さんがたくさんいることはわかったのですが
...

**nobodyさん** · 04/11/13 21:26:44

　　　　　　　　　　　　　　　　　　　　｜
　　　　　　　　　　　　　　　　　　　　｜
　　　　　　　　　　　　　　　　　　　　│
　　　　　／V＼　　　　　　　　　　Ｊ
　　　　/◎;;;,;,,,,ヽ
　＿　ﾑ::::<,,ﾟ Aﾟ>::|　ｼﾞｰｰｯ
ヽﾂ.（ﾉ:::::::::.:::::::.:..|）
　ヾソ:::::::::::::::::.:ﾉ
　　｀ー U'"U'

**nobodyさん** · 04/11/13 21:33:59

>この問題が解決できれば、多くのWeb管理者さんが助かることになると思います。
...