Perl コーディング初心者質問コーナー Part36
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/07/14 13:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
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 のコード
配列とかハッシュはリファレンスを返せば充分じゃない?
0367nobodyさん
04/08/06 00:59ID:???print <<EOF,&subhoge('hoge'),<<EOF;
hogehoge
EOF
hogehogehoge
EOF
0368nobodyさん
04/08/06 01:16ID:Qwf6u7BBperldoc -f pack
を読むと template の S, I, L のバイトオーダは機種依存とありますが
N, V の方はどうなんでしょうか？
N は big-endian, V は little-endian と機種に依存しないような体で書かれているんですが。
0369nobodyさん
04/08/06 01:27ID:???一つずつの配列を出力する時にhogehage.gif hagehoge.gif honehone.gif...と出力
させたいのですが、楽な方法はありますかね？
bashの
for $i in *.png
do;echo ${i%.png}.gif;done;
と同じように考えていただければ良いのですが…。
0372368
04/08/06 01:58ID:???間抜け晒してお恥ずかしい
0373329
04/08/06 05:44ID:???>書いてて思ったんだけど、>>353 のコード
>配列とかハッシュはリファレンスを返せば充分じゃない?
漏れ的にはオブジェクトをとても親切な人として想定してるので、
リファレンスのまま返すのはちょっと無愛想かなって；
0374nobodyさん
04/08/06 06:33ID:???foreach (/x=(\d+)/g) { $sum = $sum + $_; }
としたのですが、もっと綺麗とか高速とかな書き方はないでしょうか？
0376nobodyさん
04/08/06 07:03ID:???前にどこかでサブルーチン名にアンダースコアを含ませる時は何かの注意をするように
って書いてるサイトを読んだ。
うろ覚えでどこのサイトかもどんな注意かも忘れちゃってて、今ググテみたけどそんな注意らしきことは
どこにも見当たらない。サブルーチン名にアンダースコアを含んで、含まないときと異なる注意点ってあったっけ？
0377nobodyさん
04/08/06 08:45ID:???<q cite="http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlstyle.html">
単語を区切るためにアンダースコア (_)を使いましょう。これは、
一般的に言って $VarNamesLikeThis よりも $var_names_like_this の
ほうが、特に英語のネイティブスピーカーでない人にとっては、読む
のが簡単です。 これは VAR_NAMES_LIKE_THIS のような場合でも
有効である単純な 規則です。
<snip />
名前の先頭にアンダースコアを使うことで、その変数や関数がそれが
定義されているパッケージの外では使うべきでないということを表わす
ために使うことができます。
</q>
__LINE__ や __FILE__ といったリテラルトークンと同名のサブルーチン
は作るのも呼び出すのも難しい。
*__LINE__ = sub { 1 };
print &__LINE__;
0379376
04/08/06 09:04ID:???ありがとう！多分先頭がアンダスコアの変数、サブルチンはパッケージ外では使わない
っていうのを中途半端に覚えていたせいで、変に怖かったんだ；
0380nobodyさん
04/08/06 10:49ID:DHgT8QqI文字列 =~ //aa/
でいいの？ それとも/の前になんか必要？
0383nobodyさん
04/08/06 11:21ID:???エスケープをエスケープして↑じゃ駄目か？
0384nobodyさん
04/08/06 11:48ID:???bmpファイルから画像情報を抜き出そうとしています。
$hexdata = unpack("H*",$bindata)として
424d36e80300000000003604000028000000fe0200004c010000 (0x1A以降略
ここまで取得することができました。 ↑
矢印の「fe02」の部分がWidthで「766」に変換したいのですが、
どのように変換するのがスマートでしょうか？
hex(substr($hexdata,36,2))+hex(substr($hexdata,38,2))*256
で一応取得はできるのですが文字列として扱ってる時点から冗長過ぎる気がします。
0385nobodyさん
04/08/06 14:07ID:???unpackでv使え。
% perl -e '$s="\xfe\x02"; ($w)=unpack("v", $s); printf "%d\n", $w;'
766
bmpのファイルフォーマットは知らんので前後をどうべきかは
わからん。
■ このスレッドは過去ログ倉庫に格納されています