Perl コーディング初心者質問コーナー Part36
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/07/14 13:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0266522
04/07/29 19:47ID:???0268nobodyさん
04/07/29 19:57ID:???>>266
>>6を1行ずつ声に出して三唱。
＿|￣|○
0271nobodyさん
04/07/29 21:31ID:???0272nobodyさん
04/07/30 12:42ID:As0li0gB[0]から順に数字が入っている事が前提でかまいませんので。
0274nobodyさん
04/07/30 15:59ID:???Thx.ありがとう。
0275nobodyさん
04/07/31 00:34ID:k0R22EX12個以上配列の中に要素としてある数字を、
配列として読み込ませるにはどうすればいいですか？
具体的に言うと、
@array = (0,2,3,2,0,4,1);
こういう配列から
@req = (0,2);
こんな配列が作りたいんですけど・・・
0276nobodyさん
04/07/31 01:02ID:???$hash{$_}++;
}
for (keys %hash){
$hash{$_} > 1 and push(@req, $_);
}
0277275
04/07/31 01:08ID:k0R22EX1Thxです！
0278nobodyさん
04/07/31 01:10ID:???0279nobodyさん
04/07/31 03:22ID:???push(@req,$_) if $hash{$_} > 1;
の方がいいと思った。
0280nobodyさん
04/07/31 04:52ID:???foreach (@array) {
push @req, $_ if ++$hash{$_} == 2;
}
とループひとつで済ませるかな。
0281nobodyさん
04/07/31 08:53ID:???==2だと「要素が二個だったら」になるぞ。
0282nobodyさん
04/07/31 09:47ID:???@arrayに2回以上出現する要素を@reqにひとつずつ
入れるのだから、==でいいはず。>=2だと
@array=(2,2,2)のときに@req=(2,2)になっちゃう。
0283nobodyさん
04/07/31 11:26ID:JonE4G7Jperlを勉強しようと思いますが、
主にcpanを使ったwebプログラミングを作っていきたいと思いますが、
何をどこからやれればよいか途方に暮れています。＿|￣|○
参考になるサイトや本を探しても全然勉強にならない。
※ある程度知っている人向けが多い･･･＿|￣|○
猿でもわかるcpanやcpanを使ってのperlやcgiについて
参考になるサイトや書籍をご紹介いただければ幸いです。
お礼はアフィリエイトリンクを踏んで本を買います。
そしたら、利益供与(？)いたします。
0284nobodyさん
04/07/31 14:49ID:RsJc0bwQPerlやppm等のコマンドを打つと、
'perl' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。
と表示されます。
何度か再インストールしても、Perlフォルダを消してみても同じでした。
どなたか解決策教えていただけませんか？
0285nobodyさん
04/07/31 14:53ID:???0286nobodyさん
04/07/31 15:04ID:???pathって打ってみて、表示されたリスト内にperl.exeのフォルダがなければパスが通ってない。
設定はシステム→詳細設定→環境変数から。pathを選んで好きな位置にフォルダを追加する。
（他のフォルダとは ; で区切る）
0287nobodyさん
04/07/31 15:25ID:???cpan、cpan言ってないでまずはperl自体を勉強汁。そうすれば、cpanのことも自ずと分かってくる。
ちなみに、webにあるperl講座とかは殆どが始めてやる香具師用だ。
それがちゃんと探してから言った言葉なら、冗談抜きで理解力無いんだと思うぞ。
perlの事がそこそこ分かってきて、cpanのライブラリも利用しようということになったら下のサイトが大いに役に立つだろう。
http://www.cpan.jp/
0288nobodyさん
04/07/31 15:28ID:RsJc0bwQpathと打つと、
PATH=C:\WINDOWS\system32;"%path%;C:\Perl\bin;C:\Perl\bin\;C:\WINDOWS;C:\WINDOWS\
system32\WBEM;
と表示されます。
perl.exeはC:\Perl\binに入っていたので、大丈夫だと思うのですが…。
0289nobodyさん
04/07/31 16:16ID:???0290nobodyさん
04/07/31 18:24ID:???おもいっきりおかしいとこあるじゃん！
0291nobodyさん
04/07/31 19:50ID:???何をどうやったらそんなものが紛れ込むんだろう
0292nobodyさん
04/07/31 22:49ID:JonE4G7J㌧クス。勉強汁よ･･･
0293nobodyさん
04/08/01 02:50ID:???忘れてたんですが、ちょっと思い出して作ってみたんですが、どうでしょう。
Subjectは適当に付けて、Question&Answerはほどよくｺﾋﾟﾍﾟするといいと思います。
http://xxxyz.zive.net/~the2/mod-perl/thefaq/faq.cgi
0295nobodyさん
04/08/01 07:05ID:???画像のURLがあった場合、その画像を拾ってきてサーバに保存する機能を付けたのですが、
画像のあるサーバが落ちている場合などは
connectがエラーを返すまでに時間がかかってしまいます。
connectがタイムアウトする時間を設定することはできないのでしょうか？
Windows上のサーバでCGIを動かすのでalarmが使えずに困っています。
0296nobodyさん
04/08/01 08:00ID:???0297295
04/08/01 08:47ID:???どういう画像が貼られるかわからないのでなんとも・・・
アプロダも似たようなものだと思うんですがどうなんでしょうね
0298nobodyさん
04/08/01 08:53ID:???0299295
04/08/01 09:43ID:???0300nobodyさん
04/08/01 11:30ID:???普通は timeout 設定できるやろ
君がどういうライブラリ/クラス/関数使ってるかわからんのでやりかたはなんとも言えんが
0302nobodyさん
04/08/01 12:25ID:???0303nobodyさん
04/08/01 13:19ID:???0304nobodyさん
04/08/01 14:40ID:???登録してから再編集する機能をつけました。 このシステム自体荒らしに弱いのが難点なので、バックアップ機能もつけておきます。
>>301
やっぱり、人の手で判別して人の手でちょっと編集するのが一番だと思うのですが。
暇だったら登録お願いします。
http://xxxyz.zive.net/~the2/mod-perl/thefaq/faq.cgi
0305nobodyさん
04/08/01 14:43ID:???アプロダも「自分で描いた絵」なら全く無問題。
他人の絵を無断でアプしたら著作権侵害。
他人がやっているから自分もいいと考えるのはただの自己厨。
そういうシステムを作ろうってなら、まずは著作権を勉強しろ。
0306nobodyさん
04/08/02 05:33ID:???push @req, $_ if ++$hash{$_} == 2;
}
++$hash{$_} == 2 ここの部分の意味教えてください・・・
0307nobodyさん
04/08/02 05:50ID:???hash : http://www5a.biglobe.ne.jp/~n_rieko/perl/4.htm
++ : http://www5a.biglobe.ne.jp/~n_rieko/perl/5.htm#5-1
== : http://www5a.biglobe.ne.jp/~n_rieko/perl/5.htm#5-4
$_ : http://www5a.biglobe.ne.jp/~n_rieko/perl/6.htm#6-4
0309nobodyさん
04/08/02 13:08ID:???$lib = new LIB;
とやってlib.plにpackage LIB;
とやって、
print "Content-type: text/html\n\n";
とやってもエラーがでます。
「require 'lib.pl';」
「$lib = new LIB;」
この2つの行を消したらエラーは出ずに表示されるんですが、
なんでエラーがでるのでしょうか？
0310nobodyさん
04/08/02 13:23ID:???new サブルーチンあるの？
0312nobodyさん
04/08/02 20:51ID:???0313nobodyさん
04/08/03 08:57ID:bp7Se8/yスクリプトを改造してる形になるんですが、リンクをクリックしたら
ある変数に値を代入（ここでは$#aaaに1を入れたい）するというのは
どうすればいいんでしょうか？そのあとにIFを設置して条件分岐の材料に
したいのですが、下の通りにやっても処理されてくれません。元の文はこれです。
$body .= qq(<A $href="$thisfile?$reload&sch=%5B$tnm%5D">);
で、これを
$body .= qq(<A $href="$thisfile?$reload&sch=%5B$tnm%5D" $#aaa=1>); とか、
$body .= qq(<A $href="$thisfile?$reload&sch=%5B$tnm%5D&$#aaa=1">); とかにしても
うまく動作しないんです。こういう処理って無理なんでしょうか？
0315nobodyさん
04/08/03 20:27ID:???記述方法をお聞きしたいと思います。
例えば、Perlで作ったフォームに「Shutdown」というボタンがあったとして
このボタンを押すと「shutdown -h now」というコマンドがサーバに
反映されてサーバ機が止まるような。
こういうことって出来るのでしょうか？
0316nobodyさん
04/08/03 20:30ID:???例のshutdownの実行には、root権限が必要そうだが、コマンドを実行するだけなら、exec(), system(), open(), ``などの方法がある
0319nobodyさん
04/08/03 23:10ID:???0320nobodyさん
04/08/03 23:49ID:???思ったんだけど、俺が神経質すぎるだけなのかなあ。
フォームのボタンで/sbin/以下をごにょごにょするって話にしては
なんだか呆気なく感じたんだけど、気にしすぎ？
# スレ違いでごめんなさい。
0322nobodyさん
04/08/04 00:04ID:???0324320
04/08/04 00:17ID:???うまく言えないんだけど、
入門書にある「print `pwd`; してみよう」レベルのことを尋ねてる人が、
「ブラウザから鯖を halt させたい」ってところに引っかかったのかな。
最近、セキュリティがアマアマの自宅鯖を見すぎてるだけかも。
0325nobodyさん
04/08/04 00:43ID:???共有鯖ならばシャットダウンに必要な権限を得られないから問題無い。
シャットダウンに必要な権限が得られる個人鯖ならどうなろうと知ったこっちゃないので、やっぱり問題無い。
0326320
04/08/04 00:50ID:???わかりやすい意見をありがとうございます。
2行めを読んで激しくスッキリしました。
コーディングと関係ない話で引っ張って失礼しました。
0327nobodyさん
04/08/04 01:14ID:???0329nobodyさん
04/08/05 06:51ID:A93W0UINみんなはちゃんと、アクセスメソッド作ってやってる？
今作ってるやつはオブジェクトのメンバ変数（プロパティ）が結構な数あるからいちいち個々に対するアクセスメソッドを
作るのは冗長な気がするんだよね。中にはハッシュとかもあるし；
シンボリックリファレンスありにすれば1個で済むような気がするけど、知恵を貸してください。
0330329
04/08/05 07:03ID:A93W0UINsub new{
my $self = shift;
my %form;
foreach ( split /&/,shift ) {
( my $a , my $b ) = split /=/;
$b =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
$form{$a} = $b;
}
bless {
form => %form
},$self;
}
ちょっとプロパティを減らしたけど、とりあえずこんな感じ。
それでmainの方で
my $obj = Testclass->new($ENV{'QUERY_STRING'})
としてから随時HTML出力途中に
$obj->{form}{hoge}
として参照したいけど、これをアクセスメソッドを介してのものに変えたい。
0331nobodyさん
04/08/05 08:28ID:???http://perldoc.com/perl5.8.4/pod/perlsub.html#Autoloading
http://perldoc.com/perl5.8.4/pod/perltoot.html#AUTOLOAD--Proxy-Methods
0332nobodyさん
04/08/05 08:54ID:o7gPPImy教えて頂けないでしょうか？phpのarray_change_key_case
http://php.s3.to/man/function.array-change-key-case.html
のようなものを探しております。
0334329
04/08/05 09:01ID:A93W0UIN0335nobodyさん
04/08/05 09:08ID:???@_[0]=\@a;
この@_[0]をデリファレンスするにはどうｓればいいですか？
@@_[0]
@$_[0]
とかではできませんでした。
それと
@$#_[0]
みたいなことをして、配列の最後の番号を知りたいんですが、どうすればいいですか？
0336nobodyさん
04/08/05 09:38ID:???@_[0]=\@a;は正しくない。正しくは$_[0]=\@a;
デリファする時は@{$_[0]}のように{ }で囲む。
要素見るときは$_[0][N]、最大添字は$#{$_[0]}。
0337nobodyさん
04/08/05 09:43ID:???>>6
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlsub.html#Autoloading
http://perldoc.jp/docs/perl/5.8.0/perltoot.pod
0338nobodyさん
04/08/05 10:20ID:???日本語のマニュアルしか受け付けないって人は止めた方がいいと思うよ
0339329
04/08/05 10:54ID:A93W0UINありがと。でもアクセスメソッドとのつながりがイマイチわからん。
下のはアクセスメソッドのこと書いてるけど、冗長だよね。
ひとつのアクセスメソッドでどんなコンストラクタにでも使える、どれだけオブジェクトデータが複数でも
使えるやつにしたいんだけど、ゆっくり自分で考えるよ。ありがとう。
>>338
ほんと日本人には不利だよね。というか英語圏の人間はそれだけでずいぶん楽なんだろうな。
0340３３５
04/08/05 11:02ID:???ありがとうございました！できました＾＾
0341nobodyさん
04/08/05 11:46ID:???>ひとつのアクセスメソッドでどんなコンストラクタにでも使える、どれだけオブジェクトデータが複数でも
>使えるやつにしたい
無理だろ。どんなクラスでもこのアクセスメソッドで完全にokなんてのがあったら、有名になってるって。
できたら金やるよ
0342nobodyさん
04/08/05 11:47ID:IwD+3Zuujcode.plで受け取ったデータを｢EUC｣に変換した後、
EUC特有の｢全角英数→半角英数｣の処理を施し、
その後再び、｢SJIS｣に変換する、といった処理は可能でしょうか?
0344nobodyさん
04/08/05 12:32ID:???orz =3
0345329
04/08/05 12:41ID:A93W0UINどんなコンストラクタでも使える、どんなオブジェクトにも使えるアクセスメソッドってのは
さすがにまだだけど、とりあえずできたよ。
呼び出しを
$obj->access([path1,path2,.....],代入したいならここに);
こんな感じにして。第一引数に例えば$obj->{form}{hoge1}の場合は
[form,hoge1]
みたいな無名配列のリファレンス渡しで一応カタグロブ以外は対応できた。
0346nobodyさん
04/08/05 13:16ID:???[email protected]
[email protected]
みたいな感じになっているファイルを開いて
[email protected],[email protected],[email protected],
こんな風にカンマで区切って、こいつを変数にするにはどうしたらいいのでしょうか。
エロイ人教えて...
0347332
04/08/05 13:38ID:o7gPPImy早！そしてありがとうございます!
こりゃ自分では答えが出ませんでした。
0348nobodyさん
04/08/05 14:06ID:???俺はエロクないから答えるべきでないかもしれんが、
とりあえずそのファイル名をhogeと仮定して。
open ( FH , "hoge.txt" );
$a = join ",",<FH>;
ってのはどうだ。
0349nobodyさん
04/08/05 14:40ID:???改行コードを取り除く必要があるなり
chomp(my @i = <FH>);
$mail = join(',', @i);
0350nobodyさん
04/08/05 15:05ID:???とかはどうだろう？
0353329
04/08/05 15:49ID:A93W0UINmy $value = $obj->access(path1=>hoge,path2=>hogeがハッシュ、配列のリファレンスならその続きをここに,value=>代入したい値);
突っ込んでくれるとどこを改良すればいいかのめぼしがつくからうれしい。
sub access{
my $self = shift;
my %atr = (path1 => undef,path2 => undef,value=>undef,@_);
if ( !($atr{path2}) ) {
if ( ref $self->{$atr{path1}} eq "SCALAR" ){
if ( $atr{value} ){${$self->{$atr{path1}}} = $atr{value};}
return ${$self->{$atr{path1}}};
} elsif ( ref $self->{$atr{path1}} eq "ARRAY" ){
if ( $atr{value} ){@{$self->{$atr{path1}}} = $atr{value};}
return @{$self->{$atr{path1}}};
} elsif ( ref $self->{$atr{path1}} eq "HASH" ){
if ( $atr{value} ){%{$self->{$atr{path1}}} = $atr{value};}
return %{$self->{$atr{path1}}};
} else {
if ( $atr{value} ){$self->{$atr{path1}} = $atr{value};}
return $self->{$atr{path1}};
}
} elsif ( !($atr{path3}) ) {
if ( $atr{value} ){$self->{$atr{path1}}{$atr{path2}} = $atr{value};}
return $self->{total}{prtotal};
}}
0354nobodyさん
04/08/05 16:11ID:???サブルーチンを呼び出す時は、一度ヒアドキュメントを終了して、
&subrootin();
等として呼び出すしかないんでしょうか？少し面倒な感じなのでもし、もっといい方法がありましたら教えて下さい。
0356nobodyさん
04/08/05 17:05ID:???ヒアドキュメントにサブルーチンが返す文字列を埋め込みたいと
いう話なら
${\(&subrootin();)}
または
@{[&subrootin();]}
0357nobodyさん
04/08/05 17:28ID:???test
%s = subroutine(%s)
EOF
でもいいと思うし。
0358nobodyさん
04/08/05 17:29ID:???> printf <<EOF,$value, subroutine($value);
逆だ鬱。
printf <<EOF, subroutine($value),$value;
0359nobodyさん
04/08/05 19:46ID:???早速ありがとうございます！
>>356
ばっちりできました！
>>357-8
printfについて勉強が浅かったので、今解説サイトのprintfとsprintfのページみて少しは
わかってきましたが、>>357-8さんのコーディングがまだ理解できませんorz
難しいですね
0360354
04/08/05 20:06ID:???>>356さんの教えてくれた方法は、サブルーチンが返す値を出力するときのみなんですよね？
サブルーチンでprintしてる場合は何故か変なところに出力されてしまいました；
printが2重になってしまうのでやっぱり無理ですよね。
0361nobodyさん
04/08/05 20:18ID:???AUTOLOADは早くないと思う。
>>353
アクセッサーの自動生成なら。他 CPANに 同様のClass::モジュールが多数有
http://perldoc.jp/docs/modules/Class-Accessor-0.18/Accessor.pod
0363nobodyさん
04/08/05 21:08ID:???たかだがアクセスメソッドのために、モジュールを一個useするのって重くないか？
極力削りつつ、汎用的でいけてるプログラムを目指さなきゃ。
0364nobodyさん
04/08/05 21:38ID:???別の方法もあるが、一度ヒアドキュメントを終了して書く方が後々面倒じゃないので、
ヒアドキュメント閉じる方がいい方法だと思う。
0365361
04/08/05 22:41ID:???ごめん。実行速度の事だと勘違いしてました。
>>363
でも、頻繁に使われるものだから、何度も書き直すものではないよ。
似たようなコードが複数のファイルに散らばると保守が面倒になるし、
僕ならモジュール使う方を選ぶけど。
主張の違いは置いておいて、AUTOLOAD使うとしたらこんな感じかな。
sub AUTOLOAD {
# getter/setterを呼出時に自動定義
my ($self, $value) = @_;
return if $AUTOLOAD =~ /::DESTROY$/;
if ($AUTOLOAD =~ /::((get|set)_?(\w+))$/) {
if ($2 eq 'get') {
eval "sub $1 { my (\$self) = \@_; return \$self->{lc($3)} }";
return $self->{lc($3)};
}
if ($2 eq 'set' and defined $value) {
eval "sub $1 { my (\$self,\$val) = \@_; \$self->{lc($3)} = \$val }";
$self->{lc($3)} = $value;
}
}
}
書いてて思ったんだけど、>>353 のコード
配列とかハッシュはリファレンスを返せば充分じゃない?
■ このスレッドは過去ログ倉庫に格納されています