くだすれPerl（超初心者用）3

**nobodyさん** · 2009/03/31(火) 22:20:27

このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。

前スレ
くだすれPerl（超初心者用）2
http://pc11.2ch.net/test/read.cgi/php/1204488452/

関連スレ
Perlについての質問箱 39箱目
http://pc12.2ch.net/test/read.cgi/tech/1234181856/
Perlコーディング初心者質問スレ Part 59
http://pc11.2ch.net/test/read.cgi/php/1234752149/
【Perl上級者コーナーPart01】
http://pc11.2ch.net/test/read.cgi/php/1024741312/

**nobodyさん** · 2010/08/13(金) 17:19:56

失礼しました。スクリプト中のOsごとのスタイルシート振り分けが
影響していたようです。
検証有り難うございました。

確かにレガシーですが、永遠の日曜Web管理人の私などには
分かりやすいのです。
ただ、tableが多いのにサブルーチンで使い回ししまくりなので、
何処で閉じてるのかもう何がなんだか分かり難いのが最大の難点です。

**☆忍者Perl☆** ◆M5ZWRnXOj6 · 2010/08/13(金) 17:27:14

マカーがWeb系言語をやるのは運命wwwww

寄生虫のように脳味噌を取り付かれて、一定時期になったらweb言語をやりだすという

ハリガネムシに寄生されたカマキリみたいだねwwwwwwwwwwwww

**nobodyさん** · 2010/08/13(金) 17:29:06

日本語でおｋ

**nobodyさん** · 2010/08/14(土) 02:35:01

>>931
結局わかり辛いんじゃないのか・・・？

**nobodyさん** · 2010/08/14(土) 05:33:34

OOPで綺麗に書きなおせば
見辛いコードは保守性もないし

**nobodyさん** · 2010/08/19(木) 00:49:02

>>935
素人がOOPやっても保守しやすくなるとは限らん罠
それより先にやるべきことがある

一番やるべきなのはビューの分離

**nobodyさん** · 2010/08/19(木) 15:22:08

CPANが使えない環境でMCryptをインストールしたくて、
winでダウンロードしたMCryptをlinuxにコピー。

makeすると
mcrypt.h: No such file or directory
といわれてしまいます。

google先生に聞いてもphpの例しか出てこず、、、
どういうことなんでしょうか？

**nobodyさん** · 2010/08/19(木) 16:19:15

libmcryptを入れればいいんじゃないかな

**937** · 2010/08/19(木) 16:46:41

>938

ありがとうございます。

今度はRPMパッケージのlibmcryptをインストール中にこけました。
error: Failed dependencied:
libmcrypt = 2.4.11 is needed by libmcrypt-devel-2.4.11-2.i586

調べてみます。

**nobodyさん** · 2010/08/19(木) 17:08:32

libmcrypt-devel-2.4.11-2.i586 が必要ってこと

**nobodyさん** · 2010/08/26(木) 16:54:36

