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

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

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

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

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

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

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

**nobodyさん** · 04/10/14 00:52:58

>>111
答えられない人はお帰りください＾＾

**nobodyさん** · 04/10/14 01:31:30

>>108
まずurlにマッチングさせてからinnerかouterか判定させれば？
urlの正規表現についてはググればすぐに出てくるので。
あと、エスケープする必要があるものとそうでないもの調べてくれ。

**nobodyさん** · 04/10/14 02:27:52

>>110
ここはアルゴリズムを質問するスレではない。
「こういうアルゴリズムを考えたので Perl で実装したいんですが
どうコーディングしたら良いですか?」
という質問形式にして出直してきたまえ。

例えば、いったん各々の個数を全部数え上げるというアルゴリズムで行くなら、
ハッシュをインクリメントしていって、数え終った後でソートする、というのが素直だろうな。

**nobodyさん** · 04/10/14 05:34:49

前に114と同じことを書いたら叩かれたのを思い出した

**nobodyさん** · 04/10/14 06:51:34

【目的】
Net::SSH::Perlを使ってサーバに入り、任意のメールアドレスに対してメール
を送信するスクリプトを作る。

【スクリプト】
#!/usr/bin/perl -w
use Net::SSH::Perl;
$host = "www.test.net";
$user = "hogehoge";
$pass = "2ch_test";
$cmd = "mail hoge\@hoge.ne.jp";
$body = "www.test.net is ok\n";
$ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
$ssh->cmd($cmd);
$ssh->cmd($body);

【説明】
スクリプトを実行したとき、指定したサーバにログインすることはできるので
すが、それ以上処理が進まず、メール送信もされません。ただ、スクリプトを
実行させてキーボードから文字を入力してCtrl-Cで処理を中断するとメールは
配信されます。
[mona@localhosst mona]% ./test.pl<Enter>
これはテストです。<Enter>
Ctrl-C

【教えて欲しいこと】
$bodyの内容を自動的に標準入力に代入し、メールを送信する。
加えて、サーバからの切断も自動的に行ってくれる。
以上の二点を解決したいです。
よろしくお願いします。

**nobodyさん** · 04/10/14 08:14:10

@a = "ァー";

for(@a){
@b = split /　| /; #全角or半角スペースで切る
}

for(@b){
print;
}

というコードを実行すると何故か
ゼ
と表示されます。これはどういうことでしょうか？
$aの「ァー」の部分を色々変えてみましたが、
こうなるのは「ァー」と「ぁー」です。
どなたか分る方いたら教えてください。

**nobodyさん** · 04/10/14 08:36:03

http://www.dp.j-phone.com/dp/tool_dl/web/useragent.php
の表はユーザーエージェントの解説なのですが、表の一番下にあるような
「J-PHONE/4.0/J-SH51/SN*********」という文字列で、
SN以降を削除し他の部分だけを残したいんです。その場合の正規表現は
どう書けばいいのでしょうか？
$abc =~ s/(.+)[SN](.+)/$1/;　だとダメでした。どなたかお力添えをお願いします。

**nobodyさん** · 04/10/14 10:24:52

>>118
$abc =~ s/SN.*//;

**nobodyさん** · 04/10/14 10:36:01

>>117
たぶんソースをeucで書いてるだろうから、

use encoding 'euc-jp';

を頭に追加すれば直ると思うが。

unicode機能を有効にしないperlでは日本語の2バイトコードは
1つの文字としては扱えず、1バイトずつバラバラのバイト列と
なってしまう。

"ァー" = "\xa5\xa1\xa1\xbc"
/　| / = /\xa1\xa1| /

なので、ァーの部分は真中の\xa1\xa1の部分を区切りとして
splitされてしまい、\xa5\xbcが出力される。これは「ゼ」。

同様に「ぁー」のときは「ぜ」になってるはず。

**nobodyさん** · 04/10/14 10:38:58

>>117
http://www.din.or.jp/~ohzaki/perl.htm#JP_EUC_JP
ここから下を読むことを勧める。

**118** · 04/10/14 10:39:49

>>119
レスありがとうございます。
でもそれではうまく行きませんでした。
SN以降が削除されずにそのまま出力されているようです。

