トップページ⇒php
1001コメント360KB

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

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2006/09/15(金) 14:01:51ID:gobry0n2
Perlのコーディングで困ってる人のスレです。

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

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

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

お勧めサイトは >>2-10

前スレ　http://pc8.2ch.net/test/read.cgi/php/1153987463/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/
0525nobodyさん2006/10/21(土) 06:08:17ID:???
>>524
説明不足ですみません。
送信側の文字コードはEUCです。
FORMからではなくhtmlリンクに *.cgi?abc=あいうえお　と記述しています。
（本当はpostしたいのですが別窓を開いて表示させたいので仕方なく）
05265232006/10/21(土) 06:16:03ID:???
正確に書くと<a href="javascript:openwin('*****.cgi?title=$aaaa[1]')">です。
スクリプトや格納してあるデータは全てEUCにしてあります。
0527nobodyさん2006/10/21(土) 06:33:32ID:???
すみません＾＾；
受け側のヘッダもEUCです。
0528nobodyさん2006/10/21(土) 07:00:16ID:????BRZ(3600)
直接、日本語を入れてるんですか？
それは文字コードやPerlの問題ではないですよ
URLエンコードしないと駄目ですよ
05295232006/10/21(土) 07:51:25ID:???
すみません勉強してきます＾＾；
ありがとうございました。
0530nobodyさん2006/10/22(日) 01:38:10ID:???
アクセスカウンタを製作しています。

動くには動くのですが、ほんのたまにリセットされてしまい、また０からカウントしはじめます。
対処方法などご存知でしたら教えてください
0531nobodyさん2006/10/22(日) 01:54:52ID:???
>>530
排他制御を正しく行う。
専用スレ http://pc8.2ch.net/test/read.cgi/php/1024795138/
0532nobodyさん2006/10/22(日) 01:55:36ID:???
>>531
ありがとうございます
見てみます
0533nobodyさん2006/10/22(日) 02:09:49ID:Wr8nDhA3
タイムスリップなんてことになってる...。

@array = qw(0 1 2 3);

foreach my $hoge(@array){
push @new_array,$hoge
}

my $x_array =[];
foreach my $hoge(@array){
push @$x_array,$hoge
}


print @new_array;
print @$x_array;

どなたか、これらの違いを教えてください。
速度？

予約済み変数とかいろいろ調べてみたんですが、
"[]"って何か知ってる方がいらっしゃったら
よろしくお願いします。

print [];
->ARRAY(0x274f18) ﾅﾆｺﾚ？
0534nobodyさん2006/10/22(日) 02:16:46ID:???
>>533
man perlref
0535nobodyさん2006/10/22(日) 02:25:22ID:???
無名配列へのリファレンス
0536nobodyさん2006/10/22(日) 02:50:36ID:Wr8nDhA3
>>534 >>535
サンクス、勉強不足なのが把握。
0537nobodyさん2006/10/22(日) 13:54:06ID:envKHppf
シロートですが、どなたか教えて下さい。

