Perl 初心者コーナー Part22

**nobodyさん** · 03/04/15 10:15

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

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

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

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

CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
参考書籍の話題は、【Perl,CGI】参考書籍第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

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

**nobodyさん** · 03/04/19 13:16

YAHOO検索で、、、
http://www.google.com/search?q=2%E3%83%81%E3%83%A3%E3%83%B3%E3%83%8D%E3%83%AB&ie=UTF-8&oe=UTF-8
なら、
=～ tr/+/ /;
=～ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
でデコードできるですが、Googleで
http://search.yahoo.co.jp/bin/search?p=2%A5%C1%A5%E3%A5%F3%A5%CD%A5%EB
の場合は、どうすればよいのでしょうか？
どなたかご教授下さいm(_ _)m。

**nobodyさん** · 03/04/19 13:17

>106
Perl的に言うなら、index.cgiの中身をhoge.plに移して、各index.cgiから
hoge.plをrequireするとか。

**110** · 03/04/19 13:17

アドレス逆でした、、、

**nobodyさん** · 03/04/19 13:18

>>110
Google→Unicode
Yahoo→EUC

この違い

**nobodyさん** · 03/04/19 13:18

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

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

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

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

**110** · 03/04/19 13:31

>>113

早速のレス、ありがとうございます。
Unicodeの文字列をデコードするために参考になる
ページ等ありますでしょうか？
よろしくお願いします。

**nobodyさん** · 03/04/19 14:16

>115
教えてもらったんだろ、
後はてめえで探せよノータリン！

**117?** · 03/04/19 14:31

http://allabout.co.jp/computer/hpcreate/closeup/CU20020331A/index_2.htm

ここに書いてあるとおりにcgiを設定しても動かないんですが
記述とか間違ってませんか？　詳しい人おしえて下さい。

**nobodyさん** · 03/04/19 14:32

似ているなぁ～
ノータリンとノーリターン

http://www.google.com/search?num=100&hl=ja&ie=UTF-8&oe=UTF-8&c2coff=1&as_qdr=all&q=perl+Unicode%E3%81%AE%E6%96%87%E5%AD%97%E5%88%97+%E3%83%87%E3%82%B3%E3%83%BC%E3%83%89&lr=

**115** · 03/04/19 15:04

>>118

どうもご親切にありがとうございました！
あちこち辿ってみます。

**nobodyさん** · 03/04/19 15:18

>>117
どこも間違っていませんが？

**117** · 03/04/19 15:45

171です。

<FORM ACTION="http://hoge.ne.jp/jump.cgi">
<SELECT NAME="jumpto">
<OPTION VALUE="-" SELECTED>移動先を選択</OPTION>
<OPTION VALUE="http://www.yahoo.co.jp">yahoo</OPTION>
<OPTION VALUE="http://www.google.co.jp/">google</OPTION>
<OPTION VALUE="http://www.2ch.net/">2ch</OPTION>
</SELECT>
<INPUT TYPE="submit" VALUE="移動">
</FORM>

このように書いても動作してくれないのですが
何がいけないのでしょうか？cgi自体は問題なく
動いてるようです

**nobodyさん** · 03/04/19 15:50

117か171か知らないが、
そのCGIは一行目から間違ってるぞ

**nobodyさん** · 03/04/19 15:52

>>121
そのCGIがSELECTから受け取る引数をちゃんと処理しないからでしょ

**117** · 03/04/19 15:57

117です。打ち間違いです。1行目は変更してるので
とくに問題はないと思うのですが
プルダウンメニューを携帯で使いたくて
cgiを探してやっとで見つけたのがこれなのですが
動作しないんです(>_<)

**117** · 03/04/19 16:11

及川奈央田丸愛上原里香のエロ動画upするから教えてください

**nobodyさん** · 03/04/19 16:11

foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
if( $name eq "jumpto" ) {
$jumpto = $value;# 移動先
}
}

**nobodyさん** · 03/04/19 16:12

教えたから早くエロ動画よこせ

**nobodyさん** · 03/04/19 16:15

http://yahooo.s2.x-beat.com/linkvp/linkvp.html

**117** · 03/04/19 16:23

及川奈央
http://www.pp.iij4u.or.jp/~re-com6/0419/062-1.zip
http://www.rr.iij4u.or.jp/~co-com3/0419/062-2.zip
http://www.rr.iij4u.or.jp/~co-com3/0419/062-3.zip
http://www.rr.iij4u.or.jp/~co-com3/0419/062-4.zip
http://www.rr.iij4u.or.jp/~co-com3/0419/062-5.zip