**118** · 04/10/14 10:43:11

失礼、うまくいきました！
感謝感謝です。ありがとう。

**117** · 04/10/14 12:36:50

>>120
ありがとうございます！
完璧な説明大変感謝してます。

**117** · 04/10/14 12:42:18

感謝した先から申し訳ないのですが、
コードはEUCで書いてるのですが
扱ってるデータがS-JISだったりします。
use encoding 'euc-jp';
したら、データが化けてしまいます。
そういう場合
:コードの文字コードと　扱ってるデータの文字コードが違う場合:
どう対処したらよいのでしょうか？

**nobodyさん** · 04/10/14 12:43:53

>>125

>>6

**117** · 04/10/14 13:13:06

>>126
コーディング、の定義を教えて下さい(･_･)(._.)

**nobodyさん** · 04/10/14 13:45:02

>>127
最低限の検索ぐらいはやった上で質問しなきゃ。
コーディングでググれば？

検索わからない？
http://pc6.2ch.net/pcqa/

**117** · 04/10/14 13:59:16

>>127
は僕じゃないです。
変な質問して、荒らしてしまって申し訳ないです。

**nobodyさん** · 04/10/14 14:04:44

>>125
ここがわかりやすかった

ttp://namazu.org/~tsuchiya/perl/perl-5.8.html

**117** · 04/10/14 14:05:05

自己レスです。

http://www.din.or.jp/~ohzaki/perl.htm#JP_Trans

にそのまんま答えが書いてありました。
お騒がせいたしました。

**nobodyさん** · 04/10/14 17:55:56

my($takesi,@takesi);

は

my *takesi;

と同じと考えてよろしいでしょうか？

**nobodyさん** · 04/10/14 18:02:41

久しぶりだなこのスレ
コーディング　【coding】

プログラミング言語を使ってソフトウェアの設計図にあたるソースコードを作成すること。
（e-Wordsより）

>>126は何故に>>125に対してこれを読めって言ったの？
文字コード問題は設計とは関係ないってか？そんなアホな事はないよな。
そもそもよほどのことでない限りコーディングと無関係にはなれないんだがな。

例えば俺の話とかなｗｗｗ完全にすれ違いってやつだ。
まあお前ら少しは言葉の勉強もしろよ。

**nobodyさん** · 04/10/14 18:03:09

>>132
違うよん。

**nobodyさん** · 04/10/14 18:04:58

>>134
そうだったのですか。
あやうく欲張るところでした。
ありがとうございました。

**nobodyさん** · 04/10/14 23:56:21

$abc = shift;

この shift ってどういう意味なんでしょうか？
関数ですか？

**nobodyさん** · 04/10/15 00:34:17

$b = "こん"
$c = "にちわ"　
変数$aに$bと$cを結合したもの、つまり
"こんにちわ"を代入するには
$a = $b.$c
で大丈夫でしょうか？

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

便乗質問。
>>137と似てるんですが、
$b = "co"
$c = "jp"
の場合に $a に co.jp を代入するにはどうすればいいですか？
$a = $b\..$c
で合ってます？？

**nobodyさん** · 04/10/15 00:44:50

>>136
関数。shift unshift pop push 他。

>>138
$a = $b.'.'.$c

**nobodyさん** · 04/10/15 00:53:13

>>137
聞く前になんで試してみないの？

**nobodyさん** · 04/10/15 01:17:23

>>140
面倒なんだろ？
まあよくわからんが。

**nobodyさん** · 04/10/15 08:34:27

このままperlの言語仕様を全部質問されそうな勢いだな。
何スレぐらいかかるだろうか。

**nobodyさん** · 04/10/15 08:35:47

掲示板があったとして
log.txtを編集するために
bbs1.cgiでflockした場合
bbs2.cgiで編集しようとした時にも
ロックされてるんですか？

**nobodyさん** · 04/10/15 10:12:58

>>139さん、shiftって配列の先頭の要素を削除する関数ではないんですか？
shift (@data);
とかならわかるんですけど、
スカラー = shiftという意味がわからないのです。