if ( @list1[2] eq @list2[3] ){

とやってて、@list1[2]と@list2[3]にはそれぞれ"00001"が入っているのですが、
条件に一致しません。

if ( @list1[2] == @list2[3] ){

とすると一致します。

この例では値が"00001"ですが、実際は文字の場合もあるので、eq　をつかいたいのですが、
どうしたらよいでしょうか？

Ｐｅｒｌは文字とか数値とかあんまり意識せずに使えると思ってましたが、こういう場合は
別なんでしょうか？
0538nobodyさん2006/10/22(日) 14:00:48ID:???
>>537
シロートなら>>3で勉強してこい
0539nobodyさん2006/10/22(日) 14:12:59ID:???
すみません、質問です。

ppmでモジュールをインストールしたいです。

モジュールはSOAP::Liteです。
>search　SOAP::Lite
から調べていくと、以下まで達しました。

ppm> search ResourcePool-Resource-SOAP-L
Using cached search result set 7.
1. ResourcePool-Resource-SOAP-~ [1.0101] SOAP::Lite bindings for ResourcePool
2. ResourcePool-Resource-SOAP-~ [1.0101] ResourcePool-Resource-SOAP-Lite


ここで、正式名称が分からないので、インストール/確認ができない状態です。
チルダで省略されている部分を参照するにはどうすれば良いでしょうか？

宜しくお願いします。
0540nobodyさん2006/10/22(日) 15:10:43ID:???
>>537
>>539
http://pc8.2ch.net/test/read.cgi/tech/1157874614/813
0541nobodyさん2006/10/22(日) 15:35:24ID:???
ここまでマルチが多いのは、誰かが質問を転載してるんだろうな。
恐らくマルチして指摘された奴が腹いせでやってるんだろう。
0542nobodyさん2006/10/22(日) 15:39:31ID:???
ここまでマルチが多いのは、誰かが質問を転載してるんだろうな。
恐らくマルチして指摘された奴が腹いせでやってるんだろう。
0543nobodyさん2006/10/22(日) 15:55:00ID:???
必死だな
0544nobodyさん2006/10/22(日) 15:56:17ID:???
ｺﾋﾟﾍﾟｳｾﾞｰ('A`)
0545nobodyさん2006/10/22(日) 16:03:05ID:???
ID表示して質問するようにすればいいよ。
0546nobodyさん2006/10/22(日) 17:34:00ID:???
CGI::Sessionを使用したいのですが

1, ユーザ→CGI　だと上手くいくのですが、

2, ユーザ→CGI→モジュール→CGI　

のモジュールで

my $session=CGI::Session->new(undef,$sid,{Directory=>'../session'})

でデータを取得出来ないのですが、どうすれば取得出来るのでしょうか？
0547nobodyさん2006/10/22(日) 21:34:28ID:???
＞ 1, ユーザ→CGI　だと上手くいくのですが、
＞ 2, ユーザ→CGI→モジュール→CGI　
これが意味不明だけど、$sidにはなにが入ってるの？
第2引数ってCGI.pmのオブジェクトじゃ駄目なの？
0548nobodyさん2006/10/23(月) 05:27:20ID:???
http://cyclone.slis.tsukuba.ac.jp/cgi-bin/cycmap1/cyclone.cgi?node=Perl
0549nobodyさん2006/10/23(月) 16:44:05ID:???
質問です。

$MOJIRETSU="<太字>テスト１<／太字><太字>テスト２<／太字><太字>テスト３<／太字><太字>テスト4<／太字>";

とあったときに<太字>〜<／太字>を→<b>〜<b>にして出力したいです。

そこで
$MOJIRETSU =~ s/<太字>(.*)／太字/<b>$1<\/b>/;

にして実行したら

<b>テスト１<／太字><太字>テスト２<／太字><太字>テスト３<／太字><太字>テスト4</b>

というように最初の「太字」と最後の「／太字」を参照にして置き換えをします。
それぞれで置き換えを行って

<b>テスト１</b><b>テスト２</b><b>テスト３</b><b>テスト4</b>
という結果が欲しいのですがどうすればよいでしょうか？
0550nobodyさん2006/10/23(月) 17:03:34ID:???
/太字/b/
/／b/\/b/
0551nobodyさん2006/10/23(月) 17:11:54ID:???
>>549
$MOJIRETSU =~ s|<\Q太字\E>(.*?)<\Q／太字\E>|<b>$1</b>|g;
0552nobodyさん2006/10/23(月) 17:24:23ID:???
>>550->>551
ありがとうございました。その方法だと出来ました。

もう１つ質問させていただいてもいいですか？
0553nobodyさん2006/10/23(月) 17:26:07ID:???
ダメです！　って言ったらどうすんだろ
0554nobodyさん2006/10/23(月) 17:28:38ID:???
>>553
あきらめますorz
0555nobodyさん2006/10/23(月) 17:32:21ID:???
　　 　 　 　 ,. ‐''三ヾ´彡ｼ,=｀丶、
　　　　　／'".:=≡ミ_≧_尨彡三:ヽ、
　　　　/／.:;:彡:f'"´‐------ ｀`'ｒ=:l
　　 　/〃彡_彡′,.=､￣￣ ,.=､　|ミ:〉
　　　'ｙ=､､:ｆ´===tr＝=､.___,. ==､._ゞ{
　　　{´yﾍl'′　　 |　　 /⌒l′　 |｀Ｙ}
　　　ﾞ､ゝ) 　 　 　 `''''ﾂ_　 _;`ｰ‐'ﾞ:::::ｌ{　　 あきらめたら
.　　 　ヽ.__　　　　　,ｨnmmm､　　 .:::|!　　　そこで試合終了ですよ・・・・
　　,.ィ'´ﾄ.´　　　　　´｀"｀"｀ﾞ″　.::::;'
イ´::ﾉ|::::l ＼ 　　 　 　　　"'　　　:::/
::::::::::::|:::::l 　 ヽ、　　 　　　..::　 .:::/.､
:::::: ::: |:::::ヽ 　　 ヽ、.......::::／..:::／!＼＼
::::::::::: |::::::::ヽ　　　 ｀`''‐--ｧt''′ |!:::ヽ:::＼
:::::::::::::|::::::::::::ヽ、 　 　 　 /i|iﾄ､　 |l:::::::ヽ:::::＼
:::::::::::::|::::::::::::::/:ヽ、　 　∧|i|i|i|〉. ||::::::::::ヽ:::::::＼
0556nobodyさん2006/10/23(月) 17:42:02ID:???
すごい初心者なことなんですが＾＾；

フォーム入力から取得した

$in{'address'}の最後が「　.zip　」で終わっているか確認するためには

if($in{'address'}){
#　.zipで終わってないときのエラー処理
}

どういうふうにifを組めばいいですか？
0557nobodyさん2006/10/23(月) 17:45:58ID:???
if( $in{'address'} !~ /zip$/){
0558nobodyさん2006/10/23(月) 17:49:33ID:???
>>557
ありがとうございました＾＾
0559nobodyさん2006/10/23(月) 18:09:10ID:???
>>551さんの方法でうまくいったのですが

逆に
<a href="http://hoge.com/hoge.cgi?keyword=test";>test</a>

を　開始test終了　に戻すときにはどうすればいいでしょうか？

$data =~ s/\Q<a href=(.*?)>\E(.*?)\Q<\/a>\E/開始$2終了/g;

では出来ませんでした
0560nobodyさん2006/10/23(月) 18:29:17ID:???
$data =~ s/<a href=(.*?)>(.*?)<\/a>/開始$2終了/g;
0561nobodyさん2006/10/23(月) 18:48:22ID:???
>>559
$data =~ s|<a\b[^>]*>(.*?)</a>|開始$1終了|g;

http://www.kt.rim.or.jp/~kbk/perl-5.8/perlretut.html
0562nobodyさん2006/10/23(月) 19:12:11ID:I2ot/ZmI
>>560-561
出来ました！ありがとうございました
0563nobodyさん2006/10/24(火) 07:41:17ID:???
昨日質問させていただいた>>562です


>>549　の内容と>>559の内容を

合わせて


$MOJIRETSU="リンク青字テスト／青字／リンク";　　　#←結果としては<a href=http://hoge.com/hoge.cgi?keyword=テスト><font color=blue>テスト</font></a>が返ってきてほしい


$SEARCHADD="http://hoge.com/hoge.cgi?keyword=";;
$MOJIRETSU =~ s/\Qリンク\E(.*?)\Q／リンク\E/<a href=$SEARCHADD$1>$1<\/a>/g;
$MOJIRETSU =~ s/\Q青字\E(.*?)\Q／青字\E/<font color=blue>$1<\/font>/g;
$MOJIRETSU =~ s/\Q赤字\E(.*?)\Q／赤字\E/<font color=red>$1<\/font>/g;


とすると文字列が
$MOJIRETSU="<a href=http://hoge.com/hoge.cgi?keyword=テスト><font color=blue>テスト</font></a>"が返ってきてほしいのですが

リンク〜／リンクの中身までをURLのkeyword以降に入れて
$MOJIRETSU="<a href=http://http://hoge.com/hoge.cgi?keyword=<font color=blue>テスト</font>><font color=blue>テスト</font>"となってしまいます。
解決方法を教えてください。
0564nobodyさん2006/10/24(火) 09:02:56ID:???
これは酷い
0565nobodyさん2006/10/24(火) 10:04:02ID:???
3日ぐらい考えてくれ
0566nobodyさん2006/10/24(火) 11:06:32ID:???
おれから言えることは

まず煮詰まったら外の空気に触れながら景色を見ろ
0567nobodyさん2006/10/24(火) 15:01:35ID:???
>>563
おまえmixiで同じ質問してるだろ。死ねよ。
0568nobodyさん2006/10/24(火) 17:56:30ID:S0nwA48Z
Perlを始めて間もなくて、分からないことがあって困っています。質問させてください。
現在ウェブメーラーを自作しようとしておりまして、POP3サーバにアクセスしてメールの差出人のメールアドレス、件名、受信時刻、本文を表示しようとしているんですが、件名だけがデコードの仕方が分からずに困っています。本文は
Encode::from_to($body,"iso-2022-jp","shiftjis");
だけでなんとかなってしまったのですが、件名はこれだけだとうまくいかず、デコード前の
=?ISO-2022-JP?B?〜〜〜?=
と表示されてしまいます(〜〜〜は任意の内容)。調べたところヘッダー部はエンコードの方法が異なっているというようなことを見たので、
$Subject = decode_base64($Subject);
としてみたのですが正しい表示はされません。どうしたらうまくいくでしょうか。初心者ゆえくだらない質問かもしれませんが、どうかご教示ください。
0569nobodyさん2006/10/24(火) 18:05:43ID:???
shut the fuck up and search around http://search.cpan.org/
0570nobodyさん2006/10/24(火) 19:44:51ID:FUbqOCaM
ここで尋ねていい物かどうか迷ったんですが質問。
掲示板CGIについて。

２ちゃんねるでは半角カタカナを使っても文字化けってしないですよね。
でも私の掲示板（ベースはKENTのMiniBBSとか、PrismWebのテンプレ掲示板とか）
では、半角カタカナを投稿すると???などという風に化けてしまいます（ログに記録する時点で化けてる）。

この違いって、どこから来るんでしょう？
エンコード方法？それともサーバの問題？jcodeモジュールの問題？
0571nobodyさん2006/10/24(火) 19:53:56ID:???
2chはSJIS以外は受け付けない
0572nobodyさん2006/10/24(火) 19:55:02ID:???
エンコードとデコードが一致してない
0573nobodyさん2006/10/24(火) 20:10:58ID:myoH6Gq+
ここには能力が足らず答えられない奴ばかりですか？まぁ自分もわからんが、>>568の質問放置で可哀想
0574nobodyさん2006/10/24(火) 20:23:38ID:???
メールの仕様をちょっと調べれば済むような事で質問するから放置されるのだよ。
0575nobodyさん2006/10/24(火) 20:31:40ID:???
>>568
キーワードはMIME header
詳細はスレ違い

これでいいのか？
0576nobodyさん2006/10/24(火) 21:13:31ID:/nLWiTuI
perlにてtxtファイルを生成しています。
perlソース自体はEUCで記入しており、生成されたファイルも
EUCコードなのですが、このファイルをブラウザ(IE)で開くと
SJISエンコードで開いてしまい文字化けしてしまいます。
ブラウザがEUCエンコードで表記されたファイルという事を
認識していないようなのですが、どのようにすればEUCとして
認識してくれるのでしょうか？
0577 ◆TWARamEjuA 2006/10/24(火) 21:29:18ID:????BRZ(6667)
>>576
IEを窓から投げ捨てる♪
か、適切なcharsetを指定してあげる♪
0578nobodyさん2006/10/24(火) 21:35:09ID:???
> IEを窓から投げ捨てる♪

なにそれ？
0579nobodyさん2006/10/24(火) 21:38:31ID:???
なにって、そのままの意味にしかとれんが…
0580nobodyさん2006/10/24(火) 21:41:27ID:???
イミフ。
0581nobodyさん2006/10/24(火) 22:13:55ID:???
>>576
EUC-JP のファイルを IE で確実に読みたいなら、IE のエンコード設定を EUC に固定すると良いでしょう。
方法は、あらかじめ IE のメニューから「表示」→「エンコード」→「日本語 (EUC)」を選んでおくだけです。

できれば次は Perl の質問をしに来てください。待ってます。
0582nobodyさん2006/10/24(火) 22:19:35ID:Aum0PYqJ
Content-type: text/html; charset=euc-jp
0583nobodyさん2006/10/24(火) 22:26:53ID:???
>>582
「txtファイル」言うとるで?
0584nobodyさん2006/10/24(火) 22:28:54ID:???
> EUC-JP のファイルを IE で確実に読みたいなら、IE のエンコード設定を EUC に固定すると良いでしょう。

なんで固定するの？バカじゃね？
05855812006/10/24(火) 23:26:18ID:???
>>584
ローカルファイルを開く場合には HTTP レスポンスヘッダによるメタ情報の供給を期待できないからです。
また HTTP 越しに text/plain なファイルを直接要求する場合であって、サーバの設定が原因で文字化けする場合には、サーバの設定変更が必要になるでしょう。
その権限が与えられていないか、または方法がわからない場合、「文字化けしないようにブラウザでファイルを開く」確実な方法はやはり >>581 で述べたとおりになります。

そろそろ Perl の質問をしてくれるとうれしいです。
0586nobodyさん2006/10/25(水) 01:27:54ID:???
保存してエディタで開けばいい
ただそれだけじゃないか・・・
0587nobodyさん2006/10/25(水) 07:32:20ID:???
他人にネット上で見せたいんでしょ。
0588nobodyさん2006/10/25(水) 07:42:09ID:JgcYGtyQ
ただ出力時に見る人の環境に合わせて文字コード変換するだけでいい
0589nobodyさん2006/10/25(水) 07:45:17ID:???
return >>583 if >>588;
0590nobodyさん2006/10/25(水) 07:46:42ID:???
goto じゃｗ
0591nobodyさん2006/10/25(水) 13:09:45ID:???
公開してるならSJISで出力するcgi組んでそこを叩かせればいい
ローカルなら画面右クリック→エンコード

文字化け相談スレはここですか？
0592nobodyさん2006/10/25(水) 14:04:42ID:???
ひがみ根性まるだしの奴が
このスレは多いね


見てて、すっげぇ香ばしいｗ
0593nobodyさん2006/10/25(水) 14:15:28ID:???
誤爆？
0594nobodyさん2006/10/25(水) 15:29:36ID:???
VIPから出張してきてるやつがいるのな
ごくろうさまですお
0595nobodyさん2006/10/25(水) 15:46:40ID:???
>>592

そんなの業界ではあたりまえ
プログラマでまともな性格になれるわけねーじゃん
0596nobodyさん2006/10/25(水) 15:53:43ID:???
自演乙
質問の仕方が悪いだけ。
0597nobodyさん2006/10/25(水) 16:01:11ID:???
VIPからｷﾏｽﾀ
0598nobodyさん2006/10/25(水) 16:08:37ID:???


　　　　VIPPERLER最強
0599nobodyさん2006/10/25(水) 16:31:24ID:???
ν速でやれ
0600nobodyさん2006/10/25(水) 16:41:05ID:???
このスレVIPで晒されてるんだが
0601nobodyさん2006/10/25(水) 16:58:38ID:???
お？どこ？
0602nobodyさん2006/10/25(水) 17:34:36ID:???
VIPからｷﾏｽﾀ
0603nobodyさん2006/10/25(水) 17:50:16ID:????BRZ(3696)
遊びにきましたお
0604nobodyさん2006/10/25(水) 18:03:17ID:???
俺も俺もｗｗｗｗうぇうｗっうぇｗｗ
0605nobodyさん2006/10/25(水) 18:31:16ID:???
VIPから来た？


　　　　　　　　　だ　　か　　ら　　ど　　う　　し　　た
0606nobodyさん2006/10/25(水) 18:44:41ID:???
まあ折角来てくれたんだからお茶でもどうぞ。

つ旦
0607nobodyさん2006/10/25(水) 18:54:59ID:???
どうみても自演だｗほっとけｗ
0608nobodyさん2006/10/26(木) 17:17:15ID:QapkI+o5
ファイル名の一部のみを調べて、一致するファイル全てを一度に削除する
方法はあるのでしょうか？

$delfile = "../test/test_*";
unlink($delfile)
上記ではもちろん成功しませんが、行いたい事はこのような事です。
0609nobodyさん2006/10/26(木) 17:25:48ID:???
readdir
0610nobodyさん2006/10/26(木) 17:31:44ID:???
unlink foreach(glob($delfile));
0611nobodyさん2006/10/26(木) 17:40:41ID:???
open(DIR, TARGET);
while(my $file = readdir(DIR)){
　next if -d $file;

　unlink($file) if $file =~ /DELFILES/;
}
適当すぎるなこれ (；´д`)
0612nobodyさん2006/10/26(木) 17:58:01ID:???
open じゃなくて opendir だし、対応する closedir がないので留年。
0613nobodyさん2006/10/26(木) 18:12:33ID:???
閉じ忘れは投稿したあとには気が付いたんだけどね
0614nobodyさん2006/10/26(木) 18:41:40ID:???
rm rf/
0615nobodyさん2006/10/26(木) 21:44:45ID:???
掲示板に返信したら親記事が消えてしまったと言われたのですが、
以下のファイルロックでは何か不備があるのでしょうか？
フリーから取ってきた掲示板なのでファイルロックなどは良くわからないんですが・・・。

sub filelock {
foreach (1 .. 5) {
if (-e $lockfile) { sleep(1); }
else {open(LOCK,">$lockfile");close(LOCK);return;}
}
&error("只今他の方が書き込み中です。");
}
0616nobodyさん2006/10/26(木) 22:05:58ID:???
>>615
一目でわかるほど明確な不備がある。
-e $lockfileとopen(LOCK,">$lockfile");の間に他のプロセスが割り込めて、それが検知できない。

具体的な安全な方法については色々あるからこの辺でも読んでくれ。
ttp://homepage1.nifty.com/glass/tom_neko/web/web_04.html
0617nobodyさん2006/10/26(木) 22:06:55ID:???
>>615
ロックファイルの存在テストと作成がアトミックでないので全然だめだな。
0618nobodyさん2006/10/26(木) 22:07:31ID:???
>>615

sub filelock {
foreach (1 .. 5) { # 以下の処理を５回繰り返す。
if (-e $lockfile) { # もし$lockfileが既に存在したら（Ａ）
sleep(1); # １秒待機して（Ａ）に戻る。
} else { # そうでなければ
open(LOCK, ">$lockfile"); # $lockfileを
close(LOCK); # 作って
return; # サブルーチンを抜ける。
}
}
&error("只今他の方が書き込み中です。"); # ５秒待っても$lockfileが存在し続ける場合は諦める。
}

このサブルーチン自体に問題があるとは思えないな。
ファイルロック処理の挿入場所に問題があるかたまたま起こった事故か或いは他の何かだと思う。
というか普通はファイルロックに失敗したくらいで親記事は消えないだろう。
0619nobodyさん2006/10/26(木) 22:09:15ID:???
あ、あれ(´･ω･)
0620nobodyさん2006/10/26(木) 22:16:33ID:???
うわほんとだ、よく見たらifの中でファイル作って茄子。俺恥ずかし…
0621nobodyさん2006/10/26(木) 22:18:30ID:???
こことかどうなん？

ロックファイルを考える
http://www.tryhp.net/lock.htm
0622nobodyさん2006/10/26(木) 22:26:27ID:???
>>621
そこはやめとけ。ネタ?

0623nobodyさん2006/10/26(木) 22:44:18ID:???
>>622
ロックファイルでｸﾞｸﾞったら、これがトップだったからどうなのかな？と思って。
0624nobodyさん2006/10/26(木) 22:48:56ID:???
【Perl】ファイルロック(排他処理)について語ろう
http://pc8.2ch.net/test/read.cgi/php/1024795138/

こっちは参考にならナイン？
■ このスレッドは過去ログ倉庫に格納されています