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

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

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

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

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

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

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

**nobodyさん** · 04/10/27 20:56:50

>>361
そういうライブラリはあればあったで便利かもしれんな。

**nobodyさん** · 04/10/27 21:59:06

package LWP::Open;

use base 'EXPORTER';
use LWP::Simple;
our @EXPORT = ('open');

sub open{

}
ここまで書いた後は頼んだ>>364

◆7CWqH7Oesg · 04/10/27 22:34:08

use LWP::Simple;
use subs qw(open);
*open= sub { get($_[0]); };
$url="http://www.hogehoge/";
$data= open($url);

**nobodyさん** · 04/10/28 01:47:21

たびたび申し訳ないが、ちょっと教えて下さい

ハッシュのリストを作ってはみたものの
どうやってサブルーチンから出せばいいのかわからなくなりました。

sub XXX{
…
push @{ HoA{key_name} }, "value1", "value2";
…
return (??????);
}

このような場合ってどうやってリターンすれば宜しいでしょうか？？

**nobodyさん** · 04/10/28 02:07:20

というか、リストのハッシュと言ったほうがよさそうだ。

**nobodyさん** · 04/10/28 08:40:21

>>365
先にサブルーチンへリファレンスを渡してからゴリゴリするのが常套かと。

**nobodyさん** · 04/10/28 08:42:07

push @{$HoA{key_name} }, "value1", "value2";

こう？

return \%Hoa;

で、

$refHoA->{key_name}->[0]

**nobodyさん** · 04/10/28 09:10:58

別にグローバルならrefをreturnしてもいいけど、こうじゃないの？
my %HoA;
&XXX(\%HoA);
print @{$HoA{'key_name'}};
exit;

sub XXX {
my $refHoA = $_[0];
push @{$$refHoA{'key_name'}}, "value1", "value2";
return(0);
}

**nobodyさん** · 04/10/28 09:56:08

>>369

そんなことしない
サブルーチンで局所化した変数でもリファレンスを返すと、スコープ外でも変数の内容は維持される。
なんか変な気もするが、そういうものらしい
なんでかはしらない（局所化してもスコープ外で実際に破棄されるわけではない？）
つーか、perlモジュールのコンストラクタは普通に局所化したハッシュをblessしてるし

**nobodyさん** · 04/10/28 09:56:09

はじめから無名ハッシュにしとけばいいような。

sub XXX {
my $HoA;

push @{$HoA->{key_name}}, "value1", "value2";

return $HoA;
}

**nobodyさん** · 04/10/28 14:04:58

>>370
my宣言した変数は内部に被参照カウンタを持っていて、
それが0にならない限りデータ領域は解放されないです。
サブからリファを返した場合、そのリファを保持する限り
領域も保持され、破棄すると領域も解放されるです。

**３６５** · 04/10/28 14:35:37

ありがとうございました。みなさま。
どれも有効でしたが、３６８氏の方法が一番マッチしました。
ありがとうございました。

**nobodyさん** · 04/10/29 18:08:56

変数名にハイフンは使っていいですか？
今ローカル環境がないのであまり無茶なテストをサーバでしたくないために質問しました。すみません。

アンダースコアは大丈夫なことは知っています。
ハイフンもハッシュのキーになら使えるということも知っています。（クォート必要ですが）

変数名にも使えるのでしょうか？
例）
$a-a = 1;
$aa- = 1;
$-aa = 1;

確か一番下はダメなはず。
宜しくお願いします。

**nobodyさん** · 04/10/29 18:14:21

ぐぐった
出てきた

>>374は腹を切って死ぬべきである

**374** · 04/10/29 18:25:42

>>375
>ぐぐった
>出てきた

だから？ぐぐるのもここで質問するのも同じだろ。
まぁ、ぐぐったら出てくるという回答だとしたら・・・

ありがとうございました。ハイフンは使えないようで。それでは失礼します。

**nobodyさん** · 04/10/29 18:28:19

>>376
うわすげームカツクこいつ

マジで死ね　首吊って今すぐ死ねや　糞が

**374** · 04/10/29 18:39:04

>>377
たかが２ちゃんでの出来事にいちいち本気になるなよ

**nobodyさん** · 04/10/29 18:45:37

>>374がむかつくという事実に変わりはない

**nobodyさん** · 04/10/29 18:46:02

>>378
ﾊｧ？それが関係あんのか？