こんな感じで　ハッシュをソートするとします
foreach $no (sort keys %hash){　・・・

$no の小さい順になるんで逆転したいのですが
どうしたらいいですか？

**nobodyさん** · 2010/08/26(木) 17:24:53

reverse sort keys(%hash)

**nobodyさん** · 2010/08/26(木) 17:51:44

sort { $b <=> $a } keys %hash
sort { $b cmp $a } keys %hash

**nobodyさん** · 2010/08/26(木) 19:02:28

10abc
100abc
20abc

こうゆうデータがあるとき、先頭の数字で並べ替えたい時
どうやってソートしますか？
普通にソートすると

100abc
10abc
20abc

となりますが、希望する並べ替えは

10abc
20abc
100abc

です。
先頭の数字の配列と、文字列の配列に分断して並べ替えるのが妥当なのかな？と思ったけど、
分断した配列同士をどうやって紐付けるかで迷い、結局構造体っぽいハッシュにがっつり入れて並べ替えて対処してます。

もっとスマートに出来そうなのですが・・・

**nobodyさん** · 2010/08/26(木) 19:51:42

ソートに使う数字が先頭にある場合に限れば
　sort { int $a <=> int $b } @array
でいけるな。真っ当にやるなら
　sort { ($a =~ /^([0-9]+)/)[0] <=> ($b =~ /^([0-9]+)/)[0] } @array
とか。

**nobodyさん** · 2010/08/26(木) 20:00:51

あ～、int は数字以外が来たらそこまであった数字を処理対象とするんでしたっけ？
恐ろしく簡単で、灯台もと暗しすぎて笑えてきたｗ

正規表現は意外とコストが高いので、int 使っていこうと思います。
thx！

**945** · 2010/08/26(木) 20:35:40

ごめん、試してみたらintだとuse warningsで警告出るわ。正規表現にしといてくれ。

**nobodyさん** · 2010/08/26(木) 22:20:20

今試せる環境に居ないので試してないけど、

sort { ($a <=> $b } grep { /^([0-9]+)/)[0] } @array

は駄目かな？

**nobodyさん** · 2010/08/26(木) 23:41:34

コスト気にするなら、シュワルツ変換かシャチ泳ぎが定番。
map{ $_->[0] }
sort { $a->[1] <=> $b->[1] }
map{ [ $_, ( /^(\d+)/)[0] ] }
@array ;

**nobodyさん** · 2010/08/27(金) 19:12:21

ソートの件、有り難うございました。

ところで、先頭に数字があるBBSのログをサーバ上で
他の目的用に整形し直した際に、
>>945の
sort { int $a <=> int $b }
でソートとしてみました。

こういうの
100<>name<>mail<>sub・・・・
99<>name<>mail<>sub
98<>name<>mail<>sub

ブラウザで新ログを見ると綺麗にソートされています。
それをFTPでダウンロードしてみると崩れています。

そんな事ってあるのでしょうか？
私の勘違いでしょうか。

**nobodyさん** · 2010/08/27(金) 19:52:45

>>950
ブラウザで見てるってのは生ログ見てるの？何かcgi通してるの？
後者なら不思議でもなんでもないのだが。

**nobodyさん** · 2010/09/09(木) 10:22:10

>>950
話は戻るんだがそういうデータならどうせパースするんだし

@data = sort { $a->[0] <=> $b->[0] } map { [split /<>/, $_] } @lines;

とかでよくないか？

**nobodyさん** · 2010/09/09(木) 17:38:07

質問させてください。

Perl::DBIで下記のようにコーディングしています。

my $codes = '1,2,3,4,5';
my $sql = 'SELECT * FROM TEST WHERE testcode IN (?)';
my $sth = $dbh->prepare($sql);
$sth->execute( $codes );

実行すると実際に発行されるクエリーは
SELECT * FROM TEST WHERE testcode IN ("1,2,3,4,5")
のようになると思います。（VARCHAR扱いでバインドされるので）

次のように発行させたい場合はどのように記述すればいいのでしょうか？
SELECT * FROM TEST WHERE testcode IN (1,2,3,4,5)

**nobodyさん** · 2010/09/09(木) 17:50:35

試してないけど、こんなんじゃだめなのけ

my @codes = split /,/, '1,2,3,4,5';
my $sql = 'SELECT * FROM TEST WHERE testcode IN (' . join(',', ('?') x @codes) . ')';
my $sth = $dbh->prepare($sql);
$sth->execute(@codes);

**953** · 2010/09/09(木) 22:32:41

>>954

遅くなりました！
無事に動作しました。ありがとうございました。

**nobodyさん** · 2010/09/10(金) 10:36:15

Perlで指定した日時にイベントを起こす方法を模索しているのですが、
何か定番的なやり方がありましたら教えて下さい
検索のキーワードでも何でも結構ですので

**956** · 2010/09/10(金) 10:58:46

現状考えているのは、while(1)でループを回しっぱなしにして
その中で常時localtime（time)を取得し、特定の日時になったら

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
if($hour == 起こしたい時 && $min == 起こしたい分 && $sec == 起こしたい秒) {
#起こしたいイベント
}

