【Perl】初心者コーナー Part14
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/07/18 16:34ID:jemWJhH31：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 6 （その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/
過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
というか圧縮されたプログラムなんで、実行するとnmake.exeとnmake.errってファイルが出来る（だったかな）
だからrenameの必要はないはずなんだけどなぁ。彼は実際にやってみたんだろうか。
0413nobodyさん
02/07/26 13:48ID:???この || って、ダメだったらって意味ですか？
0414nobodyさん
02/07/26 13:50ID:???もしくは。
ifの中のと一緒だ。
前の式がtrueなら後ろの式は評価されないと言う性質を逆手に取った
他の言語ユーザに見せたらどつき倒されそうな処理です。
0415nobodyさん
02/07/26 14:02ID:???あと、
sub auto_link {
$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\=\@\;\#\:\%]+)/$1<a href=\"$2\">$2<\/a>/g;
}
これはURL文字列を自動的にリンクにするサブルーチンですけど、
自分は正規表現が複雑なのはわかりません。
でもサブルーチンは便利で引数だけ渡せば意図する結果を返してくれます。
サブルーチンの中の正規表現をわざわざ噛み砕いて理解する必要はありますか？
まぁ、これがわからないと自分でいちから作れないという訳になってしまいますが。
0417nobodyさん
02/07/26 14:09ID:OgCRHfVmscript01.plをuser01で実行し、その中からsystem関数を使って
script02.plを実行させたい。
ただし、script02.plは、user02が実行したものとしたい
2：それでこんな風にやってみたが･･･
perl -h で起動オプション調べてみましたが、起動ユーザーを指定
する方法がありませんでした。
何か、スクリプトを起動するユーザーを選択する方法ってないでしょうか？
0419nobodyさん
02/07/26 14:39ID:???そうか？Cとかで
fp = fopen("m","r") || printf("error!");
なんてコード書いたら多分干される。
0420nobodyさん
02/07/26 14:49ID:OgCRHfVmgoogleで調べたら、chmod 4755 script02.pl でsetuidモードになるようです
が、やはりだめでした。
script02.pl は、PostgreSQL への INSERT文を集めたスクリプトなんですが
database not connecti が出ますね。
いや、言わないでください。GRANTでデータベースの方に権限与えれば
っていうのは重々判ってはいるんですが、script01.plを実行するユーザは
nobodyにしたいんですよね。将来、CGIにする為。
dbにnobodyの権限を与えるのを躊躇ったものですから、script02.pl を
PostgreSQLユーザーの権限にしておいて、実行ユーザーを換えようと
思ったんです。
どうも、この方法はだめなようですから、GRANTを検討してみます。
0422nobodyさん
02/07/26 15:31ID:???return $hoge;
↑ってどういう意味があるんですか？
0424nobodyさん
02/07/26 15:52ID:NvB7dZaP0426nobodyさん
02/07/26 15:55ID:???else{ print "NO"; }
cgiファイルと同じディレクトリにhoge.txtがあるんですけど
NOしか出てきません。なぜですかね。
他のファイル演算子も試しても全部elseになっちゃいます。
0428422
02/07/26 15:57ID:???else{print "b";}
0429nobodyさん
02/07/26 16:00ID:???Perlは一番最後に処理されたステートメントが「自動的」に
戻り値になる：
sub FOO_1 { 1 }
sub FOO_2 { return 1 } # FOO_1 と戻り値は一緒
sub BAR { FOO_1() } # 戻り値はFOO_1の戻り値
0431nobodyさん
02/07/26 16:01ID:NvB7dZaPreturnを書かなかったら最後に評価された式の値が返るんじゃないの。たしか。
>>426
サーバがIISかPWSとか？
0432nobodyさん
02/07/26 16:01ID:NvB7dZaP0433nobodyさん
02/07/26 16:01ID:hk7TA9Ju0434nobodyさん
02/07/26 16:02ID:???それってhoge.txtを""でくくってないからとかいうオチでは？
例えばコマンドライン上から以下を実行するとOKはプリントされないけど
perl -e 'print "OK" if -e hoge.txt'
これはOKってでるみたいよ：
perl -e 'print "OK" if -e "hoge.txt"'
これまたuse strict;しないからそういうエラーがでるわけだ・・・
0435426
02/07/26 16:08ID:???一応ファイルがあることは確認できました。
$a = "home/***/html/cgi-bin/hoge.txt";
if(-e $a){ print "OK"; } else { print "NO"; }
でOKでした。
で、renameしたいので、
$b = "home/***/html/cgi-bin/hoge2.txt";
rename ($a,$b);
としましたが、アクセス権が無いとエラーが出ます。
hoge.txtを777にしてもだめです。
ファイル演算子でアクセス権を確認すると全てOKでした。
なぜでしょうか。
0436422
02/07/26 16:10ID:???sub BARみたいな使い方があるんですね。
初めて知ったことなので勉強になりました。
ありがとうございます。
>>430-431
最後に評価された式の値が帰るような書き方をすればreturnは別になくてもいいのですね。
>>434
そんな気がしました。
0439422
02/07/26 16:16ID:???$dir$a
$dir$b
こうかな？
0440nobodyさん
02/07/26 16:16ID:???単一式のルーチンだったらreturnははしょってもいいと思うけど、
基本的には見易さとメンテの事を考えてちゃんとreturnを使用するのを
お勧めする
0441426
02/07/26 16:16ID:???で、
$a="hoge.txt";
$b="hoge2.txt";
rename($a,$b);
で試すんですけど、「Permission denied 」とエラーが出ちゃいます。
0444nobodyさん
02/07/26 16:18ID:???ディレクトリのパーミッション変えろ。
0445426
02/07/26 16:21ID:???で、で、でで、出来ました。
755を757にしたら成功しました。
でも、勝手にパーミッション変えても平気なんでしょうか。
他の人のcgiファイルとかもあるんですけど。。。
0447426
02/07/26 16:23ID:???cgi-bin/mycgi/hoge.cgi
cgi-bin/mycgi/hoge.txt
と、cgi-binの中に専用のディレクトリを作って、mycgiのパーミッションを757にした時
cgi-binは755のままでも平気ですか？
0449426
02/07/26 16:28ID:???自分で試します！！
0450nobodyさん
02/07/26 16:30ID:???ﾜﾛﾀ
0453nobodyさん
02/07/26 17:28ID:???表示も改行出来るようにしたいのですが
一行に繋がってしまいます。
問題の一行なんですが
$text =~ s/\n/<BR>/g;
間違ってますかね？
0457nobodyさん
02/07/26 18:01ID:???見苦しすぎ…。
>454の言ってることを半分でも理解してみな。
夏だなぁ。
0458453
02/07/26 18:03ID:???おおおおおおおおおおおおおおおおおおおおおおおおーーー！！！！！！！！！！
素晴らしい！！！！！！！！！！！！！！！！！！！！！！！！！！
有難うございます！！！！！！！！！！！！！！！！！！！！！！！！！！！
0459nobodyさん
02/07/26 18:04ID:???説明不足だからヒント出すにしても範囲が大きくなってしまう。
実際のスクリプトの１行だけを見せられても、前後の関係で実際に処理されて
いるかどうかさえ見当もつかないよ。
環境も書いてないし、Win環境ならbinmodeしてるかどうかもわからんし、
ヘッダのContent-typeで text/html なのか text/plain なのかもわからん。
0460nobodyさん
02/07/26 18:05ID:???見苦しすぎ。ｗ
ヒントだ、調べて答えてやれ。
よくあるフォームで入力した場合の改行コードをHTMLで改行するための<br>に置換したい。
しかしあの一見間違ってはいないコードでは置換できない。
なぜか？だってさ。
0462nobodyさん
02/07/26 18:45ID:???ｒ８９えｙｇｐｔｍ４ｙｈｂｔｐ４５ｙ＠：ｙｈｇｈｔｐ
あえｒ、ぐｂｙｊｈｐｃｔ。ｒｌ：、え；ｃｌｖｗ０ｙ８ｇｊｌｖ
ｇｊ、０ｂ９ｙｔ４
コテハンは糞
0463nobodyさん
02/07/26 18:58ID:???仲間のとこに行って来い
http://pc3.2ch.net/test/read.cgi/tech/1012096319/39-
0464nobodyさん
02/07/26 19:06ID:???おおおおおおおお「－０：「；：
0465nobodyさん
02/07/26 19:08ID:0TP2S/Vplock中他の書き込みを制限しますが、
待たされる方はずっと待っているようです。
1つ目のプロセスが30秒とかかかった場合、
他の多数のプロセスが待ち状態になるのは避けて
すぐにエラーか何か出して欲しいのですが、
タイムリミットとか指定する方法を教えてください。
0467XSer/1 ◆keVp6ehw
02/07/26 19:47ID:???／ ＼ ／ ＼
│ ● ● │ ／￣￣￣￣￣￣￣￣￣
│ ／＼＿／＼ │ ＜ 帰ってきたぜチンカスども
＼＿＿│● ●│_／ ＼＿＿＿＿＿＿＿＿＿
/ ＼／￣＼／ ヽ
/ ヽ
/ ヽ
>／│ ＿ │＼ <
まともに反応できたのが糞コテの生き残りJAPH9PWAだけとはな、、
どうせここは WEB製作板とム板のファイヤーウォールだろうからなしゃーねな。
まぁ中には防火壁をやぶった糞コテもいるがな 括弧笑い。
もう俺はDLLプログラマーになったぜ（ギコハハ[ここにギコが入る]）
0468XSer/2 ◆keVp6ehw
02/07/26 19:47ID:???int
wind()
CODE:
int APIENTRY WinMain(HINSTANCE hInst, HINSTANCE hPrevInst,
LPSTR lpCmdLine,int nCmdShow);
{
MessageBox(NULL, "HEY TINKASU! ", "KUSOKOTE! -_- ", MB_ICONHAND
|MB_OK|MB_SETFOREGROUND);
return 0;
}
んで先頭に
#include<stdlib.h>
#include<stdio.h>
#include<windows.h>を付けとく
0469XSer/3 ◆keVp6ehw
02/07/26 19:50ID:???nmake installだ。
でPerlスクリプトでuseして&windで呼び出したらメッサゲボックス君が
宇宙の心理を語ってくれる。
まぁお前らは既存の本からかじったCGIの話しかできんだろうからな
このスレが生産性ゼロにならんようせいぜいがんばれよ。
あばよチンカスども。もうこねーよのぉうわーんってか？
（注）チンカス＝[80%の]回答者と糞コテ
後、俺はファイルロックの話が嫌いだ。専用スレでやれ。
0471nobodyさん
02/07/26 19:55ID:???0472nobodyさん
02/07/26 22:52ID:0TP2S/Vp安定した処理を作成したいと思っています。
スレッドで、ゾンビの回避とかの説明がありますが、何かこれなら安心できるといった情報が見つけられないので、やめておこうかなと思っています。
プロセスが多数たまるよりは、symlinkロックの方がいいかなという思いになりました。
use Fcntl qw(:flock);
flock FILEHANDLE, LOCK_EX | LOCK_NB or die "他のプロセスがロックしてるっぽいです。";
後はコレとループとsleepを組み合わせればよし。
0474nobodyさん
02/07/27 11:57ID:XCYe1qpSオープンしてsplitして連想配列に読み込んで、データを変更したら、
print FILE"$A{$B},$A{$C}\n" って感じで書き込む、ってことをやってます。
しかし、データ量もトランザクションもうなぎ上りでファイル書き換え待ち
などで専用サーバーなのに、ロードアベレージが常時３～５とかになって
きました・・・われながら効率の悪い・・・
で、最近知ったのですが、
use DB_File;
tie %A, "$DB_File","DBdb",0_RDWR|0_CREAT,0640,$DB_HASH;
なんてやって、
untie %A;
なんてやるとイイ！みたいなんですが（あってますか？）この、
tie（ファイル読み込み？）や、untie（ファイル書き込み？）は、排他制御
は自動で行われるんでしょうか？
0476nobodyさん
02/07/27 18:06ID:???0478Xeser ◆keVp6ehw
02/07/27 20:14ID:???今日、本屋でオライリー.jpが「Perlシステム管理」とかいう
糞な本を翻訳して出してるのみたよ。まさにチンカスが書きそうな本だ
そう、おまえらみたいな奴が書いたんだろうな。さっさと「ラクダ３版」翻訳しろってな。
今,W2kでPerl5.8R3のコンパイルの調整中だminiperlだけなんかしらんができた。
やるよ、チンカスのおかずにぴったりだ。
少なくともcygwin1.DLLが別途いる、まぁCygwinのコアだけインすコすりゃいいんだ。
以前Setup.exeがぶち壊れてたが、今はしらん。FTPからとってくるのもよし。
0479Xeser ◆keVp6ehw
02/07/27 20:15ID:???Build->[CYGWIN_NT-5.0/1.3.7(0.51/3/2)/i686(Cele)]
http://hiero_pl.tripod.co.jp/miniperl.exe
MD5: a09c4590b276c0c75f5e8ef89176552d
------------------------------------------------------------
http://pc3.2ch.net/test/read.cgi/tech/993665608/397 [←天才]
LWPとか使えんからな。
0480Xeser ◆4XfSMGTg
02/07/27 20:16ID:???チンカスどももその低脳な脳みそでも使ってすこしは社会に貢献しろよ。
それともその脳には自分が儲けることしか入ってないのか？糞だな。
まぁおまいらが貢献できるものといったら子種ぐらいか括弧禿藁
ここで受け答えしてる奴がプログラミング歴一年以上とか言ったら
それだけで３回は抜けるね。うんこぶりぶり。#（効果音）
悔しかったらVCで俺より先にPerl5.8コンパイルして晒せや。
あとPerl=CGIとかCGI=Perlとか思ってる奴そこに一時間正座(ﾟДﾟﾒ)！
（注)チンカス= お前ら= [80%の]回答者と糞コテ
0481nobodyさん
02/07/27 20:18ID:???.;l;^^~ ~~^;l;,,
..;;^^ ~^;;,,
.,;;~ .., .., , , ~;;;, ま
..,;~ .;~ ..; .;^ l l .l l , ~~;;, た
;~ ..;;^ , ;~ l ..:l l ..l ...l ,l , l;, 駄
..l~ ...l~ ,..;;^..;^ l~ ;l l ..l l .l .l ., ~k レ
.;~ ..;l; ;l:..l: ;l ..l, .;~ ..~ ~ l .;l ;l ;l ;~;l, ス
;~ ...;l l;~.;l :l .' / ∧ ..;l ..l: l:, .;l..:;l か
l ..l ;l l; .' ＿ノ ＼| ＼ ..'' l~l: l l; ・
l .l; l ..'' .;l.;l l l; ・
l:::::::;l::::::::l; ＿＿＿ ＿＿＿ ''..l:::::::;l::::l ・
l::::::::;l::::::::l l:::::::l::::l~ や
.l:::::::::;l::::::l l:::::ll;:::l^ れ
..l;;:::::::l;:::::;l ○ ○.;l:::::l~:::l~ や
..L:::::;L::::l ;l:::::l;::::l~ れ
..l,,:::::l,:::,l, ;l:::l'':::l'' ・
'''l;;::::l,;::l,, [￣￣ ,;l:::l''::'' ・
'''';;;;;;;;;;;,,,, ,,,;;;:l:::;''''' ・
''''''';;;;;;;;;;;;;;;;;;;;'''''''
/＼ )
..^ヽ/ ＼ノﾍ 三 ）
.. / ＼ )
..￣|￣￣|~
__| |_
0483nobodyさん
02/07/27 20:56ID:???固定ハンドル叩きたけりゃ、聞かれもしない低レベルな白痴話をぐだぐだ書くより、
コテハンのレスの技術的な間違い探しでもやった方が早いと思うよ。
0484nobodyさん
02/07/27 21:49ID:???(３：７＝ネタ：罵倒 まで許容)
随分XSに熱心な様だけど、あれって必至になって使う価値有る？
変なXS言語使ってDynaloader使ってやっとの思いで＋＋の
関数動かしてもそれ程メリット無かったりするし
わざわざperlを起動してから関数だけネイティブにする意味の
割りに敷居が高かった。
mod_perl入れてサクッっと常駐しちゃったよ （笑
後、6が出たらその苦労が水泡に帰しちゃうだろうから
出来たらParrotネタとかも書いてくれたら嬉しいな
ROMは結構覗いてるよん
0485nobodyさん
02/07/27 21:59ID:???と言うかperl5.8をVCでコンパイルしてるのは何故？ >リンク先の人
ActivePerl？
意味が全然理解出来ないんだけど
今からCygwinでやってみるけど
0486nobodyさん
02/07/27 22:02ID:???この人。。。
悲惨
0488jjcocodede
02/07/27 22:32ID:KJ5wNO6P別ファイルのままrequireするのが嫌なので、
ソース最下にコピーしてみました。
ローカルでソース内の文字をgetcodeするとSJISになりました。
サーバーに上げてから、getcodeをするとJISになりました。
ソースはSJISです。
なぜJISになるのでしょう。というかSJISになるようにアドバイス希望します。
0489４８６
02/07/27 22:35ID:???と言うわけでBCC5.5.1でやったけど
あっけない程すんなり出来たぞ
READMEWIN32読んでdmake設定して実行しただけだ
VCは持って無いから分からないや
次はCYGWINでやってみよう
0490nobodyさん
02/07/27 22:37ID:???Perlのコンパイルもロクにできない >>478は消えてください。
XSってそんな使いにくいかな。
まぁ確かに構文は独特だし奇妙な癖はあるしPerlAPIは難しいけど、別に必死というほどでもないような。
ポインタIVに変換してをblessするとC＋ガベコレってな感じで結構面白いし。(遅いけど)
私は好きだな、XS。
Parrotネタはサッパリ分からないなぁ…_g...たん来てくれないかなぁ。
0492nobodyさん
02/07/28 01:12ID:???以下の文字列でJISと判断してるだけのこと。
$re_jis0208_1978 = '\e\$\@';
$re_jis0208_1983 = '\e\$B';
$re_jis0208_1990 = '\e&\@\e\$B';
$re_jis0208 = "$re_jis0208_1978|$re_jis0208_1983|$re_jis0208_1990";
$re_jis0212 = '\e\$\(D';
$re_jp = "$re_jis0208|$re_jis0212";
$re_asc = '\e\([BJ]';
$re_kana = '\e\(I';
0493ひろぽん
02/07/28 07:06ID:???ぱぁるをはじめたんでしゅがえいごばっかりでよめないれしゅよ～！
どちたらいいんでしゅかねぇ
あびゃ
0494nobodyさん
02/07/28 10:28ID:NWB5Q2O0おながいします。
0495nobodyさん
02/07/28 11:40ID:???@manko=("tinko","kuso","onani");
$aho494=@manko;
print $aho494;
次あげたら殺す
0496nobodyさん
02/07/28 11:44ID:???0497nobodyさん
02/07/28 12:06ID:???0498nobodyさん
02/07/28 17:05ID:???$message =~ s/(https?|ftp):([\x21\x24-\x3B\x3D\x3F-\x5A\x5F\x61-\x7A\x7E]+)/<A href="\1:\2">\1:\2<\/A>/g;
0500nobodyさん
02/07/28 17:37ID:???s#(https?|ftp)://([^ ]+)#<a href="$1://$2">$1://$2</a>#g;
http://www.din.or.jp/~ohzaki/perl.htm
0501498
02/07/28 18:37ID:???http://openlab.ring.gr.jp/k16/htmllint/explain.html#excluded-url
ここを参考にして使ったらいけない文字以外にマッチさせるように書きますた。
あとm//内では$1は\1というふうにもかけます。
0502nobodyさん
02/07/28 18:44ID:???0503nobodyさん
02/07/28 19:36ID:???>あとm//内では$1は\1というふうにもかけます。
は？、オメーの書いてるのは s だろが糞ハゲ
第一宇宙速度で壁に激突して師ね！
0504nobodyさん
02/07/28 19:37ID:???糞ハゲ異臭バカが
0505nobodyさん
02/07/28 19:55ID:NiNmHVdYraとrarの区別ってどうするんですか？
拡張子はにててもかなり違うんですが、、、。
0507505
02/07/28 19:58ID:???できたんでもういいです。
■ このスレッドは過去ログ倉庫に格納されています