**nobodyさん** · 04/10/15 10:54:53

print "Location: http://www.2ch.net/";
という文のみのファイルを作って、プラウザからアクセスすると指定URLに飛びますが、
上記の文より前に
print "Content-type: text/html\n\n";
などと書かれていると、ブラウザ上に「Location: http://www.2ch.net/」という文字列が表示されてしまいます。

やりたい事は、フォームから検索をかけて、検索処理中の間は特定のページを表示して、
検索が終了したらその結果を表示する画面に遷移する、ということです。
「検索処理のリクエストを受ける → 特定のページを出す「お待ちください」など → 検索終了 → 結果表示」

要するに、1回のPerlの処理で、ブラウザ上で複数のページ間を遷移させる事は可能でしょうか。

**nobodyさん** · 04/10/15 11:09:31

>>144
マニュアルのshiftの項をよく読め。

ttp://perldoc.jp/docs/perl/5.6.1/perlfunc.pod とか。

**nobodyさん** · 04/10/15 11:22:44

>>145
君のやろうとしていることは perl とは関係無い。
javascript を勉強する方が役に立つだろう。

**nobodyさん** · 04/10/15 13:29:36

HTMLでmetaで指定する部分は全てヘッダで返せるのでしょうか？

例えば
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<meta http-equiv="Content-Style-Type" content="text/css">
<meta http-equiv="Content-Script-Type" content="text/Javascript">
<meta http-equiv="cache-control" content="no-cache">
<meta http-equiv="pragma" content="no-cache">

を、

print "Content-type: text/html; charset=Shift_JIS\n";
print "Content-Style-Type: text/css\n";
print "Content-Script-Type: text/Javascript\n";
print "cache-control: no-cache\n";
print "pragma: no-cache\n\n";

にした場合、きちんと返ってるのでしょうか？

**nobodyさん** · 04/10/15 13:33:40

聞く前にやってみてはどうかね。

**nobodyさん** · 04/10/15 13:45:29

返ってるか分からないんです…

**nobodyさん** · 04/10/15 13:55:55

最近はやればわかるのにやりもしないで質問してくる連中が多いな

**nobodyさん** · 04/10/15 14:55:30

>>148
一点目のアドバイス。
「きちんと返っているかどうか確認する方法を教えてください」と質問すれば
いじめられることもなかっただろうに。

二点目のアドバイス。
どっちにしても Perl と全く関係ない質問なので、
WebProg初心者スレなどで聞く方が正解。

**nobodyさん** · 04/10/15 15:35:31

>>143
bbs2.cgiがflock使うなら勿論ロックになる。
flockはセマフォでの唯一のロック獲得争いにすぎない。
そのロックしないプログラムには通用しない。

**nobodyさん** · 04/10/15 15:37:05

>>153だが我ながら変な日本語だ。逝く。

**nobodyさん** · 04/10/15 16:21:08

>>154
bbs.cgiでlog.txtに書き込みするためロックしました
そのままdelete.cgiでlog.txtの書き込みの一部を削除しようとした場合には
ロックはされてないということでいいんですか？

**nobodyさん** · 04/10/15 16:57:04

flockによるロックは、トイレにカギをかけるようなものではなく、
カギのかからないトイレのドアに使用中と札を下げるようなもの。
その札を見てくれる奴には効果はあるが、ハナから見ちゃいねー
奴には無効。delete.cgiがどっちの奴かはオレにはわからない。

**nobodyさん** · 04/10/15 17:40:29

>>155
delete.cgiが、flockでlog.txtに対するロックを獲得しようとすれば、ちゃんと排他制御がなされる。
（bbs.cgiがロックを返すまで待つか、即座に獲得失敗するかはモード次第）。
しかし、delete.cgiがflockを行っていないのなら、bbs.cgiによる排他制御は無意味。
bbs.cgiがロックを得ている・得ていないに関わらず操作可能。
flockは、お手軽なロック機構にすぎない。
（ロック用ディレクトリとか、スリープするか即座に失敗させるかを自力でやらなくて良いって程度のもの）。

**nobodyさん** · 04/10/15 17:49:21