こんな感じでイベントを起こす、というやり方です
また、指定する日時はCSVファイルで複数行を別途保持しておく形になります
YYYY,MM,DD,hh,mm,ss…みたいな感じです
もし他にもっとスマートな方法があるようでしたら教えて下さい

**nobodyさん** · 2010/09/10(金) 11:12:12

cron
タスク

**nobodyさん** · 2010/09/10(金) 13:23:53

>>957
cronを使えない特別な理由があるとして、whileの中でsleep(目標日時 - 現在日時)とかすればいいんじゃね？

**nobodyさん** · 2010/10/07(木) 20:01:34

とある雑誌でみたソースコードなんですがPerl初体験？なので困っています
perlの関数は引数にアクセスする際に$_->[0]で引数の値を取得できると
教わったんですが関数らしき処理はこのソースコードの前後に書かれておらず
困ってます。

あとforループの$tはどんな役割になるんでしょうか？

my $input_vec = { book => 29, '梅田望夫' => 27 ....};
my %sim;
for my %t(keys %input_vec) {
for(@{$index{$t}}) {
$sim{$_->[0]} += $input_vec->{$t} * $_->[1];
}
}

**nobodyさん** · 2010/10/07(木) 20:11:47

いや、そんな一部分だけ抜き出されても困る。
せめて何を目的とするコードなのかくらい書け。

**nobodyさん** · 2010/10/07(木) 20:21:13

WEB+DB PressVol57のリコメンドエンジンを作るとういう記事の一部です

$input_vecにははてなブックマークのタグ数が代入されています。

実装 : ある記事を見たユーザにオススメの記事を推薦する機能

$indexははてなブックマークのタグとタグ数、記事のIDを元に
作られた転置インデックスです。

**nobodyさん** · 2010/10/07(木) 20:49:20

なんかわからんけどこれをやりたいの？
#!/usr/bin/perl

@array = ('a', 'b', 'c');
&func(\@array);
sub func{
foreach (@_) {
print $_->[0],": ",$_->[1],": ",$_->[2],"\n";
}
}

**nobodyさん** · 2010/10/09(土) 07:58:30

ttp://pgd.jp/cgiscript.html
ここのメールフォームのスクリプトを試していて、
textareaに入力した改行が確認画面で反映されないのですが、
どのような改造をすればよいでしょうか。
送信されたメールではちゃんと改行されてるので、確認画面を出力するところが問題になるとは思うのですが。。。

**nobodyさん** · 2010/10/09(土) 12:15:45

>>964
改行をbrタグに置換する

**nobodyさん** · 2010/10/09(土) 19:26:59

大雑把な質問なんですが、カレンダー型スケジュールなどで
平日のみ４つの配列を順に表示させる方法またはヒントが
あれば教えてください。
休日か平日かの判定は出来ています。

下のような感じです。
配列はA→B→C→Dの4つ。
10/04(月)→平日なので配列Aを表示
10/05(火)→平日なので配列Bを表示
10/06(水)→平日なので配列Cを表示
10/07(木)→平日なので配列Dを表示
10/08(金)→平日なので配列Aを表示
10/09(土)→休日なので表示しない
10/10(日)→休日なので表示しない
10/11(祝)→休日なので表示しない
10/12(火)→平日なので配列Bを表示
10/13(水)→平日なので配列Cを表示

**nobody** · 2010/10/09(土) 23:54:45

平日だけを要素にした配列を作って、その日が何番目の
要素かを調べて、(qw(A B C D))[$n % 4] でいいと思う。

**nobodyさん** · 2010/10/11(月) 06:28:12

&Jcode::convert(¥$_,'euc','utf8');

という行は¥$_をutf8からeucへ変換するということだと思うのですが、
¥$_ってどういう意味ですか？

**nobodyさん** · 2010/10/11(月) 06:33:14

リファレンス
参照渡し
関数の副作用

**nobodyさん** · 2010/10/11(月) 12:56:11