田丸愛
http://www.hh.iij4u.or.jp/~re-com3/0418/061-1.zip

>>126さん
出来ないよ。。。　

**nobodyさん** · 03/04/19 16:24

>>129
foreachの中に2行追加するんだぞ？

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;

**nobodyさん** · 03/04/19 16:29

RealMediaじゃ見られねぇ・・・・
MPEGにしる!

**117** · 03/04/19 16:32

田丸愛
http://www.hh.iij4u.or.jp/~re-com3/0418/061-1.zip
http://www.hh.iij4u.or.jp/~re-com3/0418/061-2.zip
http://www.hh.iij4u.or.jp/~re-com3/0418/061-3.zip

上原里香
http://www.dd.iij4u.or.jp/~co-com4/0416/059-1.zip
http://www.hh.iij4u.or.jp/~co-com5/0416/059-2.zip
http://www.rr.iij4u.or.jp/~co-com6/0416/059-3.zip

もうダメぽ・・・　意味不明、俺の就業時間もあとわずか、、、
今日は何もしてないや･･

**nobodyさん** · 03/04/19 16:36

プロなのか・・・
いいなあ就職できて。

**nobodyさん** · 03/04/19 17:05

その会社が可哀想だ

**nobodyさん** · 03/04/19 18:30

>>117
そんな、直リンでUPしましたとか言われてもなぁ。

**nobodyさん** · 03/04/19 21:24

>>117
ここはCGI質問スレじゃない。
帰れ。

**nobodyさん** · 03/04/19 21:51

及川奈央　萌え萌え　俺もPerl入れようかな。

**nobodyさん** · 03/04/19 23:43

画像アップロード付きの掲示板はどういう仕組みなんでしょうか？

**nobodyさん** · 03/04/20 00:07

えらく漠然とした質問だな
どう答えればいいんだ？
どこかのスクリプト落としてきてソースを見てください
ってとこか

**nobodyさん** · 03/04/20 01:04

>>139
>どう答えればいいんだ？
136参照

**nobodyさん** · 03/04/20 01:12

>>140
( ﾟдﾟ)なるほどっ！

>>138
ここはCGI質問スレじゃない。
帰れ。

**nobodyさん** · 03/04/20 01:14

Perl初心者を大切に育てよう！

**nobodyさん** · 03/04/20 01:21

大切に育てるために種から不良品をより分けているだけだ

**nobodyさん** · 03/04/20 01:30

そんな事いってたら種がなくなるよ。
Perl初心者を大切にしようよ。

**nobodyさん** · 03/04/20 01:34

種は腐るほどある。っていうか腐った種が多過ぎ。

**nobodyさん** · 03/04/20 01:39

腐ったのはよけとかないと、せっかくの種まで腐ってしまうもんな

**nobodyさん** · 03/04/20 01:42

ここはPerl初心者スレであり、日本語初心者スレじゃないから。

**nobodyさん** · 03/04/20 01:51

そんな事いってたら腐った種もなくなるよ。
Perl初心者を大切にしようよ。

**nobodyさん** · 03/04/20 01:58

腐った種はなくなっていいじゃないか

**nobodyさん** · 03/04/20 02:06

>>148
画像アップロード付きの掲示板はどういう仕組みなんでしょうか？
教えてください。

**nobodyさん** · 03/04/20 02:33

誰も教えないのか？　Perlする人がいなくなるぞ。

まず掲示板のフォームからCGIに画像ファイルを送るね。
そしたらCGIに画像ファイルが到着するとその画像を扱う処理をします、
（その処理はCGI_Lite.pm等を介して画像ファイルの名前やら大きさやら保存場所やら･･･ね。）
それで保存できてるから画像を表示するのであれば
保存したルート指定すれば表示されるわけですよ。
簡単な説明だけど理解してよ。もう来ないから。

やっぱPHPのほうが楽だな。

**nobodyさん** · 03/04/20 02:41

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

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

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

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

**nobodyさん** · 03/04/20 02:41

教えないさ。
ここはコーディングの初心者を相手にするスレだ。

**nobodyさん** · 03/04/20 02:42

良い回答は良い質問から。一緒に勉強しましょう。

**nobodyさん** · 03/04/20 02:53