【Perl】ファイルロック(排他処理)について語ろう
http://pc5.2ch.net/test/read.cgi/php/1024795138/

**nobodyさん** · 04/10/15 17:55:33

>>153だが、
>flockはセマフォでの唯一のロック獲得争いにすぎない。
これは勘違いだったようだ。perlのflockがセマフォ使ってるわけじゃないか。
もう氏ぬ。

**nobodyさん** · 04/10/15 20:46:48

クーロンでperlで作成したブログラムを起動したいのですが、
どうしたらいいのでしょうか？　普通はブラウザのボタンから起動されると
思うのですが、ある時間が来ると自動で動かしたいのです。よろしくお願いします。

**nobodyさん** · 04/10/15 21:05:08

>>160
好きなようにセットしろよ
使い方分からないならググれば一発だろ

ついでにｽﾚ違いな

**nobodyさん** · 04/10/15 23:13:44

>>159
下の下の方(flock(2)やfcntl(2)の下のほう)ではセマフォつかってるよ。多分。
それでも↓は意味不明だけど。
> >flockはセマフォでの唯一のロック獲得争いにすぎない。

**nobodyさん** · 04/10/16 02:52:59

1000ステップのperlスクリプトと、200ステップのperlスクリプト、
どちらも実行ステップは100だとしても、やはり後者の方がサーバに対する
負荷は少ないのだろうか。

**nobodyさん** · 04/10/16 03:14:53

それはもちろん自分で負荷を計測してから聞いｔ（

**nobodyさん** · 04/10/16 11:06:14

>>163
1ステップだ。↓を実行してみな
while(1) { fork;}

**nobodyさん** · 04/10/16 12:33:14

前のｶｷｺした香具師とは関係ないが便乗して

計測の方法が分かりません。。。
ｸﾞｸﾞったらWin鯖は無理と書いてあったんですが、Win鯖で出来るｿﾌﾄありませんか？

**nobodyさん** · 04/10/16 20:03:43

>>166
話が見えない。
ああ、誤爆か…

**nobodyさん** · 04/10/16 21:45:26

perlのスクリプトでflockしたファイルに対して、PHPのスクリプトでflockしたら（もしくはその逆も）、
ちゃんと排他は行われるでしょうか？

**nobodyさん** · 04/10/16 23:05:32

CGIカウンターを設置したいので、perlを勉強しています。参考書を見て↓のを作成したのですが。

# カウントファイルの読み込み
open(FILE, "+<./count.dat") or die("エラー：カウントファイルが開けません");
eval{ flock(FILE, 2);};
$count = <FILE>;

# カウントファイルの書き込み
seek(FILE, 0, 0);
print FILE ++$count;
close(FILE);

# サーバ出力
print <<END;
Content-type: text/html
中略）
END

Apachでエラーログをみると Premature end of script headers　と出てしまいます。
どの部分を訂正すればよいのでしょうか？ご存知の方、ご指導お願いします。

**nobodyさん** · 04/10/16 23:13:07

print <<END;
Content-type: text/html
中略）

**nobodyさん** · 04/10/17 01:00:06

open(FILE, "+<./count.dat") or die("エラー：カウントファイルが開けません");

このdieの部分はどこに出力されるのですか？ログとか？

**nobodyさん** · 04/10/17 01:03:49

標準エラー出力 (STDERR)

**nobodyさん** · 04/10/17 01:38:29

配列のリファレンスをforeachで処理するにはどうしたらいいですか？
$dbh->{NAME}
が配列へのリファレンスだとして、
$dbh->{NAME}->[0]ではアクセスできる状態です。

foreach($dbh->{NAME})
{
　print;
}

foreach($$dbh->{NAME})
{
　print;
}

等とやってもうまくいきませんでした。

**nobodyさん** · 04/10/17 01:39:32

@{$dbh->{NAME}}

**nobodyさん** · 04/10/17 01:41:51

>>174
うまくいきました。ありがとうございました。

**nobodyさん** · 04/10/17 10:10:48

>170
中略）の部分は

<html>
<head><title>perlアクセスカウンター</title></head>
<body>
<P>あなたは$count番目の訪問者です。</p>
</body>
</html>
END