すみません。Perlの環境構築について質問がございます。
Win7+Apache+PerlでCGIを動かそうとしているのですが、Internal Server Error(500)が出てうまくいきません。

Apacheのerror.logをみると
[Mon Oct 11 12:41:43 2010] [error] [client 127.0.0.1] (OS 2)指定されたファイルが見つかりません。 : couldn't create child process: 720002: printenv.cgi
[Mon Oct 11 12:41:43 2010] [error] [client 127.0.0.1] (OS 2)指定されたファイルが見つかりません。 : couldn't spawn child process: C:/Program Files (x86)/Apache Software Foundation/Apache2.2/cgi-bin/printenv.cgi
と出てきます。

ググると、ソースの一行目の#!のPathの設定が正しくないとこのエラーが出るらしいのですが、
Pathは正しく設定してます・・・
#!c:/Perl64/bin/perl.exe

何か他に怪しいところとかありますでしょうか？

**nobodyさん** · 2010/10/11(月) 14:04:59

>>970
Windowsでexeの指定ってそれでいいの？
Linux環境でしか触ったことないからわからんけど
#!/Perl64/bin/perl
とか
#C:\\Perl64\bin\perl.exe
とかじゃね？

参考になりそうなURL
http://tep-pey.blogspot.com/2008/05/windowsapacheperl.html

**nobody** · 2010/10/11(月) 16:46:12

>>968

【質問】
&Jcode::convert(\$_,'euc','utf8');
という行は\$_をutf8からeucへ変換するということだと思うのですが、
\$_ってどういう意味ですか？

【回答】
&Jcode::convert(\$_,'euc','utf8');
という行は $_ をutf8からeucへ変換するということ

です。

**nobody** · 2010/10/11(月) 19:50:02

$_ = \$foo;
&Jcode::convert($_,'euc','utf8');

の場合は $_ をutf8からeucへ変換するということ

で・は・な・く・て

$foo をutf8からeucへ変換するということ

でっす!!!

**nobodyさん** · 2010/10/14(木) 03:11:24

最近になって覚えたワンライナーが面白くて仕方ありません。
searchという文字があった場合に行末にfooを付けたいのですが、
こんなふうにやってます。↓
perl -ne "print if ( /search/ )" input.txt > output1.txt
perl -ne "print if ( s/\n/foo\n/g )" output1.txt > output2.csv
２つのワンライナーを１つにするにはどうすれば良いのですか？
よろしくお願いします。

**nobodyさん** · 2010/10/14(木) 06:27:55

perl -ne "/search/ and s/\n/foo\n/g and print" input.txt

**nobodyさん** · 2010/10/14(木) 23:39:16

>>967
レス遅くなってすいません。

質問の仕方が悪かったです。
表示する方法ではなくて、「"今日"($year/$mon/$day)は"ある日"($tyear/$tmon/$tday)から何回目の平日か？」
を簡単にわかる方法があればと。。。

timelocal での差分 - 休日数でできました。
ありがとうございました。

**974** · 2010/10/16(土) 00:38:31

>>975さん、ありがとうございます。
andで繋げていくのですね。
セミコロンで繋げるものとばかり思い込んでいました。

**nobodyさん** · 2010/10/16(土) 00:40:09

いや、意味違ぇーから…

**nobodyさん** · 2010/10/17(日) 23:52:01

フリーのデータベースを使っているのですが
ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1242300167
の質問にある2番目の
＜２＞「YAHOO」という文字列を検索する際に「yahoo」と入力しても検索できるようにしたい
なのですが
大文字と小文字を区別しないでマッチさせるようにするにはどのように記述すればいいのでしょうか

**nobodyさん** · 2010/10/17(日) 23:58:49

if( $optlist_wk[$i] =~ /$switem/i ){ # 大文字＆小文字の判別：無へ Y.Otake 04.08.17
既にcase-insensitiveになってる気がしますが

**nobodyさん** · 2010/10/18(月) 10:00:17

データベースに入れるときに大文字か小文字かに統一したデータも入れておいてそれを検索するか、
データベース検索時に正規表現を使うか