>>151
ちゃんと教えてやってるじゃないか。
不適切なところに書くと期待する結果は得られないという
コーディングの基本を。

**nobodyさん** · 03/04/20 03:13

エロネタはＯＫ

**nobodyさん** · 03/04/20 03:30

>151
ﾆﾔﾆﾔ（・∀・）

**nobodyさん** · 03/04/20 03:34

>>151
＞まず掲示板のフォームからCGIに画像ファイルを送るね。
それをどうやってPerlで実現するんですか？初心者なので分かりません。

＞そしたらCGIに画像ファイルが到着するとその画像を扱う処理をします、
＞（その処理はCGI_Lite.pm等を介して画像ファイルの名前やら大きさやら保存場所やら･･･ね。）
CGI_Lite.pmって何ですか？
保存場所とは？マイドキュメントでいいんですか？

>>151
すみませんがもっと簡単に説明してもらえませんか？初心者なので・・・
>>142,>>144,>>148さんでもいいです。

**nobodyさん** · 03/04/20 03:44

>>158
そこまで書いたらネタ臭い。

**nobodyさん** · 03/04/20 03:47

ネタでも本当でもかまわんだろ。
そろそろ放置して寝るか。

**nobodyさん** · 03/04/20 04:25

>>158
最低限の「コーディング」が出来ない人は帰ってください。
初心者だから？それが何？

**nobodyさん** · 03/04/20 04:31

>>161
そんな事いってたら種がなくなるよ。
Perl初心者を大切にしようよ。

**nobodyさん** · 03/04/20 04:46

ネタだってば
放置プレーべ

**山崎渉** · 03/04/20 05:57

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

**nobodyさん** · 03/04/20 06:47

CSV形式(　,で区切られた)のデータが1行に30項目ずつあり、複数行存在します｡
詳細表示で10項目全部表示することとし、概略表示で行の始めから5項目ずつを表示したいと考えてます｡
詳細表示と概略表示ではそれぞれ別のスクリプトで実行します｡

この概略表示でデータを読み込む際、30項目全部を配列にセットするのではなく、始めから5項目ずつだけを配列にセットするほうが負荷がかからないのかな？って思ったんですが、始めから5項目ずつだけを配列にセットする方法が思いつきません｡

正規表現かな？と思うのですが、それよりも前に進むことが出来ません｡
何卒こんな私に良い知恵を御授けくださいませ｡
それと、こういうことは負荷軽減に意味があるのかないのかもあわせてお答え願えれば幸いです｡

ちなみに現状は以下で読み込んでます｡
open(IN,"$Datafile")
while (<IN>){
chomp;
if(!$_){next;}
@data = split(/,/);
}
close(IN);

**nobodyさん** · 03/04/20 07:07

>>165
split の第3引数。
(@data, undef) = split /,/, $_, 6;

余計な分割をしない分 CPU 負荷は減るし、
配列に余計なデータを入れない分、使用メモリも減る。
行数によっては微々たる差だけど、こういう細かい
節約に気を使うのはいい事だよ。

**165** · 03/04/20 07:07

ミスプリントです｡

2行目：
誤　詳細表示で10項目
正　詳細表示で30項目

5,6行目：
誤　始めから5項目
正　各行の始めから5項目

寝てないから苦しい｡

**はしのえみ好きー** · 03/04/20 07:08

＞始めから5項目ずつだけを配列にセット
なら @data = (split(/,/))[0..4]; とか。

**165** · 03/04/20 07:09

>>166
ありがとうございます！
さっそく使ってみます｡

**165** · 03/04/20 07:11