Premature end of script headers　
エラー：カウントファイルが開けません　のエラーログが出ます。

open or die　の文がおかしいのかと思ったのですが、良くわかりませんでした。よろしくお願いします。

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

初心者なんで間違ってるかもしれんが、
Content-type:text/htmlの後に改行が2つ(\n\n)必要だった希ガス

**nobodyさん** · 04/10/17 10:21:41

openに失敗してるんだろ

**nobodyさん** · 04/10/17 13:45:28

>>168
双方が協調して動作するためには、同じ方式のロックメカニズムを使用する必要があるが、
perlのflockはOSが提供しているflockとは限らない、PHPは知らない。
プラットフォームインディペンデントに作るなら、昔ながらのロックファイル方式か、
OSの提供する排他制御のプリミティブを直接呼び出すのがいいだろう。

**nobodyさん** · 04/10/17 22:56:51

二次配列等は使えますか？

**nobodyさん** · 04/10/17 23:20:50

>>180
ここに書く前にperlのdocument群を読んで欲しいかも。。。

**nobodyさん** · 04/10/18 01:01:57

>>180
2年前に同じ質問したことあるな・・

**180** · 04/10/18 01:23:59

これは失礼いたしました…

**nobodyさん** · 04/10/18 04:17:33

myについて質問させて下さい。

sub a
{
my $daskin;
$daskin="かきくけこ";
&b;

&c;
}

sub b
{
my $daskin;
$daskin="あいうえお";
}

sub c
{
print "$daskin";
}

こういったスクリプトを書いた時、&a、&b、の中で$daskinは局所化されているので
&c内のprintの表示が空になることを期待していたのですが、｢あいうえお｣と表示されてしまいます。
変な質問ですが、みなさんにとっては納得のいく結果でしょうか？
私の局所化処理が間違っている場合、教えて下さいm(__)m

**nobodyさん** · 04/10/18 05:07:01

申し訳ありません。
自己解決いたしました。
上記のスクリプト、ここへの転載も含め、私の記述が間違っていたようです。

**nobodyさん** · 04/10/18 13:44:39

print <<"EOF";
メッセージ：
$message
ここまで
EOF

こういう記述があるとして、$messageにはランダムにメッセージが入るのですが、
ここに何も文字列が入らなかった場合、HTMLで見ると

メッセージ：

ここまで

このように、間が空行になってしまいます。
ここを上手く詰められるような記述方法は無いでしょうか。

**nobodyさん** · 04/10/18 13:54:10

print <<"EOF";
メッセージ：
$messageここまで
EOF

**nobodyさん** · 04/10/18 16:35:34

>>179
ありがとうございます。
ロックファイルでやる事にします。

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

0410181738 という形の時間(year,mon,day...)をcookieの期限のために

sprintf("%s, %02d-%s-%4d %02d:%02d:%02d GMT",
$day,$mday,$mon,$year+1900,$hour,$min,$sec);

というような形にしたいのですが、曜日だけが変換のネックと
なっています。どのようにこの日の曜日を計算させればよいの
でしょうか?

**nobodyさん** · 04/10/18 19:32:32

>>189
ttp://www.din.or.jp/~ohzaki/perl.htm#Date2WDay

**nobodyさん** · 04/10/18 21:38:36

１．http://aaa.a.a/a.cgi

２．http://bbb.b.b/b/cgi

１のプログラム上から引数を渡して２のプログラムを動作させて
結果を1のプログラムに返すようなことって可能でしょうか？

２のサーバーのローカルにあるデータベースからデータを取得して
1のサーバーのローカルにあるデータベースにデータを保存したいと
おもっております。言語はperl使用です。

**nobodyさん** · 04/10/18 21:42:53

>>191
LWPとか
さんざん外出

**nobodyさん** · 04/10/19 10:09:36

>>192
何ｽﾚも前で既出のもんとかを既出の一言で片付けられたってわかるわけねーだろｱﾌｫ
どうせ本当に既出かどうかの確認もしてねぇんだろ？（ｐｐ
ん？何ｽﾚ目で話題が出たか言えるか？無理だろうなぁ日本語読めてないっぽいもんなぁ(･∀･)ﾆﾖﾆﾖ

