Perl コーディング初心者質問コーナー Part36
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/07/14 13:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0244nobodyさん
04/07/28 06:17ID:???ここで聞くのは筋違い。
じゃなければ金出してプロに頼め。
0247nobodyさん
04/07/28 18:30ID:+xurfTPEそのCGIにアクセスがあったときに、
そのフォルダ内のHTMLファイルを返すにはどうしたらいいのでしょうか？
ググろうにも・・・どうキーワードを打ち込んでいいのか分からないのでここへ来ました。
# 今はprintでJavaScriptを含むHTMLを出力して、
# そのJavaScriptで目的のHTMLファイルを読み込ませているのですが、
# どうも・・・
0251nobodyさん
04/07/28 18:47ID:???ここ書込んだときに「しばらくおまちください」みたいなページ出たよな？
それが答えの１つだ。
あとは。。。ロケーションヘッダでぐぐれ
0253nobodyさん
04/07/28 19:23ID:H19oR7ELそこでcronを使って実現しようとしているのですがうまくいきません。
■動かしたいファイル：xxx.cgi
（4行目で require 'abcd.pl'; を記述してます）
■実行した手順
telnetでログイン
↓
crontab -e
↓
0-59/10 * * * * /home/www/●●●/public_html/xxx.cgi
↓
:x で終了
すると、line 4. （実行しているファイルの４行目）がエラーだと
いう記述のメールは届いてしまいます。
メールの原文は下記の通りです。
Can't locate ./abcd.pl
in @INC (@INC contains: /usr/local/lib/perl5/site_perl/5.005/i386-freebsd
/usr/local/lib/perl5/site_perl/5.005 . /usr/libdata/perl/5.00503/mach
/usr/libdata/perl/5.00503)
at /home/www/●●●/public_html/xxx.cgi line 4.
上記の通りなのですが、
うまく実行させるにあたりご教授願えればと思います。
0254247
04/07/28 20:05ID:???>>248
ごめんなさい。
>>249-250
それでググってみます。
>>251
しばらくお待ちくださいから飛ぶのはmetaタグのやつですよね。
JavaScriptでもmetaタグでも、どっちにしてもページを介さなければならないのが
ちょっと・・・
「ロケーションヘッダ」でもググってみます。
0256nobodyさん
04/07/28 20:10ID:???0259nobodyさん
04/07/29 07:52ID:Y1hnbGEZWhileの前でもう一度ファイルを開いたら
なんとか動きました。これでお客さんになんとか見せれそうです。
ありがとうございました
0260nobodyさん
04/07/29 09:03ID:???通販サイトの注文CGIをPERLで作っていて疑問。オブジェクト指向で書き上げたいんだけど、
とりあえずEcomという名前のモジュールを作って、それのコンストラクタで単価、商品名等の基本部分を
設定。Ecomのコンストラクタが返すオブジェクトの初期プロパティに商品名とかのハッシュリファレンスを持たせる。
で、疑問なのはこのオブジェクトは当然モジュールEcomのメソッドを全て使用できるわけだけど
一体この場合のメソッドって一体何？
クラスにおけるメソッドの役割みたいなものがはっきりしない（理解できない）
っていうかどういう意味合いで使えばいいのかというか；ちょっと例を出してみる。
１．コンストラクタが返すオブジェクトの強化、改造のため
２．コンストラクタが返すオブジェクトのプロパティを参照して何らかの処理をして、呼び出し元に値を返す。
３．？思いつかない
未完成であるオブジェクトを完成させるのがクラスのメソッドなのか？みたいにも思うけど、
イマイチ。どう捉えれば一番すんなりいくのかな？
0261nobodyさん
04/07/29 09:44ID:???プログラミング言語を使ってソフトウェアの設計図にあたるソースコードを作成すること。
「プログラミング」とほぼ同義だが、仕様書やフローチャートなど抽象的な設計文書の内容を、
プログラミング言語を使って具体的なコードに変換していく、という意味合いが強い。
（e-Wordsより）
0262nobodyさん
04/07/29 14:11ID:???http://www5a.biglobe.ne.jp/~n_rieko/perl/10.htm
0263nobodyさん
04/07/29 14:34ID:???http://perl.infoware.ne.jp/documents/perlboot.ja.html
http://perldoc.jp/docs/perl/5.8.0/perltoot.pod
http://perldoc.jp/docs/perl/5.8.0/perltooc.pod
http://www.melma.com/mag/85/m00014785/a00000001.html
あと駱駝と黒豹と Effective Perl 。
0265nobodyさん
04/07/29 17:55ID:???Perl の配布パッケージに含まれている公式な説明書。＞ perldoc
和訳は駱駝本がそうであるとも言えるし、perldoc.jp のように有志の
手による部分訳もある。
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｣に変換する、といった処理は可能でしょうか?
■ このスレッドは過去ログ倉庫に格納されています