[表示 : 全て 最新50 1-99 101- 201- 301- 401- 2chのread.cgiへ]
Update time : 09/10 15:53 / Filesize : 104 KB / Number-of Response : 461
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

【Perl上級者コーナーPart01】



1 名前:nobodyさん [02/06/22 19:21 ID:V3u7Ppd0]
勃っちゃた

369 名前:nobodyさん [03/12/24 20:16 ID:sC5vpZJY]
>>367
お前ぶっ飛ばすぞ!!!
顔が見えないからっていい気になりやがって。


370 名前:nobodyさん mailto:sage [03/12/24 22:48 ID:???]
>>369
お前、上級者にむかってその態度はなんだ!!!
童貞のくせにいい気になりやがって。

371 名前:nobodyさん [03/12/25 22:51 ID:GW3KvJ+k]
>>370
童貞ではありません。


372 名前:nobodyさん mailto:sage [03/12/26 01:29 ID:???]
>>369
最初にいい気になってるのはどう見てもおまえなんだがな。
自分が質問者としてのルールを守っているかどうか、少しは考えたのか?

373 名前:nobodyさん [04/01/13 19:31 ID:hDqA/G+I]
『Perl コーディング初心者質問コーナー Part31 』でも質問したのですが、
分かる方がいらっしゃらないようなので、ここでもお願いします。もう誰もいない?


ファイルハンドラを変数で持つことは可能でしょうか?
my $p;
open($p, "test");
こんな感じで。
-----------------------------------------------
my $p="a"; としてからopenすると何故か動くのですが、今度は、use strict
の場合に、

#!/usr/bin/perl -w
use strict;
my $p="a";
open($p, "test");

こうすると、以下のように怒られます(実行ファイルは./aです)。
Can't use string ("a") as a symbol ref while "strict refs" in use at ./a line 4.

何故なんでしょうか?
(そもそもファイルハンドラの定義がよく分からないのですが。ポインタ?)

374 名前:hjg [04/01/13 20:01 ID:DzsVlZbM]
perldoc -q filehandle して

"How can I use a filehandle indirectly?"



375 名前:hjg [04/01/13 20:03 ID:DzsVlZbM]
perldoc Symbol も良い

376 名前:nobodyさん mailto:sage [04/01/13 20:22 ID:???]
>>373
わかる人がいないんじゃなく最近既出の質問
過去ログ嫁

377 名前:nobodyさん [04/01/13 20:30 ID:hDqA/G+I]
>>376
失礼しました。探してみます。



378 名前:hjg [04/01/13 21:55 ID:BCJlfFc6]
>>377
英語読めんか。
洲万買ったな。


379 名前:nobodyさん mailto:sage [04/01/16 01:28 ID:???]
みんなのPerlソースのコメントアウトレイアウト見てみたいかも。
どんなコメントを書けば見やすいのか研究中。

とりあえず、

#==========#
# 処理名 #
#==========#

とか、

#>>>>> 処理名

とか書いてる。
一応それなりに目立つし、全部 # で書くとウザイから

###########
# 処理名 #
###########

こんなんとか。
見にくい。。。

みんなはどうだ?チェキラ

380 名前:nobodyさん mailto:sage [04/01/16 01:50 ID:???]
行コメント以外ならPODで書いてるよ。See perldoc perldoc, perldoc perlpod ...

381 名前:nobodyさん mailto:sage [04/01/16 01:58 ID:???]
######################################################
## ■以下サブルーチン■
######################################################

382 名前:nobodyさん mailto:sage [04/01/16 02:00 ID:???]
##====================================================##
## ■以下サブルーチン■
##====================================================##

