Perlコーディング初心者質問スレ Part 51
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2006/07/27(木) 17:04:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
はさみだって材質がステンレスじゃなければ、刃をさらに研げばカミソリのような切れ味も出るし、
先をへし折って薄く削ってみればマイナスドライバにもなるうるし。
でも、いくら手を加えても純金の延べ棒にはならないわけでして。
0238nobodyさん
2006/08/03(木) 00:04:22ID:???「 ｽ ﾚ 違 い 」
0240nobodyさん
2006/08/03(木) 00:08:09ID:QGlUDLBT極論？どこかだよ。あきらめんなよお前。俺より頭いいだろお前ら。
>>236
そうなんだよな。orz
でもよ。それを認めることは限界を認めることなのよ。
俺はまだ限界を認めたくないのよ。
お前頭いいだろ。もっと智恵を出せよ。
超音波を送るとかいくらでもあるだろ？
耳に超音波受信機をつけるんだよ。いや、つけないんだよ。
人間の耳に正規表現をあてるんだよ。
>>237
あきらめるな！
なんだお前は！そんなんでいいのか？
誰でも出せる答えでそのままあきらめていいのか！
純金の延べ棒にだってできるさ。
分子レベルで変換をする装置を作ればいいだけだろ？
何をあきらめてんだお前ら！
0241nobodyさん
2006/08/03(木) 00:09:31ID:QGlUDLBTスレ違い？何いってんだ。
逃げても何の解決もしないぞ！
>>239
何のために俺がID出してる思ってるんだ？
アボーンしたくなったらいつでもしてくれ。
0242nobodyさん
2006/08/03(木) 00:09:43ID:???包丁もって上がりこんで、布団買うまで帰らないって脅すことか？ｗ
「馬鹿とハサミは使いよう」
分子レベルでは錬金術師やん（呆）そんな同じ歴史の繰り返しみたいな低レベルでええんか？
・・・ってことで、いっぺん大きく息を吸って心落ち着けてまわりを見渡してみなされ（これ夏休み中の課題）
話はそれからだ♪
0244nobodyさん
2006/08/03(木) 00:14:21ID:QGlUDLBTお前セールスやったことあるか？
どういうときに売れ、どういう売れないかわかるか？
いや頭がよければ経験などなくてもわかるはずだ。
どれだけ現実手段が協力化を。
>「馬鹿とハサミは使いよう」
お前こうやってこの言葉に逃げてばかりだな。
ネットでは不可能。それでいいのか？お前。
もっと適した手段をとればいい？
なぜこの段階でネットが適してないと決め付ける？
お前は物事の限界を押し上げる心意気はゼロか？
頑張れよ！
0245nobodyさん
2006/08/03(木) 00:16:10ID:QGlUDLBT同じ歴史の繰り返し？
お前はただあきらめの繰り返しをしてるだけだろうが！
何のためにお前には手があり足があり脳みそがあるんじゃ！
あきらめてんじゃねえ！
0246nobodyさん
2006/08/03(木) 00:18:40ID:???なにも「あきらめた」なんて宣ってませんよ♪
で、だ。
結局このスレッドに何の用があったの？余りにもスレッドの趣旨にずれていませんか？
ひとまず餅付けるれ♪
つ http://life7.2ch.net/yume/ 夢・独り言
『Perlコーディング初心者質問スレ Part 51』
だお（ ＾ω＾）
0250nobodyさん
2006/08/03(木) 00:22:01ID:QGlUDLBT使いようって話は確かにそれでいいんだけどさ。
それじゃあPerlCGIの使いようってのは何だろうって聞きにきた。
しょっぱい方法はいいんだどうでも。
PerlCGIが一番威力を発揮できる。一番強力に思える使いようってなんだろうってこと。
言語間レベルの話ではなくてね。
んぢゃなんで「PerlCGI」なんて単語が出てくるんだよ。
根本的にスレ違いだろ？
あとなにかしらの可能性を見つけたいのならVIPに逝って身を投げてみろ。
http://ex16.2ch.net/news4vip/ ニュー速VIP
0253nobodyさん
2006/08/03(木) 00:30:25ID:QGlUDLBT俺はお前らと話がしたい。
そしてお前らはここにいる！
一緒にPerlCGIの一番強力な使いようってのを考えよう！
0254nobodyさん
2006/08/03(木) 00:32:11ID:???注意されてもスレ違いの話題を続けて、どれだけ迷惑かわかってる？
それとも、わかってて、わざとやってるの？
いずれにせよ、ルールを守れないような人がどんな主張をしたところで、
真面目に読んでくれる人は誰もいない。非常識な人間に、営業うんぬんを語る資格もない。
あなたの「訪問販売」の名を借りた「押し売り」の被害者がかわいそうでならない。
0255nobodyさん
2006/08/03(木) 00:42:08ID:???／ ／⌒)ﾉ ﾍﾟﾀﾝ
∧＿∧ ＼ （( ∧＿∧
（； ´Д｀））' ））（・∀・ ；） おおおままいららももちちつけけけけ
/ ⌒ノ （ ⌒ヽ⊂⌒ヽ
.（O ﾉ )￣￣￣(）__ ）
）_）＿） （;;;;;;;;;;;;;;;;;;;）（＿（
0256nobodyさん
2006/08/03(木) 01:33:01ID:???0257nobodyさん
2006/08/03(木) 01:35:17ID:???0258nobodyさん
2006/08/03(木) 02:37:23ID:???物干し竿売ってるのは移動ついでってのを知ってるんだろうか。
訪問販売で100個売れる？すごいね。
でも訪問販売してる間にサイトで注文が5個来てたら、
わざわざ訪問しないでも5個余分に売れるのにねぇ。
維持費と宣伝効果がそれを下回るなら必要ないって判断になるだけだし。
025998
2006/08/03(木) 02:52:12ID:hD9wA+saまだまだ普通に「商売」って観点で見りゃネットはリアルにかなわないでしょ？
コンビニでも売ってるようなモノをネットで扱ったって誰も買う訳ない。
リアルに向く商材、ネットに向く商材ってのもあるだろうし、
ネットならではの利益の上げ方ってのもあると思う。
まぁ、でも具体的な例だと新宿の某レコードショップは店舗の売り上げよりも通販の方が、
売り上げ出してるらいしいし。
（てか店舗はショボ過ぎ）
何故かっていうとマニア向けの品揃えだよね。
特殊なケースだろうな。
どっちか言うとテレビみたいなもんで無料サービスが基本で広告収入とか、
そういうやり方の方が向いてるんじゃないかな？
いやいや一般的な商売で言ったら、そりゃリアル店舗＆営業に適う訳ないのは当然と思う。
なんつぅか。
0260nobodyさん
2006/08/03(木) 02:52:44ID:hD9wA+sa0261nobodyさん
2006/08/03(木) 03:25:31ID:???ウェブサイトなんてまともに利用しようと思わないだろ。
0262nobodyさん
2006/08/03(木) 04:00:50ID:???0263nobodyさん
2006/08/03(木) 05:17:38ID:???0264nobodyさん
2006/08/03(木) 06:09:00ID:QGlUDLBTなるほど。マーケティングか。やっぱり凄いよ！お前ら。
で、Ａという健康食品を売るのに具体的にお前ならどういうマーケティングを
どうやって取りどう生かすんだ？
アンケートでも書かせるのか？確かにプレゼント企画でもやれば１万レベルの人間が
集まるな。しかしなプレゼント企画に参加してくる貧しいやつらの意見をお前はどう使うんだ？
アクセス解析からマーケティングか？そうだなそれは日々行われるな。
うん。そうだな。どうも具体的に考えれば考えるほどイマイチだな。
これは俺がイマイチなんだろうな。マーケティングで成功してる
>>257ならマーケティングからネットのいい使い方を見つけ出すんだろうな。
流れに逆らわずってやつか。よし。待ってるぞ>>257あきらめんなよ。
俺にお前の想いをぶつけてみろ。
>>258
いい例えだよorz
本当凄いよお前ら。
でもお前らの発言全て「ネットはしょぼい。しょぼいなりに利点がある。しょっぼいなりの使い方をしよう」
ってあきらめ。俺は「ネットはしょぼくないはずだ！あきめるかボケ！」って粘着。
>>261
いいところをつくよね。
「信頼を得るのもネットには向かない」
ってことを言いたいんだよな。
セールスならやりようでいくらでも信頼を取れるからな。
0265nobodyさん
2006/08/03(木) 06:46:07ID:???そう思ってるのは >>264 だけじゃないかｗ
「ネットの世界」 っていうくらい世界というか次元が違うだけ。いっしょくたにされても困る。
どっちも得手不得手があるのだから、その上でそれを生かしたことをするってもんだろ。
よく訪問販売を例に出すけどさ、わざわざ北海道や九州の人の家まで行ってできるかと。
耳かきで耳はほじれてもカレーは食えないってことじゃねーの。
0266nobodyさん
2006/08/03(木) 06:50:24ID:???0267nobodyさん
2006/08/03(木) 06:51:26ID:???0268nobodyさん
2006/08/03(木) 08:00:26ID:???0269nobodyさん
2006/08/03(木) 08:01:15ID:???0270nobodyさん
2006/08/03(木) 08:03:05ID:???＞非常識な人間に、営業うんぬんを語る資格もない。
＞あなたの「訪問販売」の名を借りた「押し売り」の被害者がかわいそうでならない。
0272nobodyさん
2006/08/03(木) 09:50:01ID:???0273nobodyさん
2006/08/03(木) 10:58:06ID:???脳なし個人商店が愚痴をこぼすスレはくこでしか？
とりあえず質問
値として0をもつフォームからGETを受けて、perl で値を調べると
値が入ってこないんだけど、これって正常動作なんでしょか？
入力データはハッシュにいれてて、definedで調べると未定義って帰って来ます。
perlは昨日落としてきたのを使用。
0274nobodyさん
2006/08/03(木) 11:19:39ID:???0275nobodyさん
2006/08/03(木) 11:38:19ID:???なんだかんだ全員レスつけたろ
0277nobodyさん
2006/08/03(木) 13:03:04ID:???さっきのクソ自己中といい一体なんだってんだ。
0278nobodyさん
2006/08/03(木) 14:28:31ID:VJorhNroここにあるFTP転送スクリプトを一定時間サーバーの応答がなければ
実行を止めるというタイムアウト処理をするように書き換えようと思います。
alarm関数でなくselectでタイムアウト処理をしようと思いますが
以下のようにftp_recvを書き換えてみましたがタイムアウト処理が
行われません。どうしたら良いかご教授願います。
sub ftp_recv {
my ($sock) = @_;
my ($buf, $rc, $cont, $msg);
my $rin = '';
my $rout;
my $ftp_timeout = 10.0;
$rc = 0;
vec($rin, fileno $sock, 1) = 1;
die unless select $rout=$rin, undef, undef, $ftp_timeout;
while (chomp($buf=<$sock>)) {
die unless select $rout=$rin, undef, undef, $ftp_timeout;
print "$buf\n";
$buf =~ /^(\d\d\d)([ |-])(.*)/;
$rc = $1; $cont = $2; $msg = $3;
if ($cont ne '-') { last; }
}
return($buf);
}
0279nobodyさん
2006/08/03(木) 14:42:18ID:???エスパーになれとはいわないからせめて文字列を真偽値として使うときの
perl の振る舞いぐらいわかってから回答してください。 (>_<)
0281nobodyさん
2006/08/03(木) 15:08:09ID:???<img src="hoge.cgi">でperlからgifを返してます。
以前のページがどこだったのかを知るにはどうすればいいでしょうか？
リファラには呼び出し元がはいるので２行目を記述してる自分のページがはいります。
index.cgiなど全部のページがcgiでないとアクセス者がどこから来たのかわかりませんかｎ？
0282nobodyさん
2006/08/03(木) 18:17:23ID:???2.全部のページにアクセス解析を設置して、
その情報をもとに自分で集計する。
3.Javascript 等を利用して
<img src="hoge.cgi?(<img>が記述されているページから見たリファラ)"
の形で呼び出す。
2世代前のリファラを送信する規格も実際送信するブラウザも存在しないので
このような方法以外では無理。
0283nobodyさん
2006/08/03(木) 18:22:35ID:???0284nobodyさん
2006/08/03(木) 19:17:34ID:Uu9V7GTdCGI_Liteを用いて作成したアップローダーで、実際にアップロードする前に
1回確認画面（「このファイルでOK？」という感じのもの）を入れたいと考えています。
2.それでこんな風にやってみたが・・・
<INPUT TYPE="file" NAME="up_data">の内容を
$data = $FORM{'up_data'};として、確認画面で
<INPUT TYPE="hidden" NAME="up_data" VALUE="$data">
と入れて保持しておこうとしてみました。
3.こんなエラーが出て上手く行かなかった。
エラーというかhiddenのVALUEが空っぽになってしまいました。
そもそも自分がやろうとしていることが可能かどうかも分からない状況です。
具体的な手順を教えていただければこれ以上のことはありませんが、
可能か不可能かという回答だけでも構いませんので、よろしくお願いします。
0285nobodyさん
2006/08/03(木) 19:21:13ID:???0286nobodyさん
2006/08/03(木) 19:24:01ID:???0287284
2006/08/03(木) 19:26:19ID:Uu9V7GTdあぁ！なるほど！
とりあえずは確認画面に行くと同時にアップしておいて
確認画面でキャンセルしたらテンポラリファイル削除
確認画面でそのままOKしたらテンポラリファイルリネーム
って感じですかね。
ありがとうございます！
目からウロコでした。
0289284
2006/08/03(木) 19:37:26ID:Uu9V7GTd完全に見落としてました。
危うくゴミだらけになるとこでした。
その解決方法は・・・
テンポラリファイルの名前にアップした日時を入れておいて
次回CGIにアクセスがあった場合にそのときの日時と比較して
ある程度の差があるファイルは全て削除
というようなものを想像してみましたが、変ですかね・・・？
0290nobodyさん
2006/08/03(木) 19:47:22ID:???0291284
2006/08/03(木) 19:52:27ID:Uu9V7GTdやろうとしていることが間違ってないという後押しは心強いです。
ありがとうございました！
0292nobodyさん
2006/08/03(木) 20:35:00ID:???ロングテールでググれ。話はそれからだ
0293nobodyさん
2006/08/03(木) 22:03:34ID:???輪足の場合はjsが現実的そうですね。
ちょっとあきらめかけてましたが、盲点でした。
jsをバカにしすぎてまいた。
すれではおれいあしな。
0294nobodyさん
2006/08/03(木) 22:15:14ID:???0295nobodyさん
2006/08/03(木) 22:36:00ID:???まぁアクセス解析img挿入もかわらんか。
apacheログとるのが一番楽。
0296nobodyさん
2006/08/03(木) 22:53:08ID:???って、apacheのログを取るモジュールをPerlで作ればスレ違いじゃない！
0297nobodyさん
2006/08/03(木) 23:44:20ID:???自分自身からの呼び出しのみを許可して外部からの呼び出しは禁止させたいんですが
HTTP_REFERERだと容易に偽れてしまいますよね？
0298nobodyさん
2006/08/03(木) 23:52:51ID:???hoge.cgiを呼び出す側のhtmlもcgiにして、
<img src="hoge.cgi?$ENV{HTTP_REFERER}">
でもできそう。
というか全部のページをCGI にするのって、perlならそれほどめんどくさくない。
0301nobodyさん
2006/08/04(金) 11:38:58ID:???>でもできそう。
ほのぼのマンか？
0303nobodyさん
2006/08/04(金) 15:54:14ID:???0304nobodyさん
2006/08/04(金) 16:50:18ID:???0306298
2006/08/04(金) 22:20:26ID:???0312nobodyさん
2006/08/05(土) 13:12:05ID:???0313nobodyさん
2006/08/05(土) 13:18:43ID:???辞書を引いて見るといい。
0314nobodyさん
2006/08/05(土) 17:42:22ID:IQdTNDFf(１)商取引で契約当事者から出される損害賠償の請求を伴った苦情。
(２)（一般に）苦情。注文。「―をつける」
三省堂提供「デイリー 新語辞典」より
0315nobodyさん
2006/08/05(土) 17:56:39ID:???どうみてもこういう場合には不適切じゃね？
http://www2.alc.co.jp/ejr/index.php?word_in=claim&word_in3=PVawEWi72JXCKoa0Je
0316nobodyさん
2006/08/05(土) 18:02:07ID:???0317nobodyさん
2006/08/05(土) 18:08:19ID:???0318nobodyさん
2006/08/06(日) 12:14:13ID:NewLER86どのように使い分けたらいいのか分かりません。
（同じとしか思えない）
どういうときにmyを使うべきか、
どういうときにlocalを使うべきか、 おしえていただけますでしょうか？
よろしくお願い申し上げます。
0319nobodyさん
2006/08/06(日) 12:26:48ID:???0320nobodyさん
2006/08/06(日) 13:22:44ID:???local はパッケージグローバル変数の値を一時的に差し換えて利用するための関数で、ダイナミックスコープと呼ばれる効果範囲を持っています。
my はシンボルテーブルに属さない局所的な変数を宣言するための関数で、レキシカルスコープと呼ばれる範囲で利用可能な変数を新たに生成します。
>>318 の求める物はほとんどの場合 my の働きだと思います (ぼくがなぜそう思うか理解できないなら、まず間違いなくそうです)。
ですから、そうしない理由を明示できない場合は常に my (及び use strict) を使ってください。
0321318
2006/08/06(日) 13:52:08ID:???親切にごせつめいいただいてありがとうございます。
おっしゃるとおりに、my (及び use strict) を使って行こうと思います。
0322nobodyさん
2006/08/06(日) 14:37:05ID:???ただ、perlソースの文字コードはEUCの為、XMLファイルのUTF-8の文字
コードに変換する必要があると思います。
そこで質問なのですが、EUC→UTF-8への文字コード変換について
一番スマートな方法は何でしょうか？
0324nobodyさん
2006/08/06(日) 15:21:19ID:???0325323
2006/08/06(日) 15:21:52ID:???0326nobodyさん
2006/08/06(日) 16:40:59ID:???>perlソースの文字コードはEUCの為
これに固執する理由による。
文面から見るに 「perlはEUCで書かなければならない」 と勘違いしてないか？
普通に UTF-8 でスクリプト書いても通るよ。
0327nobodyさん
2006/08/06(日) 18:22:10ID:???0329322
2006/08/06(日) 22:57:22ID:???有難うございます。おっしゃった方法で解決できました。
UTF-8でスクリプトを書く方法でも出来ました。
皆様有難う御座います。
0330nobodyさん
2006/08/07(月) 12:05:18ID:???bとcが2つ以上あったときに真を返すようにするにはどのようにすればいいのでしょうか？
「abacacaabaa」だったら真を返す、のような感じです。
0331nobodyさん
2006/08/07(月) 12:12:57ID:???0332nobodyさん
2006/08/07(月) 12:15:55ID:???言い方があいまいでよくわからない
bとcの個数をそれぞれN(b),N(c)としよう。
N(b) >= 2 && N(c) >= 2
N(b) >= 2 || N(c) >= 2
N(b)+N(c) >= 2
どれともとれるが。
0333nobodyさん
2006/08/07(月) 12:18:33ID:???申し訳ないです、もう少し粘ってみます
>>332
N(b) >= 2 && N(c) >= 2
これです。わかりにくくてすみません
0334333
2006/08/07(月) 12:27:32ID:???>>330のように11文字だったら
if($x =~ /b.{0,10}?g/i and $x =~ /d.{0,10}?d/i) {
何らかの処理
}
でいけました
0335nobodyさん
2006/08/07(月) 12:28:37ID:???それぞれの文字の間に.*はさんで|でならべればできあがり。
わざわざ正規表現使わずに数えたほうが楽かもね。
■ このスレッドは過去ログ倉庫に格納されています