Perlコーディング初心者質問スレ Part 38

**nobodyさん** · 04/10/07 23:23:08

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

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

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

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

**nobodyさん** · 04/10/31 14:32:57

>>437
いくつかのやり方に応じて適切な条件が揃わないとできんよ。
つーか、逆に言うとそれをやられないように作られてるんだから。

**nobodyさん** · 04/10/31 16:29:29

試行錯誤してやっと完成したスクリプト。
しかし初心者だけにセキュリティ的な部分が非常に気になります・・・。
何かセキュリティ的に大丈夫かどうかチェックする方法ないですかね？
2chでさらす以外で。
他の初心者さんたちはどうしてるんだろ？

**nobodyさん** · 04/10/31 16:37:53

上級者に聞くしかないでしょう。
じゃなきゃ自分が上級者になる。

**nobodyさん** · 04/10/31 22:09:05

>>439
只でやりたかったら、どっかで晒すか知り合いに頼むしかないだろ。
金かける気があるならhttp://www.softek.co.jp/Sec/WebProbe/のようなツール使う。

**nobodyさん** · 04/10/31 22:24:06

>>439
どういうｾｷｭﾘﾃｨを懸念してるんだ。
とりあえずはｸﾛｽｻｲﾄｽｸﾘﾌﾟﾃｨﾝｸﾞあたりか？

**nobodyさん** · 04/10/31 23:47:52

作ったものによるだろ。
XSSは当然として、セッションハイジャックやSQLインジェクションなど
その他色々。

◆7CWqH7Oesg · 04/11/01 00:59:27

４様が微笑みながら４４４ゲットｽﾞｻｰｰｰｰ!!

**nobodyさん** · 04/11/01 01:09:12

>>444
うるせーー！！！！！

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

net::ftpのdirをつかって、ファイルの更新日時を取得したのですが、
月がOctのように英語表記になってしまいます。
これはどのように数字に変更すればいいのでしょうか？

**nobodyさん** · 04/11/01 10:51:27

>>446
%Month = (Jan=>1, Feb=>2...)みたいなハッシュを用意しといてひけば
とりあえず数字にはなる。

**nobodyさん** · 04/11/01 13:02:20

s/Oct \d{2} \d{2}:\d{2}/10月$1日$2時$3分/g;
みたいに１２行書く。

**nobodyさん** · 04/11/01 13:03:07

カッコ付け忘れ。適当に補ふ。

**nobodyさん** · 04/11/01 19:42:22

キリ番を調べたいのですが、
100単位でのキリ番は、
$a = substr("カウント値",-2,2);
if($a eq '00'){ print "キリ番"; }
で処理しています。
連番に関してはなかなかいいアイディアが思い浮かびません。
参考となるカウンターやアイディアをご教授ください。

**nobodyさん** · 04/11/01 19:52:51

キリ番とかﾀﾞｻｲからやめたほうがいいよ

**nobodyさん** · 04/11/01 20:25:55

>>451
禿同

**nobodyさん** · 04/11/01 20:55:08

>>451-452
ｱｲﾃﾞｨｱのｶｹﾗも思い浮かばないような発想力不足のｸｽﾞはこのｽﾚにいないでいいよ

**nobodyさん** · 04/11/01 21:05:16

>>450です。
確かにダサイのですが要望があったので色々と試してました。
0の連続するきっちりのキリ番やゾロ目なら数十桁くらいを配列にいれて
比較してたのですが、連番となると数が多すぎて…

**nobodyさん** · 04/11/01 21:17:07

漏れもダサイとは思うが、どうしてもやらにゃならんと言うなら
キリ番やゾロ目なら正規表現使う方が賢明だろう

連番はアイデアがないが
「自分が数字を見たとき連番かどうかをどうやって判断しているのだろう?」と
自分の頭の中の認知回路を自己分析してみると
実装可能なアルゴリズムを思いつけるかもしれん

**nobodyさん** · 04/11/01 21:18:46

ゾロ目:
sub zorome { my($x)=@_; $x % ('1' x length($x)) == 0; }

連番:
sub renban { my($x)=@_; zorome($x - substr('123456789', 0, length($x)-1));}

あたりでどう?