383 名前:ヽ(´ー`)ノ mailto:sage [04/01/16 11:53 ID:???]
>>379
POD 使えば?
コメント使った書き方って、見にくいし、他の人のコードと統一性が取れない。
整形するの面倒だし、マニュアルも別に書かないといかん。
じゃあメリットがあるかっていうと特別あるわけじゃない。デメリットだけ。
まともなエディタを使えば、POD のところだけ色も変わるから見栄えを気にする必要もない。
あと俺の主観だけども、出来の悪い CGI のコード見てるようで、醜い(シャレじゃなく)。

すでにあるモノを再発明することないよ。更に良いものが作れるのなら話は別だけど。


384 名前:nobodyさん mailto:sage [04/01/16 17:05 ID:???]
大規模なコメント(ドキュメント)なんかは
そりゃPODにこしたことはない罠。

ちょっとしたコメントにセンスを光らせたい罠
別に誰が見るわけでもないんだけどさ。


385 名前:nobodyさん mailto:sage [04/01/16 19:51 ID:???]
ちょっとしたコメントに大袈裟な装飾は不要。
罫線くらいにしておいた方がいいんじゃない?

386 名前:nobodyさん mailto:sage [04/01/17 20:40 ID:???]
#::::::::::::::: さぶるーちん :::::::::::::::#

387 名前:nobodyさん mailto:sage [04/01/17 22:55 ID:???]
#
# こめんと
#

シンプルな方がよし。かも?



388 名前:nobodyさん mailto:sage [04/01/18 01:51 ID:???]
>>381,382
■を使うと見やすいな。

#■ コメント1
print ...

#■ コメント2
print ...


389 名前:nobodyさん mailto:sage [04/01/18 15:50 ID:???]
統一的にどうするかというより、
#**************************#
#. 大見出       ****#
#**************************#

#--------------------------#
#..中見出       ----#
#--------------------------#

#--------------------------#
#... 小見出

# その他

 のように、階層に応じて分けるのがいい。ちなみに、「#.」、
「#..」、「#...」の部分は、テキストエディタに「アウトライン」
機能があれば、その見出し行の識別文字列に設定するとよい。


390 名前:nobodyさん mailto:sage [04/01/20 01:24 ID:???]
上級者のみなさん質問させてください!
ソフトバンクより発売のCGI/Perlハンドブックという本で
up.atnifty.com/upload/file/20040120011644_.txt
こういったアンケート収集スクリプトがあるのですが
これを実行してもアンケートが追加されません。
どこが間違ってるのでしょうか?

391 名前:nobodyさん mailto:sage [04/01/20 01:29 ID:???]
>>390
マルチポストハケーン

392 名前:nobodyさん mailto:sage [04/01/20 07:53 ID:???]
>>386-389
そういう書き方するとPODに比べて何かメリットは?

>>387 は楽だって点でメリットがあるけど、他のは…。

393 名前:nobodyさん mailto:sage [04/02/05 22:45 ID:???]
>>392

メリット:見やすくなる(色分けしてるエディタだと更に
デメリット:めんどい。

>>387は後でソース見て苦労するタイプだ

394 名前:nobodyさん mailto:sage [04/02/05 23:08 ID:???]
>>393
POD も色分けされるじゃん。

395 名前:nobodyさん mailto:sage [04/02/07 10:43 ID:???]
出力されたHTMLの一行目が改行になってしまう仕様はどうにかならないか。(英文FAQ翻訳風)

396 名前:nobodyさん mailto:sage [04/03/13 22:04 ID:???]
POD色分けされるエディタって何がある?(WINで)

397 名前:nobodyさん mailto:sage [04/04/03 08:00 ID:???]
gvim



398 名前:nobodyさん mailto:あげ [04/05/09 21:27 ID:???]
あげじゃあげじゃ

399 名前:ぺー [04/05/11 08:07 ID:wDvsqpzO]
これと同じ改造するにはどしたらいいんですか神様。

ouroboros.game-host.org/index.html



400 名前:nobodyさん mailto:sage [04/05/12 16:29 ID:???]
同じ改造で満足するのかと小一時間(ry
小言で400get.

401 名前:nobodyさん [04/06/08 12:32 ID:svJNgPf4]
PerlでPGP暗号化したメールを送ったことのある方おりますか?
gnupg等のコマンドを使って暗号化したものを、
sendmailで送るイメージでいるんですが、
この辺をやってくれるモジュールとかってあるんですかね?


402 名前:nobodyさん mailto:sage [04/06/08 21:16 ID:???]
>>388
なるほど!
そういえば、携帯ページつくるときによくつかってたけど、コメントで使うのは思いつかなんだ。
らりあとう!!

403 名前:388 mailto:sage [04/06/08 22:17 ID:???]
>>402
どういたまして。
ちなみに今は
タブと■を組み合わせて見やすくしてる。

>>401
メールを受け取る人が一定なら、
その人のマシンで公開鍵と秘密鍵を作って、
その公開鍵を使ってサーバで暗号化する必要がある??
あんま詳しくないから興味あるかも。

404 名前:nobodyさん mailto:sage [04/06/08 23:34 ID:???]
>401
ttp://search.cpan.org/

405 名前:きのこる先生 ◆FmKame.i.E mailto:sage [04/06/10 07:13 ID:???]
      _,,,......,,__
  /_~ ,,...:::_::;; ~"'ヽ
 (,, '"ヾヽ  i|i //^''ヽ,,)
   ^ :'⌒i    i⌒"
      | (;゚Д゚) < 今まで様々な404を見てきたが
      |(ノ  |)      お前が一番coolですね
      |    |
      ヽ _ノ
       U"U


406 名前:nobodyさん mailto:sage [2005/11/13(日) 21:07:49 ID:???]
えらく長寿だなぁ、このスレ・・・勃って(w から三年半、前レス>>405からも一年半経ってる。

407 名前:nobodyさん mailto:sage [2005/11/14(月) 23:07:11 ID:???]
pod使ってサブルーチンごとにコメントを挟むと間延びした感じになってなんか嫌だったんだけど・・・
=の前後に空白行がないとpodparserでXHTML化したときにうまく読んでくれないし。

どうよ?



408 名前:nobodyさん [2005/12/06(火) 03:38:10 ID:rOcNbm6R]
01と最初からスレタイしたら伸びないというのを実践してるな

409 名前:nobodyさん [2005/12/28(水) 12:54:03 ID:RY3kh/X5]
ttp://www002.upp.so-net.ne.jp/wing-net/support/

ここのMulti Wing BBSをDLして設定してうpまで
終わったんですが、メインのwingmulti.cgiにアクセスして
設定したパスワードを入力しても、パスワードエラーと出ます。

何度設定しなおしてもパスワードエラーに引っかかるんですが
これって単なるバグでしょうか?

分かる方いたら、試してもらえませんか?

410 名前:nobodyさん mailto:sage [2005/12/28(水) 12:57:36 ID:???]
>>409
もちろんお前はPerl上級者なんだろうな

411 名前:nobodyさん mailto:sage [2005/12/28(水) 13:02:41 ID:???]
>>410
初級レベルです^^;
上級者の方じゃないと分からないと思ったので、すいません。

412 名前:nobodyさん mailto:sage [2005/12/28(水) 14:52:10 ID:???]
質問するスレじゃねぇ

413 名前:nobodyさん [2006/02/05(日) 07:47:15 ID:VJ915kfQ]
DBICどうすか。
0.5から::Schemaに移行とかなんとか。

414 名前:nobodyさん mailto:5.8.8 [2006/10/08(日) 01:37:17 ID:???]
wikipediaにはトリップ生成は

$tripkey = "#istrip";
$tripkey = substr($tripkey,1,);
$salt = substr($tripkey.'H.',1,2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = crypt($tripkey,$salt);
$trip = substr($trip,-10);
$trip = '◆'.$trip;
print "$trip";

って書かれてるが

マルチバイト文字をcryptに入れるとエラーになるんだが。

415 名前:414 [2006/10/08(日) 23:31:27 ID:LWtT3Slw]
どうすればいい?
Perl5.8.8だからなのか?
誰か教えてくれねーか?

416 名前:nobodyさん mailto:sage [2006/10/08(日) 23:54:05 ID:???]
>>414-415
ここは上級者スレ。その程度を自分で解決出来ない奴は立ち入り禁止。

417 名前:414 [2006/10/09(月) 00:08:25 ID:b33Q2pbi]
工エエェェ(´゚д゚`)ェェエエ工w



