トップページ⇒php
984コメント309KB

【Perl】初心者コーナーPart11

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/03/27 12:53ID:wAXxxOxP
　
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

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

1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。

参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【CGIだけどなんか質問ある Pert 5.01 】
http://pc.2ch.net/test/read.cgi/php/1015127347/l50
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/

過去ログ、その他の役立ち情報は>>2-10を見よう。
0648nobodyさん02/04/17 16:08ID:???
>>644
>どうしたらいいのですか？

回線切って首吊って(以下略
0649Dream 黒星02/04/17 16:46ID:???
>648
なんで回線切ってなんだ？
自サーバでCGIやってるかもわからんだろうに。オマエは頭の弱いヤツだろ！
065064502/04/17 16:48ID:PRS3jaLV
英語でわけ分かりません。
Jperlを入れるとドキュメントも日本語になるんでしょうか？
065164502/04/17 16:51ID:???
ageてるし。
鬱だ詩嚢。
0652nobodyさん02/04/17 17:00ID:???
>>644
スクリプト1行目のperlパスが間違ってるとか
065364502/04/17 17:09ID:PRS3jaLV
>>650 自己レス
よく見てみたらあまりにも馬鹿な質問してる。
逝ってくる。
0654nobodyさん02/04/17 17:15ID:???
>>649 >>622でjperlのWIN32版とあるから間違い無く自サーバだろう。 そんな事も分からない馬鹿は首吊って死ね。
0655hanamogera ◆kkkKkkko 02/04/17 17:23ID:7mM3jrq9
>>631
ありがとございやした。
0656nobodyさん02/04/17 17:55ID:???
>>649 へぇ。回線繋がってないのに2chに繋がるんだすげーナ。
カスは黙ってろよ。
0657Dream 黒星02/04/17 17:57ID:???
Dream 黒星＝４６９
065863202/04/17 18:59ID:???
>>644
1.まず、そのスクリプトをCGI経由じゃなく、単体で起動したときに、
syntax error等くだらないエラーがでて無いか確認。
2.スクリプト自体がOKなら、スクリプトの最初に
print "Content-type: text/html\n\n";
と入れる。

これでOK。
Premature end of script headers
てーのは、必要なヘッダ(Content-type)が書き込まれてないってエラー。
0659Dream 黒星02/04/17 19:37ID:???
>656
２ｃｈで書きこんだマシンとCGIやってるマシンが同一である根拠はまだ
どこにもしめされてないだろ！ 決め付けでしか考えられないオマエは
もう、ダメポだな！
0660Dream 黒星 02/04/17 19:50ID:???
>656
２ｃｈに書き込んだマシンとCGIやってるマシンが同一だという根拠は？
決め付けで判断するようじゃ、オマエはもうダメポだな！
はなしにならんな、このうすらハゲがっ！

0661nobodyさん02/04/17 20:01ID:???
なにおぅ！！！
やるかっ　このっっっ！！！！
0662nobodyさん02/04/17 20:01ID:???
おまえなんかしんでしまえばいい！
0663nobodyさん02/04/17 20:08ID:???
>>660
誰も鯖がどうとか何もいってねぇだろ。馬鹿丸出し。
無理して日本語使うなよボケが。
0664nobodyさん02/04/17 20:10ID:???
>>662
なんかｲｲなぁ、そのフレーズ。
0665nobodyさん02/04/17 20:12ID:???
Dream 黒星 ＝ ４６９ は無視の方向で。
0666nobodyさん02/04/17 21:40ID:???
オマエはもうダメポだな！　っつうフレーズもおれの中ではヒットだ(w
0667ADSLにしたんですが02/04/17 21:44ID:BaxakOe1
FTP接続に不具合が。。でまして。
[症状]
ログインはできてファイル受信状態でフリーズまたはタイムアウト。。
なんでしょうかね？
0668nobodyさん02/04/17 21:51ID:???
>>667
ｽﾚ違いだが、クライアントをPASVモードに設定にしる。
0669４６９02/04/17 21:53ID:???
>>556
早く答えろよゲス野郎


0670nobodyさん02/04/17 21:59ID:???
>>669
−操作説明−
　　 ＿
　＿|＼＼＿　　　　　　　　　　　　。　　　　　 【　死　】
　|＼＿　　＿＼→　　　　　　 （>>669）_　　　|￣￣￣|
　＼|　 ＼ ＼__|　　　　　三　 　(*゜▽゜)　　　|　　　　｜
　　　￣＼|￣|　　　　　　三 　（∪∪）　　　　|　　　　｜
　　　　　　 ￣　　　　　　　　 　∪∪　　　　　|　　　　｜

※右キー以外は使用しません。
0671４６９02/04/17 22:00ID:???
>>556
早く答えろよゲス野郎





0672ADSLにしたんですが逝きました！02/04/17 22:04ID:BaxakOe1
>>668 さすが。。すばらしぃありがとう。
0673Dream 黒星02/04/18 00:38ID:???
>665
なんで ４６９ のような無知な野郎といっしょにするのか、オマエの推論の
のまずさは後々ダメポに匹敵するほどのミスをやらかしそうで心配なのは
わたしだけならいいのだが．．．
0674nobodyさん02/04/18 12:08ID:CQh2avKk
すいません。hashで
$dic{"apple"} = "りんご";
としたときに、valueである"りんご"からkey"apple"を検索するには
どうすればいいんでしょか？
0675nobodyさん02/04/18 12:52ID:???
>>674 key全部なめる。同一valueが複数あるかも。
0676nobodyさん02/04/18 12:56ID:???
>>674
foreach $keys (keys(%dic)){
　　if($dic{$keys} eq 'りんご'){ print "ハッケソ $keys\n"; last; }
}
とか。
0677nobodyさん02/04/18 12:57ID:???
>>675
あ、いけね。複数の場合もあるのね。lastは無しってことで。
0678nobodyさん02/04/18 14:32ID:???
状況次第だが
%rh = reverse %h;
ってのも使える。
067967402/04/18 17:19ID:pC0blCKC
あ、結局そういう一発な関数は無いのですね。
>>678 の reverse が一番近いかも。どうもでした。
0680nobodyさん02/04/18 19:13ID:BWtEryOi
$text = "URLは、http://www.hogehoge.com です。"
となっている$textの中身を、
"URLは、<a href="http://www.hogehoge.com">http://www.hogehoge.com<;/a> です。"
という風に、書き換えるにはどうすればいいのでしょうか？
0681nobodyさん02/04/18 19:24ID:???
>680
正規表現を使う。
0682nobodyさん02/04/18 20:14ID:???
>>680

$text = "URLは、http://www.hogehoge.com です。";
$text =~ s{URLは、http://www.hogehoge.com です。}{URLは、<a href="http://www.hogehoge.com">http://www.hogehoge.com<;/a> です。"};

これが不満なら日本語を勉強してから質問しろ。
0683nobodyさん02/04/18 21:10ID:???
>>680
もちっとスマートにするなら、
$text = "URLは、http://www.hogehoge.com です。";
$text =~ s{URLは、(.+) です。}{URLは、<a href="$1">$1</a> です。"};
かな。
0684nobodyさん02/04/18 21:16ID:???
>>680
Perlメモにきちんとしたやつがあるよ。>>3のリンク先くらい巡回してから質問しる。
0685nobodyさん02/04/18 22:51ID:???
>>685
正規表現の[tr]って使いにくいと思った初心者でした。
0686nobodyさん02/04/18 23:19ID:???
>>686
tr///のどこがどう使いにくいのかなあと思ったおれでした。
0687nobodyさん02/04/18 23:21ID:???
>>685
きみのｶｷｺは冗長でスマートじゃないな。

正規表現の[tr]って使いにくいと思った。

で十分伝わる。
068868502/04/19 01:12ID:???
>>687
そうですね。
[tr]が使いににくい==初心者
ですもんねw
0689nobodyさん02/04/19 01:19ID:qPOTdo2b
$a = "a(.*?)a";
$d = "aaabbb";
$d =~ s/$a/b/;

とやったら、
s/a\(\.\*\)a/b/;
か、
s/a(.*?)a/b/;
のどちらになるんでしょうか？
0690Dream 黒星02/04/19 01:30ID:???
[tr]が使いにくいというのは、使い方がわからないのではなくて、
使い方はわかるがもっとよりよい記述法なりがあるということだろ。

そのよりよい（使い勝手のよい）のを教えてくれよ。
0691nobodyさん02/04/19 01:47ID:Z7cLdJRB
>>690
うるさいっ！ばか！
sでいいじゃないかっ！
0692nobodyさん02/04/19 01:55ID:???
>>690
「使いにくい」って言った本人が「[tr]が使いににくい==初心者」
つってんのに何妄想してんだ、この馬鹿は。
0693nobodyさん02/04/19 02:10ID:???
>>689
自分で試せば？
0694Dream 黒星02/04/19 02:19ID:???
>692
６８８が、先のことを言った本人だという根拠は？

わたしには６８５および６８８のIDが???である以上、両者が同一人物である
という根拠のない決め付けはできないのだが、オマエは決め付けで判断する
ダメポにも匹敵するダメダメプログラマーだろ！

0695nobodyさん02/04/19 02:34ID:???
黒　星　先　生　ダ　メ　ポ　っ　て　な　ん　で　す　か　？
0696Dream 黒星02/04/19 02:52ID:???
>695
金融機関コードの違いさえも認識できずにろくなテストデータも作れずに
金融不安を巻き起こすナンチャッテプログラマー集団のことだ！
0697nobodyさん02/04/19 03:06ID:???
金融機関コードって何ですか？
0698nobodyさん02/04/19 03:14ID:???
>>696
(ﾟДﾟ)ﾊｧ?
おれは 黒　星　先　生 に訊いたんだよ。なんでお前が答えるんだよ。

おれはいつかお前がDream 黒星と 黒　星　先　生 とを妄想気味に同一人物と取り違えて
ダメポにも匹敵する根拠の無い思い上がりをやらかすんじゃないかと心配だったのだが
まさかこうも簡単に事が運ぶとは・・・(w
0699黒　星　先　生02/04/19 03:35ID:???
>>695
s/ダメポ/Dream 黒星/g;

Dream 黒星に関する話題は関連スレで。
http://pc.2ch.net/test/read.cgi/php/991102630/
0700Dream 黒星02/04/19 03:45ID:???
思ったとおりの展開になったので笑わせてもらったよ。

寂しいんだね。こっちは見てて寒かったよ。今夜はあったまって寝るよ。

0701nobodyさん02/04/19 05:14ID:???
(´-`)．｡oO(引っ掛けるほうも引っ掛かるほうもダメポだなあ…)
0702nobodyさん02/04/19 05:57ID:???
WebProg板の名無しをDream☆にしよう。
0703Dream 黒星02/04/19 07:12ID:???
>>700
>思ったとおりの展開
思ったとおりの展開に引っかかる馬鹿が居るんだね。
0704nobodyさん02/04/19 07:14ID:???
Dream 黒星＝４６９
0705nobodyさん02/04/19 07:52ID:???
>>702
それだ！
070668702/04/19 08:09ID:???
>>685>>688
ごめん。
きみのｶｷｺは冗長ではなく、適切、いや言葉が足りないくらいだった。

>>690には
「正規表現の[tr]って使いにくいと思った初心者でした。 」
という表現でさえ、初心者であることが伝わらなかったのだから・・・
0707nobody02/04/19 09:23ID:???
>>689

展開はまず"..."で囲った時に一回起こる => "a(.*?)a"
これは普通の文字列展開ね。だからみてわかるように何も展開
するところがないのでそのまんま。

次に正規表現として使用した時に おこる => s/$a/b/;
この場合$aを展開してるわけで、$aの中身は関係ない。すなわち s/a(.*?)a/b/;となる。

というわけでもしマッチしたらそのマッチした文字列が$1に入る事になる。
0708nobodyさん02/04/19 11:32ID:???
>>706
はじめのほうから読ませてもらったけど、論理的にはキミの負けだと思う。
朝早くから．．．よほど悔しかったんだね。

ダメポって、ツボにはまりそー。
0709nobodyさん02/04/19 11:43ID:???
正規表現の[tr] → 't'又は'r'を表す文字クラス
0710nobodyさん02/04/19 11:47ID:???
>>709
うむ。正規表現とtr///は全く関係ないから、それが正解だろう。
0711nobodyさん02/04/19 11:48ID:???
tr演算子は正規表現を使えない・・・
0712nobodyさん02/04/19 13:12ID:???
パスワード付きサイトの内容（検索結果のページ）を取得したいと思っています。

ログインページはＧＥＴもＰＯＳＴも使えるため、
・・・index.asp?name=AAA&pass=BBB
でログインできました。
検索結果のページもＧＥＴもＰＯＳＴも使えるため、
一度ログインしていれば、・・・result.asp?word=XXXXX
を開けばページ内容が保存されます。

これをperlでやろうとしました。

use LWP::Simple
$x = get("・・・index.asp?name=AAA&pass=BBB");
print $x;
$y = get("・・・result.asp?word=XXXXX");
print $y;

ところがこれだと、$xはログイン後のページが正しく表示されるのですが、
$yは、ログインしていないとみなされて、ログインページに飛ばされた内容が
表示されてしまいます。

解決策のヒントをよろしくお願いします。
0713nobodyさん02/04/19 13:12ID:1w9waxQZ
プロ野球オールスター人気投票！ﾏﾂﾘだﾜｼｮｰｲ!
http://choco.2ch.net/test/read.cgi/news/1019188835/
0714nobodyさん02/04/19 14:18ID:???
>>712
何故一度ログインすればその後はName/Pass無しでもログインしているとみなされるのか。
それを考えろ。
まぁHTTP-Headersでも見てみなさいってこった。
071571202/04/19 14:56ID:???
>>714
レスありがとうございます。
HTTP-Headersですか・・・探してみます。
071671202/04/19 18:51ID:???
>>714
すみません・・・・
HTTP-Headers自体がよくわかりませんでした・・・
もう１つヒントが欲しいです。お願いします。
0717nobodyさん02/04/19 19:37ID:???
>>716
LWPのドキュメントを調べなされ。
071871202/04/19 19:52ID:???
>>717
HTTP::Headersというやつでしょうか？
なんとなく調べるべきことがわかりました。
ありがとうございます！

ところで・・・
調べるのは調べるんですが、そもそも私が
やろうとしてることは可能なことなんですかね？（汗
0719nobodyさん02/04/19 20:05ID:sPCEXxH7
前回は、適切な助言をありがとうございました。

さて、今回はCGI RESCUEにてダウンロードした「マルチパート対応
フォームメール」(form2mail.cgi)を使っています。
その中の機能でファイルをアップロードしてメールに添付する事が
できるのですが、画像ファイルを添付した所、メールで受信して
画像を見ると画像が一部壊れてしまっています。(上部は大丈夫
だけど、下部にいくにつれて緑色になってたりノイズが入ったり
して化けてしまいます)
どうしたら、画像が壊れずに送れるのでしょうか？
0720nobodyさん02/04/19 20:08ID:???
>>718
HTTPのヘッダが関係あるかどうかは分からんよ。
>何故一度ログインすればその後はName/Pass無しでもログインしているとみなされるのか。
察するに、これがCookieで実現されている可能性があると俺は考えたわけだ。
これが正解なら、取得したヘッダを調べりゃ分かる。
072168902/04/19 20:41ID:???
>>707
よく分からない漏れって逝ってよしでしょうか。
072268902/04/19 20:44ID:???
>>721
分かった。
0723nobodyさん02/04/19 21:28ID:???
>>719
binmodeとか
072471202/04/20 00:02ID:???
>>720
なるほど。
たしかにヘッダ（これがヘッダなのかな、と自分が想像するもの）
の一番下の行に、クッキーな文字列がありました。
数字の羅列ではありましたが。
0725nobodyさん02/04/20 00:08ID:???
>>724
その数字の羅列を解析する必要はない。少なくとも、自ら解析コードを書く必要は無い。
要は自作のUserAgentが「Cookieを理解するUserAgentが行って然るべき返信」をすればいいのだから。
0726nobodyさん02/04/20 01:42ID:gkcEnfWM
print "今日からperlの勉強をはじめました。よろしく";
0727nobodyさん02/04/20 01:47ID:???
delete $_1017201229{'726:nobodyさん'};
0728687,70602/04/20 05:02ID:???
>>708
あう？オレの負け？
オレが負けたレスってどれ〜〜〜！？
0729nobodyさん02/04/20 05:25ID:???
cgi-lib.plやjcode.plって旧バージョンだと
何か不具合でもあるのでしょうか？
古い方がバイト数少ないので
その分サーバ負荷が軽減されるのでは？と思い
質問しました。
0730nobodyさん02/04/20 05:35ID:???
>729
バージョンアップというのは機能を追加、強化したりバグを修正したりするものだから
最新バージョンのほうがよいと思う。
そっちのほうで負荷軽減するならスクリプトのほうで軽減する努力した方がいいとおもう
0731nobodyさん02/04/20 05:41ID:???
数十、数百バイトの違いでクリティカルに負荷が変化するようなシステム
使ってるのか？それならPerlが起動しただけでヤバイな。
Ｃ言語の経験がないような人ってのは、変な事に気を遣うね。
そんなこと気にする暇があったら自分のコードを見直した方がいいと思うよ。

073272902/04/20 06:14ID:???
>>730-731
了解しました。
ありがとうございました。
0733nobodyさん02/04/20 07:28ID:???
print <<SEX;
cgi-lib.plやjcode.plって使う必要無いような気がするんだが
SEX
0734nobodyさん02/04/20 07:39ID:???
timeファンクションで秒の部分を出力しないようになんて
可能ですか？
可能であればどうやればいいですか？
0735nobodyさん02/04/20 07:56ID:???
>>734

time()って秒数を返してくるんだから秒の部分を出力しないって
なんのこっちゃ・・・

それともこういうこと？

use Time::Local;
## 本当の時間が12時0分52秒だったら12時0分0秒に変換
my $secs = timelocal( 0, (localtime( time() )[1..5] );
0736nobodyさん02/04/20 10:23ID:???
>>734
もしくは、分単位で出したいなら
int(time/60)
0737nobodyさん02/04/20 10:47ID:???
>>736を秒単位にするなら
60 * int time / 60
073873402/04/20 11:22ID:???
>735-736
ﾈﾀﾆ ﾏｼﾞﾚｽ ｵﾊﾞｶｻﾝ
0739nobodyさん02/04/20 11:28ID:???
>>737
int(time)に60をかけて60で割る。
CPUがかわいそうだぞ。そんな非生産的な計算。
0740nobodyさん71902/04/20 11:44ID:f9E3OCx3
>>723さん、ありがとうございます。

はい。binmodeを3ヶ所に入れてみたのですが変りませんでした。
---------------------1
sub sendmail {

if (!open(OUT,"| $nkf -j | $sendmail -t")) { &error('Error'); }
#ADD--->start
binmode(BIN);
#ADD--->end
$host = $ENV{'REMOTE_HOST'};
---------------------2
sub send_mix {
・
・
if (open(UU,"$UUENCODE $tmp$filenum $filename |")) {
#ADD--->start
binmode(BIN);
#ADD--->end
@UUFILE = <UU>;
---------------------3
sub writebin {
・
・
if (!open(BIN,"> $tmp$filenum")) { &error('Error','アップロードファイルの一時ファイルが作成できません.<br>','テンポラリーフォルダのパーミッションを確認してください.'); }
#ADD--->start
binmode(BIN);
#ADD--->end
print BIN $FILEDATA[$file];
---------------------
0741nobodyさん71902/04/20 11:45ID:f9E3OCx3
また、サーバー上にアップロードした一時ファイルを消さない様に
残すようにしてその画像を確認した所、
---------------------1
sub send_mix {
・
・
print OUT @UUFILE;
}
#DEL--->start
#if (-e "$tmp$filenum") { unlink("$tmp$filenum"); }
#DEL--->end
}

print OUT "--$bound\-\-\n";
---------------------
サーバーにアップされた時点では画像は崩れていませんでした。
なので、メール送信した時に崩れてしまっているのかな？と
考えています。
※ちなみに、サーバーＯＳはＵＮＩＸです。
074273602/04/20 12:00ID:???
>>738
お前、うんこ。
0743nobodyさん02/04/20 12:14ID:???
>>741
テキストモードで転送したんじゃないの？
0744nobodyさん02/04/20 12:22ID:???
>739は優先順位を理解していないｱﾌｫ
0745preference02/04/20 13:10ID:???
あるＣＧＩで確認キーを発行しようとしたら、こう出た。
原因わかる？
Unrecognized character \202 at ./fmail.cgi line 7. Content-type:text/html Unrecognized character \202 at ./fmail.cgi line 7. Content-type:text/html Unrecognized character \202 at ./fmail.cgi line 7.
0746nobodyさん02/04/20 13:19ID:???
> binmode(BIN)
ﾅﾝﾃﾞｽｶｺﾚﾊ
0747nobodyさん02/04/20 13:20ID:???
>>745
ソースのエラーごときでよばんでくれるか？
しかもソース隠匿。
■ このスレッドは過去ログ倉庫に格納されています