iswebだけどアプロダ置いてみました。
http://isweb36.infoseek.co.jp/computer/perldev/
参加してくれる人キボン
私はちまちまサブルーチンやアプロダをやる予定。
チャットとかもやってみたいけど設計はとくにへたれだからなぁ。
掲示板改造するって人らが来てくれるかなぁとか思ってるんですが
うう，やっぱそうですかね。
でもPG板でソースアプ板無いのも何かと不便だから
「ソースなら良いですよ」ってスタイルならポインタ示したい
時なんかに便利じゃないかな、それで副産物的にテクニックが学べると
いいね お互い
exeやrmとか置かれるとさすがに困るけど，
Cとかのソースなら範囲内と思てます。
アプロダはざっとしかソース見てないんでちょと不安。
はやく把握したいけど私にはむつかしい・・・
まあ方向的には良さそうだが・・・
もっとも、あのスレは共同開発の雰囲気でもないよね。
クッキー読み書き，フォームデコード。
今回，POST・GETの切り分け，自動判別や，GETのみ取得，ファイルアップロード対応，とかは保留。
アプロダはテンポラリファイル削除でエラー出てるのをなんとかしたい。
上のを実装したらアプロダ作りに挑戦する予定。
メソッド判別して，POST・GETそれぞれのデコード関数に振り分けるように。
次はファイルアップロードのを予定。
あそこに上げたのはいじられる覚悟の上ですんで，
修正や添削してもらえるとありがたいです。
いじられるのに同意してくれて俺の関数もどうよ？
って人が何人かいると共同開発の雰囲気になるかなぁ。
そのままGETみたくデコードしてました。
とほほとかで調べてみます。
ちんたら調べてる間に添削されたのがアプされてたりなんかすると，
オープンソース開発ぽいかも。
残念ながら実力不足で実装までいけそうにないです。
>15
学習用にと思いまして。
>オープンソース開発ぽいかも。
申し訳無いが、今の所「いまさらそれ？」的なものだけなのでね。
CGI.plにしても15の言うとおり、CGI.pmがあるわけだし。
まぁ頑張って下さい（スレと関係無いのでサゲ
ここがそうなればなぁと思ってましたが，私じゃ力不足だったようです。
だれかが作ってくれないかなぁと思って待ってても
できなかったので，自分がアプロダ置きました。
何も無いところにアプする人がいるとも思えなかったので，
自分が書いたのを上げました。
ランダムアクセスとか，超高速日本語コード変換とか，
すごい人の 役にたてるのを作れるほどの実力があるとは思えないので，
自分くらいのレベル向けにいろんなののをメモしとこうと
書いてました。
人が来るようになったら誰かにアカウント移そうと思ってましたが，杞憂でしたね。
「私のプログラムを添削してください」ですね。
２週間ぐらいスレが生き延びれば定着するよ。
そのためにはネタを出し惜しみして、
ヘッドラインから消えたらageるぐらいでちょうどいい。
う。全然ちょうどよくねえ！
よく見たら最終書き込み９月２５日の雑談スレが
まだヘッドラインに残ってるじゃねーかよ！
この板の回転の遅さを甘く見ていた。
あらためて寂寞を感じる今日このごろ。。。
には知らない事が多すぎる自分。
multipart/form-data は、先日(勉強も兼ね)自前で実装させたん
ですがRFCやらCGI.pmやら見てかなり泥縄でやったので見せるほどの
物でも無し…(ブラウザごとの実装の違いの可能性はほぼ気に
しなかったし…)。
とは言うものの、スレの趣旨は悪くないので出来たら応援したいっす。
>>21
でも不思議な事に糞スレやら糞カキコは後を絶えないんですよね…。
似たようなスレの末路
http://ebi.2ch.net/test/read.cgi/php/1001318195/
条件式と変数のリファレンスを渡すと，条件が偽の時STDERRに
条件式と，パッケージ・ファイル・行，変数の内容を吐きます。
たぶん今回も車輪の再開発です。
というわけで、CGI.pmの問題点とか挙げていこーよ。
とりあえず、h1とかHTML生成用のメソッドと、paramとかを分離してくれ。
#HTML::Templateを主に使っているので、h1とかいらないんだよね～。
ファイル名をAssert.pmにして、assertって関数名を
mainパッケージにエクスポートすると使いやすくない？
正式にExporterのサブクラスにするとかの
おおげさなことじゃなくて、どっかに１行
*main::assert = \&assert;
を入れてmainからアクセスできるだけでもいいと思うんだけど。
こんなふうに、必要なとこでrequireして使う感じ
：
require Perldev::Assert;
$_ = 'AAA';
my $hoge = 'BBB';
assert( q[$_ eq ""], (\$_, \$hoge) );
：
use CGI qw(:cgi);
でいいかと。
もらったよ。use overloadの勉強用に。
だから全部".txt"だったのかよ！
たぶんこれで.plと.pm置けるようになったはず。
Boolean.pm見て勉強してきます。
ごもっとも。自分でもそう思った。
学習用のなんだから面倒くさがらずにやりゃよかったな。
サポート掲示板によると，isweb36サーバーの一部が落ちてるみたいです。
ついでに画像閲覧とかFTPとかの使わなそうな機能を削りました。
このペースだと来年すぎまでかかりそうなので，
今回は自分でフォームデコードはせずに，CGIとFile::Copy使ってます。
content-typeだけでファイルタイプを判定してるので，
plやpmはtxtになっちゃいます。
CGI.pm使ってHTMLを書いたけど，使いづらいしソースも見づらいので
こういうのに便利らしいHTML::Templateを調べてきます。
「CGI」の「テキスト」カウンターできたよ～。
@file = <IO>;
foreach (@file){ }
より
while(<IO>){ }
の方が良いと思われ。
サーバーにも優しいカウンターになる、という意味だと思われ。
例えばトップが50KBのhtmlとかだと50KBの配列が出来ちゃう
と言うかテキストカウンターっぽい事をしたいなら
読み書きモードでopenして、カウンターの位置までseekしてprint
した方が良いよ。ヘッダなんかを書き換えた時はメンテする必要が
有るけどね。
うん、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.
ロックのところは open or die "Error:$!" みたいに
if ! 使わずに or 使ったり $! も表示したりしたほうがいいと思う。
>41 参戦感謝。
>46 情報感謝。
CPAN繋がらなかったんで検索しなかったんですが，標準で付いてましたか。
標準添付のを見てみたら，以外とライブラリもあるんですね。初めて知りました。
--
HTML::Template調べたところ，以外と簡単そうです。
今日は試しにアプロダの，テンプレだけを書いてみました。
> 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;
こんな流れで。
どうも、ありがとうです。
一回の読み書きOPENで書き換えするのに、seekでカウンター値の先頭への
ポインタを得る方法を考えていたら頭から煙が出てきました。
# なんか見当はずれなことしてんのかなぁ。
>>49
> こんなわけのわからない処理は止めなさい。
厨スクリプトでお目汚しスマソ。
> あと、変換はs///eg一発で出来るよ。
s///egってのがあるんで？勉強してきます。
> もっと言うと、テンポラリファイルに書き出してからrenameしたほうがいい。
そか、一旦、テンポラリに書き出してそれからリネームすればいいのか。
それで昨晩ずーっと悩んでました。
> openの戻り値はきちんとチェックしようね。
Σ（；´Д｀）
あっ、ホントだ。してなかった。鬱だ。
大変参考になりました。ありがとうございました。勉強になります。
出直して参ります。
my $cl = new Caller;
print $cl->line;
use Caller qw(caller) でオーバーライドも。
勉強用にいただきました。じっくり読めばなんとか理解できそうです。
39：*pkg = \&pakcage;
typoぽいです。
--
すごいなー私も頑張ろう！とあぷろだ上げました。
変更点は，昨日のテンプレ修正と，ファイル名変更，表示部にテンプレ導入，他に少しです。
こうすればメンテ不用になるぞ、っと。
while (<HTM>){
if (/<!--count-->(\d+)<!--\/count-->/){
seek HTM,-length,1;
#書き換え
last;
}
}
でも㌧だ時HTMLごと逝っちゃうのはイヤな感じかも （ｗ
これなに？
s///eg のeオプションはいらないだろう。
たとえば、
s/(\d+)(?=<!--\/count-->)/$1+1/eg
とか。
いやだから、上記の例では必要ないだろうと言っているの。
そっかバックすれば良いんだネ、うちはカウンターまで4行しかないから
ｲｲ（・∀・）感じになったヨ
:でも㌧だ時HTMLごと逝っちゃうのはイヤな感じかも （ｗ
うちは閑古Webだからネ、一応ロックバリバリにしてるけど今の所大丈夫みたい
200hit/DAYって感じだからかナ
>54
seek HTM,-length($_),1だヨ
s/// だけでカウンタインクリメント出来ると？
投稿削除ができるようになりました。
変更点は，ログフォーマット，delete.pl・delsetup.tmpl導入，他少し。
ログフォーマットも大体固まったので明日あたりにiswebにサンプル置きます。
--
>45 >>58
HTML書き出し式カウンタを使ってるんですか？
実際に使うには，普通の，カウントを別ファイルに持つ形式より
危険な感じがするんですが，利点とかてありますか？
煽りとかじゃなくて，純粋に気になったので。
SSI使えないサーバでも使える。ってのがたぶん利点。
それ以外では使う理由ない。
あ、あとはカウンタ表示自体ではCGI起動しないってのもかな。
このカウンタって
・htmlにアクセス・表示
・IMG経由でCGI呼び出し
・htmlを解析してカウンタ部分を加算
・html書き出し
という方法ですよね？
これだと以下みたいなのと比べると，
毎回htmlを書き出すんで負荷やあぼーん率が高くなりそうと思って。
・cgiにアクセス
・index.tmpl読み込み
・count.dat読み込み
・カウント
・index.tmplの特種タグ（0<!-- __%%COUT%%__ -->とか）置き換え
・count.dat書き出し
うー，ちょっと混乱してます・・・
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くらいだけど㌧でないのデス。
>truncate DAT,length($count);
ここで小さくなったりしないのか、、しないよな、うーん。
これを作ったのは、某所で、CGIのテキストカウンターってないの？
という話があったからなんです。で、んじゃ作るかと思って作ってみた
ものなのですが、いやぁ、おのれのあまりの未熟さを痛感しました。
なんか場違いでスマソ。 >1,ALL
カウントファイル的には桁数が前より小さくなることは無いので、
truncate DAT,length($count);では小さくならないね。
ってことは truncate かける意味も無いけど。
CGIのテキストカウンター
http://www.around.ne.jp/software/fastky/library/index.html#counter
>>67
ぜんぜん場違いでないと思いますよ。
スレが活発化しました。
それ、なってない。
<counter></counter>なんてワケのわからないタグを使用している時点でアウト。
仕組みは同一だし。
しかもこの場合意味無いどころか、いったんtruncateされるので
タイミングによってはindex.htmlが正常に見られない。
良く考えたらアプ板なんでボクもあげましたヨ >>71
>>53さんのが入ってるでス
flockコメントアウトしたりしていぢめてみてくださイ
調子にのるとカーネルらー に突っ込まれそうなのでこの辺で退散 ｻｻｯ(((・∀・；）
http://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/upload/source/017.txt
ｱﾌﾟﾛﾀﾞの
A:hover {color: red; font-weight: bold;}
このﾄﾞｷｭｿｽﾀｲﾙ指定を消してくれ。ﾏｼﾞｳｻﾞｲ。
--
あぷろだ，テスト設置してみました。
iswebなので，コピペで飛んでください。
ttp://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/tiny_upbrd/upload.cgi
まだ拡張子の判定がイマイチです。
拡張子指定できるようにしました。
http://isweb36.infoseek.co.jp/computer/perldev/
からもいけます。
これ良いな、ちょっとflock外して5万回位叩いてみたけどHTMは勿論カウンタデータも飛ばないよ
良く考えたらとびようが無いんだな。syswrite使っとけばより安心って所かな?
俺の使ってる所時々ファイルが飛ぶから、上のKY何とかみたいなのは怖くて使えないんだよ
俺もアクセス解析とか要らない派だから外部ファイル無いのも気に入った
ちょっと弄って使わせてもらうよ THANKS!!
flockしなかった場合に本当に常に1ずつインクリメントされるかどうかは疑問。
5万回つーても、同時アクセス数いくつに設定？
また見てやってくださいませ。
http://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/upload/source/018.lzh
>>81 やってみれば?
>>83 5万回÷俺の環境で許されるほぼ最大のプロセス数だけど?、
つーか君はディスクアクセスなんてオーバーヘッドの馬鹿デカイ処理に対して
単にローカルでforすりゃ十分って事が分からないのかい？
まー良いや取り合えず>>75 有難う!
いやーん怒んないで。Apacheのおまけについてくる
abコマンドでベンチマークとったのかと思ったんですよう。
これ以上はNTだとヤバイから、ローカルはIISだからabコマンドは解らないよ
HTMをパースしてそこだけ書き換えるってのが、本物SSIっぽくて
ちょっと良いなと思っただけ、別に飛ばない方法なら幾らでもあるし
と言う事で外野は去る事にする。
早く死になさい
取り合えずCGIならdieは辞めとけ、エラールーチン書いてそこに飛ばせ
ただ例えばファイルが100kbだとして、書き換えたいのは20バイト足らずなのに
毎回全部書き直すってのは効率はよろしくないってこった、
その程度の効率は俺は気にしないけどな、それが嫌なら75のをパクれ
<IMG src="xbm.cgi?100">で100と表示します。
サンプルは
http://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/print_xbm/view.cgi
です。
□と■の文字列から画像データを生成するようにしてみしたが，
変換処理，ごちゃごちゃして少し読みづらくなっちゃいました。
ありがとです。
今ちまちまとネタCGI（物語自動作成）作ろうとしてるんですが，
いきなりデータ形式でつまってます。
作ってみたいのいくつかあるんで，浮気しながらちょこちょこ書いてこうかと思います。
--
改造工房用にアプロダ置いたら，どのくらい利用されると思いますか？＞ool
ログ設定を大きくしていると利用されやすいかも。
すぐに流れると、投稿する方も閲覧する方もツマンナイし。
（ぁゃιぃ風味は止めた方が良いですよ）
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
【毒】 DokuWiki 総合スレ 【毒】 (400)
WordPress(ワードプレス)でWebProg 質疑応答スレ 01 (260)
30代が趣味でこれから覚えるならどっち？Perlかphp (563)
くだらない質問でも偉そうに聞いていいスレ (463)
【PHP】フレームワーク Akelos (127)
Perl::DBI (323)
--log9.info------------------
★早稲田のホッケー★ (458)
女子ジャンプ (597)
中四国・九州のアイスホッケー (249)
【Ｂ級】釧路厚生社【最強】 (257)
軽井沢国際カーリング大会 ２ (132)
カーリングファンが気持ち悪い件 (370)
釧路のアイスホッケー (115)
【廃人専用】小野寺選手結婚おめでとう！ (534)
【アイスマン】大学アイスホッケー２【聖地東伏見】 (689)
【東医大】医学部【サムス杯】 (556)
藤森由香ちゃんを応援しましょう。 (115)
【ｱｲｽﾎｯｹｰ】日本人の海外チャレンジ【武者修行】 (347)
【ｶｰﾘﾝｸﾞ協会広報】近藤学【お前何様??】 (382)
☆武相高校アイスホッケー部☆ (160)
トリノ五輪で一番いい女は？ (105)
もしあれば、チーム青森に質問募集 (351)
--log55.com------------------
【読売超スクープ】安倍政権・前防衛大臣の岩屋毅（自民党）が中国企業から賄賂をもらっていた [454032396]
日本ってナメられすぎてないか？ やっぱり憲法９条をなくして、原子爆弾を持たないとダメだと思う [623653551]
フェミ「ラブドールは危険！ ちんこ達はラブドールを使ったあとは満足できずに本物の女子をRする！」 [571598972]
面接官「格付けチェックで多数の人々が数十万のワインよりも数千円のワインを選ぶ場合、本当に客観的に美味なのはどちらですか？」 [304868982]
声豚「佳村はるかの夫はチビ！チビ！チビ！」 貧乏人「前澤はチビ！チビ！チビ！」 こういうのなんていうんだ？ [411361542]
三大リアルに女を知ってからびっくりしたこと R物AVが大好き、実は見られたがり、意外と肩幅がっしりしてる あと一つは？ [268718286]
【速報】ゴーン氏、ハリウッド映画プロデューサーと面会 [214127477]
声優・渕上舞さん「人格形成には、やっぱり家庭環境が大きく影響するんだと思います。偏見ごめんね。」 [673871665]