418 名前:414 [2006/10/09(月) 00:09:17 ID:b33Q2pbi]
UTF8で書いてる所為かも。
SJISに変換して入れてみるか。

419 名前:414 ◆SQ2Wyjdi7M [2006/10/09(月) 00:13:33 ID:b33Q2pbi]
うまくいったっぽいw

420 名前:414 ◆SQ2Wyjdi7M [2006/10/09(月) 00:26:29 ID:b33Q2pbi]
まぁ、テキトウにまとめ。
しなくてもいいだろうが、スレつかっておいて自己解決して放置っつースタイルが嫌いなので。

俺の場合。
出力をXHTMLに準拠させたいが、ファイルの先頭でXML宣言をするとIEで厄介なので、それを避けるために出力をUTF8にしたかった。
そんなときにPerl5.8は内部処理とかUTF8にしたぞ的なことを知ったので、use utf8;とかしてコードを書いていたわけだが、
UTF8のマルチバイト文字列をcrypt関数の引数として与えるとエラーが出るという問題にあった。

まぁ、crypt使う理由が2ch互換のトリップを生成することだったわけで、そのときにUTF8でcrypt使用としてた辺りがあほなんだが、
1日考えるのやめてカラオケとか逝ってたら、脳みそすっきりしてこのことに気づいたので解決した。

