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

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

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

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

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

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

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

**nobodyさん** · 04/10/21 16:33:29

>>225で言ってるのがﾋﾝﾄのﾖｶﾝ

**nobodyさん** · 04/10/21 16:52:10

すいません、色々見てて気になったんだけど、
for (@配列) { ～ }
って、これって
foreach (@配列) { ～ }
と繰り返す回数って違うの？

**nobodyさん** · 04/10/21 16:57:06

何　で　や　っ　て　か　ら　聞　か　な　い　？

**221** · 04/10/21 17:56:10

>>267氏、これで正常に動きました。感謝します。

が、肝心の s{ 以下の処理の部分が何をしているかが不明なので、ちょっとまだ導入できないです･･･
? と : が if else って事くらいしかわからない上に、色々と省略された書き方をされているようなので、
理解には時間がかかりそうです。
一文字ずつ分解して、[\x00-\x7F]以外のものはordで数値変換してsprintfで16進数に書き出しているということですよね。
splitを消すと\x5Cがおかしくなるようですが、何の処理をしているかもまだ理解の範疇にはないようです。

省略した書き方とかしたこと無いんで、冗長なコーディングしか出来ない自分が悲しい･･･
あと、省略できるものも極力省略しないという書き方をしているので（自分が理解できなくなると困るので）、
このソースをもとに何とか書き換えて実装してみようと思います。

**nobodyさん** · 04/10/21 20:11:32

作業に若干時間がかかるスクリプトを単体で起動させると問題ないのですが、
サブルーチンとして起動させると、作業を終える前に次のコードに移ってしまいます。
これはどうやって防げばいいでしょうか？

**nobodyさん** · 04/10/21 20:52:06

何も考えないで書くけど、
そのサブルーチンの最後に何かフラグを立てて、
それが立ってなければ待つってのは？

**nobodyさん** · 04/10/21 21:15:46

話がよく見えないのだが、
サブルーチンという言葉の使い方が間違っているように思えてならない。
ひょっとして「子プロセス」とかそういうモノを指しているのか?

**273** · 04/10/21 21:40:12

すいません、正しくはモジュールかもしれません。
いわゆる.plファイルです。
aというモジュールがあります。
b(.pl)というモジュールからaをuseしてます。
.cgi からbモジュールをrequireすると、aモジュールの作業を完了しないまま、
bモジュールの次のコードに移ってしまいます。
.cgiにから直接aモジュールをuseしたら、問題は
発生しませんでした。

**nobodyさん** · 04/10/21 22:08:58

ますます混迷の度合いが深まってきた気がする...

**nobodyさん** · 04/10/21 22:14:52

>>276
ああわかった。それはあれだ。

use したファイルはコンパイル時に読み込まれて実行されるが、
require したファイルはコード実行時に読み込まれて実行される。

b が require された時点ではコンパイルがとっくに終っているので
b の中で use した a が実行される機会は永遠に巡ってこない。

**273** · 04/10/21 22:21:30

>>277
ちょとわらた
>>278
改善策ありますか？

**278** · 04/10/21 22:31:20

b から a を use でなく require(+import) すれば良いんでないかと思うが試してない

**273** · 04/10/21 22:51:54

require してみますたが、変わらずでした。
require、use云々ではないかもしれません。
wait;ってのが気になってるのですが、
これはどうやって使えばいいのでしょうか？
ググッテも情報量がひっじょーに少ないとです。
ヒロシです

**nobodyさん** · 04/10/21 23:06:49

use や require は同一プロセス内での呼び出しだが、
wait は子プロセスの終了を待つ関数なので、使えない

**nobodyさん** · 04/10/22 10:48:37

Cだと入力がCtrl+D(windowsはCtrl+Z)だとプログラム終了ってのを
if (nyuryoku == '\0') {exit(0);}
て書けるけど、perlだとどう書きますか。以下の何入れても
quer!が出ちゃうんです。
$var=<STDIN>;
chomp($var);
if ($var eq "\0") {
exit(0);
} else {
print "quer!\n";
}

**nobodyさん** · 04/10/22 10:50:06

上げておきますね＾＾

**nobodyさん** · 04/10/22 11:17:20

>>283
行入力演算子(<>)はEOFでは未定義値を返すので、

if (!defined $var) {

**283** · 04/10/22 11:23:46

>>285
どうもだす。それで行けますた。

**nobodyさん** · 04/10/22 11:42:34

DBI.pm には Mysql.pm にあった fetchcol() メソッドがないみたいですが
自分で実装するしかないのでしょうか？

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

例えば　"掲示板"　という文字、UTF-8でエンコードすると

"E6%8E%B2%E7%A4%BA%E6%9D%BF"
となると思います。

そして本来UTF-8のコードである　"E6%8E%B2%E7%A4%BA%E6%9D%BF"　を誤って
$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C",hex($1))/ge;
でデコードすると

"牙ず? "

となってしまいます。
この　"牙ず? "　を元のUTF-8のコード　"E6%8E%B2%E7%A4%BA%E6%9D%BF"　に戻すには
どのように処理したらいいのでしょうか？
どなたか教えて下さい。

**nobodyさん** · 04/10/22 12:20:13

>>288
バイト列としてはちゃんとデコードできているが、utf8として解釈すべき
バイト列をEUCだと思って見てるから変に見えるだけじゃない?

EUCで表示したければ適当にutf8→eucに変換すればいい。

use Jcode;

$str = "%E6%8E%B2%E7%A4%BA%E6%9D%BF";
$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C",hex($1))/ge;

print Jcode->new($str)->euc,"\n";

**nobodyさん** · 04/10/22 12:45:55

すみません、教えて下さい。

手持ちのマニュアルで１６進定数の記述方法が

$a='/abcd';

となっていたので携帯用絵文字を定義しようとしたのですが、

print $a;

をやると、/abcdと出てしまいます。

' を " に変えたり色々してみたのですが上手くできません。
正しい１６進定数の代入の仕方を教えて下さい。m(__)m

**nobodyさん** · 04/10/22 13:17:36

バックスラッシュの間違えじゃないのか

**nobodyさん** · 04/10/22 13:17:37

$a= 0xabcd;

**nobodyさん** · 04/10/22 13:33:16

教則本だと\がバックスラッシュとかになるから気をつけれ

**nobodyさん** · 04/10/22 14:27:39

>>291-293さま
ありがとうございます。
今からやってみます。（；；

**nobodyさん** · 04/10/22 15:33:52

できましたー。
ありがとうございました！！！！！

**nobodyさん** · 04/10/22 17:38:09

web上のファイル（複数）をperlを使って圧縮・サーバー上に保存、することはできますか？
よろしくお願いします。

環境：FreeBSD 4.7 UNIX O/S
perl5.6.1

**296** · 04/10/22 17:45:28

web上、サーバー上と表記しましたが、両方とも同じ自分がレンタルしているwebサーバーのことです。
下手くそな文章で申し訳ありませんが、よろしくお願いします。

**nobodyさん** · 04/10/22 17:54:42

ttp://homepage3.nifty.com/hippo2000/perltips/perllha.htm

**nobodyさん** · 04/10/22 18:01:00

>>298
それは笑う所ですか？

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

>>296-297
http://perldoc.com/perl5.8.4/pod/func/system.html
http://www.jp.freebsd.org/cgi/mroff.cgi?subdir=man&lc=1&cmd=&man=tar&dir=jpman-4.7.0%2Fman§=1
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq8.html#How_can_I_capture_STDERR_from_an

**300** · 04/10/22 18:07:22

むぅ。
http://www.jp.freebsd.org/cgi/mroff.cgi?subdir=man&lc=1&cmd=&man=tar&dir=jpman-4.7.0%2Fman&;sect=1

**296** · 04/10/22 18:39:07

>>298
>>300
ありがとうございます。
これから見に行って勉強してみます。

**nobodyさん** · 04/10/22 19:26:58

print qq|<TITLE>テスト</TITLE>|;
としたら、
apacheのエラーログにUnrecognized characterというエラーが表示されました。
どうも、テストという日本語に問題があるようですが、
この場合、どうすれば日本語を利用できるようになるでしょうか？
phpを以前ちょっといじっていて、htmlの組み込み安さに感動したんですが、
perlは結構面倒なんですかね？

**nobodyさん** · 04/10/22 19:31:59

age

**nobodyさん** · 04/10/22 19:32:44

use CGI;
$data=new CGI;
$name=$data->param('name');
$mail=$mail->param('mail');
$message=$message->param('message');

こうやって取り出したデータの中の文字は、
URLエンコードされたままではなく元に戻されているのでしょうか？

**nobodyさん** · 04/10/22 19:41:09

>>305
プリントしてみりゃいいだろ

**305** · 04/10/22 19:50:08

>>306
プリントしてみたら元に戻っていたので、あれ？と思ったんです。
今までずっと$name=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
やってたんですけど。
実は要らなかったのかなと思いまして。

実際どうなんでしょう？
ついでに、文字コードなんかはどうなっているのでしょうか？

**nobodyさん** · 04/10/22 19:58:14

(´-`).｡oO(なんで自分で確かめられないんだろう)

**nobodyさん** · 04/10/22 20:02:09

>>303
ｴｽｹｰﾌﾟ文字について勉強しなおすことをすすめる

**nobodyさん** · 04/10/22 20:03:26

>>309
qqについて勉強しなおすことをすすめる

**nobodyさん** · 04/10/22 20:05:07

何にでも「自分でやってみて確かめろ」と返す人は多いが
漏れは敢えて「やってみなきゃわからんのは頭悪過ぎ。まず man を読め」と言うことにする

**nobodyさん** · 04/10/22 20:07:35

>>311
チラシの裏にでも書いてろ

**nobodyさん** · 04/10/22 20:56:34

最近のチラシは両面印刷です

**nobodyさん** · 04/10/22 20:57:46

>>313
プリントの裏にでも書いてろ

**303** · 04/10/22 21:00:19

調べましたが、やぱーりわかりません。
だれかヘルプみー

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

>>312-313
すまん、ﾜﾛﾀｗ

**nobodyさん** · 04/10/22 22:03:02

>>315
全角スペースでも入ってるんじゃないのか？

**nobodyさん** · 04/10/23 15:43:12

すいません、質問です。
perlには、Cにおけるfprintfのような関数はないのでしょうか？

print FILE hogehoge;

というのが何行も続いてしまい、違和感を感じるのですが。

**nobodyさん** · 04/10/23 16:40:33

>>318
Perlは元々レポート作成用言語ディスよ？

fprintfに限らず、テキストの、文字入出力、ファイル入出力においての利便性は
Cとは比較にならんて。

ヒアドキュメントでも、format でも sprintf でも好きなもので対処すれば?

**nobodyさん** · 04/10/23 16:41:54

if(hoge||hogehoge){

の「||」の意味が分かりません。
だれか教えてくださいませ

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

>>320
or と　ほぼ同じ。 or よりも優先順位が高いので or と書いておいたほうが
意図どおり動くことが多いはずだよ。

**nobodyさん** · 04/10/23 16:43:06

>>320
演算子

**nobodyさん** · 04/10/23 16:53:18

>>320
()だらけでウザイ時に良く使う。

**nobodyさん** · 04/10/23 17:39:11

>>319
318は printf FILE ほげほげと書けることを知らないに一票。

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

>>319

sprintfで解決しました。

printする文字列を関数呼び出しで作成するというのは考えが及びませんでした。
どうもありがとうございました。

**nobodyさん** · 04/10/23 19:41:00

mkdir使うみたいに sudo mkdir を
perlで利用することは不可能でしょうか？
権限ないディレクトリにはディレクトリ作成できなかったので、
sudoで特定のユーザにmkdirの権限与えたのはいいものの、
perlで使おうとしても使えないんですね。
telnet経由しかむりぽなのでしょうか？

**nobodyさん** · 04/10/23 19:55:17

コーディング　【coding】

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

自分の質問がPerlに関することなのか、
それともPerlではなくCGIやHTMLについてなのかを切り分けした上で、
質問して下さい。

**nobodyさん** · 04/10/23 19:55:48

>>326
いや、普通にできると思うけど。具体的にどうやってるか示されてない
のでこれ以上はなんともいえんがな。

でもmkdirのような引数しだいでどこにでもディレクトリ作れるコマンドを
sudoで許可するのはあまり感心しないな。

**326** · 04/10/23 20:20:45

perl で　my $makedir = `sudo mkdir $user_dir/new`;
としています。
aユーザからbユーザのディレクトリに newというディレクトリ
を作成するようにしていますが、
上記ではうまくいきません。
bユーザディレクトリの権限をaユーザのものにし、
my $makedir = `mkdir $user_dir/new`;
とした場合は問題なく作成されます。

宜しくお願いします

**nobodyさん** · 04/10/23 22:28:08

池沼には、それがコーディングの問題じゃないということがわからないのだろうか?

**nobodyさん** · 04/10/23 23:18:04

もういいよこの類に触るのはやめやめ
次の質問よろ

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

hogeほげって何ですか？
何か意味があるんですか？

**nobodyさん** · 04/10/24 10:38:56

>>332
perlコーディングには関係ないと思うんですが...
サザエさんの、来週もまた見てくださいねぇ～、hogehugu が起源です。

**nobodyさん** · 04/10/24 12:22:59

サザエさんはfugafuguだろ。うそ教えるなよhage

**nobodyさん** · 04/10/24 13:34:27

>>332
ttp://kmaebashi.com/programmer/hoge.html

**nobodyさん** · 04/10/24 19:38:54

http://www.harukaze.net/~mishima/perl/module/upload_by_CGI_pm.html

こちらを参考に、アップロードのCGIを作成しているのですが、
アップロードを行うと、同フォルダにゴミファイルのようなものが出来てしまいます。
これを、消す事は出来ないのでしょうか？

**nobodyさん** · 04/10/24 19:40:35

消せばいいんじゃない？

**nobodyさん** · 04/10/24 20:14:53

すいません、消すと言うか、もとから作成されなくするって事は出来ないでしょうか？

**nobodyさん** · 04/10/24 20:36:57

>>338
ごみファイルってCGITemp?????とか言うやつ？

**nobodyさん** · 04/10/24 20:38:56

>>339
はい、そうです。

**nobodyさん** · 04/10/24 20:40:37

>>340
print(OUT $file);
close(OUT);

この間に一工夫いる。
CGITempでぐぐるといいよ。

**nobodyさん** · 04/10/24 20:47:25

print(OUT $file);
close($filename);
close(OUT);

としたら、作成されないようになりました！（これで、大丈夫ですよね）
大変ありがとうございました。

**336** · 04/10/24 21:57:58

アップロードに関して、もう一件質問させてください。

アップロードしたファイルの名前を変更したいのですが、

print(OUT $file);
rename("$filename", "123456.xls");
close($filename);
close(OUT);

と、したのですが、これでは駄目なのでしょうか？
試してみたところ、上手くいきませんでした。

**nobodyさん** · 04/10/24 22:08:01

ファイルの名前変えるのはファイル閉じてから。

**nobodyさん** · 04/10/24 22:18:07

>>343
ハンドル持ってると操作が限定されるよ。
試しにopenしてから何秒かsleepさせて、その間に削除しようとしてみ。

**336** · 04/10/24 23:10:44

>>344
renameの位置を変えて、色々といじったら、うまくいきました。

>>345
アドバイス、ありがとうございます！

度々申し訳ありません、もうひとつ質問させてください。
このコードでは、HTML部分でWinとMacを最初に入力するようにしていますが、
Winを使用しているのにMacを選択してしまった・・・と言う場合に、
何か不都合が発生するのでしょうか？
自分で試したところ、どちらでも特に問題なくアップできましたので・・・

できれば、この入力部分は省きたいと思っておりますので、
必要無い、との事でしたら削除しようと思っております。

**nobodyさん** · 04/10/24 23:33:53

３度続くと流石に答えてもらえなくなる。

**nobodyさん** · 04/10/25 11:29:41

>>345
それwindowsの話かな? unix系だとopen直後にunlinkしてプロセス終了時に
一緒になくなる一時ファイル作るってわりとありがちな手なんだけどね。

**nobodyさん** · 04/10/27 07:17:45

UTF-8 の判別、EUC へ変換などをしたので Jcode を利用したいのですが、
Jcode.pm をスクリプトに同梱して配布したとしても
サーバ側でインストールがされていないと使えないものなんでしょうか？
この辺の仕組みがよくわかりません……。

**nobodyさん** · 04/10/27 07:53:40

色々漁ってたらなんとなくわかってきました。
とりあえずインストールしてなくても動かすことはできるみたいですね。
スレ汚しすみません。

**nobodyさん** · 04/10/27 09:59:20

すみません、質問させてくださいませ。
とあるドメインから、別のドメインのディレクトリ一覧、及びファイルの読み込みを行いたいのですが、
下記のようにするとオープンエラーになります。
（改行が多いと言われたので、次に書きます）

別ドメインのディレクトリ内容やファイルの取得は出来ないのでしょうか？
もし可能でしたら方法を知りたいのですが、お教えいただけませんでしょうか？

**nobodyさん** · 04/10/27 09:59:56

--------------------------------------------

# ディレクトリの一覧を取得

if( !opendir(DIR,"CGIを設置しているところとは別のドメインのディレクトリ") ){
print"OpenErr";
}else{
foreach $file( readdir(DIR) ){
print "$file<BR>\n";
}
closedir(DIR) ;
}

--------------------------------------------

# ファイルの中身を取得

if (!open(IN,"CGIを設置しているところとは別のドメインのファイル") ){
print"OpenErr";
}else{
@data = <IN> ;
foreach $file(@data){
print "$file<BR>\n";
}
close(IN) ;
}

--------------------------------------------

**nobodyさん** · 04/10/27 11:42:36

>>351
openで失敗してるんだろ、$!参照（print"OpenErr:$! at ",__LINE__; ）
たぶん、権限ナシと予想するが

つーか、別のドメインってリモートじゃないよな

**nobodyさん** · 04/10/27 12:15:49

>353さん
えーと、見当違いなレスだったらすみません。
使用したいドメイン名は書けませんが、要は
○○○.com にあるファイルを ×××.net で読み取る…と言う事をしたいのです。
リモートではないです。

権限の方、確認してみます。

**351** · 04/10/27 12:32:51

連続ですみませんです。

>353さん
もちろんオープンで失敗していますので、エラーのメッセージとなります。
なので、オープン成功するにはどうしたら良いのかなーと。

そもそも無理なのでしたら仕方ないのですが、BLOG等では他の日記データとかを取り込んで
表示する仕組みとか有るみたいなので、どうにか方法はあると思うのですが…

もしPerl側の工夫で出来るなら、どうすればよいかヒントを頂けると助かります。
権限（ファイル置いているサーバ側の設定？）とかの変更が必要でしたら、
管理者に作業してもらおうと思います。

**nobodyさん** · 04/10/27 13:13:09

>>351=354-355
バーチャルホストか？
どうもそうじゃないように見えるんだけどな・・・

VHでやってるなら権限次第だな
そうじゃないなら質問内容をもうちょっと的確に書けるくらい勉強しよう

あと最低限>>1は必ず目を通そうな

**351** · 04/10/27 13:37:48

>>353さん
>>356さん
お手間おかけしましてすみませんでした…
もう少し勉強してきて、それでいて判らなければまたよろしくお願いします。
どうも有難う御座いました。

ちなみにバーチャルホストではなく完全に別ドメインのサーバで、
例えて言うと、”google.co.jp内の特定のファイル”を読むCGIを、
yahoo.co.jp内に設置したいのでした。
（読み込みたいファイルの名称やURLは固定のものです）

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

>>357
LWP::Simple（モジュール）とかプロトコルについて勉強すると幸せになれるかも

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

>>351
うざい
質問するレベル以前
つーか、open失敗する理由が、$!にセットされるから、先ずそれを表示させてみろ

まさか、open(IN,"http://www.yahoo.com/hoge")とかやってないだろうな？

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

質問文をちゃんと読めよ

**nobodyさん** · 04/10/27 20:31:12

(´-`).｡ｏＯ(LWP を open に override してくれる神の光臨待ち。。。)

**nobodyさん** · 04/10/27 20:56:50

>>361
そういうライブラリはあればあったで便利かもしれんな。

**nobodyさん** · 04/10/27 21:59:06

package LWP::Open;

use base 'EXPORTER';
use LWP::Simple;
our @EXPORT = ('open');

sub open{

}
ここまで書いた後は頼んだ>>364

◆7CWqH7Oesg · 04/10/27 22:34:08

use LWP::Simple;
use subs qw(open);
*open= sub { get($_[0]); };
$url="http://www.hogehoge/";
$data= open($url);

**nobodyさん** · 04/10/28 01:47:21

たびたび申し訳ないが、ちょっと教えて下さい

ハッシュのリストを作ってはみたものの
どうやってサブルーチンから出せばいいのかわからなくなりました。

sub XXX{
…
push @{ HoA{key_name} }, "value1", "value2";
…
return (??????);
}

このような場合ってどうやってリターンすれば宜しいでしょうか？？

**nobodyさん** · 04/10/28 02:07:20

というか、リストのハッシュと言ったほうがよさそうだ。

**nobodyさん** · 04/10/28 08:40:21

>>365
先にサブルーチンへリファレンスを渡してからゴリゴリするのが常套かと。

**nobodyさん** · 04/10/28 08:42:07

push @{$HoA{key_name} }, "value1", "value2";

こう？

return \%Hoa;

で、

$refHoA->{key_name}->[0]