Perl コーディング初心者質問コーナー Part26

**nobodyさん** · 03/07/24 19:48

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

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

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

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

**nobodyさん** · 03/07/30 11:53

Perlはその辺を逐一理解してなくても扱える言語だからな。
それはPerlの優秀な点である。
その分ユーザーのレベルが下がるのは仕方がない。

**nobodyさん** · 03/07/30 12:32

下手にソフトリファレンスなんてもんがあるせいで、配列やハッシュの有効な使い方を
理解しないまま進んでしまうんじゃないかな。

**296** · 03/07/30 13:22

質問にお答えくださってありがとうございます。

print ${'a'.$b};
だとスカラ変数だとうまくいったのですが
配列の変数だとうまくいかないようです。

$sen1[] $sen2[] $sen3[]という変数があって
$randaに1～3という値が入ていて
print("{${sen$randa}[$i]}");
のように書いたのですが、どうもうまくいかないみたいです。

**nobodyさん** · 03/07/30 13:43

＞"{${sen$randa}[$i]}"
ヽ(*｀Д´)ノ　むちゃくちゃやんけー！

**nobodyさん** · 03/07/30 14:05

>>304
モジュールまたがってソフトリファレンス使ってるソースを見たことがある。
最初どこから変数が湧いてくるのか理解できなくて気絶するかと思った。
……って、これはマ板ネタか。

>>307
勉強しなおした方が良いと思われる。

**296** · 03/07/30 14:09

>>308-309
Perlは今回初めての仕様で、まだ慣れてないんで
お許しください。
外の括弧で囲めば、配列の[]が文字列として認識されずに済むと
聞いてやってみたのですが
もしかして、これはPHPの文法でしょうか？

**296** · 03/07/30 14:10

仕様→使用でした

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/30 15:13

ほれ、
print ${'sen'.$b}[$i];

あと >>299 >>304 >>306 >>309 を１０回ずつ声を出して読んで！！
お帰りはこちら　↓
http://www.google.co.jp/

**nobodyさん** · 03/07/30 15:17

>>307
> $sen1[] $sen2[] $sen3[]という変数があって

ってのは@sen1, @sen2, @sen3ってことか？
perlの配列がわかってれば、こんな書き方にはならないと思うのだが。

${'a'.$b}という回答を貰っておいて${sen$randa}[$i]はないだろ……。

print ${'sen' . $randa}[$i];

**nobodyさん** · 03/07/30 16:38

初心者質問失礼致します。

if(!open(FH, ">>file")){ print 'file open error'; }
else{
　　flock(FH, 2);
　　print FH 'abcde';
　　close(FH);
}

このように追記モードの場合、flockは必要になるの
でしょうか。

**nobodyさん** · 03/07/30 16:50

うん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/30 17:09

>>315
モードに関係なく必要なときは必要だと思うが。

**nobodyさん** · 03/07/31 03:15

>>318
お返事有難うございます。
ロック使うことにしました。
有難うございました。

**nobodyさん** · 03/07/31 05:53

readline,<FH>を使ってデータを取り込みたいのですが、
上（最初）から順ではなく、下（最後）から読ませることは出来ませんか？

**nobodyさん** · 03/07/31 06:32

>>320
無理ぽ
あとはPerlメモ嫁

**nobodyさん** · 03/07/31 07:08

了解　seekで頑張ります
有難うございました。

**nobodyさん** · 03/07/31 10:39

unshiftしたらえんちゃうんかと

**nobodyさん** · 03/07/31 10:44

>>323βακα..._〆(ﾟ▽ﾟ*)

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/31 12:08

use Time::Local;

$t = time;
print "UTC =", timegm( gmtime( $t ) ), "\n";
print "UTC =", timelocal( localtime( $t ) ), "\n";

gmtime とか localtime で返してくる値を time で
返す値の形式に戻すコードってこんなんでいい？

テストしたら一応２つとも同じ値返す様になったけど…。

**nobodyさん** · 03/07/31 12:56

希望通り動いてんのならここで聞かなくてもいいでしょ。
誰かのお墨付きが欲しいの？

**nobodyさん** · 03/07/31 13:18

いや、ちょっと自信が無かっただけ…。
UTC の解釈もチョット間違ってたし＜自分

**nobodyさん** · 03/07/31 13:32

戻すと言ってもそれじゃ無意味だしな

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/31 13:55

$t = 10.2 - 10.0
のような小数計算で$tに正しく答が代入されないのはなぜですか？

**nobodyさん** · 03/07/31 14:11

↑確認の方法どうやってるの？それが、間違ってるような気がするが

**nobodyさん** · 03/07/31 14:19

>>334
不動小数点数の精度の問題ですね。
一般に小数の最後の桁は信用できません。

**336** · 03/07/31 14:22

浮動小数点です。

**334** · 03/07/31 14:29

