TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
bbs.cgi開発【WebProg板】
インストールマニアックス3 Hyper-V祭 Part2
CodeIgniter Part3
Ruby VS PHP 仁義なき戦い
【Perl上級者コーナーPart01】
PostWikiスレ 当ての無い旅路へ
アプリケーションサーバって必要?
Perl6/Parrotスレ - Part2
【Perl上級者コーナーPart01】
せっかくだからPHPで掲示板作ってみませんか?
【CGI】合同開発室
- 1 :01/10/02 〜 最終レス :2017/12/30
- 合同で学習用スクリプトとかの開発をできないかと思って
iswebだけどアプロダ置いてみました。
http://isweb36.infoseek.co.jp/computer/perldev/
参加してくれる人キボン
- 2 :
- もちろん私もなるたけ参加します。
私はちまちまサブルーチンやアプロダをやる予定。
チャットとかもやってみたいけど設計はとくにへたれだからなぁ。
- 3 :
- 空中分解するでしょう w
- 4 :
- >>3
掲示板改造するって人らが来てくれるかなぁとか思ってるんですが
うう,やっぱそうですかね。
- 5 :
- つかここ人少ないからねー ヽ(´ー`)ノ
でもPG板でソースアプ板無いのも何かと不便だから
「ソースなら良いですよ」ってスタイルならポインタ示したい
時なんかに便利じゃないかな、それで副産物的にテクニックが学べると
いいね お互い
- 6 :
- >>5
exeやrmとか置かれるとさすがに困るけど,
Cとかのソースなら範囲内と思てます。
アプロダはざっとしかソース見てないんでちょと不安。
はやく把握したいけど私にはむつかしい・・・
- 7 :
- Network.plを上げてみた。
- 8 :
- またいきなり厨房臭いところから攻めてきたね :-)
まあ方向的には良さそうだが・・・
- 9 :
- ここの掲示板をつくろうスレって結局完成したんだっけ?
- 10 :
- 何人か作ったと思うけど、共同では完成してないよ。
もっとも、あのスレは共同開発の雰囲気でもないよね。
- 11 :
- CGI.plアプ。
クッキー読み書き,フォームデコード。
今回,POST・GETの切り分け,自動判別や,GETのみ取得,ファイルアップロード対応,とかは保留。
アプロダはテンポラリファイル削除でエラー出てるのをなんとかしたい。
上のを実装したらアプロダ作りに挑戦する予定。
- 12 :
- へたれっぷりを再認識しつつCGI.plのフォームデコード部分をアプしてみました。
メソッド判別して,POST・GETそれぞれのデコード関数に振り分けるように。
次はファイルアップロードのを予定。
あそこに上げたのはいじられる覚悟の上ですんで,
修正や添削してもらえるとありがたいです。
いじられるのに同意してくれて俺の関数もどうよ?
って人が何人かいると共同開発の雰囲気になるかなぁ。
- 13 :
- マルチパートを綺麗にデコードしてくれー (笑
- 14 :
- multipart/form-dataのフォーマットがわからなかったので
そのままGETみたくデコードしてました。
とほほとかで調べてみます。
ちんたら調べてる間に添削されたのがアプされてたりなんかすると,
オープンソース開発ぽいかも。
- 15 :
- CGI.pmじゃだめなの?
- 16 :
- マルチパートデコード調べてみました。
残念ながら実力不足で実装までいけそうにないです。
>15
学習用にと思いまして。
- 17 :
- > ちんたら調べてる間に添削されたのがアプされてたりなんかすると,
>オープンソース開発ぽいかも。
申し訳無いが、今の所「いまさらそれ?」的なものだけなのでね。
CGI.plにしても15の言うとおり、CGI.pmがあるわけだし。
まぁ頑張って下さい(スレと関係無いのでサゲ
- 18 :
- 遠慮なく人のソースいじるってのは他のとこだとできないんで,
ここがそうなればなぁと思ってましたが,私じゃ力不足だったようです。
だれかが作ってくれないかなぁと思って待ってても
できなかったので,自分がアプロダ置きました。
何も無いところにアプする人がいるとも思えなかったので,
自分が書いたのを上げました。
ランダムアクセスとか,超高速日本語コード変換とか,
すごい人の 役にたてるのを作れるほどの実力があるとは思えないので,
自分くらいのレベル向けにいろんなののをメモしとこうと
書いてました。
人が来るようになったら誰かにアカウント移そうと思ってましたが,杞憂でしたね。
- 19 :
- というかこれは「合同開発室」じゃなくて
「私のプログラムを添削してください」ですね。
- 20 :
- この板住人の数が少ないからねー。もすこし待っててみ。
2週間ぐらいスレが生き延びれば定着するよ。
そのためにはネタを出し惜しみして、
ヘッドラインから消えたらageるぐらいでちょうどいい。
- 21 :
- >ヘッドラインから消えたらageるぐらいでちょうどいい。
う。全然ちょうどよくねえ!
よく見たら最終書き込み9月25日の雑談スレが
まだヘッドラインに残ってるじゃねーかよ!
この板の回転の遅さを甘く見ていた。
あらためて寂寞を感じる今日このごろ。。。
- 22 :
- 一応自作Scriptを書くらいは何とかなるんですが、人様に教える程
には知らない事が多すぎる自分。
multipart/form-data は、先日(勉強も兼ね)自前で実装させたん
ですがRFCやらCGI.pmやら見てかなり泥縄でやったので見せるほどの
物でも無し…(ブラウザごとの実装の違いの可能性はほぼ気に
しなかったし…)。
とは言うものの、スレの趣旨は悪くないので出来たら応援したいっす。
>>21
でも不思議な事に糞スレやら糞カキコは後を絶えないんですよね…。
- 23 :
- >>1
似たようなスレの末路
http://ebi.2ch.sc/test/read.cgi/php/1001318195/
- 24 :
- CのをまねしてAssert.pl作ってみました。
条件式と変数のリファレンスを渡すと,条件が偽の時STDERRに
条件式と,パッケージ・ファイル・行,変数の内容を吐きます。
たぶん今回も車輪の再開発です。
- 25 :
- CGI.plを勉強用で片付けないで、CGI.pmを超えるものを作ればいいじゃん。
というわけで、CGI.pmの問題点とか挙げていこーよ。
とりあえず、h1とかHTML生成用のメソッドと、paramとかを分離してくれ。
#HTML::Templateを主に使っているので、h1とかいらないんだよね〜。
- 26 :
- >>24
ファイル名をAssert.pmにして、assertって関数名を
mainパッケージにエクスポートすると使いやすくない?
正式にExporterのサブクラスにするとかの
おおげさなことじゃなくて、どっかに1行
*main::assert = \&assert;
を入れてmainからアクセスできるだけでもいいと思うんだけど。
こんなふうに、必要なとこでrequireして使う感じ
:
require Perldev::Assert;
$_ = 'AAA';
my $hoge = 'BBB';
assert( q[$_ eq ""], (\$_, \$hoge) );
:
- 27 :
- 遅くなるだけで無意味だけどBoolean.pm
- 28 :
- つーか.plと.pmの拡張子は認めてくれよ。
- 29 :
- >>25
use CGI qw(:cgi);
でいいかと。
- 30 :
- >>27
もらったよ。use overloadの勉強用に。
- 31 :
- >>28
だから全部".txt"だったのかよ!
- 32 :
- アプロダの設定変えました。
たぶんこれで.plと.pm置けるようになったはず。
Boolean.pm見て勉強してきます。
- 33 :
- ドキュメントをpodで埋め込まないなんてナンセンスだよ。
- 34 :
- >>33
ごもっとも。自分でもそう思った。
学習用のなんだから面倒くさがらずにやりゃよかったな。
- 35 :
- おい、行けなくなってるぞ。
- 36 :
- 突然動かなくなったのでいろいろいじってみましたが治せませんでした。
サポート掲示板によると,isweb36サーバーの一部が落ちてるみたいです。
- 37 :
- サーバー復帰したみたいです。
ついでに画像閲覧とかFTPとかの使わなそうな機能を削りました。
- 38 :
- age
- 39 :
- 低機能アップローダあげました。
このペースだと来年すぎまでかかりそうなので,
今回は自分でフォームデコードはせずに,CGIとFile::Copy使ってます。
content-typeだけでファイルタイプを判定してるので,
plやpmはtxtになっちゃいます。
CGI.pm使ってHTMLを書いたけど,使いづらいしソースも見づらいので
こういうのに便利らしいHTML::Templateを調べてきます。
- 40 :
- 何か知らんけど頑張れ! (・∀・)
- 41 :
- ヘタレながら参戦。
「CGI」の「テキスト」カウンターできたよ〜。
- 42 :
- >>41
@file = <IO>;
foreach (@file){ }
より
while(<IO>){ }
の方が良いと思われ。
- 43 :
- ヘタレにつき、詳細キボンヌ。スマソ。
- 44 :
- いちいち@fileに入れずに、while(<IO>)で一行ずつ処理する方が、
サーバーにも優しいカウンターになる、という意味だと思われ。
- 45 :
- あれ位のHTMLなら気にする事も無いのかもだけどね
例えばトップが50KBのhtmlとかだと50KBの配列が出来ちゃう
と言うかテキストカウンターっぽい事をしたいなら
読み書きモードでopenして、カウンターの位置までseekしてprint
した方が良いよ。ヘッダなんかを書き換えた時はメンテする必要が
有るけどね。
- 46 :
- >>24
うん、Perl5に標準添付されているライブラリ assert.pl があるよ。
# Usage:
#
# &assert('@x > @y');
# &assert('$var > 10', $var, $othervar, @various_info);
#
# That is, if the first expression evals false, we blow up. The
# rest of the args, if any, are nice to know because they will
# be printed out by &panic, which is just the stack-backtrace
# routine shamelessly borrowed from the perl debugger.
- 47 :
- >41
ロックのところは open or die "Error:$!" みたいに
if ! 使わずに or 使ったり $! も表示したりしたほうがいいと思う。
- 48 :
- >40 ありがとう。ちまちまやってきます。
>41 参戦感謝。
>46 情報感謝。
CPAN繋がらなかったんで検索しなかったんですが,標準で付いてましたか。
標準添付のを見てみたら,以外とライブラリもあるんですね。初めて知りました。
--
HTML::Template調べたところ,以外と簡単そうです。
今日は試しにアプロダの,テンプレだけを書いてみました。
- 49 :
- > my ($i, $count) = (0,0);
> foreach (@source){
> if ($source[$i] =~ /<!--count-->([\d]+)<!--\/count-->/ig) {
> $count = $1;
> $count++;
> $source[$i] =~ s/<!--count-->[\d]+<!--\/count-->/<!--count-->$count<!--\/count-->/ig;
> }
> $i++;
> }
こんなわけのわからない処理は止めなさい。
foreachの使い方がわかってない。
あと、変換はs///eg一発で出来るよ。
もっと言うと、テンポラリファイルに書き出してからrenameしたほうがいい。
openの戻り値はきちんとチェックしようね。
&lock_file;
open SRC "$source" or die;
open TMP "> $tmp" or die;
while (<SRC>) { s///eg; print TMP $_; }
close SRC;
close TMP;
rename($tmp, $source);
&unlock_file;
こんな流れで。
- 50 :
- >>44 >>45
どうも、ありがとうです。
一回の読み書きOPENで書き換えするのに、seekでカウンター値の先頭への
ポインタを得る方法を考えていたら頭から煙が出てきました。
# なんか見当はずれなことしてんのかなぁ。
>>49
> こんなわけのわからない処理は止めなさい。
厨スクリプトでお目汚しスマソ。
> あと、変換はs///eg一発で出来るよ。
s///egってのがあるんで?勉強してきます。
> もっと言うと、テンポラリファイルに書き出してからrenameしたほうがいい。
そか、一旦、テンポラリに書き出してそれからリネームすればいいのか。
それで昨晩ずーっと悩んでました。
> openの戻り値はきちんとチェックしようね。
Σ(;´Д`)
あっ、ホントだ。してなかった。鬱だ。
大変参考になりました。ありがとうございました。勉強になります。
出直して参ります。
- 51 :
- Caller.pm上げてみた。
my $cl = new Caller;
print $cl->line;
use Caller qw(caller) でオーバーライドも。
- 52 :
- >51
勉強用にいただきました。じっくり読めばなんとか理解できそうです。
39:*pkg = \&pakcage;
typoぽいです。
--
すごいなー私も頑張ろう!とあぷろだ上げました。
変更点は,昨日のテンプレ修正と,ファイル名変更,表示部にテンプレ導入,他に少しです。
- 53 :
- >>45
こうすればメンテ不用になるぞ、っと。
while (<HTM>){
    if (/<!--count-->(\d+)<!--\/count-->/){
        seek HTM,-length,1;
     #書き換え
        last;
    }
}
でもdだ時HTMLごと逝っちゃうのはイヤな感じかも (w
- 54 :
- > seek HTM,-length,1
これなに?
- 55 :
- >>50
s///eg のeオプションはいらないだろう。
- 56 :
- >>55
たとえば、
s/(\d+)(?=<!--\/count-->)/$1+1/eg
とか。
- 57 :
- >>56
いやだから、上記の例では必要ないだろうと言っているの。
- 58 :
- >53 おー さんちぇ!
そっかバックすれば良いんだネ、うちはカウンターまで4行しかないから
イイ(・∀・)感じになったヨ
:でもdだ時HTMLごと逝っちゃうのはイヤな感じかも (w
うちは閑古Webだからネ、一応ロックバリバリにしてるけど今の所大丈夫みたい
200hit/DAYって感じだからかナ
>54
seek HTM,-length($_),1だヨ
- 59 :
- >>50 に書いてある流れで、
s/// だけでカウンタインクリメント出来ると?
- 60 :
- 55は49を読んでないツッコミ症候群だと思われ、、、
- 61 :
- あぷろだv0.1.0上げました。
投稿削除ができるようになりました。
変更点は,ログフォーマット,delete.pl・delsetup.tmpl導入,他少し。
ログフォーマットも大体固まったので明日あたりにiswebにサンプル置きます。
--
>45 >>58
HTML書き出し式カウンタを使ってるんですか?
実際に使うには,普通の,カウントを別ファイルに持つ形式より
危険な感じがするんですが,利点とかてありますか?
煽りとかじゃなくて,純粋に気になったので。
- 62 :
- >>61
SSI使えないサーバでも使える。ってのがたぶん利点。
それ以外では使う理由ない。
あ、あとはカウンタ表示自体ではCGI起動しないってのもかな。
- 63 :
- あれ、すみません、俺は61じゃない。
- 64 :
- >>62
このカウンタって
・htmlにアクセス・表示
・IMG経由でCGI呼び出し
・htmlを解析してカウンタ部分を加算
・html書き出し
という方法ですよね?
これだと以下みたいなのと比べると,
毎回htmlを書き出すんで負荷やあぼーん率が高くなりそうと思って。
・cgiにアクセス
・index.tmpl読み込み
・count.dat読み込み
・カウント
・index.tmplの特種タグ(0<!-- __%%COUT%%__ -->とか)置き換え
・count.dat書き出し
・print
うー,ちょっと混乱してます・・・
- 65 :
- えっと、
index.htmlのimgタグ(ボクはiframe)でcount.cgiをキック
index.htmlをopen (+<モード)
特種タグ(0<!-- __%%COUT%%__ -->とか)までseekでジャンプ
特種タグ(0<!-- __%%COUT%%__ -->とか)だけ書き換え
close; exit;
ですヨ
理由はSSI出来ないからデス、後UAとかHOSTとか要らないので
外部ファイルは無いデス、(一応重複防止にクッキー吐いてるケド。。。)
だからファイルを一つだけ、一回だけ開いてexitデス。
:あぼーん率が高くなりそうと思って。
うー、これはボクがwriteシステムコールの
アトミック性を理解出来て無い(どれ位で分割されるのカ)のでアレですケド、
実は多分0バイトにはなりようが無いデス、truncateして無いので0バイト
になる瞬間が無いのデス、VMWARE使って、ファイルロック無し、
forkで50プロセス×3ホストから同時アクセスを何十セットかしてモ、ミスカウントは
したけど飛ばなかったですから。。(この辺は突っ込み歓迎デス)
これはflockが信頼出来なくて0になると鬱な時とかちょっと(・∀・)イイかも
知れませン、例えばカウントファイル(カウントだけ)を、、、
open (DAT,"+<foo");
flock (DAT,2);
truncate DAT,0;
seek DAT,0,0;
print DAT "$count";
じゃ無くテ
open (DAT,"+<foo");
flock (DAT,2);
seek DAT,0,0;
print DAT "$count";
truncate DAT,length($count);
とか。。(これも突っ込み歓迎デス)
取り合えず今のところ50000くらいだけどdでないのデス。
- 66 :
- truncate ってどんな実装よ?
>truncate DAT,length($count);
ここで小さくなったりしないのか、、しないよな、うーん。
- 67 :
- おおお、しばらく見ないうちにおいらの分からないエリアに入ってる...
これを作ったのは、某所で、CGIのテキストカウンターってないの?
という話があったからなんです。で、んじゃ作るかと思って作ってみた
ものなのですが、いやぁ、おのれのあまりの未熟さを痛感しました。
なんか場違いでスマソ。 >1,ALL
- 68 :
- >>66
カウントファイル的には桁数が前より小さくなることは無いので、
truncate DAT,length($count);では小さくならないね。
ってことは truncate かける意味も無いけど。
- 69 :
- >>67
CGIのテキストカウンター
http://www.around.ne.jp/software/fastky/library/index.html#counter
- 70 :
- >>65 ありがとう。なんとなくわかりました。
>>67
ぜんぜん場違いでないと思いますよ。
スレが活発化しました。
- 71 :
- >>65のソースキボン、、イマイチ解らん 鬱
- 72 :
- >>69
それ、なってない。
- 73 :
- >>69
<counter></counter>なんてワケのわからないタグを使用している時点でアウト。
仕組みは同一だし。
- 74 :
- +> 使ってるのなんて始めて見た。
しかもこの場合意味無いどころか、いったんtruncateされるので
タイミングによってはindex.htmlが正常に見られない。
- 75 :
- お、何か盛りあがってますネ
良く考えたらアプ板なんでボクもあげましたヨ >>71
>>53さんのが入ってるでス
flockコメントアウトしたりしていぢめてみてくださイ
調子にのるとカーネルらー に突っ込まれそうなのでこの辺で退散 ササッ(((・∀・;)
http://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/upload/source/017.txt
- 76 :
- ところで>>1よ。
アプロダの
A:hover {color: red; font-weight: bold;}
このドキュソスタイル指定を消してくれ。マジウザイ。
- 77 :
- カーネルらー、ってなーに??
- 78 :
- >76 了解。消しました。
--
あぷろだ,テスト設置してみました。
iswebなので,コピペで飛んでください。
ttp://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/tiny_upbrd/upload.cgi
まだ拡張子の判定がイマイチです。
- 79 :
- >78=1
拡張子指定できるようにしました。
http://isweb36.infoseek.co.jp/computer/perldev/
からもいけます。
- 80 :
- >>75
これ良いな、ちょっとflock外して5万回位叩いてみたけどHTMは勿論カウンタデータも飛ばないよ
良く考えたらとびようが無いんだな。syswrite使っとけばより安心って所かな?
俺の使ってる所時々ファイルが飛ぶから、上のKY何とかみたいなのは怖くて使えないんだよ
俺もアクセス解析とか要らない派だから外部ファイル無いのも気に入った
ちょっと弄って使わせてもらうよ THANKS!!
- 81 :
- >>80
flockしなかった場合に本当に常に1ずつインクリメントされるかどうかは疑問。
- 82 :
- 疑問って・・・される訳ないだろ 藁
- 83 :
- >>80
5万回つーても、同時アクセス数いくつに設定?
- 84 :
- 先生!出直してきました。
また見てやってくださいませ。
http://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/upload/source/018.lzh
- 85 :
- 何っつーか、、
>>81 やってみれば?
>>83 5万回÷俺の環境で許されるほぼ最大のプロセス数だけど?、
つーか君はディスクアクセスなんてオーバーヘッドの馬鹿デカイ処理に対して
単にローカルでforすりゃ十分って事が分からないのかい?
まー良いや取り合えず>>75 有難う!
- 86 :
- >>85
いやーん怒んないで。Apacheのおまけについてくる
abコマンドでベンチマークとったのかと思ったんですよう。
- 87 :
- あ、こっちもスマソ fork×50でtrigger.plをexec trigger.plで1000forて感じ。
これ以上はNTだとヤバイから、ローカルはIISだからabコマンドは解らないよ
HTMをパースしてそこだけ書き換えるってのが、本物SSIっぽくて
ちょっと良いなと思っただけ、別に飛ばない方法なら幾らでもあるし
と言う事で外野は去る事にする。
- 88 :
- 疑問っつうか、されない事わかってて言ってますよ:-)
- 89 :
- ゴミどもめ。
早く死になさい
- 90 :
- (´-`).。oO(また変な流れになってきたね・・・)
- 91 :
- わかってて疑問なのかよっ!!
- 92 :
- >>84
取り合えずCGIならdieは辞めとけ、エラールーチン書いてそこに飛ばせ
ただ例えばファイルが100kbだとして、書き換えたいのは20バイト足らずなのに
毎回全部書き直すってのは効率はよろしくないってこった、
その程度の効率は俺は気にしないけどな、それが嫌なら75のをパクれ
- 93 :
- 100kbのHTMLファイルなんてヤダ!(いや、わかってるよ
- 94 :
- あぷろだのネタが思いつかなくなってきたので,XBM表示CGI作りました。
<IMG src="xbm.cgi?100">で100と表示します。
サンプルは
http://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/print_xbm/view.cgi
です。
□と■の文字列から画像データを生成するようにしてみしたが,
変換処理,ごちゃごちゃして少し読みづらくなっちゃいました。
- 95 :
- (´-`).。oO(移転あげなの・・・)
- 96 :
- >95
ありがとです。
今ちまちまとネタCGI(物語自動作成)作ろうとしてるんですが,
いきなりデータ形式でつまってます。
作ってみたいのいくつかあるんで,浮気しながらちょこちょこ書いてこうかと思います。
- 97 :
- (´-`).。oO(ちょっと別スレで使わせてもらっちゃった・・・・ダメ? )
- 98 :
- >>97 全然問題ないです。そういう意味もこめて置いたので。
--
改造工房用にアプロダ置いたら,どのくらい利用されると思いますか?>ool
- 99 :
- >>98
ログ設定を大きくしていると利用されやすいかも。
すぐに流れると、投稿する方も閲覧する方もツマンナイし。
(ぁゃιぃ風味は止めた方が良いですよ)
- 100 :
- あぷろだ v0.1.2をあげました。
>>1 からいける,「あぷろだテスト」のほうです。
CONFIGとテンプレまわりいじって,CSS使ってみました。
- 101 :
- あぷろだ v0.1.2.1をあげました。
最適化とバグとりです。
複数ページ化をどうやるか考えてます。
- 102 :
- >>101
v0.1.2とv0.1.2.1を展開するとupload.cgi.binのようなファイル名になって
各ファイルにバイナリっぽいヘッダが付いてるんだけど、
もっかいアップしなおしてもらえませんか?
- 103 :
- あっ,すいません,MacBinaryで圧縮かけちゃってました。
0.1.2.1あげなおしました。
多分これでおけだと思います。
- 104 :
- 複数ページ化したv0.1.3,あげて設置しました。
>>1 からいける,「あぷろだテスト」です。
- 105 :
- 初心者スレで教えてもらったのを忘れないようにと
vars.pmいじってglobal.pm作ってみました。
グローバルな変数とかをシミュレートします。
- 106 :
- マッタリ上げ♪ (・∀・ )
今一盛り上らないのはCGIの悲しい所かな、、、
Cと違ってperlは関数に千切りすぎると極悪に遅くなるからねー
今Socketで遊んでるから、LWP::Simpleもどきでも出展してみようかしら w
- 107 :
- ログファイルをモジュール使ってうまく管理できないかと
オブジェクト指向のを調べてましたが,なかなか難しいです。
DBやTieのやり方が関係あるのかな。
>>106
分割してくと遅くなるんですか。今まで千切りまくってました(^^;
Socketとかさっぱりわからないので,ばりばり使ってる人を見ると
すごいなぁと思います。
- 108 :
- >107 のモジュール考えてたら,あぷろだにバグ見つけました。
ロックがかかってるようで全然かかってません。
修正は少し手間取りそうです。
- 109 :
- 設置方法がわからない
- 110 :
- えと,あぷろだなら,新しいCGI.pmとHTML::Template.pmをパスの通った適当なところに入れて
パーミッション設定して,upload.cgiの1行目のパスを変えて,
2〜16行を削れば動くはずですが,自信無いです。
Perl勉強中の素人が書いたのでバグ入り低機能・高負荷です。
今フォームデコードも単体でできるようにと いろいろ書き換えてますが,手間取ってます。
- 111 :
- 解凍の仕方がわかんない
- 112 :
- ↑ 生きる価値ゼロ v(^v ^*
- 113 :
- 死に方がわかんない
- 114 :
- >>113
http://choco.2ch.sc/test/read.cgi/news7/1009233792/
- 115 :
- 『改造クン』とかいう共産主義者で偏差値80以上の高校生(現在2チャンネラー)の
クソガキが運営している最低なHPスペースです。
ユーザーの事など全く考えずに、こづかい稼ぎだけが目的で営利主義に走ってやがります。
天罰を与えてやりましょう!!
イタズラ登録をしまくって下さい。悪用しちゃってもいいですよ!!
鯖に負荷かけまくって責任とらせるってのも面白いかも(プ
http://k-server.org/ http://k-server.org/ http://k-server.org/
http://k-server.org/ http://k-server.org/ http://k-server.org/
http://k-server.org/ http://k-server.org/ http://k-server.org/
http://k-server.org/ http://k-server.org/ http://k-server.org/
この文章のコピー・転載を歓迎いたします。
- 116 :
- >>115
よくも飽きずに自作自演してんなぁ。
- 117 :
- >>92
あとあれです。
openの後のdieは、||ではなく、or dieを使うことが推奨されています。
(らくだ本では。perlfuncにはその記述はありませんね)
いずれにしても、処理に失敗したらエラーメッセージを出す仕組みは
必ず必要になるので、簡単なスクリプトであっても、
用意して置くに越したことはないと思います。
- 118 :
- >openの後のdieは、||ではなく、or dieを使うことが推奨されています。
その根拠は?、優先順位理解する方が大切じゃないかと思うが
是非説明おねがい
- 119 :
- >118
>その根拠は?
当ててみな( ゚Д゚)y-~~~
- 120 :
- 評価順位知らない馬鹿がカッコ外して嵌るから ヽ(´ー`)ノ
- 121 :
- 浮上
- 122 :
- JavaのInterfaceをヒントにInterface.pmを作ってみた。
ホントはMLに投稿しようと思ったけど、
急に2週間ほどネットに繋げないことになったんでここで。
全然磨いてないけど着眼点は悪くないと…自分では思う。
- 123 :
- >>122
5.6入れてないんで動かなかったけど
これを使うとメソッド名の統一ができるのかな
最近メソッドの命名に悩んでたので参考にさせてもらいます
- 124 :
- >>115
偏差値なんて相対的な物だから自慢したいならまず偏差値80を出した
テストを明らかにしてね。
- 125 :
- テストを明らかにしても意味は無い (笑
- 126 :
- あげ〜
- 127 :
- 無常を爭ひ去るさま、
http://pc.2ch.sc/test/read.cgi/perl/1009299447/129
- 128 :
- あぷろだ1.01。
HTMLソースの下の方にベンチマークを書き出すようにしました。
Logs.pmを使ってログを管理するようにしました。
まだ中途なのでsage。
- 129 :
- 名前も保存されるようにするのってFTP機能じゃないとダメなのかな
- 130 :
- ?別にリネームしなければいいだけでろ?
穴だけど
- 131 :
- あぷろだなんだが、{}で囲ってなんかやってるとこあるじゃん。 { # ○整形
みたいにね。
ここはさ、メソッドとして抽出したほうが見通しよくなるとおもうんだが、、、
- 132 :
- >リネームしなければいい
もれじゃできねえから、できたらだれかやってくれ
- 133 :
- ユニークである必要があるし、このままでいいだろ。
コメントをちゃんと書けば不便じゃないさ。
- 134 :
- >>133
サーバに保存されるファイル名と、ダウンロードされるファイル名は
一緒である必要はないから、OKと思う。
ただ、ダウンロードのためだけにCGI起動させるのはアレなんで、
mod_rewriteとか通してやれば素敵になりそう。
- 135 :
- >>131
ありがとうございます。
あのあたりはごちゃごちゃしてるので なんとかしたいと思ってるんですが,
分けようとしても速度遅くなるわ変数のやり取りが見辛くなるわで
うまく書けなかったのでああなってます。
ああいう切り分けとかをサクっとできればいいんだけど,
時間かけて悩んでる割に大したモノが書けない・・・
- 136 :
- >>1 気づいた点をすこし。
[main.pl]
> use lib '/home/mas/www/library', '.';
* 環境に依存する部分は下記みたいに分離した方がいい。とくに多くの人に使ってほしいの
なら。
BEGIN { do "setenv.pl" if -e "setenv.pl" }
BEGIN { push(@INC, $ENV{YOUR_PERL_LIB}) if $ENV{YOUR_PERL_LIB} }
* "." は必要ない。
* パフォーマンスにこだわるのなら lib は使わない。内部でConfig.pmをつかっ
ているので以外と重い。
> use CGI;
必要とするCGI.pmのバージョンは?
おれは2.46なんで、CGI::cgi_error、CGI::uploadとかないと怒られた。
- 137 :
- >>136
ありがとうございます。
CGI.pmは2.47からupload()や cgi_error()が実装されたようなので,
2.47以上が要ります。 開発では2.78使ってます。
前はバージョン指定してましたが,書き換えた時に消しちゃったみたいです。
- 138 :
- 依存しているモジュールとバージョン、そのモジュールが取得できるURL あたりをドキュメントに書いといてもらえるとうれしい。
iswebは5.6.1かぁ。。。5.005_03ってもう古いのかな。
- 139 :
- >138
Perlの作者タンが、5_005_03なんてつかってちゃいやぁん
ていってるよ??
なんかセキュリティ的にもよろしくないそうです。
- 140 :
- そうなのか。じゃあ漏れも5.6.1に移行しよっと。
- 141 :
- >>139
ソースきぼんぬ。
- 142 :
- 「セキュリティ的によろしくない」の部分をもっと詳しくキボンヌ。
- 143 :
- >141-142
て・め・え・で・し・ら・べ・ろ(・∀・)
- 144 :
- ていうか、俺も出自忘れちゃった。
エラソーニイッテゴメソヨ(・∀・)
Perl5.6.1のドキュメントの日本語訳のサイトの端書きの
作者の言葉の部分、あそこだったと思います。
- 145 :
- いえいえ、ボンクラ厨房の分際で高貴なる2chBBSに書き込んでしまって
申し訳御座いません。
所で少し疑問なのですが「出自」って何ですか?
出典 と
辞典 を
脳内合成して
出自 になるんでしょうか?
なんて読むのこれ「でぢ」?
- 146 :
- >>138
今回も次のまで時間かかりそうなので,とりあえずですが
必須らしい環境を書いておきます。
perl5.005
CGI.pm 2.47
http://search.cpan.org/search?dist=CGI.pm
解説: http://member.nifty.ne.jp/hippo2000/perltips/Cgi.htm
HTML::Template.pm
http://search.cpan.org/search?dist=HTML-Template
解説: http://member.nifty.ne.jp/hippo2000/perltips/html/template.htm
KCatch.pm #use CGI::Carp 'fatalsToBrowser' で代用できるかも
http://www.kawa.net/works/perl/catch/
解説: http://www.kawa.net/works/perl/catch/KCatch-j.html
- 147 :
- >>145
>所で少し疑問なのですが「出自」って何ですか?
どういう風に笑って欲しくて書いたのか教えてくれ。
- 148 :
- >>147
あ、笑って欲しかったのか。
思わずマジレスしそうになっちゃったよ。
ごめん。
- 149 :
- >145
gooで「出自」調べて読むか、自分なりに読んだらいいよ。
「浜崎あゆみ」って読もうと「田中真紀子」って読もうと「ムネヲ」って読もうと
奇異の自由だよ。
- 150 :
- ようするに、>>145はボンクラ厨房未満だった、、と。
- 151 :
- >150
何怒ってるの?
- 152 :
- >>151
どこを見れば怒ってるように見えるのか問い詰めたい。
- 153 :
- >>149
http://dictionary.goo.ne.jp/cgi-bin/dict_search.cgi?MT=%BD%D0%BC%AB&sw=2
gooで引いてみたよ。
しゅつじ 【出自】
(1)でどころ。うまれ。出所。
(2)文化人類学で、個人が生まれた時から認識される系譜関係。血縁。「―集団」
- 154 :
- 自分の知らない単語=造語
って思ってる緒ヴァカさんがいるスレはここですか?
- 155 :
- multipartデコードを自力でやろうとしましたが,
把握できなくなってきたので,CGI::Minimalを試してみてます。
時間がたっても楽に読めるように書くのって難しいです……
- 156 :
- あぷろだ v1.02上げました。
何回も見直してバグは無いはずなんですが,
ポカしてるんじゃないかとちょっと不安です。
変更点は以下のとおりです。
・package uploader; と明示するようにした。
・CGI.pmをやめて CGI::Minimalを使うようにした。
・環境に依存する設定は setenv.plで行うようにした。
・使用スクリプツを ./lib/以下に移動した。
HTML::Templateと CGI::Minimalが必要です。
KCatchも使ってますが,これは使わなくてもいいです。
http://search.cpan.org/search?dist=HTML-Template
http://www.nihongo.org/snowhare/utilities/modules/cgi-minimal/
http://www.kawa.net/works/perl/catch/KCatch-j.html
使ってる CPANモジュールも,あぷろだとまとめて上げたほうがいいですか?
- 157 :
- ファイル名保持機能つけて
- 158 :
- 誰か人工無能付きのチャット作って〜
- 159 :
- >>157
じゃぁ人口無能エンジン作って。
- 160 :
- age
- 161 :
- (^^)
- 162 :
- (^^)
- 163 :
- (^^)
- 164 :
- ∧_∧
( ^^ )< ぬるぽ(^^)
- 165 :
- ━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―
- 166 :
- ∧_∧
ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。
=〔~∪ ̄ ̄〕
= ◎――◎ 山崎渉
- 167 :
-
__∧_∧_
|( ^^ )| <寝るぽ(^^)
|\⌒⌒⌒\
\ |⌒⌒⌒~| 山崎渉
~ ̄ ̄ ̄ ̄
- 168 :
- ∧_∧
( ^^ )< ぬるぽ(^^)
- 169 :
- ∧_∧ ∧_∧
ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。
=〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
= ◎――――――◎ 山崎渉&ぼるじょあ
- 170 :
- (⌒V⌒)
│ ^ ^ │<これからも僕を応援して下さいね(^^)。
⊂| |つ
(_)(_) 山崎パン
- 171 :
- まだ開発してますか?
- 172 :
- _,..-‐‐-..,,_
_,,.-‐‐-..,,, ,r':::::::::::::::::::::ヽ
,r':::::::::::::::::::::::ヽ /:::::::::::::::::::::::::::::ヽ
./::_;;;::;;;_::::::::::::::::;;l//-‐-‐;l;;::::::::::::::;;:-‐‐--:;;l
l/~ ~ヽ::::::::::::::::::::::::::::::::::::::::::::;r'彡 l
l ヾ/ :::::::::::::::::::::::::::::::::ヽ /
ゝ / ::::::::::::::::::::::::::::::ヽ _,,-''
~'‐.,,,,,_l /て^ヽ ,;;r=i≦;;:::ヽ'~
l |o ゝ,_ノ| ''~ _l.
.l ヽ( )_,,ノ `' _,,..-‐''',,,l,
l_,,,,,,_ (__人__ノ __,,,,,r'::::::l
 ̄l_,,,. ヽ:::::::l ,r'~ ゝ;ノ
-''ゝ、 ,,, ゝノ /
''r':::ヽ /
ゝ;;ノ ヽ
/ 'l
l l
ゝ ./
/^'‐-t''''○ ○~^''''t-‐^ヽ
~‐‐'~ ∪ ~'‐‐~
- 173 :
- __,冖__ ,、 __冖__ / // ,,,..-‐‐‐-..,,,
`,-. -、'ヽ' └ァ --'、 〔/ /. /::::::::::::::::::::::::ヽ _,..-‐‐-..,,,
ヽ_'_ノ)_ノ `r=_ノ / l::;;-‐‐-:;;::::::::::::ヽ//-‐,,__ /:::::::::::::::::::::ヽ
__,冖__ ,、 ,へ / ,ィ l:l ヽ:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::ヽ
`,-. -、'ヽ' く <´ 7_// ヽ / :::::::::::::::::::::::::::::::::::::;-'^~~^'‐;;:l
ヽ_'_ノ)_ノ \> / ~ヽ/ :::::::::::::::::::::::::::::::ヽミ .ll
ll || .,ヘ / / / ̄^ヽ ::::::::::::::::::::::::::::ヽ ,.ノ
ll ヽ二ノ__ { / | ・ .| :/ ̄^ヽ:::::::l'^~
l| _| ゙っ  ̄フ ‐/-,, ヽ,_,,ノ | ・ |:::::::l
|l (,・_,゙> / l ~^'' `‐' ヽ.,_,,ノ :l
ll __,冖__ ,、 > '''l^^~~~ / ̄ ̄ヽ -‐‐‐--l-
l| `,-. -、'ヽ' \ ヽ、 ,,,, | |||!|||i||!| | ~^'‐..,,_/
|l ヽ_'_ノ)_ノ トー / (:::::} | | |ll ll !!| | ,,,, イ~'''
. n. n. n __,冖__ ,、 | l: ~~ | |!! ||ll| || | {:::::) ::l
|! |! |! `,-. -、'ヽ' i l: | | ! | l ~~ l
o o o ヽ_'_ノ)_ノ {. l、 ヽ`ニニ'ノ ,l>
/ /^‐-,,____,,,,,,,,..................,,,,,,,__,,,.--ヽ
∨⌒ ~‐‐'~ ^'‐‐~
- 174 :
- 22
- 175 :
- age
- 176 :
- 電脳プリオン どこにでもいるなw
- 177 :
- 教えて
- 178 :
- >>177
なにを?
- 179 :
- ⊂二二二( ^ω^)二⊃ブーン
- 180 :
- test
- 181 :
- ∧_∧
( ・∀・) | | ガガッ
と ) | |
Y /ノ .人
/ ) .人 < >_∧∩
_/し' < >_∧∩`Д´)/
(_フ彡 V`Д´)/ / ←>>164
/ ←>>168
- 182 :
- ★2ch勢いランキングサイトリスト★
☆ +ニュース板
・ 2NN
・ 2chTimes
☆ +ニュース板新着
・ 2NN新着
・ Headline BBY
・ Unker
☆ +ニュース板他
・ Desktop2ch
・ 記者別一覧
☆ 全板
・ 全板縦断勢いランキング
・ スレッドランキング総合ランキング
☆ 実況板
・ 2勢
・ READ2CH
・ i-ikioi
※ 要サイト名検索
- 183 :
- http://i.imgur.com/uZkiwAA.jpg
- 184 :
- http://i.imgur.com/wUcJUa9.jpg
- 185 :2017/12/30
- 誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
OGKTFEZFX8
【MT】MovableType【設置方法】
初心的な質問なのですが・・・・
【Perl】何をやれば「出来る」といえる?【PHP】
【Perl上級者コーナーPart01】
七行プログラミング
【荒らしお断り】 BBQを組み込んでる人【システム】
今日覚えたことをメモっておけ
他所のCookieを読み込みたいのですが
【HTML】StrictなHTMLのBBSを作ろう【Perl,PHP】
【UD】白血病患者を救おう!@webprog
--------------------
[Win10専用] Windows Updateしたらageるスレ86
【週刊文春】坂本弁護士一家殺害犯の告白テープ初公開
【小神 forever 】R.I.P 藤岡幹大 4【snapper】
福岡市内の病院・医院・クリニックについて
女子新体操 総合スレ Part3
【青き炎】 明豊高校野球部 44 【伏竜鳳雛】
Skyrim Workshop MOD 有料化議論スレ
【係長事務】国家公務員経験者採用試験【国税以外】
【アズレン】アズールレーン Part 2428
木村良平さん 6
本場ブラジルのサンバのおすすめを教えてください♪
GPSロガーとログアプリスレ1
【FTL】 Faster Than Light 38船目
wikipediaスレ@道路板
日本人ってハッキリ言って性格悪いよ PART2
【舞鶴のプリン】あああぁぁぁ避難所No.17
【食品偽装問題】内部R【農林水産省】
今時結婚し車を買い家を建てる奴はホームラン級のバカ
プロ野球史上最低の監督は誰だ? Part14
【アリスギア】アリス・ギア・アイギス Part231
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