**nobodyさん** · 04/11/01 21:25:11

連番は、何個同じ数字がどこに並んでりゃいいの？３個どこでもよければ
while(($var =~ /(\d)/) and ($var =~ s/$1{3}//)){print "連番やん\n";}

**450** · 04/11/01 21:49:58

>>450です。
>>456、>>457様、ありがとうございます。
教えて頂いたものは負荷も少なく凄いです。

正規表現に疎いためまだ理解できていないのですが…
連番は何個からとかは特に決めていません。
12でも連番のキリ番として扱う予定です。

>>457様
$varに数値をいれるとして、$1の部分が理解できません。
これだと例えば1114も連番となってしまいますか？

**nobodyさん** · 04/11/01 22:11:56

$1を知りたければ、多少でもいいから正規表現を学ぶんだ

**nobodyさん** · 04/11/01 22:35:50

正規表現だとゾロ目は

$x =~ /^(\d)\1*$/

なのでこっちの方がシンプルかも? (最初が数字でその後0個以上の
同じ数字が文字列の最後まで続く)

最低n桁にしたければ*のところを{n-1,}にすればいい。たとえば
最低4桁なら

$x =~ /^(\d)\1{3,}$/

**nobodyさん** · 04/11/01 22:38:27

連番は

index("123456789", $x) >= 0

という手もある

**nobodyさん** · 04/11/01 23:26:45

セッションハイジャックやSQLインジェクションってどうやって防ぐの？
入力チェックが効果的ってどっかで見た気がするが。

**450** · 04/11/01 23:27:32

>>450です。

>>460、>>461様ありがとうございます。
正規表現でのゾロ目チェックは参考になりました。
連番でindexを使うのは気付きませんでした。

**nobodyさん** · 04/11/01 23:32:03

>>462

Perlコーディング初心者質問スレ Part 38

◆7CWqH7Oesg · 04/11/01 23:32:49

>>462
マルチだし、ハイジャックて・・・

**nobodyさん** · 04/11/02 00:52:58

>>462
セッション管理を必要としない仕様にする。
SQLを必要としない仕様にする。

そもそもセッション管理やSQLを使用しているのか疑問なのだが。
使用しているのならどこが穴になるのか想像できるはず。

ttp://www.atmarkit.co.jp/fsecurity/special/30xss/xss01.html
ttp://www.atmarkit.co.jp/fsecurity/rensai/webhole01/webhole01.html

**nobodyさん** · 04/11/02 08:25:16

Image::Magickで1M以上のJPG画像を縮小しようとしたら
サイズはあっているのですが画像の上の10%くらいで変換がおわってあとは真っ黒になります
なにが原因なのでしょうか

use Image::Magick;
$i = Image::Magick->new;
$i->Read('test.jpg');
$i->[x]->Scale("200");
$i->Write("temp.jpg");

**nobodyさん** · 04/11/02 09:46:11

途中で殺されたんじゃねーの

**462** · 04/11/02 10:19:20

あれ、俺マルチなんかしてねーぞ？

**nobodyさん** · 04/11/02 10:35:00

>>467
よくわからんが、Scale メソッドってそういう呼び出し方するんだったっけ

**467** · 04/11/02 10:55:21

use Image::Magick;
$i = Image::Magick->new;
$i->Read('test.jpg');
$i->Resize(width=>200, height=>150, blur=>0.7);
$i->Write("temp.jpg");
これも駄目でした

**nobodyさん** · 04/11/02 11:55:28

まじめにエラーハンドリングしてみたら?
なんか出てるかもよ。

ttp://www.imagemagick.org/www/perl.html#erro

**nobodyさん** · 04/11/02 14:27:15

正規表現の修飾子を変数に入れたまま
使う事は出来ないんでしょうか？

foreach(@list){
　if(/$pattern/$a){
　　print "true";
　}else{
　　print "false";
　}
}

正規表現を勉強しようと、
CGIで正規表現と複数の文字列をPOSTし、
文字列がマッチするか検証するスクリプトを書いています。

**nobodyさん** · 04/11/02 14:46:21

>>473
eval使え

**nobodyさん** · 04/11/02 15:02:49

>>474
出来ました。ありがとうございます。

if(eval "/$pattern/$a"){}

**nobodyさん** · 04/11/02 18:01:53

みんなならどっちにする？

$a=4 if $b;
$b=5 if $b;

と

if($b){
$a=4;
$b=5;
}

なんか{}(ブロック)をなくす方が処理が早いみたいなこと聞いて
こんなつまらないことで悩んでる状況。

**nobodyさん** · 04/11/02 18:19:17

ご教授ください。

その月が何日が最終日なのかを調べるほうほうは
どのようにつくればいいのでしょうか？

**nobodyさん** · 04/11/02 18:22:06

ツェラーの公式で検索してみ

**nobodyさん** · 04/11/02 18:41:26

>>476
それがものすごい回数繰り返されるループの中とかなら、
ベンチとって選べ。

そうでなければどうせ誤差ぐらいしか違わないから自分が
見やすいと思うほうにしとけ。

一般論としては、動くの作って動作速度に不満が出てから
プロファイラでどこが時間食ってるか調べて集中的に直せ、
と言われているようだ。

軽くベンチした感じでは、$bがfalseならif(){}の方が
3倍ぐらい早いが、$bがtrueなら25%ぐらい遅い。

**nobodyさん** · 04/11/02 18:52:04

sub last_day {

my($y,$m) = (shift,shift);
my @days = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

return 0 unless (1 <= $m and $m <= 12 );

$m-- == 2
? $days[$m] + ($y % 4 == 0) - ($y % 100 == 0) + ($y % 400 == 0)
: $days[$m];
}

**476** · 04/11/02 19:28:42

>>479さん
神様のような方ですね。
ありがとうございました。
10回程度なので見やすいほうにさせていただきます。

**nobodyさん** · 04/11/02 21:02:59

($a,$b)=(4,5) if $b;
も、べんちまぁくしてねぇ（はぁと）

**nobodyさん** · 04/11/02 21:03:44

>>476
それだと条件分岐の評価が2回行なわれるので、
条件式次第では遅くなる可能性があるよ。

$a=4, $b=5 if $b;
$b and $a=4, $b=5;
($a,$b)=(4,5) if $b;
$b &&= 5 and $a = 4;

労力の割にはたいした効果が期待できないので、
最適化のためにblockを消したりとかは、した事ないけど。

**nobodyさん** · 04/11/02 22:26:47

日本時間、2004年11月2日午後10時を示す数字
04110222

をGMTで同じように8桁で表したいのですが、どの様にするのが
よいのでしょうか?

一旦、unix timeにして、-9時間して、戻すのが順当でしょうか?
できれば、use Time::Localはしたくありません。
(それが使えない環境などがありそうなため)

perl JST GMT でググってもTZとかしかでてきませんでした。
よろしくお願いします。

**nobodyさん** · 04/11/02 22:27:49

２ｃｈの各スレッドのURLってどういう計算式なんですか？日付が絡んでそうなのはわかるのですが
だれかおしえてくらさい
　　　　　　　　　　　　　　　　　　　　　　　↓ここの部分
http://pc5.2ch.net/test/read.cgi/php/1097158988/l100

**nobodyさん** · 04/11/02 22:31:43

unixtime

**nobodyさん** · 04/11/02 22:49:38

ありがとうございました。

**nobodyさん** · 04/11/03 00:48:07

変数から特定の文字列がある場合、それを抜き取るという
動作をしたいんですが、これはどうすればいいでしょうか？
index と substr を使う方法を思いついたのですが、
もっとスマートな関数とかありますでしょうか？

**nobodyさん** · 04/11/03 00:52:38

age

**nobodyさん** · 04/11/03 01:26:52

>>488
if(/特定の文字列/){
　　$unko = $1;
}

**nobodyさん** · 04/11/03 06:51:50

>>490
抜き取られていない。

push @result,$1 while s/(特定の文字列)//;
とかいろいろ。

**nobodyさん** · 04/11/03 07:37:05

PerlでPHPのgetImageSizeみたいなのないですか？
特にSWFのサイズ取得とかあるサブルーチンあったら教えてくださいませ

**nobodyさん** · 04/11/03 07:42:15

>>484
あとは自分で何とかしる。

$_ = '04110222';
my @a = /(..)/g;
my @m = qw/31 28 31 30 31 30 31 31 30 31 30/;
$m[1]++ unless $a[0] % 4;
my $t = 946652400 + 3600 * ($a[3] + 24 * int $a[2] - 1 + 365 * $a[0] + (3 + $a[0]) / 4);
$t += 86400 * $m[$_] for 0..$a[1] - 2;
print scalar localtime $t;

**nobodyさん** · 04/11/03 12:14:21

>>492
この辺だったか。
http://search.cpan.org/~ysas/SWF-File-0.37/lib/SWF/File.pm

**nobodyさん** · 04/11/03 13:27:44

>>484
Time::Localってperl本体に付属してたと思ってたんだけど、
分離されたんだっけ?

あとGMTにするのはgmtime使うかtimezoneいじるべきで
unix timeを9時間戻すのはよろしくないと思うよ。

**nobodyさん** · 04/11/03 15:09:23

ユリウス時間でも出してきたらどない？

**nobodyさん** · 04/11/03 15:24:21

>>495
> GMTにするのはgmtime使うかtimezoneいじるべきで
漏れもそう思うが、

> unix timeを9時間戻すのはよろしくないと思うよ。
これには何か理由があるのか？

**484** · 04/11/03 15:46:43

色々返答ありがとうございました。
質問の仕方が悪かったかもです。

どうやらgoogle君に聞いてみると、Time::Localは標準ライブラリらしいです。
なのでどの環境いっても使えそうです。
重くなりそうという根拠のない理由から、できれば避けたいと書きました。
#標準ライブラリということを確定的できる情報元ってないんでしょうか…

何をしたいかというと、
0411031500という時間をcookieのexpire時間にしたいのですが、cookieではGMT
でJSTを指定できないらしいので変換をしなくてはならないのです。

>>493さんのコードちょっとむずかしすぎてまだ理解できてないです…
以下のURLのサブルーチンでunix timeにはできそうです。
http://www.ybi.co.jp/koike/qa3000/qa3165.htm

**nobodyさん** · 04/11/03 15:56:35

use Object; $obj->document();
http://perl.infoware.ne.jp/documents.html

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

>>497
うるう秒が間に入るとずれるから。ちゃんとサポートされたシステム
での話しだけど。

クッキーのexpire時間ぐらいならそう厳密じゃなくていいから
構わんと思うけどね。

**nobodyさん** · 04/11/03 16:41:00

>>498
5.8.4の標準ライブラリなら
http://www.perldoc.com/perl5.8.4/lib.html

確実に知りたいのなら
perldoc perlmodlib

**497** · 04/11/03 16:41:31

>>500
㌧

**nobodyさん** · 04/11/03 16:55:54

標準ライブラリだからといって必ず使えるという保障はないわけで。
あんまりこだわる必要はないと思うけど？

それよりも、なぜにcookieのexpireで人間的日付を元にするのかが気になる。
単純に timeから30日間有効とかにしてしまえば楽なのに。

**nobodyさん** · 04/11/03 17:10:11

>>494
情報ありがとう！
やはり１つの関数で勝手にファイル判別してくれるとかはないんですかね？
まぁ手動で見分けて条件分岐すればいいんでしょうけども・・・。

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

2chで出てるようなIDを生成したいんですが、2chがどうやって生成してるのか教えて頂けないでしょうか？
前に、そういうサブルーチンを見かけた気がするんですが検索しても見つかりませんでした。
よろしくお願いします。

**nobodyさん** · 04/11/03 17:13:59

>>505
crypt

**nobodyさん** · 04/11/03 17:17:55

>>506
いやそれは分かるんですがcryptの元の文字列をどうしてるのか知りたいのです。

**nobodyさん** · 04/11/03 17:24:01

>>507
確かホスト名と日付だったとおもう

**nobodyさん** · 04/11/03 18:31:44

>>500
なるほど、4年に一度狂う位なら問題なさそうなので、unix timeにして-9時間に
しようかと思います。

標準ライブラリは、導入されていなかったり、過去のバージョンであるかわからない
とのことなのでやっぱり使わないほうが無難な気がするので使わない方向でいきます。

>>503
なぜ、人間的日付かというと、その時間になったら掲示板に投稿できなくなるという
改造を自分でして、読みやすいから0411031700みたいな形で設定ファイルに保存
するという形をとったからです。
ここから間違いかもしれませんが…unix timeで保存した方が良かったのかもしれませんね。
#やっぱり見やすいからそうしました。

**nobodyさん** · 04/11/03 19:20:15

>>508
それだけだと、総当りでIPアドレス算出できるから、日ごとに更新される乱数が使われてる。

**nobodyさん** · 04/11/03 19:27:43

>>505
ここを探してみそ。
http://age.s22.xrea.com/talk2ch/

# 正しいID算出方法かどうかの保障はないけど。

>>504
見つけたら是非とも報告よろしくー。

**505** · 04/11/03 21:07:28

>>511
やりたいことができました。
本当にありがとうございました。

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

トリップの作り方はわかったのですが、
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↓ここのIDはどうやって作るんでしょうか？
356 ：Now_loading...774KB ：04/11/03 21:01:50 ID:j7+5/dK/
誰かよろしくお願いします。

**nobodyさん** · 04/11/03 22:19:10

>>513
>>511のリンク先読めねーの？

**nobodyさん** · 04/11/04 00:33:21

配列の数を吐き出す奴ない？length(@xx)とかやってもだめだった。

**nobodyさん** · 04/11/04 00:43:00

>>515
スカラーコンテクストなら@xxは配列の要素数になる。
わからなければscalar(@xx)としとけば確実。

**nobodyさん** · 04/11/04 00:44:14

>>515
$#xx+1
またはscalar

**nobodyさん** · 04/11/04 00:56:38

>>517
$#xxは$[変えるとそれにつれて変わるので(要素数-1)として
使うのは危険だと習った。

$[ = 1;
@xx = (1,2);
print $#xx+1;

$[をいじったスクリプトなんて書いたことないけどね。

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

scalarでいいじゃん

**515** · 04/11/04 01:27:14

みんなありが㌧

**515** · 04/11/04 03:06:36

sub内だけで使用する変数ってlocal($hensuu)って宣言するんだっけ？

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

**nobodyさん** · 04/11/04 03:51:59

>>521
調べる気ないな・・・

**nobodyさん** · 04/11/04 11:55:35

特定のページからの来訪の場合のみ、
処理させたいんですが、この場合環境変数とif文使えばいいんでしょうか？

**524** · 04/11/04 11:56:51

あ、これだとノートンとか入れてる人には無効になってしまいますね。

**nobodyさん** · 04/11/04 12:48:50

あるプログラムからpostでID/PASSを送るプログラム作ってるんだけど、
ブラウザに丸見えになりますよね？
で、一応暗号化はしたんですけど、例えばネットカフェに
データが残ってて、解析されたら終わりってことですよね・・・
う～んどうすればいいものか。
他のスクリプトはどうやっているんでしょ？

**nobodyさん** · 04/11/04 12:54:01

<form action="$url">
<input type="text" name="url" value="">
</form>
上記のようにアクション先にその場で入力された
URLを指定することってできるでしょうか？

**nobodyさん** · 04/11/04 13:30:32

>>527
Javascript使ってしか無理だと思うけど。

**nobodyさん** · 04/11/04 13:31:47

>>527
じゃばすく

**527** · 04/11/04 13:40:32

javascriptを使用しない場合は不可能でしょうか？

**527** · 04/11/04 13:41:16

perlを使った方法はないでしょうか？

**526** · 04/11/04 13:52:12

POSTとGET以外に変数を別のスクリプトに渡す方法ってあるでしょうか？

**nobodyさん** · 04/11/04 13:53:10

>>531
もう少しWebの仕組みを（略

**nobodyさん** · 04/11/04 14:45:41

できないこともないけど、スマートじゃないな

**nobodyさん** · 04/11/04 15:18:06

>>534
教えてくださいませ

**nobodyさん** · 04/11/04 15:34:22

>>532
「変数を」別のスクリプトに渡す
ということは、foo.cgi->Browser->bar.cgiの過程で
foo.cgiが出力した値をbar.cgiに渡したいということか？

**526** · 04/11/04 15:46:07

>>536
はい、そのとおりです。