Perlコーディング初心者質問スレ Part 55
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2007/05/30(水) 11:34:01ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1: 自分はこういう事がしたい。
2: それでこんな風にやってみたが・・・
3: こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >>2-10
前スレ http://pc11.2ch.net/test/read.cgi/php/1171102883/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
0492nobodyさん
2007/07/18(水) 20:38:08ID:???C、C+、tcl、lisp、sh、perl、PHP、java、ruby、ほか好きな言語、スクリプトで
open か fopen でもしていじってくださいな
0494nobodyさん
2007/07/18(水) 21:10:34ID:???0495nobodyさん
2007/07/18(水) 21:21:38ID:???ワロスww
0496nobodyさん
2007/07/18(水) 21:33:02ID:???0497nobodyさん
2007/07/18(水) 22:11:24ID:???> 1: 自分はこういう事がしたい。
> 2: それでこんな風にやってみたが・・・
> 3: こんなエラーが出て上手く行かなかった。
0499nobodyさん
2007/07/19(木) 02:03:02ID:???>>495は、>>490が日本語云々言ってるのに「よいよ」って書いてるのにつっこんでんのに、
自演とか言ってる>>496は何だ?
>>497は質問者に>>1嫁と言っているだけだと思うのだが、>>498のつっこみは何だ?
何だ( ゚д゚)何だ(゚д゚ )何なんだ(゚д゚)???
0500nobodyさん
2007/07/19(木) 02:27:41ID:???0504nobodyさん
2007/07/19(木) 17:23:44ID:???http://pc11.2ch.net/php/dat/1180492441.dat
0505nobodyさん
2007/07/19(木) 20:27:45ID:???どのような表記になるのでしょうか?
この場合「ー」や「〜」も含めたいです。
0506nobodyさん
2007/07/19(木) 20:29:49ID:???で使うのは !~ を使ってください
0507nobodyさん
2007/07/19(木) 20:38:30ID:???if( $test !~ '^[\82\9e-\82\ef]+$' )
{
//ひらがなの場合
}
0508nobodyさん
2007/07/19(木) 20:41:15ID:???わからん
0509nobodyさん
2007/07/20(金) 01:10:35ID:???0510nobodyさん
2007/07/20(金) 10:31:22ID:???0511nobodyさん
2007/07/20(金) 17:57:06ID:???つ ttp://www.din.or.jp/~ohzaki/perl.htm#Character
EUCかSJISの場合
0513nobodyさん
2007/07/20(金) 22:12:15ID:???0514nobodyさん
2007/07/21(土) 20:05:13ID:???0515nobodyさん
2007/07/22(日) 02:05:22ID:???0516nobodyさん
2007/07/22(日) 10:54:01ID:???サーバーで実行されることを想定して
作られているCGIゲームを、自分の
windowsのパソコン上で一人で実行したいのですが、
perl+アパッチ+アクtィブパール
という構成になるのでしょうか?
アパッチは必須ですか?
0517nobodyさん
2007/07/22(日) 11:16:44ID:???0518nobodyさん
2007/07/22(日) 11:21:20ID:???0520nobodyさん
2007/07/22(日) 11:32:56ID:???0521nobodyさん
2007/07/22(日) 12:30:49ID:???特に、ImageMagickとかでそういう機能ありますか?
0522nobodyさん
2007/07/22(日) 13:28:00ID:???0523nobodyさん
2007/07/22(日) 14:12:18ID:???初心者はAN HTTPDとActive Perlでいいだろ
つーかぐぐれ
0524nobodyさん
2007/07/22(日) 14:27:23ID:???0525nobodyさん
2007/07/22(日) 15:17:51ID:???超ヤサシイ俺が。
左右上下に動かすって、ボタンを押すたびに動かす事は出来るかもな。
基本的にPerlが動くのはボタン押したりアドレス開いたりした直後だけ。
つーかCGIの入門書でも嫁。
0526nobodyさん
2007/07/22(日) 16:26:43ID:???いや、それでもいい。
フォームでボタン押してパラメタ送信、受け取ったら画像が右に少し移動してるって状態で十分。
空白文字分を入れて右にずらしたりはできるけど、上下左右に細かく描画位置を変えれる方法が知りたす。
0527nobodyさん
2007/07/22(日) 16:46:42ID:???超ヤサシイ俺が。
テーブルで囲んで上下左右にセルを用意して透明画像(幅、高さ指定して)を挿入すりゃいいんじゃね?
それか、GD使って元画像を編集するか・・・。マンドクサイな。
ってかなんでCSS+JavaScriptでやらねえのか、かなり疑問。
CGIの出力なんてHTMLなんだから、そこをDynamicHTMLにしちゃいけないって決まりはないんだし。
0528518
2007/07/22(日) 16:52:24ID:JZmpPZ9RActivePerlと別途にPerlが必要、ってのは何かおかしくないか?
と思ってたのだけど、俺が勘違いしてたかもしんない。
0529nobodyさん
2007/07/22(日) 16:56:58ID:RK22sjeKforeachを使わない方法があったと思うのですが、忘れてしまいました。
foreach(@list){$_*=2;}
以外の、foreachを使わない、全ての要素にアクセスする関数か何かあったと思うのですが・・・教えてエロイ人。お願いいたします。
0530nobodyさん
2007/07/22(日) 17:13:41ID:???0532nobodyさん
2007/07/22(日) 18:24:04ID:???CSSとJavaScriptもいいんだけど、俺の知り合いが携帯しか持ってない奴ばっかりで。
携帯じゃCSSもJavaScriptも無理だから。
つーか超ヤサシイもまいは超ヤサシイ俺という名前なのか気になた
0533nobodyさん
2007/07/22(日) 18:42:34ID:???中野一人が言うんだから間違いない。
0534nobodyさん
2007/07/22(日) 19:39:53ID:???0535nobodyさん
2007/07/22(日) 22:18:20ID:???0536nobodyさん
2007/07/23(月) 15:42:25ID:???パスワードをcryptで暗号化して、ファイルに保存しておいたものを、$CRYPTとして読み出して、
フォームから入力された$form{'pass'}と一致するかをチェックしようとしたところ、
$CRYPTが空だと、$form{'pass'}がどんな値でも通ってしまう。
if (crypt($form{'pass'}, $CRYPT) eq $CRYPT) {
# $CRYPTが空だと、$form{'pass'}がどんな値でも通ってしまう。
}
こういうのは
if (crypt($form{'pass'}, $CRYPT) eq $CRYPT) && ($CRYPT)) {
# $CRYPTが空だと、$form{'pass'}がどんな値でも通ってしまう。
}
0537途中で書き込んじゃったスマソ
2007/07/23(月) 15:43:52ID:???パスワードをcryptで暗号化して、ファイルに保存しておいたものを、$CRYPTとして読み出して、
フォームから入力された$form{'pass'}と一致するかをチェックしようとしたところ、
$CRYPTが空だと、$form{'pass'}がどんな値でも通ってしまう。
if (crypt($form{'pass'}, $CRYPT) eq $CRYPT) {
# $CRYPTが空だと、$form{'pass'}がどんな値でも通ってしまう。
}
こういうのは、以下のような対策でいいと思いますか?
if ((crypt($form{'pass'}, $CRYPT) eq $CRYPT) && ($CRYPT)) {
# $CRYPTが空だと、通らないはず。
}
0538nobodyさん
2007/07/23(月) 15:55:07ID:???その対策だとパスワードに「0」を設定されると問答無用でfalseになりますね。
$CRYPT eq "" のほうがいいかも?
というかそれ以前にif( crypt($form{'pass'}, $CRYPT) eq $CRYPT )で常にtrueになるのが変です。
本当にやってることはそれだけ?
0539nobodyさん
2007/07/23(月) 16:29:20ID:???cryptを通した後の暗号化された文字列$CRYPTが、一文字の"0"になるってことはあるんでしょうかね。
if (($form{'id'} eq $ID) && (crypt($form{'pass'}, $CRYPT) eq $PASS)) { }
みたいにIDも照合してます。
0540nobodyさん
2007/07/23(月) 16:29:38ID:???それともundefだったかな?
0541nobodyさん
2007/07/23(月) 16:37:49ID:???蛇足は間違えてるし本題はなんの役にも立たないしで恥ずかしいので無視してください。
0542537=539
2007/07/23(月) 16:41:51ID:???ちゃんと、値のチェックを行っていなかった自分に反省…
0543nobodyさん
2007/07/24(火) 09:20:42ID:???my %file = map { chomp; $_ } <f>;###こんな感じで一旦chompして改行取っ払って、、、
delete $file{'$blogFileName'};###こんな処理をしたあと、、
また改行をくっつけてもどしたいのですが、どうすればいいか教えていただけませんか。
0544nobodyさん
2007/07/24(火) 09:53:00ID:???0545nobodyさん
2007/07/24(火) 09:58:11ID:???ありがとうございます
言葉足らずですいません
一番最後の要素にも改行コード付けて戻したいんですが、どうすればいいでしょうか…
0546nobodyさん
2007/07/24(火) 10:26:09ID:???0547nobodyさん
2007/07/24(火) 10:30:34ID:???あと連想はやめろ
0548nobodyさん
2007/07/24(火) 11:26:52ID:???0549nobodyさん
2007/07/24(火) 11:28:33ID:???0550nobodyさん
2007/07/24(火) 12:03:01ID:???0551nobodyさん
2007/07/24(火) 18:09:32ID:???とかじゃダメ?
0552nobodyさん
2007/07/24(火) 18:56:17ID:???print f $name, "\n", $value, "\n";
}
0553nobodyさん
2007/07/24(火) 20:59:43ID:???正しくないIDやDB名を入れた場合はきちんと
DBI::errstr にそのエラー文言が入るのですが、
正しくないパスワードを入れた時は何故かそのまま通っちゃいます。
帰ってきた中身を見ても、パスを入れた時、入れない時でどちらもハッシュが入っています。
これは不可思議な事に何故か両方繋がってしまっていると見た方がいいですよね??
0555nobodyさん
2007/07/24(火) 22:06:21ID:???ありがとうございます。
セキュリティをかなりガチガチにしているところなのでちょっと考えにくいような。。。
パスワードの値を変更したらハッシュの値も微妙に変わりますがこれは仕様でしょうか?
何にも入れない時と入れた場合で±8くらい差があります。
文字数でハッシュも変わる!?
0556nobodyさん
2007/07/24(火) 22:35:34ID:???DBI->connectの復帰値はデータベースへの接続ハンドル(接続者の識別コードみたいなもの)なので、
接続毎に違う値になる事もあるし、disconnect → 再connect で同じ番号が割り当てられないとは限らない。
ってか、値自体に意味はない。(0ならエラーって意味以外は人間様が解析するべき内容じゃない。)
レン鯖でも、ポスグレがlocalhostを無条件トラストしてる事は十分考えられる。
コンソール前に座って、コンソールの管理者ログインパスワード知ってても
DBパスワード知らなきゃメンテナンス出来ないんじゃ、管理コスト高くつくからな。
その状態で、ポスグレ鯖とHTTP(CGI)鯖が同じマシンだったら、
localhost(=HTTP(CGI)鯖)は無条件トラストされてるから、ユーザー名さえあってりゃコネクトできる。
試しにテーブル作ってダミーデータぶち込んで、それを表示するプログラムを
パスワードありなし両方で動かしてみれば良いんジャマイカ?
それでパスワードなしで繋がっちゃったら鯖缶に問い合わせれば良いと思われ。
0557nobodyさん
2007/07/24(火) 22:44:50ID:???ポスグレ鯖とWeb鯖は同一PCです!
さっそく今からためしにテーブル作ってデータぶちこんで表示させてみます!
0558554=556
2007/07/24(火) 22:51:24ID:???役に立ててよかった。
漏れ、ポスグレ+アパッチの鯖缶兼CGI開発やってるから多少は分かるが、
鯖缶としてはシロウトに近いんで(テスト用2台、本番用1台しかやってない)
切り分けぐらいまでしか役に立てない。スマソ。
もし設定やらについて必要ならポスグレスレででも聞いてみてくれ。
0559nobodyさん
2007/07/24(火) 23:13:21ID:???試してみたところ、仰せの通りパス無条件設定でした。
原因が分かってすごく安心してます。
ポスグレスレの方にもこれから常駐させて頂きます!
テスト用2台と本番用1台って十分すごいですw
助かりましたありがとうございます!
0561nobodyさん
2007/07/26(木) 10:17:46ID:6zNTEP+lそれぞれがラジオボタンで○・×などを選択して、一つのページに結果を表示させたいです。
初心者なので調べても、文字の表示程度の簡単なことしかできなくて困っています。。
どなたか土台になるものを作って頂けませんか。
工程をご教授していただけるだけでもあり難いです。よろしくお願いします。
0562nobodyさん
2007/07/26(木) 11:32:11ID:???0563nobodyさん
2007/07/26(木) 11:47:35ID:???エラーメッセージ at ./test.pl line 123
とか出ますが、どこから呼ばれてエラーが出てるのか
(サブルーチン又はrequireのスタック?)わかる方法はありますか?
例えば
hoge.pl line 234 で呼ばれて
fuga.pl line 564 で呼ばれて
test.pl line 123 でエラー
…みたいな
0564nobodyさん
2007/07/26(木) 11:53:05ID:???予算を述べよ
0565nobodyさん
2007/07/26(木) 12:06:15ID:???スレ違い
http://pc11.2ch.net/test/read.cgi/php/1157787046/
0566nobodyさん
2007/07/26(木) 13:14:45ID:???__FILE__
>>563
コード:
use Carp qw[confess];
foo();
sub foo { bar() }
sub bar { baz() }
sub baz { confess "moemoe" }
実行結果:
moemoe at - line 5
main::baz() called at - line 4
main::bar() called at - line 3
main::foo() called at - line 2
参考サイト:
http://perldoc.perl.org/Carp.html
0568nobodyさん
2007/07/26(木) 20:22:43ID:???0569nobodyさん
2007/07/26(木) 20:56:44ID:Im3nlar7WWWサーバはwww-dataユーザ権限で動いているのですが,パスワードなどの認証を行った上で,
そのCGIを呼び出したユーザ個人の持っているファイルに中身を書き込みたいのです.
su などを呼び出してなんとかするという方法は思い付くのですが,なんかもっと簡単にする方法はないでしょうか?
; というか,以前どこかでそういう目的のモジュールを見掛けた気がするのですが,思い出せなくて困っているのが真相なんですけど.
>>569
作戦1.
ファイルを書き込む wrapper を作成して、setuid root する。
(この wrapper はその中で対象のユーザに setuid する。
十分注意して作成しないとセキュリティホールになる。)
CGIプログラムからはwrapperを呼び出す。
作戦2.
FTPサーバが動いていれば、入力されたIDとパスワードを使って接続する。
作戦3.
CGIプログラムでは一時ファイルを作成するまで。
定期的にroot権限で動作するプログラムで各ユーザごとにコピーする。
作戦4.
ウェブサーバとして動作するプログラムを作成し、rootで動作させる。
これも十分に注意しないと危険。
0572nobodyさん
2007/07/28(土) 00:47:16ID:AqKfoxxhしかし、これをブラウザからアクセスしてもInternal Server Errorになります。
#!C:/perl/bin/perl
$ perl -v
kentwebの掲示板は正常に動きますので、perlのインストール事態には問題ありません。
どこを手直ししたらブラウザにperlのバージョンを表示できるでしょうか?
0574nobodyさん
2007/07/28(土) 02:26:06ID:???0575nobodyさん
2007/07/28(土) 02:49:38ID:???0576nobodyさん
2007/07/28(土) 03:09:03ID:???Perlで実行すると決めたからには、
スクリプトはperlの言語に従って書かなければいけない。
print `perl -v`;
と書けば表示できると思う。
その前にちょっと訊きたいけど、コマンドプロンプトを知っているかい?
ちょっと古めかしいけど、perlと付き合うには、もってこいの奴なんだ。
知らなかったら、ぜひ、このサイトを見て欲しい。
http://cmd-pro.com/
そして、コマンドプロンプトで
perl -v[ENTER]
([ENTER]はエンターキーを表す。)
を入力すれば、バージョンを知ることができる。
どうだいイカしてるだろ?
0577nobodyさん
2007/07/28(土) 04:09:46ID:AqKfoxxhおかげさまで無事バージョンをしることができました。
PHPからはじめて、今日からPERLの勉強をはじめたばかりですが、
このスレのお世話になります。
0578nobodyさん
2007/07/28(土) 04:51:04ID:???___
/ \
/ ⌒ ⌒ ヽ _________
/ (●) (●) | /
| ::: ⌒(__人__)⌒:: | < ま、お断りしますけどね
| |r┬| i \_________
\ ー―' _/. | | |
⌒ヽ ヽノ ヽ | | |
/ ノ::::::::::::::::::l\. | | |
ヽ `ー― ⌒、ヽ |_|______|
ー――、_ヾ⌒ヽ〜== | | |
0579nobodyさん
2007/07/28(土) 16:42:17ID:bc1YYpxVFTPサーバ経由は目から鱗でした.LWPとの組合せで簡単に実現できそうですね.もう少し考えてみます.
0580nobodyさん
2007/07/28(土) 17:13:28ID:FChki3sWまた時代が変わってきたな
0581nobodyさん
2007/07/28(土) 18:50:02ID:AqKfoxxhなのでperlはじめてみました。
0582nobodyさん
2007/07/28(土) 20:18:21ID:???失礼な!プンスコ!
0583nobodyさん
2007/07/28(土) 20:51:25ID:FChki3sWPerlはドラクエみたいな感じだな。なかなか次期バージョンが出ない。
Rubyは
板違いスマソ
0584nobodyさん
2007/07/28(土) 21:06:05ID:???open FH, "count.txt";
$count = <FH>;
close FH;
open FH, "+>$ct";
print FH ++$count;
close FH;
こんな感じなのですが、2回openせずにできますか?
0585nobodyさん
2007/07/28(土) 21:23:42ID:???0586nobodyさん
2007/07/28(土) 21:38:15ID:???http://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq5.html#i_still_don_t_get_locking__i_just_want_to_increment_the_number_in_the_file__how_can_i_do_this
0587nobodyさん
2007/07/28(土) 21:42:09ID:FChki3sWopen(FH, "+< $datafile");
$count = <FH>;
seek(FH, 0, 0); # ファイルポインタを先頭にセット
print FH $count++; # 書き込む
truncate(FH, tell(FH)); # ファイルサイズを書き込んだサイズにする
close(FH);
0588名無しさん@そうだ選挙に行こう
2007/07/29(日) 00:40:21ID:???0589名無しさん@そうだ選挙に行こう
2007/07/29(日) 17:41:22ID:4RCBobOYPostgresqlとPerlの組み合わせってあんまり良くないんですか?
参考書とかもあまり深く説明が無いのですが。。
今更PHPを覚えなおすのも厳しいかなと思ってます。
この辺りとかとか♪
■ このスレッドは過去ログ倉庫に格納されています