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

【Perl】初心者コーナー Part12

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

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

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

CGIの質問は【CGIだけどなんか質問ある Pert 6 】
http://pc.2ch.net/test/read.cgi/php/1019561283/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4 】
http://pc.2ch.net/test/read.cgi/php/1012839651/

過去ログ、その他の役立ち情報は>>2-10を見よう。
　
0011pear ◆FRUIT8pk 02/04/28 00:07ID:???
>>8
ｶﾜ (・∀・) ｲｲ!!
0012nobodyさん02/04/28 00:47ID:???
で、結局前スレ975は何が聞きたかったんだ？
0013nobodyさん02/04/28 01:28ID:???
聞いてアロエリーナ　ちょっと言いにくいんだけど
2年前Perlに挫折して、VBS、PHPやってきたんだけど
昨日　Perlのリファレンス読んだら　理解できたの
ちょっとうれしいな！
聞いてくれてあーりがと　アロエリーナ♪
＼＿＿＿＿＿＿　＿＿＿＿＿＿＿＿／
　　　　　　　　　　|/
　　　　　　　　 ∧＿∧
　　 Ψ 　　 　（∀・　　）
　　 □　　 　 （∩∩　 ）
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
0014nobodyさん02/04/28 01:49ID:???
perlは挫折する部分がありません。
0015nobodyさん02/04/28 01:59ID:???
>>14
型なし言語でクラスのまねごとし始めた時点で萎えました。
今後はObjectPascalで行こうかと考え中。
0016nobodyさん02/04/28 02:16ID:???
Perl6まで待ってくれ。
0017nobodyさん02/04/28 18:19ID:???
いつまで？
0018nobodyさん02/04/28 21:44ID:???
オープンしたファイルは、プログラムがexit;で終了するとcloseしなくても、勝手にクローズされるのでしょうか？
0019nobodyさん02/04/28 22:14ID:9I+rPdRi
>>18
クローズされます。
exit 以外でも、終了するとクローズされます。
0020継続02/04/28 22:20ID:???
1. if ($string eq "hoge") {
2. if($string eq "hoge"){
3. if ( $string eq "hoge" ) {
4. if( $string eq "hoge" ){
どれが好きですか？細かいけど

1と4が一人ずつ
0021_gunzip02/04/28 22:31ID:???
>>20 1でふ。
Perl6では、if/for/foreachなどの()は必要なくなりますが...。
0022nobodyさん02/04/28 22:44ID:???
>20
制御構造では空白を挟むのが一般的。(if, while, foreach, for ...)
パーレン中の両端は普通空白を入れない。(*)
よって「１」。

(*)条件式が複雑で、パーレン中の端に空白を入れた方が見やすくなる場合は
そうするかもしれない。
0023nobodyさん02/04/28 23:12ID:???
>>19
ありがとうございます。
0024nobodyさん02/04/28 23:16ID:???
全角の文字列の一文字おきに、何か記号を付け加えるにはどうすればよいのでしょうか？

お願いします
↓
お<>願<>い<>し<>ま<>す<>

こんな感じにしたいのですが。
0025nobodyさん02/04/28 23:24ID:???
>>24
文字コードは？
0026nobodyさん02/04/28 23:30ID:???
EUCに変換して
s/([\200-\377]{2})/$1<>/g;
0027nobodyさん02/04/29 00:30ID:???
>21
Perl6 じゃなくても if/for/foreachなどの() が必要とは限らないだろ！

`kill -KILL _gunzipのPID` if $user eq '_gunzip';

>24
環境の文字コードを早く書け、ボケ！
0028nobodyさん02/04/29 00:31ID:pMsSvLdB
質問なんですが、ハッシュのすべての要素に関して
添え字と値両方を操作したいんです。
例えば配列@aのすべての要素に関して
foreach $_ (@a) {print "添え字=$_";}
こういう感じのことを添え字が予めわからない場合
どのようにしたらいいでしょうか。
0029nobodyさん02/04/29 00:37ID:???
>>28
keys
each
などなどを検索
0030nobodyさん02/04/29 00:39ID:???
ありがとうございます！
調べてきます。
0031nobodyさん02/04/29 00:53ID:???
>>26
ありがとうございます。
sjisにも対応させるには
s/([\200-\377][\000-\377]|[\000-\377])/
でいいのでしょうか。
やってみたところ無事に動いてるっぽいのですが。
0032nobodyさん02/04/29 01:06ID:???
>>31
http://www.din.or.jp/~ohzaki/perl.htm#Character
0033nobodyさん02/04/29 01:24ID:???
ここって、初心者がくるところなんだぁ。 なんか安心した。

で、どういうことを質問すればいいの？
0034nobodyさん02/04/29 03:02ID:???
(´-`).。oO（>>33 あなたが 12〜15歳の女性なら、全身写真うpしてから話そうよ…）
0035nobodyさん02/04/29 03:32ID:???
Part11もうdat落ちしているよ… なんなんだ一体
0036nobodyさん02/04/29 03:55ID:???
ひろゆきはお金儲けに必死
0037nobodyさん02/04/29 05:40ID:???
過去ログ読めって言えないね…。
Part9、10はまだHTML化されてないし。
0038nobodyさん02/04/29 05:56ID:Ff1dM8JC
初心者の質問なんですが、HTMLファイルに直接、JavaScriptを書いて
IEで表示させると動くのに、それをCGI上でPerlで出力させたHTML文の中に
同じJavaScript(WSHでもいい)を書いて表示させると、ブラウザの
ステータスバーに「実行させたけどエラーになりました」という表示が
出て、期待通りの動作が起きないのは何故なのか、ご存知の方います？

0039nobodyさん02/04/29 06:27ID:???
>38
出力は期待通りにされてるの？
0040nobodyさん02/04/29 08:54ID:???
27に反応してください。おねがいします。
0041nobodyさん02/04/29 08:56ID:???
>>21 = Perl初心者
0042nobodyさん02/04/29 09:21ID:???
>>40
21もそれくらいは分かっていると思うのだが。
0043pear ◆FRUIT8pk 02/04/29 09:38ID:???
>>20
２！！
0044nobodyさん02/04/29 09:49ID:???
>36
儲かってますが、なにか？
0045nobodyさん02/04/29 09:59ID:???
>>27
for()、foreach()の()を外した例もｷﾎﾞﾝ。
0046nobodyさん02/04/29 10:11ID:???
修飾のばあいは()をはずせるが。
exp for @array;
exp foreach @array
exp if $str eq "hoge"

>>21 はPerl6では
foreach @array -> $item {
    exp
}
if $str eq "hoge" {
    exp
}
とかくようになる、ということを言いたかっただけだと思われ。
（つーか、修飾句の場合()を外せることぐらいgunzipは知ってるだろ.do-demoiigana）
00474602/04/29 10:14ID:???
間違えた。Perl6でもifの場合は()がいるな。鬱だ
00484602/04/29 10:18ID:???
やっぱり必要ないな。>>46のままでよし
朝から連続ですまんな。
0049pear ◆FRUIT8pk 02/04/29 10:20ID:???
>>46
うん、ソレだ！
0050nobodyさん02/04/29 10:28ID:???
ああ、PerlもC++と同じ間違った道を歩むのか・・・。
0051nobodyさん02/04/29 10:29ID:???
>46
_gunzip さん、わかりやすい解説ありがとうごさいました。

わざわさ _gunzip を gunzip と書いて別人になりすますあなたのやさしさ、
たしかにわたくしの胸を打ちました。

今後ともよろしくおながいします。
00524602/04/29 10:32ID:???
最後の部分で擁護するようなことを書いたから>>51みたいなアフォを呼び込んだか。
まあ、どーでもいいや。せいぜい頑張ってくらはい。
0053nobodyさん02/04/29 10:37ID:5LS+M/ng
叩かれて当然です。
0054nobodyさん02/04/29 10:38ID:???
>>51
だよねー。 いつもの _gunzip さんの手口ね。

この板を盛り上げようとする心意気はわかるけど、名前を変えては煽ったり
するのってもうやめたほうがいいんじゃなーい？ そのほうが人が戻ってくる
ように思うのはわたしだけじゃないでしょ？
0055藁藁藁02/04/29 10:40ID:5LS+M/ng
とりあえず、俺が居る限り消えてください。

こいつの1レスごとに、俺が50レスで荒らします。
そんなことになったら、他の人も困るでしょ？
0056あぼーんNGNG
あぼーん
00574502/04/29 10:49ID:???
>>45の回答もよろしくお願いします。
0058nobodyさん02/04/29 10:49ID:???
>52
あまりにも本質をついてしまったから、動揺しちゃったね。

>54
冷静に見てる人もちゃんといるんだね。
0059nobodyさん02/04/29 10:52ID:???
>>20
おれは1だな
0060nobodyさん02/04/29 10:55ID:???
52=54=58
と、おきまりのを書いてみるテスト。
さて、どんな言い訳が返ってくるか（藁）
それとも、おれが_gunzip認定されたりして。
0061nobodyさん02/04/29 10:58ID:5LS+M/ng
aaaaaaaaaaaaaa
0062nobodyさん02/04/29 10:58ID:5LS+M/ng




とりあえず、ウザイ
0063>>2102/04/29 10:59ID:5LS+M/ng
このスレ、もう駄目だね。誰かのせいで。
0064あぼーんNGNG
あぼーん
0065nobodyさん02/04/29 11:30ID:???
>>35
dat落ちを防ぐには850で次スレに移行とかしたほうがいいのかねー
0066nobodyさん02/04/29 11:32ID:???
>>65
そんな気がする。
0067nobodyさん02/04/29 12:23ID:???
>>65
だろうね。トレンド語るようなスレなら1000ｹﾞﾄｰしても
良いかも知んないけど、質問系スレは900逝く前に移行して
新しくスレ立つごとにうまくageてれば良いと思う。
0068nobodyさん02/04/29 12:32ID:???
あまり無いような状況だけど例えば
A,B,C,D,E,Fって処理があってどれもお互いカブってないような状況なら
サブルーチン化して&A;・・・&F;ってやるのと
ただABCDEFって並べるのなら処理速度的に後者の方が良いんですかね？
0069nobodyさん02/04/29 12:45ID:???
>>68
うん。目に見える違いが出るかどうかはさておき。
0070nobodyさん02/04/29 12:57ID:???
>>68
ちなみに、本当にサブルーチンをばらして並べる人がいたら、
漏れはその人とは一緒に開発したくない。
0071nobodyさん02/04/29 13:00ID:???
>>70
そなの? 漏れは長くなりすぎる場合は機能の区切りがいいところで分けちゃうけど……
00727002/04/29 13:06ID:???
>>71
言葉足らずだったかな？
「サブルーチンをばらしてABCDEFって並べる人がいたら、 」
0073nobodyさん02/04/29 13:27ID:???
ずーっとひととおりあちこちまわってみたけど、どこもかいてあることが
むずかしくてわっかりませーん。

ここ初心者のとこでもむずかしいのねぇ。 びっくりさぁね。
みなさんのレベルで初心者って、、、はぁ。 もう、わけがわかりません。
0074nobodyさん02/04/29 13:41ID:kMaPAu7S
>>20
()内が単純なものなら2、複雑で読みにくくなったら4です。
スペース打つのがめんどいのと、極力横幅を縮めたいので。
0075nobodyさん02/04/29 13:57ID:???
gifcat ってあるじゃん？ gif画像くっつけるやつ。

標準モジュールの中にそれってあるのか？ だれでもいいから早めに答えろよ、
こっちはいそがしいんだからな。

いっとくが、とほほが配布してるやつはよせよ。うまくくっつかんからな。

それ以外でくっつける方法とかしってるやつがいたらもったいぶらないで教えろや。

0076nobodyさん02/04/29 14:42ID:???
>>75
それが人に教えてもらう態度か氏ねや
0077nobodyさん02/04/29 14:47ID:???
┌──────────────────────―─┐
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　　　　　　　 ／■＼　　　 　 　 　 　 　 　 　 　 ｜
│　　　　　　　　　　　　　　　（´∀｀∩）　　 　 　 　 　 　 　 　 　 ｜
│　　　　　　　　　　　　　　　（つ　　丿　　　　　　　　　　　 　 　 ｜
│　　　　　　　　　　　　　　　 （　ヽノ　　　　　　　 　 　 　 　 　 　 |
│　　　　　　　　　　　　　　　 し（＿）　　　　　　　　　　　　　　　　|
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　　　　　Now Onigiring. ...　　　　　　 　 　 　 　 ｜
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　大変見苦しい場面がありました。 . 　　　 　 ｜
│　　 　 　 　 そのままおにぎりでお待ちください。.　 　　　　 　|
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
└───────────────────────―┘
0078nobodyさん02/04/29 15:31ID:s0WzG4fn
そのサブルーチン内しか使わないような変数も全部my宣言した方が
良いんですか？例えばクッキーの要素とか。
0079nobodyさん02/04/29 15:47ID:???
>>78
もちろん。（例えば、で"クッキーの要素"を出すのはよく判らないが）
なるべく変数の有効範囲を狭くしたほうがいいかなと思うけど。
00807802/04/29 15:54ID:???
>>79
ありがとう。疑問解決したよ。何か俺の説明が悪かったね。
クッキーの要素ってのは、よく配布CGIスクリプトとかでよく見る
($year,$month,$week,・・・)みたいな奴のスカラ変数部ってこと。
0081nobodyさん02/04/29 16:11ID:q+P1YCSQ
フォームメールCGIでメールアドレスを登録してもらうときに全角英数字で
入力する人がいるので、全角英数→半角英数に自動で変換させたいんですが
どんなふうにすれば良いでしょうか？
0082nobodyさん02/04/29 16:18ID:???
>>81
jcode.pl 使っての変換ならこれかと
http://www.din.or.jp/~ohzaki/perl.htm#JP_Z2H
00838102/04/29 16:21ID:q+P1YCSQ
>>82
ありがとうございます！
0084nobodyさん02/04/29 18:37ID:???
ょぅι゛ょ
0085nobodyさん02/04/29 19:20ID:NmdFgil6
ba0ka
0086nobodyさん02/04/29 22:00ID:NmdFgil6
こてはんはおえ
0087nobodyさん02/04/29 22:19ID:5LS+M/ng
このスレッドにコテハンが書き込み次第、このスレを処刑します。
0088コテハン02/04/29 22:20ID:???
コテハンですが何か？
0089nobodyさん02/04/29 22:22ID:5LS+M/ng
今までに、コテハンが書き込んだログはすべて削除依頼を出してください。
これは命令です。
0090_gnuzip02/04/29 22:59ID:???
これあげるから、成仏してね。

@in1 = (0,1,2,4,5);
@in2 = (6,7,8);

@c = &sum(\@in1,\@in2);

print join(',',@c),"\n";

sub sum {
 my($a,$b,$i,@ret,$n) = @_;
 $n = $#{$a} > $#{$b} ? $#{$a} : $#{$b};
 for($i=0;$i<=$n;$i++) {
push(@ret,${$a}[$i] + ${$b}[$i]);
 }
 return @ret;
}
0091nobodyさん02/04/29 23:35ID:???
汚いコードだな。いかにも厨房らしい。
0092_gnuzip02/04/29 23:46ID:???
>>91
リアル厨房ですが、何か？
0093nobodyさん02/04/29 23:49ID:???
いや、分かってるって。
知恵遅れは消えたら？
0094nobodyさん02/04/29 23:53ID:???
騙っても、書くコードのレベルでばれる、とか書いたら本人認定ですか？
0095_gnuzip02/04/29 23:57ID:???
>>94
騙ってませんが。
0096_gnuzip02/04/29 23:59ID:???
>>94
認定（ｗ
つーか、本人は前スレ475でちゃんと書いてるしね。
0097_gnuzip02/04/29 23:59ID:???
>>95
騙ってるじゃん・・・
0098_gnuzip02/04/30 00:01ID:???
>>97
私がホンモノですが。
0099_gnuzip02/04/30 00:03ID:???
このスレッド専用の名無しさんです。
0100_gnuzip02/04/30 00:04ID:???
くそー、オレのコテハンがぁ（泣
0101_gnuzip02/04/30 00:07ID:???
>>100
なにか一席どうぞ。
010210002/04/30 00:16ID:???
>>101
朝練あるんで、もう寝ます。
0103nobodyさん02/04/30 00:17ID:???
７５の質問にだれも答えてないじゃないか！ なにやってんだよ、役立たずが
多いスレなのか？

９０のような低レベルなこと書いてる場合じゃねーだろ！

こっちはいそがしいんだよ。 もうすこしだけまってやるからはやくしろよ。
役立たずどもはどっかいっちまえ。
0104nobodyさん02/04/30 00:38ID:???
(´-`).。oO（>>103 はカルシウム不足かな？…）
0105nobodyさん02/04/30 01:04ID:???
(´-`).。oO（カルシウム不足には牛乳だよな。_gyunyuなんちって…）
0106nobodyさん02/04/30 01:08ID:???
"_"には何の意味が。
0107_nobodyさん02/04/30 01:10ID:???
>>106
最新流行の予感。
0108_nobody02/04/30 01:11ID:???
くそっ
先を越された
0109nobodyさん02/04/30 02:16ID:???
>103
引きこもりに忙しいとかあるの？
0110nobodyさん02/04/30 11:36ID:???
なんか妙に荒れてんなぁ。
煽ってるのはいつものように一人だとは思うが…。
■ このスレッドは過去ログ倉庫に格納されています