更に胸糞悪ぃなてめぇは

**374** · 04/10/29 18:47:36

>>379-380
そもそも２ちゃんで本気になるお前らがおかしいだろ
ムキになるなよ

**nobodyさん** · 04/10/29 18:50:58

>>381
いいから氏ね

**nobodyさん** · 04/10/29 18:51:58

態度が悪い>>374がムキになって暴れております

**nobodyさん** · 04/10/29 18:52:42

>>375 >>377>379-380>>382
ttp://perldoc.com/perl5.8.4/pod/perlstyle.html
最後の項目を声に出して読みましょう。

>>376
> ぐぐるのもここで質問するのも同じだろ。
false

**374** · 04/10/29 18:54:15

>>382
お前が死んだらいいんじゃないか？
自分のために人が何かしてくれるとでも思ってるの？

いい加減自立しろよ、な。
嫌いなやつは「氏ね」なんて理屈は小学生レベルだぞ。
もうすこし大人になったほうがいいんじゃないか、な。

**nobodyさん** · 04/10/29 18:55:51

>>384
英語厨は消えろ

**nobodyさん** · 04/10/29 18:56:36

この程度のもんぐらいならテストで作って動かしゃわかるってこった。

**nobodyさん** · 04/10/29 19:05:53

$abc=1234
の最後の文字列を消すようにはどのようにすればいいでしょうか？
この場合は、$abc=123にしたいです。

**nobodyさん** · 04/10/29 19:37:50

chop

**nobodyさん** · 04/10/29 20:26:27

$abc = int($abc/10);

**nobodyさん** · 04/10/29 20:45:30

すいません、初心者なんですが教えてください。
登録や削除のできるＣＧＩを作っています。
一つのフォームから、いくつかのsubmitを使って、それぞれ処理を変えたいのですが、
どのようにすればよいでしょうか？
なんとなく、nameを使ったり、受ける側でif文を書けばいいのかな？という感じなのですが、
どうやって、if文でsubmitのnameを受けたり、分岐したりすれば良いのか分からない状態
です。
どうぞ、よろしくお願いします。

**nobodyさん** · 04/10/29 20:52:34

>>391
同じ name にして value を見る

**nobodyさん** · 04/10/29 20:57:57

>>392

**nobodyさん** · 04/10/29 20:59:11

>>392
すいません、その書き方が分からないので・・・
if文になるんでしょうか？
突然言い渡された仕事で、何が何だかさっぱりな状況なのでお願いします・・・。

連投になってしまい、すいません

**nobodyさん** · 04/10/29 21:25:48

------html-------
<INPUT name=text1>
<INPUT name=text2>
<INPUT name=text3>
<INPUT name=text4>
<INPUT type=submit value="ここ押せ" name=hoge>
-----------------

-------cgi--------
#!/usr/bin/perl
require 'cgi-lib.pl';
require 'jcode.pl';

&ReadParse(*in);
$txt1 = "$in{'text1'}";
$txt2 = "$in{'text2'}";
$txt3 = "$in{'text3'}";
$txt4 = "$in{'text4'}";
&jcode'convert(*txt1,'sjis');
&jcode'convert(*txt2,'sjis');
&jcode'convert(*txt4,'sjis');

処理
---------
こんなもんだろ。

**nobodyさん** · 04/10/29 21:52:26

>>394
まずはHTMLから勉強して濃いよアフォ
>>395
アフォに何を言っても無駄だからやめとけ

**nobodyさん** · 04/10/29 22:00:17

すいません、perlでテキストファイルを白紙に戻す方法ってあるんでしょうか？
なんかどこをみても載ってない気がする。

◆7CWqH7Oesg · 04/10/29 22:11:15

truncate

**nobodyさん** · 04/10/29 22:58:21

perlからhtmlファイルを「open」で呼び出した場合、呼び出し元はwebサーバですか？それともクライアント側ですか？

**nobodyさん** · 04/10/29 23:26:28

>>374
まあ裸では使えないが${'...'}のかたちにすりゃほとんど
なんでもアリ。

そうまでして使いたいものかどうかはギモンだがな。

${'a-a'} = 1;
${'aa-'} = 1;
${'-aa'} = 1;

**nobodyさん** · 04/10/30 00:29:39

>>397
print OUT '白紙';

**nobodyさん** · 04/10/30 00:47:08