そんでUTF8→SJIS変換したら、すんなり成功した。

参考までにソース載せると

package パッケージ名;
use utf8;
use Encode;
return 1;

sub makeTrip{ # 引数 = \$tripkey(utf8)
my $tripkey = $_[0];
my $salt;
$$tripkey = encode('shiftjis', $$tripkey);
$salt = substr($$tripkey.'H.',1,2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$$tripkey = crypt($$tripkey,$salt);
$$tripkey = substr($$tripkey,-10);
return;
}


421 名前:nobodyさん mailto:sage [2006/10/10(火) 20:26:03 ID:???]
超絶的確な>>416のレスを読まない
>>414に萎え

てか、文字コードの違いもわからず上級者気取りか・・・

422 名前:nobodyさん mailto:sage [2006/10/10(火) 22:14:51 ID:???]
もうおわったことにぐだぐだいってる >>421 のしつこきもちわるさにほげ

423 名前:nobodyさん mailto:sage [2006/10/12(木) 14:25:18 ID:???]
一応天才って言われるけど…これ常套だべ?

BEGIN {
$vo = '栄昇';
$g = '優';
$pf = '等';

}
コードに入れてない奴は今すぐ入れたほうが良いよ、平和になるし


424 名前:nobodyさん mailto:sage [2006/10/12(木) 16:16:15 ID:???]
日本語でok

425 名前:nobodyさん mailto:sage [2006/10/14(土) 00:22:11 ID:???]
上級者専用スレなんて初めて開いた・・
Gimpって画像処理ソフト、CGIから操るのに成功した人っています?
ImageMagickを使ってみて、なかなか面白いんだけど、文字の加工は貧弱なので
Gimp試してみたものの、全然動かないのです。

426 名前:nobodyさん mailto:sage [2006/10/14(土) 00:26:36 ID:???]
>>425
キサマには初心者スレすら生ぬるい。

427 名前:nobodyさん mailto:sage [2006/10/14(土) 00:38:50 ID:???]
煽りに用はない!by ken




428 名前:nobodyさん [2006/11/14(火) 14:47:50 ID:M1pI9RkN]
>>420
では上級者的指摘を

use utf8環境下でsubstrで2文字取り出すというのがどういう意味なのか
分からないのがお前の敗因。
我々上級者はuse utf8はuse byte;は併せて覚えている。

つ〜かcryptの第2引数は初めの2バイト以外無視する仕様だから
わざわざsubstrしてる時点で中級者とも言えない。

って、全くテストもしないで亀レスだけしてみる。

429 名前:nobodyさん mailto:sage [2006/11/15(水) 07:29:44 ID:???]
cryptはDESかMD5かで有効なsaltの文字数が違うよ

430 名前:nobodyさん mailto:sage [2007/01/24(水) 20:02:36 ID:???]

簡単にお金稼ぎ!!!

以下の手順でやれば、無料でお金稼ぎができます。
企業も広告の宣伝になるから、お金をくれるわけです。
最初の1日目で 2000 円〜3000 円 は確実に稼げます。
実際の作業は数十分程度、1時間はかかりません。

(1) pointdream.jp/member_regist.aspx?LinkID=577583#.2ch.net/
   ↑このアドレスからサイトに行く。
(2)無料会員登録をする。
 ※フリーメールアドレスでもOK。
(3)ポイントを稼ぎます。
 懸賞の応募や無料会員登録をすればするほど、
 ポイントが貰えます。
(4) 友達を増やせば、後は何もしなくても
 定期的に、友達還元ポイントがドッサリ入ってきます。

これで現金を稼ぐといいですよ!!!

登録(応募)はこちらから↓
pointdream.jp/member_regist.aspx?LinkID=577583#.2ch.net/

431 名前:nobodyさん mailto:sage [2007/02/10(土) 20:43:16 ID:???]

簡単にお金稼ぎ!!!

以下の手順でやれば、無料でお金稼ぎができます。
企業も広告の宣伝になるから、お金をくれるわけです。
最初の1日目で 2000 円〜3000 円 は確実に稼げます。
実際の作業は数十分程度、1時間はかかりません。

(1) blackjack.lxl.jp/#.2ch.net
   ↑このアドレスからサイトに行く。
(2) ゲットマネー登録サイトに移動するので、
 そこで無料会員登録をする。
 ※フリーメールアドレスでもOK。
(3)ポイントを稼ぎます。
 懸賞の応募や無料会員登録をすればするほど、
 ポイントが貰えます。
 他にも沢山種類があるので、1日目で
 約 20000 ポイントは GET できます。
(4) 10000 ポイントから、現金に交換できます。
(5)キャッシュバックという所がありますので、
 そこから交換をしましょう。

これで現金を稼ぐといいですよ!!!

無料会員登録はこちらから↓
blackjack.lxl.jp/#.2ch.net

432 名前:nobodyさん [2007/03/26(月) 17:41:13 ID:3MEiX5hy]
上級者向けの質問かどうか分からないけれど、他に該当スレが思いつかなかったのでここで質問させてください。

CPANで落とせるNet::SMTP_authってモジュールがあって、それはNet::SMTPのサブクラスになっていて
ソースの中ではauth()とauth_types()のオーバーライドしかしていない。
SMTP_authでメール送信するには587番ポート使う筈で、それはnew()したときの
最初のサーバへの通信で既に「587を使う」と指定しないといけないと思うのだけど
どこをどう探してもその記述が見つからない。
NET::Configの中かなぁと思ったのだけど、それも違うっぽい。
どうやって587ポートを指定させているか、誰かご存知の方いませんか?

SMTP_authモジュールを使いたくて色々調べていたらこの問題に行き着いて、どうにも納得できなくて気持ち悪いので
ヒントだけでも教えていただけると嬉しいです。

433 名前:nobodyさん [2007/03/26(月) 22:13:50 ID:sZyxWGW4]
>>432
Authen::SASLで何やってるかわかんないけど、ポート指定してるっぽいのはここだね。

my $conn = $sasl->client_new("smtp", $host);#, "noplaintext noanonymous");



434 名前:nobodyさん mailto:sage [2007/03/26(月) 23:55:40 ID:???]
>>432
> SMTP_authでメール送信するには587番ポート使う筈
これ間違い。

○ submission portを使用するときはSMTP AUTHが必要。

435 名前:nobodyさん mailto:sage [2007/03/27(火) 20:09:45 ID:???]
Net::SMTP->new( Port=>587 );

Net::SMTPなら、こんなんじゃなかったっけ

436 名前:432 mailto:sage [2007/03/30(金) 15:34:09 ID:???]
>>433
ありがとうございます。
まだ色々分かって無いですが、また調べてみようと思います。

>>434
まだ理解が足りていなかったみたいです
ご指摘ありがとうございます。

>>435
そうですよね、やっぱし。
でも587というポート番号を指定してる場所がどこにもなくて「あれ?おかしくね?」
と感じて調べ始めたら泥沼に、、、orz


437 名前:nobodyさん mailto:sage [2007/04/02(月) 21:36:14 ID:???]
OP25Bなら、サブミッションポートで接続してSMTP AUTHするわけだから
ポートは自分で設定する必要があるよ。




438 名前:nobodyさん [2007/06/19(火) 22:29:14 ID:Ye7oVo0e]
Perlに触れて2ヶ月余りの者ですが皆様のお知恵を拝借したい事があります。
フォームを作成し、大量の文字を入力してメールを送信するようにすると、
500文字目辺りが文字化けしてしまいます。
その部分から一定の周期で文字化けが発生しています。
300文字程度までなら全然平気なのですが。。
あとそのメールのログをとっているんですけどログの方は大量に文字をうっても問題なく蓄積されていました。
この事からプログラム的な問題ではなく、
鯖にインストールされている sendmail が怪しいかと思うのですが、
バージョンが古いとこのような問題が起こる等、何らかの情報はご存知ないでしょうか??
宜しくお願い致します。

439 名前:nobodyさん mailto:sage [2007/06/20(水) 00:03:45 ID:???]
>>438
2ヶ月で上級者になるとは凄い才能だね。では頑張れ。

440 名前:nobodyさん mailto:sage [2007/06/20(水) 00:59:21 ID:???]
>>439
低級者のレスはいりません

441 名前:nobodyさん mailto:sage [2007/06/20(水) 01:26:40 ID:???]
>>438
一行に500文字が入っているの?
SMTPの仕様だか、実装だかに一行の最大文字数みたいな制限があったはず。
途中に改行入れていて500文字だったらスマン、わからん。

442 名前:nobodyさん mailto:sage [2007/06/20(水) 06:41:47 ID:???]
>>441, >>443-
低級者のレスはいりません。

443 名前:438 mailto:sage [2007/06/20(水) 10:56:39 ID:???]
>>441
どうやらビンゴのようです。
改行入れると化けません。
SMTPの仕様でしたか。。。
この仕様について色々と調べてみたいと思います。
大変参考になりました、ありがとうございます!

444 名前:438 mailto:sage [2007/06/20(水) 13:04:00 ID:???]
完全に文字化けが直りました。
>>441さんに多謝!

445 名前: ◆lVJAPUTeX. mailto:sage [2007/07/24(火) 21:05:58 ID:???]
>>441

RFC2822によれば、CRLFを入れて1000文字 (オクテット) ですね。
Sendmailでは長い行を自動的に分割します。
500文字というのはShift_JISで書かれた日本語での換算かな?

…とここまで書いて1ヶ月前の記事ってのに気づいた。まあいいや。

446 名前:nobodyさん [2007/08/19(日) 05:01:02 ID:LoxscrBM]
Perlからメールアカウントの追加をしたいんですが、どうやったらええんでしょ?
MTAはqmailでvpopmailでバーチャルドメイン運用してます。

root権限もあります。
perlからの会員登録と同時にメールアカウント作成みたいなもんをしたいんですが。


447 名前:446 [2007/08/21(火) 17:15:45 ID:HBIrwO1t]
誰か〜〜

助けておくれ><;




448 名前:nobodyさん mailto:sage [2007/08/21(火) 19:24:10 ID:???]
UNIXユーザーか仮想ユーザーか、自力でシミュレートして登録するか
外部コマンドを利用するか等で実現方法が変わる。

外部コマンド使う場合
・パイプ、system関数 or バッククォートで外部コマンドを実行
・uidをrootにしsetuidする
・強制的にテイントモードになるのでサニタイズする
ここら辺注意すれば比較的簡単に出来ると思う。

449 名前:446 [2007/08/23(木) 03:02:56 ID:i/ueFIKi]
>>448
ありがとうございます。
おかげさまで解決しました。
Insecure $ENV{PATH} while running setuid at ./hoge.cgi line xx.
というエラーが出て少し悩みましたが。


450 名前:446 [2007/08/23(木) 22:35:13 ID:i/ueFIKi]
すいません。もう一つ質問です。

setuidでroot権限で実行する方法なんですが、mod-perlだとroot権限になりませんね。
できればmod-perlで動かしたいんですが、方法はあるんでしょうか?



451 名前:nobodyさん [2007/08/24(金) 06:17:27 ID:ZilCg/Oy]
これはまたひどい後出し

452 名前:nobodyさん mailto:sage [2007/08/24(金) 13:37:27 ID:???]
>>450
mod_perlの動作原理をちょっと考えればわかることだが、不可能

453 名前:nobodyさん mailto:sage [2007/08/24(金) 17:19:07 ID:???]
・BIGSECURITYHOLEオプションでapacheをrootで動作させる。
・外部コマンドを実行するプログラム(setuidされた)をmod_perlから呼び出す。
・sudoを使う
思いつくのはこんぐらいかな。

454 名前:446 [2007/08/24(金) 23:47:48 ID:IBL+ZrlN]
>>453
ありがとうございます。
apacheをrootで動かすのは怖くてできません><;

2つ目のプログラムを分けてmod-perlから呼び出すプログラムに数値を渡すにはファイル書き込みか何かで渡す他ないんですよね?
これならできそうです。

3つ目のsudoは
perlプログラム内(test.cgi)に以下の外部コマンド
`script /dev/null -q -c 'sudo -u root /home/vpopmail/bin/vadduser -r hoge\@hogehoge.com'`;

visudoにて以下を追加
apache ALL=(root) NOPASSWD: /var/www/test.cgi

で実行してみましたが、secureログには
sudo: pam_unix(sudo:auth): authentication failure;
と出ます。sudoがシンプルで良いと思っているのですが、認証失敗は何が原因でしょうか?


455 名前:446 [2007/08/24(金) 23:57:13 ID:IBL+ZrlN]
あ。test.cgi自体をsudoで動作させなきゃ意味ないですよね。
どうしたらtest.cgiをsudoで動作させられるんでしょう?><;



456 名前:nobodyさん mailto:sage [2007/08/25(土) 02:55:37 ID:???]
それはperlと関係ない話だからなぁ
sudoでググれば普通にわかるべ

つーか、そもそもmod_perl使わなきゃいいだけの話じゃないのか?
そんな何回も実行するようなもんじゃないし、危ない橋を渡ることもあるまいに

457 名前:446 [2007/08/25(土) 03:35:05 ID:YKfJDMUn]
あ。解決しました。
visudoには
apache ALL=(root) NOPASSWD: /home/vpopmail/bin/vadduser
ですね。

教えてくださった方々ありがとうございました。




458 名前:nobodyさん [2007/08/25(土) 07:04:35 ID:uu0LXyl+]
icomu.jp/96216/index.php

459 名前:nobodyさん [2007/08/25(土) 08:17:45 ID:XkW9fGs3]
inoken.tv/?RF=1&frdref=130729

460 名前:nobodyさん mailto:sage [2007/10/08(月) 21:00:42 ID:???]
さげさげ






[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<104KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef