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/17 01:07

それで、Perlのコーディングの話はどこに？
CGIの話はCGIスレに。

**nobodyさん** · 03/04/17 01:07

>>71
そうなんすか。ありがとう
助かった。俺の勘違いだったらしいすべてがね。
まじありがとうさようなら

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

>>73
配布なんていう不相応の夢もかなり勘違いだと（ｒｙ

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

>>69
型グロブを理解したかったらシンボルテーブルの勉強。
http://www.kt.rim.or.jp/~kbk/perl5.doc/perlmod.html
標準モジュールの Symbol.pm や、IO::なんちゃらってのも
参考になるよ。

まぁ Perl4 と違い、リファレンスが使える Perl5 では
型グロブを使っておいしい場面って減った。強いて挙げるなら
サブルーチンにデカいデータを渡す時ぐらいかな。

my %orig_hash = qw(...); # デカいハッシュ
my @orig_array = qw(...); # デカいリスト
hoge(\%orig_hash, \@orig_array);

sub hoge {
　　no strict 'vars';
　　local(*hash, *array) = @_;
　　# %orig_hash を直接書き換える
　　# デリファレンスしなくて済むので高速
　　$hash{$_} = uc $hash{$_} for @array;
}

**nobodyさん** · 03/04/17 06:45

たまーに予約語の先頭につける程度かなあ。

print "Content-type: text/html\n\n" if(select == *STDOUT);

**nobodyさん** · 03/04/17 07:29

定数で使うとかあるっぽい

*PI = \3.14159265358979;

最適化出来ないらしいんだけどね

**山崎渉** · 03/04/17 11:58

（＾＾）

**nobodyさん** · 03/04/17 12:03

>>78

**nobodyさん** · 03/04/17 18:22

よく使われるサブルーチンを
.plファイルで中身をpackage abc;として、&abc::abc;　と呼び込むのと
.cgiにして　require'./aaa.cgi';して　&abc;　と呼び込むのでは
どちらがよいのでしょうか？
何か違いがあるのでしょうか？

**nobodyさん** · 03/04/17 18:43

>>80
requireするなら、拡張子は関係ないが……
.plファイルだって、packageせずmainパッケージに読み込めば後者のように使えるし。

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

>>75
ありがとう。勉強してみます。

29 · 03/04/18 00:58

>>46 >>47さん、今ごろですがありがとうございました。
動かない動かないと色々試行錯誤してやっと意味がわかりました。
PHPで書いたらあっさり出来ました。
他にも色々便利なコマンドが山ほどあるので使って行こうと思います。

**nobodyさん** · 03/04/18 11:25

質問なんですが、例えば、

$x ~= s/abc(.*)xyz/`hoge $1`/g

の`hoge $1` って動的に展開してくれるんですか？
それとも、はじめに展開してそれっきりですか？

誰か教えて!!!

**nobodyさん** · 03/04/18 11:58

>>84
動的とかはじめとか言ってることわからんのだけど？

84 · 03/04/18 12:07

>>85
分かりずらくて御免なさい。
つまり、マッチした時点で、`hoge $1` を展開してくれるのか、
命令文を解釈するときに、`hoge $1` を展開しちゃうのか、どっちかなぁ？
と思って。

84 · 03/04/18 12:10

あぁぁあぁ～～
~= は、=~ の間違いです。

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

>>86
余計にわからん？
マッチしたものを置き換える←これが命令文でしょ。
そもそも、マッチしなきゃ$1は未定義なんだから。

84 · 03/04/18 12:28

>マッチしなきゃ$1は未定義なんだから
あ、そうか。

すいません、色々やってみたら、そもそも置換文字列は、コマンド展開されない
んですね。
はぁ～。面倒になる予感。

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

>>84
$x =~ s/abc(.*)xyz/system "hoge",$1/eg;
で、どないだ？

84 · 03/04/18 15:00

>>90さん
ありがとう、e の意味調べてみます。
しかし、perl は難しい、、、、

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

多分、Perlの関数の仕組みがわかってないんだと思いますが、
PHPのnl2br（改行を<br>に置換）を自作しようとして、

sub nl2br{
my ($letter) = $_[0];
$letter =~ s/\r\n/<br>/g;
$letter =~ s/\r/<br>/g;
$letter =~ s/\n/<br>/g;
return $letter;
}

を作ったのですが、
これだと、

print nl2br($sentence); としても動かず、

$sentence = &nl2br($sentence);
print $sentence;

としないと動きません。これを、前者のようにするには、関数をどうつくればいいのでしょう？

84 · 03/04/18 15:23

割り込みごめん。

>>90 さん、ありがとう。
s///ge で、目的が達成できそうです。感謝です。

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

>>92
俺、それで動いたけど。
他で変なことやってんじゃないの？

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

>>92
print &nl2br($sentence); だろ

**nobodyさん** · 03/04/18 17:54

()があれば&付ける必要は無いと思ったけど

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

require './jcode.pl';　して
jcode::convert(\$buffer, 'euc');　とするのと
&jcode'convert(\$buffer, 'euc');　とするのでは
どう違うのでしょうか？

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

grepさせるときに、
grep( /^$hoge$/, @hage );
@hageの中に'+1'つー文字列があったとして
$hogeが'+1'つー文字列だと、マッチしません。

$hogeを'1'にしてやればマッチします。
これを変な小細工しないで、文字列としてマッチさせる方法はないでしょうか？

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

grep( /^\Q$hoge\E$/, @hage );
で駄目か？

**nobodyさん** · 03/04/18 21:17

>>97
Perl4の頃はリファレンスが無かったので型グロブで代用してた。
また、パッケージデリミタには ' が使われていた。サブルーチン
を呼び出す際には & が必ず必要だった。なので

&jcode'convert(*buffer, 'euc');

という書き方をしていた。
Perl5では互換性の為に上記の文法を許容するけど、推奨される
今風の書き方は

jcode::convert(\$buffer, 'euc');

になる。更に言うなら jcode.pl よりは Jcode.pm を、Jcode.pm
よりは Perl 5.8.0 から標準になった Encode モジュールを
使った方がいい。

**nobodyさん** · 03/04/18 21:22

>>100
なるほど。
詳しい解説ありがとうございました。

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

過去ログ探したら2度と来るな！って書かれてませんでした。
どこかで記憶が変わってしまってました。

激しく鬱だ。。

**102** · 03/04/19 02:00

誤解してうらんでしまった人へ、
すみませんでした。

**102** · 03/04/19 02:07

2度と来るなは
http://pc.2ch.net/php/kako/1019/10195/1019561283.html
↑の551番さんが550番さんに書いた事でした。

お騒がせしました。

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

>>102-104
┓(´_`)┏
ﾅﾆｶﾞﾅﾝﾀﾞｶｻﾊﾟｰﾘﾜｶﾗﾅｲ

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

http://www.foo.com/index.cgi
にアクセスすると、
http://www.foo.com/cgi-bin/index.cgi
にアクセスした場合と全く同じ表示になるようにしたいのですが、
どうするのが得策なのでしょうか？

（要は、PHPでいうところの fopen("http://www.foo.com/cgi-bin/index.cgi") がやりたい）

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

>>106
CGIの話は他のスレでやってください。

**106** · 03/04/19 12:37

>>107
あれ、Perlの話のつもりだったんだけど、そーでなかった？
とりあえず他スレ逝ってきます

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

>>106
.htaccessとかmod_rewriteスレへ

**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