print if(m/test/) while(<DATA>);

こんなことはできますか？

**nobodyさん** · 04/10/30 00:48:20

やってみれば？

**nobodyさん** · 04/10/30 01:10:10

403さんの言われた通りにやってみましたができませんでした。
どこがいけないのでしょうか。

**nobodyさん** · 04/10/30 01:17:43

>>404
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlsyn.html#Simple_statements

**nobodyさん** · 04/10/30 01:44:29

>>405
ありがとうございます。
読んだ上で色々やってみましたが、このような書き方は仕様上不可能のようですね。
お手数おかけしました。

**nobodyさん** · 04/10/30 03:37:08

push(array, value)　って value 省略したときに $_ 使ってくれないみたいなんですけど、
これって常識ですか？

省略したときに $_ を使うようになる条件て何かあるんですか？

**nobodyさん** · 04/10/30 04:46:55

>>407　常識、ない

**407** · 04/10/30 05:22:56

>>408
がびーん！

ありがとうございます

**nobodyさん** · 04/10/30 10:23:50

短いスクリプトではない場合あんまり暗黙の$_を使わない方がいいと思うよ

**nobodyさん** · 04/10/30 10:59:58

教えてください。

文字列ソートを
@data = sort{(split(/\,/,$b))[2] cmp (split(/\,/,$a))[2]} @data;

としてたものを、文字の数でソートしたいと思い、
@data = sort{(split(/\,/,length$b))[2] <=> (split(/\,/,length$a))[2]} @data;

とやってみましたが、ソートしてくれません。
lengthの位置を色々変えてみましたが、ソートしないかエラーかでした。
どうすれば（この場合）[2]番目の文字数でソートできるのでしょうか。

**nobodyさん** · 04/10/30 11:13:52

ファイルアップロードについて教えてください。
環境 -> Linux + Perl5 + cgi-lib.pl

kentさんのjoyfulとか、ほかモジュールを使わないでアップロード機能を
装備しているスクリプトを参考に下記のようにやってみたのですが、
まったくダメダメクンのようです。

ユーザーのファイルを受け取るには、これ以外何をやればよいでしょうか？
どうか教えてください。

