配布スクリプトの読めない部分を解説しちゃる
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/09/11 04:02:39ID:flbBPOWm配布スクリプトの中でよくわからん構文などがあったら解読＆解説しちゃる。
0004nobodyさん
04/09/11 06:34:09ID:???0006nobodyさん
04/09/11 11:37:08ID:???0008nobodyさん
04/09/12 07:58:08ID:???解説してください。
$str =~ s/"/"/g;#"
セミコロンのあとの#"って意味があるんでつか？
答えは漏れも知ってるんでつが、>>1さんの実力が知りたいんでつ。
0009nobodyさん
04/09/12 10:00:29ID:???Wemaの一部ということで。
wema.cgi:289
if id.nil? or id == ''
nfn = "#{dir}/#{Time.now.strftime("%Y%m%d%H%M%S")}#{$$}.txt"
else
nfn = "#{dir}/#{id.sub(/id/,'')}.txt"
end
ここの処理は何やってるんでしょ？
0010nobodyさん
04/09/12 16:11:27ID:???jcode.plの読み方がわかりません。
今はじぇーこーどぴーえると読んでいますが
もっとかわいい呼び方を教えてください。
0015nobodyさん
05/02/03 14:58:30ID:???0016nobodyさん
05/02/03 15:46:05ID:???0017nobodyさん
05/02/03 17:14:06ID:???そのため対応する"をコメントにして記入してあると。
001815
05/02/03 23:20:08ID:???でも一つ目の"以降が行末まで全部色が変わっちゃうから"をエスケープしてる。
0019nobodyさん
05/02/16 16:24:55ID:???0020nobodyさん
2005/12/13(火) 03:38:14ID:T2HC5b4/グラフ出力のPHPコードらしいのだが、よく分からん。
誰か頭のいい人解説して下さい。
sub graphGet {
my($len,$out,$min);
my($max,$now,$width,$height,$gif_name,$gif_name2) = @_;
if($now){
$len = int($now / $max * $width);
if($len > $width){
$max = $width . 'px';
$out = "<img src=\"$GIF_URL/$gif_name\" width=\"$max\" height=\"$height\">";
}elsif($len <= 0){
$aaa = $max;
$max = $width . 'px';
$out = "<img src=\"$GIF_URL/$gif_name2\" width=\"$max\" height=\"$height\" alt=\"$aaa / $now\">";
}else{
$max = $len . 'px';
$min = $width - $len;$min = $min . 'px';
$out = "<img src=\"$GIF_URL/$gif_name\" width=\"$max\" height=\"$height\">";
$out .= "<img src=\"$GIF_URL/$gif_name2\" width=\"$min\" height=\"$height\">";
}
}else{
$max = $width . 'px';
$out = "<img src=\"$GIF_URL/$gif_name2\" width=\"$max\" height=\"$height\" alt=\"1\">";
}
return $out;
}
0022nobodyさん
2005/12/13(火) 08:04:19ID:???0023nobodyさん
2005/12/13(火) 10:29:49ID:T2HC5b4/え。perlなの？
解説よろしくお願い！
0024nobodyさん
2005/12/13(火) 11:55:49ID:???#grapGetという名前の関数（サブルーチン）を定義
sub graphGet {
#関数内だけで使うmy変数を宣言
my($len,$out,$min);
#引数を変数に代入
my($max,$now,$width,$height,$gif_name,$gif_name2) = @_;
以下略
#$outを戻り値にして終了
return $out;
}
0025nobodyさん
2005/12/13(火) 22:19:19ID:???このスクリプトは恐らく何かの改造版。
一応動いてはいたがある日改造者のもとへ一通のメールが来た。
しかし改造したやつのレベルは低くオリジナルにあった不具合を解決できるはずもなかった。
「いい機会だ。このままサイトを閉鎖しよう」
そう思い立った改造者はユーザーに何の挨拶もなく消えていったのであった。
数年後、ユーザーがネットを検索していると得体の知れないサブルーチンだけが
キャッシュとして残っていることに気づいた。
「まさかこの関数はあのスクリプトのものではないか！」
ユーザーはあの時の思いを熱く語ろうとしている。
そんな関数。
0026nobodyさん
2005/12/14(水) 07:37:52ID:???$max, グラフの最大値
$now, グラフの表示値
$width, グラフ全体の幅
$height, グラフの高さ
$gif_name, 表示値用の画像
$gif_name2 グラフ残りの部分用の画像
$out グラフのhtml
0027nobodyさん
2005/12/18(日) 06:28:39ID:Sn4KdT5Zお〜！ありがとうございます。
以下略と言うのが、ナマゴロシ。。
やっぱり、コレくらいのスクリプトだったら、すぐにパパパって分かっちゃうもんですか？
>>25
ん〜、イミフだが 自作だって言ってたような気が。。。
>>26
レスありがとうございます。
ところで、$gif_name2 グラフ残りの部分用の画像
と言うのは何のことですか？？背景？
0028nobodyさん
2005/12/19(月) 08:26:48ID:???┌───────────┬────────┐
│ $gif_name .│ $gif_name2 │
└───────────┴────────┘
002927
2005/12/20(火) 21:34:54ID:HQXojDYhありがとう。
$gif_name の部分がグラフで
$gif_name2 は枠内の、グラフじゃない部分の埋め合わせのためにあるんだね！背景として枠を調整するためにある。という解釈でいいのかな？
0030nobodyさん
2006/01/03(火) 22:38:47ID:JH1IlXy/これの ? と : の意味が良くわかりません･･･。
どなたか教えてくださいｍ（＿ ＿）ｍ
0031nobodyさん
2006/01/03(火) 23:05:07ID:???0032nobodyさん
2006/01/04(水) 10:05:01ID:???sub uri_decode{
my $str = shift;
$str =~ tr/+/ /;
$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
return $str;
}
このpack('H2', $1)の意味がわかりません。教えてください。
検索してみたんですが'H'が意味する「ニブル」ってどういうものですか？
'$1'ってところも記述ミスな気がするんですが
0033nobodyさん
2006/01/04(水) 11:02:02ID:???http://e-words.jp/w/E3838BE38396E383AB.html
http://www.kt.rim.or.jp/~kbk/perl-5.8/perlretut.html#extracting_matches
例えば $str = "%41"; の場合、$1 には "41" が代入される。これを "H2"、
つまり2桁のニブル表現と解釈してバイトデータに pack する。
"41" という文字列 → ニブルの 4 と 1 → 二進数の 0100 と 0001 →
pack して 01000001 → 十進値 65 のバイトデータ → ASCII の "A"
003432
2006/01/04(水) 12:18:10ID:???詳しくありがとうございます。
良く分かりました。
でも、"$1"と言うのはこの場合許されるんでしょうか？
スカラ名の最初の一文字に数字を使用するのは好ましくないですよね？
"$i"のミスタイプかも知れないのですが…
ここらへんお願いします
0035nobodyさん
2006/01/04(水) 12:33:34ID:???$1、$2・・・は「スカラー変数」じゃないぞ。
「正規表現に関する特殊変数」だ。
0036nobodyさん
2006/01/04(水) 13:33:36ID:???とりあえず示された URL のページくらいは読もうか。
perlvar にも $<digits> として載っている。
http://perldoc.jp/docs/perl/5.6.1/perlvar.pod
>>35
$1、$2 …は「ユーザ定義変数」ではないがれっきとした「スカラー変数」
なので、その表現では君が本当に言わんとしている事が正しく伝わらない。
ちなみに「ユーザ定義の変数名や関数名に使える文字列」を指すには
「識別子」という単語があって、/^(?:[A-Za-z]|_\w)\w*\z/ にマッチする
ものとなる。 http://www.kt.rim.or.jp/~kbk/perl5.005/perldata.html
この命名規則に沿っていないのにエラー無しに使えていれば、それは
特殊変数という事だ。シンボリックリファレンスや encoding プラグマを
使えば無茶な名前も付けられるがお勧めはしない。
0037nobodyさん
2006/01/04(水) 14:03:19ID:ClLRhAWO#!/usr/bin/perl
require "../lib/jcode.pl";
require "../lib/mimew.pl";
$mailto ='[email protected]';
$subject ='タイトルだよ';
$mail = $cgi->('mail');
$name = $cgi->('name');
$kana = $cgi->('kana');
$subject = mimeencode($subject);
open(MAIL, "| /usr/lib/sendmail -t");
print MAIL "To: $mailto\n";
print MAIL "From: $mail\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-Type: text/plain;\n\n";
print MAIL "お名前は＝ $name\n";
print MAIL "フリガナは＝ $kana\n";
close(MAIL);
年始早々、このような低レベルの質問で申し訳ありません。
よろしくお願い致します。
0038nobodyさん
2006/01/04(水) 14:19:29ID:???自作CGIを評価するスレ
http://pc8.2ch.net/test/read.cgi/php/1049514428/
■ このスレッドは過去ログ倉庫に格納されています