**nobodyさん** · 04/10/19 10:22:08

>>193
前スレで何回もでてるよ。確認もしてないのはお前だ。

**nobodyさん** · 04/10/19 10:25:54

>>194
いや、どう見ても釣りだろｗ

**nobodyさん** · 04/10/19 14:27:41

LWPで何百何千もの html をネットから落としてきて解析するプログラム書いてるんですけど
request() とrequest()の間ってやっぱsleepとか入れて間を開けた方がいいのでしょうか？
具体的にはﾔﾌｰの株価データなんですけど

**nobodyさん** · 04/10/19 14:35:05

>>196
相手次第

**nobodyさん** · 04/10/19 17:42:02

日本一Perlが凄い人ってKENTさんですか？

**nobodyさん** · 04/10/19 17:45:10

もちろんそうですよ。

**nobodyさん** · 04/10/19 19:19:06

CGIレスQって、・・・・なコーディングがしばしば。

**nobodyさん** · 04/10/19 20:44:07

自宅サーバ板か迷いましたがprogエキスパートの方のほうが確実。
現在、ADSLですが、DDNSは使っていないので、固定Webアドレスが保証できない状態です。
ADSLモデムのルーター機能を通していますので、当然ルーターにグローバルIPが振られてます。
では、プライベートIP上のCGI実行Progでこのルーターのグローバル
IPを得ることはできます？
あるperlのCGI実行スクリプトがWebサーバー上のフォルダへのフルパス（http://～）
を要求しているので、グローバルIPが固定でない場合ですから、その都度prog的にIPを取得すれば使えるのでお願いします。
win me
AN HTTPD
ActivePerl5.8.4
です。

**nobodyさん** · 04/10/19 20:57:26

ベタだが、そのルータの設定画面からひろっちゃえば？
ページの取得にはLWP使用。

**nobodyさん** · 04/10/19 21:25:04

同じ環境に設定したサーバーにperlで書いたCGIをいれて動かしているのですが
片方ではcommon.plというところでとまってしまいます
片方ではすんなり動きます
おそらく何か重要な部分を設定ミスしてると思うのですが
わかる範囲でチェックをしたつもりなのですが
１から重要な場所をチェックできるようなサイトをどなたかしりませんか？
もしくは直感的にどこが悪いか指摘していただいても結構ですので
よろしくお願いいたします。

**nobodyさん** · 04/10/19 21:36:22

頭

**201** · 04/10/19 22:15:51

>>　202
ありがとうございます。
ルーター設定ページを読み込んで、読み取る方法も確かにそれもありですね
ベタですね。確かに＾＾
おそらくActivePerlなので、Win用ActiveXコンポーネント(dllなど）が利用できるので
できますよね。WIN32APIも呼べるはずですが、…そのサンプルを今探しております。
P…面倒だからやはりDDNSか固定IP…
いやがんばります。できたら報告致します・

**nobodyさん** · 04/10/19 23:13:46

REMOTE_ADDR表示するCGIをインターネット上のどっかにおけばいいじゃん。

**nobodyさん** · 04/10/19 23:56:47

>>205
DDNSの方が断然楽そうですなぁ。。。

**nobodyさん** · 04/10/20 04:50:52

>>203
それだけじゃわかんない。

**nobodyさん** · 04/10/20 10:36:58

rename関数を使ったﾌｧｲﾙﾛｯｸを考えてます。

for($i=2;$i>0;$i--){
if (rename("file.unlock","file.lock")) {last;}
}
if($i<0){
die "Failed file lock";
}
処理
rename("file.lock","file.unlock");
これに「異常終了しﾌｧｲﾙﾛｯｸが1分以上かかっていたら修正する」という処理を入れたいんですが、どんな方法がありますか。

**nobodyさん** · 04/10/20 10:41:01

for文間違ってました
条件が $i>=0 です。

**nobodyさん** · 04/10/20 11:05:53

>>209-210
http://www.din.or.jp/~ohzaki/perl.htm#File_Lock
http://pc5.2ch.net/test/read.cgi/php/1097158988/