$upfile = $in{'img'};
if ($upfile) {
$upfile =~ s/\\/\//g;
$img_file = basename $upfile;
open OUT,">$img_file";
binmode OUT;
binmode STDOUT;
print OUT $in{'img'};
close OUT;
chmod (0666,$img_file);

**nobodyさん** · 04/10/30 11:25:33

>>411
http://perldoc.com/perl5.8.4/pod/func/length.html
http://perldoc.com/perl5.8.4/pod/func/split.html
http://perldoc.com/perl5.8.4/pod/func/sort.html
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq4.html#How_do_I_sort_an_array_by_anyth

>>412
http://cgi-lib.berkeley.edu/

**nobodyさん** · 04/10/30 11:27:57

>>411
@data = sort{length((split(/\,/,$b))[2]) <=> length((split(/\,/,$a))[2])} @data;

>>412
デリミタの処理が一切見当たらない。
enctype="multipart/form-data"でPOSTしたらどんなデータが送られてくるのか？を確認するよろし。

**412** · 04/10/30 11:39:40

>>413
参考にしてみます。

>>414
>enctype="multipart/form-data"でPOSTしたらどんなデータが送られてくるのか
File::Basenameで取得したファイル名の中に、ローカルパスが格納されています。
001.jpg -------------------------------------------------------------
C:\Documents and Settings\admin\My Documents\My Pictures\任天堂\001.jpg
---------------------------------------------------------------------
てことは、$in{'img'}をopen DATA,"$in{'img'}";する必要があるってことです？

**411** · 04/10/30 12:03:05

>>413 >>414
おぉ、できました。
ありがとうございます！

**412** · 04/10/30 14:08:03

やはり、よくわからなかったので、おとなしくCGI.pmを使用することにしました。
みなさまありがとうございました。

**nobodyさん** · 04/10/30 14:28:37

ここにはファイルのアップを1から書ける人はいないから、
諦めた方がいいね

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

10文字以上20文字以内で、
英数字が使えて、最初の文字列にのみ数字を禁止するような
正規表現はどのようにすればいいでしょうか？

正規表現難しすぎる・・・。本読んでも頭がこんがら・・・
分かりやすいサイトあったら教えてください

**nobodyさん** · 04/10/30 15:27:19

>>419
http://pc5.2ch.net/test/read.cgi/php/1069245758/ に入門しる

**nobodyさん** · 04/10/30 17:16:32

>>412
車輪の再発明ではなく勉強のためなら↓を見るよろし。シンプルだ。
ttp://tohoho.wakusei.ne.jp/cgi/wwwupl2.txt

実用化するにはもう少し手を加えたほうがよいが。

**nobodyさん** · 04/10/30 20:00:53

WinXP + Apache + Perl5 cgiです。
cgiの再起呼び出しは可能なのでしょうか。
cgi上のフォームで、cgiの一部を書き変えたいのですが。

**nobodyさん** · 04/10/30 20:14:58

>>422
そういうのは再帰呼び出しとは言わないような。。。
できるからやってみ。つーかやってみてから書きなはれ。

**nobodyさん** · 04/10/30 22:11:53

>>422
そのレベルで自己改変コードは危険すぎる。
つーか、99.999%書換え不要。

**nobodyさん** · 04/10/30 23:39:13

フォームからsubmitボタンが1回クリックされるごとに
1 -> 2 -> 3
と変更していく変数$aを作りたいのですが、
どうすればいいでしょうか？
大まかな方法は何となく分かるんですが、
ロック制御などについてよく分かりません。

**nobodyさん** · 04/10/30 23:39:44

あｇ

**nobodyさん** · 04/10/30 23:58:31

ｶｳﾝﾀじゃいけないのか?

**nobodyさん** · 04/10/31 06:04:57

s/(?:abc|bbc)/c/;
と
s/abc/c/;
s/bbc/c/;
とではどっちが速いですか？

**nobodyさん** · 04/10/31 06:43:53

<input type="file" name="file">
として、
$query->param('File')
で受け取った値を、同じ（type="file"）として別のCGIなどに
渡す事はできないのでしょうか？

調べてみたところ、（type="file"）はセキュリティのため、
初期値を設定したりスクリプトで値を操作することが出来ないとされており、
同じ内容を受け渡す事ができず、困っております。

よろしければ、おしえてください。

**nobodyさん** · 04/10/31 07:29:15

>>428
自分で試してみようとは思わないのですか？

**nobodyさん** · 04/10/31 07:46:09

動作が異なるものを比べても意味無いじゃん。

**nobodyさん** · 04/10/31 08:21:16

処理A,B,C,Dがあって、それぞれに対応する変数$a,$b,$c,$d(動作そのものではなく）があります。
これらの対応する変数の大きい順番に処理A,B,C,Dを行いたいのですがどうすれば良いでしょうか？

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

>>429
出来ないように作られているので出来ない。
出来るようにすると、お前以外の世界中の人が困るようになるので、出来るようには出来ない。

**nobodyさん** · 04/10/31 08:34:02

>>429
さんざんガイシュツだがLWP。HTTP::Request::Commonのマニュアルに
例つきで説明されてるのでよく読め。

**nobodyさん** · 04/10/31 12:18:51

KENT-WEBにあるWeb ProtectというCGIを設置したんですが、
パスワード認証画面が携帯電話(au W11H)で表示することができないです

<tr>
<td class="ent2">
<table border=0 cellpadding=0 cellspacing=5 width="100%">
<tr>
<td colspan=2>$title</td>
</tr>
<tr>
<td>ユーザー名 :</td>
<td><input type=text name=id size=15 value="$cid"></td>
</tr>
<tr>
<td>パスワード :</td>
<td><input type=password name=pw size=15 value="$cpw"></td>
</tr>
<tr>
<td></td>
<td><input type=checkbox name=cook value="1" $checked>
パスワードを記憶する</td>
</tr>
<tr>
<td colspan=2 align=right height=50 valign=bottom>
<input type=submit value=" OK ">
<input type=reset value="キャンセル"></td>
</tr>
</table>

行数足りなくて最後の方ちょっと省略しましたが
これを携帯で表示させるにはどうすればいいのでしょうか？

**nobodyさん** · 04/10/31 14:15:22

>436
丸投げ改造スレへドゾー。

**nobodyさん** · 04/10/31 14:18:58

Aサーバに設置したスクリプトから、
lsコマンド使って、Bサーバのあるディレクトリの一覧を取得するようなことは
可能でしょうか？

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

という手もある