>335
代入して、htmlに書き出すだけです。

>336
そうなのですか…
遠回りですが整数でやることにします。ありがとうございました。

**nobodyさん** · 03/07/31 14:55

cgi内部で外部cgiファイルを起動する方法を教えてください。

HTMLだと、<img>タグを使ってたのですが、
<img src="./hoge.cgi">

CGIファイルだと、これがうまく起動されないわけです。
print "<img src=\"./hoge.cgi\">";

どうしたら良いでしょうか？ご教授お願いします。

**nobodyさん** · 03/07/31 15:58

>>339 さま、>>1 をお読みください

**nobodyさん** · 03/07/31 16:11

>>340
当たり前ですがエラーはでません。
起動したいファイルから吐き出しファイルが更新ができないだけなので、
どう質問したらいいでしょうか？よろしくお願いします。

って340じゃ無理か。(w

**nobodyさん** · 03/07/31 16:20

>>339
CGIから別のCGIを呼び出して、その出力を利用したいという事か?
お前の質問からそれを読み取るのは著しく困難だし、態度悪いから教えない。

**nobodyさん** · 03/07/31 16:54

>>339
ﾊﾞｶだね～

**nobodyさん** · 03/07/31 17:07

おちえない

**nobodyさん** · 03/07/31 17:22

>>341 さま、>>1を1200回ほどお読みください

**nobodyさん** · 03/07/31 20:52

>>339
いやもう見てて哀れだよ。
自分がたたかれてる理由がわからない奴ってのは。
しかしここで教えるとためにならんしなあ。
辛いところだ。

**nobodyさん** · 03/07/31 21:26

だいたいそのCGI、直接叩いてちゃんと出力するんかい。
んでエラー吐かんのは当たり前なんかい。
ちゃんと動かんかったらエラー吐くようにしとらんだけやんか。
それがあんたにとって当たり前なら、あんたの書いたコードは書いた通り
正常にうごいとるわけで、プログラムはなんも悪くないとオモーヨ。
はぁ

**nobodyさん** · 03/07/31 21:31

おもろい

**nobodyさん** · 03/07/31 21:44

自演ウザ。(*^｡^*)

**nobodyさん** · 03/07/31 22:18

ちょっとした煽りにいちいちキレてるような奴は、真面目に回答してくれた人に対しても
そういう態度を取る可能性があるからね。
思い通りに動作しなかったり、質疑応答が長引いて耐え切れなくなったときに。

お互いがイヤな気持ちにならないためにも、そしてスレのためにもそういうアフォな質問者は
さっくりと無視しましょう。

**nobodyさん** · 03/07/31 22:31

if ($a>1)
　　if ($a<10)

これを

if ($a>1 && $a<10)

と書くような技法を何ていうんでしたっけ？知ってる人教えてください。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/31 22:47

自演うぜー。まじで。
いやなら無視すりゃいいのに。

**nobodyさん** · 03/07/31 22:57

結合演算子を使う技法ｗ

**nobodyさん** · 03/07/31 23:20

ていうか名前なんてあるのか

**nobodyさん** · 03/07/31 23:26

２行を１行にする技法

**nobodyさん** · 03/07/31 23:46

>>354
自演？
心配すな。
おまいも端役のひとりじゃ

**nobodyさん** · 03/08/01 00:33

>>354
>>339必死だな。

**nobodyさん** · 03/08/01 04:02

>>351
トリビア技法

**nobodyさん** · 03/08/01 04:05

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

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

**nobodyさん** · 03/08/01 04:09

ここって初心者スレのワリにレベル高いんですけど。

**nobodyさん** · 03/08/01 04:55

本漁ったりググって分かる疑問は質問するまでもないからでしょ

**nobodyさん** · 03/08/01 05:59

人に聞いているうちは初心者。
たいていのことを自分で解決できるようになれば、まずは初心者脱出ってこと。

**nobodyさん** · 03/08/01 08:23

364に勝手に追加

自分で調べる前に聞いているうちは一生初心者にすらなれない。

**nobodyさん** · 03/08/01 10:15

馬鹿高い本を買って自己解決する
安めの本を買って、足りない部分は周りを利用する

どっちが初心者だろうね

**nobodyさん** · 03/08/01 10:24

付属ドキュメントで自己解決する

**nobodyさん** · 03/08/01 11:27

初心者は「初心者の質問板」or「PC初心者板」へGo!!

**nobodyさん** · 03/08/01 12:33

安い本で慣れて高い本で補う。

**nobodyさん** · 03/08/01 14:09

先人たちの築いた知識を上手に利用して上達への近道を選ぶのは初心者でつか？

◆hMJAPH9PWA · 03/08/01 14:27

> 安めの本を買って、足りない部分は周りを利用する

「周り」が正規のマニュアルを指しているなら賛成だけど、
そうじゃないなら、たとえ馬鹿高くてもちゃんとした本を買うべきだと思う。

**nobodyさん** · 03/08/01 14:36

こんなところで質問するようなやつは上達しないってことだ

**nobodyさん** · 03/08/01 16:33

このスレ腐ったな

**nobodyさん** · 03/08/01 16:47

夏は腐りやすいのでご用心

**nobodyさん** · 03/08/01 16:48

>>364
>>365
だったら初心者は自分で調べるのにわからない香具師ですね

**nobodyさん** · 03/08/01 17:30

>先人たちの築いた知識を上手に利用して上達への近道を選ぶのは初心者でつか？
ヒントを乞う位なら構わんけどさ、自助努力の前にしつこく説明してクレクレ言う椰子は嫌だな。
一々誰かの時間を奪ってまで問答を求めるのは「上手な利用」とは言わない。
先人の知識ってのは先に書籍とかを当たった方がはやい。
それでも詰まったときに質問するのはアリ。
試行錯誤をめんどくさがり過ぎてるのがミエミエな奴はムカツク。

**nobodyさん** · 03/08/01 17:55

>>370
＞上手に利用
もちろんまず初めにGoogleだよな？？？

**nobodyさん** · 03/08/01 18:06

もちろんはじめに燃料投下

**nobodyさん** · 03/08/01 18:46

テンプレに(･∀･)ｲｲ!!質問者の例とｲｸ(･A･)ﾅｲ質問者の例を載せれよ

**nobodyさん** · 03/08/01 19:50

>>379

>>1 に書いてあるじゃん

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

最低でも1と3が無いと誰も答えられないよ。

これに反するような質問が悪い例

**nobodyさん** · 03/08/01 20:31

「例」という日本語が理解できてない香具師はけん

**nobodyさん** · 03/08/01 20:36

1. >>1嫁。
2. 過去ログ嫁。
3. ググるれ。

**nobodyさん** · 03/08/01 21:25

>>379
そんな事言う様なら質問以前の問題だと思う

**nobodyさん** · 03/08/01 21:44

このスレ、ちょっとPerl覚えた厨に汚染されて臭いね。
質問を乞うぐらいにならんと上達せんよ。
まあ、中途半端な奴に言ってもわからかな。はは。

**nobodyさん** · 03/08/01 21:47

Perl覚えたばかりでもいいからさ。
常識や礼儀を覚えてない奴は勘弁してくれ。

**nobodyさん** · 03/08/01 22:18

（　´∀｀）ここ２ちゃん

**nobodyさん** · 03/08/01 22:21

>質問を乞うぐらいにならんと上達せんよ。
マトモな質問者なら大歓迎なのれす。

**nobodyさん** · 03/08/01 22:50

>386みたいに思ってる奴は当然、２ちゃんだから嘘を教えられても文句言わないよな？

**nobodyさん** · 03/08/01 22:58

そんなアフォはほっとけや。イチイチ相手にしてるだけ無駄

**nobodyさん** · 03/08/01 22:58

正直、昔のほうが質問者叩きはひどかったわけだが。
普通に質問しても「氏ね」とか言われたもんだ。
ここまで丸くなった２ちゃんでまだ叩かれてるような奴って……

**nobodyさん** · 03/08/01 23:12

>>390
うれしげに・・・とかするなﾄﾞｱﾌｫ
言いたいことあるなら最後まで言ってくれ

**nobodyさん** · 03/08/01 23:17

アフォだらけ

**nobodyさん** · 03/08/01 23:28

>良い回答は良い質問から。
これが見事に実践されてるわけだな。
アフォな質問にはアフォな回答が。

**nobodyさん** · 03/08/01 23:48

初心者だらけだから仕方ないよ
質問するときは内容をよく吟味してから投稿してください。

**nobodyさん** · 03/08/02 00:46

以上、>>339=341の自作自演でした。

**nobodyさん** · 03/08/02 01:55

perl5ですけど
srand(time|$$);
を付けないと、rand が時間で決まってしまいます。
そんなもんなんですか？

**山崎渉** · 03/08/02 02:20

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

**nobodyさん** · 03/08/02 03:19

>>396
>>1嫁

**nobodyさん** · 03/08/02 04:25

>>396
試してないけど

srand($$|time);

これじゃ、駄目か？ｗ

**ぼるじょあ** ◆ySd1dMH5Gk · 03/08/02 04:48

　　　　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　・３・） (　　＾＾）＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

**398** · 03/08/02 04:51

(´･ω･｀)＜俺、日本語が不自由なんだよ。

**nobodyさん** · 03/08/02 08:53

あげ

**nobodyさん** · 03/08/02 10:06

>>401
ならば、お前が得意な言語でもいいぞ。

**nobodyさん** · 03/08/02 10:25

トッカロピ