>>168
ありがとうございます！
さっそく使ってみます｡ (コピペ

**nobodyさん** · 03/04/20 07:13

そう言えばLIMITってあったね（Perl本読み直そうかしら）
>>165
http://flex.ee.uec.ac.jp/texi/perl/perl_56.html

**165** · 03/04/20 07:29

>>166、>>168
出来ました！
検証する方法に悩んでました｡
ありがとうございました。

>>171
うー
寝起きに読み直してみます｡

**nobodyさん** · 03/04/20 12:07

>>168
目的は得られるがそれじゃ余計な負荷は変わらない

**nobodyさん** · 03/04/20 13:56

foreach $count (0..1000000) { $dat[$count]; }
と、
while($count < 1000000){ $dat[$count] = $count++; }
後者の方が目盛り消費量が倍ほど違うのはなぜ？

**nobodyさん** · 03/04/20 14:00

>>174
行われる処理が同じになるコードじゃないから

**nobodyさん** · 03/04/20 14:13

>>174
whileは毎回比較してるから遅いのは当然

**nobodyさん** · 03/04/20 14:51

>>174
ソースを見た段階で違いに気づけよ....

**nobodyさん** · 03/04/20 15:08

そんなコードの違いがわからないやつが言うメモリってどうやって調べたのだろう？

**nobodyさん** · 03/04/20 15:21

>178
タスクマネージャーとかじゃね？

**nobodyさん** · 03/04/20 18:39

Subroutine ABCDEFG redefined

ってどういうエラー？

**nobodyさん** · 03/04/20 18:41

>180
辞書(英和辞典)をひけばわかりそうなものだが。

**nobodyさん** · 03/04/20 19:40

>>180
re　　defined

**nobodyさん** · 03/04/20 20:14

34 → 0000034
123 → 0000123
のように、
ある数字を、７桁の文字にするにはどうすればいいのでしょうか？

**nobodyさん** · 03/04/20 20:21

$answer= substr('0000000'.$n, -7);

**nobodyさん** · 03/04/20 20:22

>183
sprintf

**nobodyさん** · 03/04/20 20:22

>>183
sprintf
$s=sprintf("%07d",34);

**nobodyさん** · 03/04/20 21:38

>>184
あんた、プログラミング歴長いでしょ？

**nobodyさん** · 03/04/20 21:38

x_ 以外で始まり、 .cgi で終わる正規表現を教えてください。

x_acdef.cgi にはマッチしない
abcdef.cgi　　　にはマッチする
aacdef.csv　　　にはマッチしない
x_aaad.csv　　にはマッチしない
xabcdef.cgi　　にはマッチする

**nobodyさん** · 03/04/20 21:42

!/^x_/ and /\.cgi$/

**金正日** · 03/04/20 21:44

**nobodyさん** · 03/04/20 21:49

>>189
やはり、andを使わないとだめなのか。

**nobodyさん** · 03/04/20 22:02

/^[^x_].*\.cgi$/

**nobodyさん** · 03/04/20 22:04

>>192

$a = 'xabcde.cgi';
if($a =~ /^[^x_].*\.cgi$/){
　　print 'マッチしました';
}else{
　　print 'だめ';
}

これで「だめ」と表示されたので、失敗。

**184==189** · 03/04/20 22:06

正規表現の勘所は、冗長になり過ぎないこと

**nobodyさん** · 03/04/20 22:07

/^[^x][^_].*\.cgi$/

**nobodyさん** · 03/04/20 22:09

$a = 'xabcde.cgi';
if($a =~ /^[^x][^_].*\.cgi$/){
　　print 'マッチしました';
}else{
　　print 'だめ';
}

だめと表示された。やっぱ無理なのか。
すまんかった。

**192=195** · 03/04/20 22:14

すいまそん。あてくし、初心者なんです。
調子に乗って答えてしまいますた。
ムズイネ・・・

**nobodyさん** · 03/04/20 22:47

^(?:x(?!_)|[^x]).*\.cgi$

**nobodyさん** · 03/04/20 23:00

189程度なら正規表現使う方が間違ってる

**nobodyさん** · 03/04/20 23:03

>>199
同意
あれで正規表現しか方法が思いつかないのは情けない

**nobodyさん** · 03/04/20 23:03

if (/^(?!x_).*\.cgi$/) {

**nobodyさん** · 03/04/20 23:04

漏れ、久々にPerl触ることになったんですけど
5.2以降、基本的な構造とか変わりまつたか？
ライブラリ周りとか、参照とかハッシュ(連想配列だっけか？)とか･･･

**nobodyさん** · 03/04/20 23:08

x_ 以外で始まる。

**nobodyさん** · 03/04/20 23:13

>>202
5.6、5.8あたりで動きがあったけど

**202** · 03/04/20 23:21

>>204
多謝
化石化した脳が再利用出来ることを願って、その辺調べてみまつ

**nobodyさん** · 03/04/21 00:03

>>202
5.6なら基本的に大きく変わってないと思うよ
5.8はエンコードとか大きく変わってる

**nobodyさん** · 03/04/21 00:53

Arseno ver2.1.4 のような辞書を借りたいのですが
何処に行けば無料レンタルできますか？

**nobodyさん** · 03/04/21 01:16

>>207
あの世

_ · 03/04/21 01:37