【待望】PerlユーザのためのPHP入門

見事Perl→PHPへの脱皮に成功した俺様が
両者の違いを中心に講義してやる。
今までPerlﾏﾝｾｰだったやつはこれを機にPHPに変更しよう也。
質問もガンガン書いてくれ。
このPerlの文はPHPだとどう書くの？とか。

このスレ結構ありがたいかも。
>>1
ありが�d

まず、両者には似てる部分も非常に多いというのは特徴だ。
例えば変数の宣言、初期化をしてみよう。
$foo = 0;
頭に$をつけるところも、型を特に指定する必要がないことも、
文末は;になることもみんな一緒だ。

ほら、簡単に移行できそうに思えてきただろ？

とりあえずHello, world!を出力してみるぞ。

<?
print "Hello, world!\n";
?>

printの意味はperlと一緒だ。
まあ、printよりecho使う人が多いがそんなに違いはない。
perlユーザならわかりやすい方が（･∀･）ｲｲ!だろう。

プログラムの開始と終了は<?と?>で囲むんだ。
これはPHP特有だから早く覚えよう。
<?じゃなくて<?phpで囲んでもOK。将来XMLとの連携を考えるなら
後者で書く癖をつけたほうが良いとは言われている。

↓↓↓↓↓★ココだ★↓↓↓↓↓
http://www.pink-angel.jp/betu/index.html

PHPでrequireするファイルは必ず<?php ?>で囲まなきゃダメ？

とりあえずCGIじゃなくてmod_phpを使っていこう。
例えばCGI/Perlの場合、

#!/perl/bin/perl
print "Content-type: text/html\n\n";
print "Hello, world!\n";

簡単なテストスクリプトを書くときも2行目あたりのウザイのを
書く必要があったがmod_phpならそんな必要はない。
とにかく<?と?>で囲めばＯＫだ。

というわけで課題として、各自ローカルサーバにPHPをインストールしておこう。
PerlユーザならApacheはインストールしてあると思うのでそれを前提とすると、

http://www.php.net/downloads.php
上記サイトにある
Windows Binaries
PHP 4.3.1 zip package [5,853Kb]
を落とすのじゃ。下のPHP 4.3.1 installerの方が楽そうに見えるが
こっちはCGI/PHPとしてしか使えないから駄目。間違えるなよ。

>>6
どういう用途で用いるのか知らんが
PHPスクリプトをrequire()するなら当然
そっちも<? ?>は必要だぞ。

まあ、聞くより自分で確かめたほうが早いだろう。

PHPのインストールについては
詳しく解説しているところを見たほうが早いか。
始めたばかりの頃俺が参考にした所だ。

http://www.php-j.com/tutorial/install/win.php

では各自ローカルでPHPを動かせるようにしておきましょう。
その瞬間からPerlとはおさらばだ！

俺様、がんがれよ。

win用をインスコしたいのですが
ここ以外にバイナリって無いんですか？
http://www.php.net/downloads.php

>>11
そこのじゃ嫌なのか？
そこからで全然問題ないと思うが。

おお，このスレはありがたい．がんがってください．

期待age

CGI/Perlの場合は
能や予、表などの漢字を使うときに文字化けしないように
\能、\予、\表みたいな面倒な書き方をする必要があっただろう。

PHPでは大半の人がEUCの日本語コードで記述していて
そのような必要はない。

と、言うわけでEUCを読み書き・保存できるエディタを用意しておきましょう。
例えば、Windows標準のメモ帳では無理です。

まあ、ベクターとかでEUCって検索すればすぐに見つかる。
http://channel.goo.ne.jp/download/search/search.php3?MT=euc&CD=1&SW=1&OS=3&category=1&search_num=10

シェアウェアのものでよいならば秀丸やEmEditorがお奨め。

質問なんですけど、
関数の引数にハッシュを使う方法ってありますか？
function func($key,$value){
return "$key => $value";
}
$result = func("key"=>"value");
みたいにやりたいのですが
Parse error: parse error, unexpected T_DOUBLE_ARROW
というエラーがでました。

function func($key=>$value){
return "$key => $value";
}
でも無理でした。

>>16
PHP固有の質問はこっちへ書き込もうぜ。

【PHP】質問スレッド Part7
http://pc2.2ch.net/test/read.cgi/php/1044478561/l50

(PerlCode)
$name="john";
$say=sub{return "My name is $_[0].";};
print &{$say}($name);

はPHPで書くとどうなりますか？

>>18
俺のPerl自慢。

　　　　　　　　　　　　　　　　　　つづく

>>18
<?php
$name = "jhon";
function say($name) {return("My name is $name");}
echo say($name);
?>

そんなもんをXHTMLに埋め込んだら、見苦しくて死ぬぞ。
ブラウザでパースもできんようになるし。
MVCにしろや。

>>20
お答えサンクス。

と、いうわけでもうインストールはばっちしだと思うので
今日はユーザー定義関数についてから話そう。
超独自仕様のPerとの大きな違いの１つだ。
まあ、はっきり言っちゃえば
>>18みたいな書き方はPerlではごく普通だが
Perl知らない人から見れば何なのかさっぱりってほど特殊だ。
それに比べてPHPの>>20は他の言語
（例えばJavaとか）しか知らない人が見ても何となく理解できるだろう。

>>20
レスどうもです。

無名サブルーチンみたいなのが使いたいなと思っていたのですが、
create_function関数というのがあるみたいですね。
http://www.php.net/manual/ja/function.create-function.php

<?php
$name="john";
$say=create_function('$name','return "My name is $name.";');
print $say($name);
?>

Perlでは関数でなくサブルーチンと呼ばれていたな。

sub foo {
print "$_[0] ";
return $_[0]+100;
}
$b= &foo(100)
print $b;;
#100 200
-------------------
function foo($a) {
print "$a ";
return $a+100;
}
$b= foo(100);
print $b;
#100 200

PHPの場合は明示的に引数を記述しておく必要がある。
可変引数は配列を渡せば良いだろう。Perlも実際は@_という配列を渡しているわけだし。
まあ、こうやって見ると両方大した違いは無く見えるが
変数のスコープについて根本的な違いがあるので注意しよう。
それについては後述。

いちいち引数を書くとは面倒になったと言う人もいるだろうが、
おかげでデフォルト引数を簡単に実現できる。

<?php
function foo2($a ="俺様") {
print "$a は凄い<br>";
}
foo2("お前");
foo2();
?>

/*
お前 は凄い
俺様 は凄い
*/
引数を指定しなかったら勝手に俺様が凄くなってくれるのだ。

講座スレ作ろうとする奴って大体理論が崩壊してるよな・・・。

Perlでは関数でなくサブルーチンと呼ばれていたな。

sub foo {
print "$_[0] ";
return $_[0]+100;
}
$b= &foo(100)
print $b;;
#100 200
-------------------
function foo($a) {
print "$a ";
return $a+100;
}
$b= foo(100);
print $b;
#100 200

PHPの場合は明示的に引数を記述しておく必要がある。
可変引数は配列を渡せば良いだろう。Perlも実際は@_という配列を渡しているわけだし。
まあ、こうやって見ると両方大した違いは無く見えるが
変数のスコープについて根本的な違いがあるので注意しよう。
それについては後述。

これかいてる間に重要なこと思い出した。

#Perl code
$a=26;
print "$aゲット";

#26ゲット
-------------
#PHP code
$a=26;
print "$aゲット";

#（何も表示されない）
----------------------

両者にはこのような違いが起きてしまう。
下はどうすればよいのか各自考えてみましょう。

出かけるので解答は夜で。

26ゲットできなかったヽ(`Д´)ﾉ

>>26
俺様はPHP歴浅いので
崩壊どころか理論自体形成されていない。
だからこのスレタイは入門だ。
間違いはがんがん指摘してクレイ！

>>30
俺はPHPすら分からない。
だから、がんがん解説してクレイ!

結構見やすいPerl/PHPの構文比較のページ見つけました。

Perl/Php Translation
http://www.cs.wcupa.edu/~rkline/perl2php/

既出だったらゴメン。

>>32
それは便利だな。
では今後はそこに載ってないやつを指摘していくことにしよう。

>>18
<?php
$name = "jhon";
function say($name) {return("My name is $name");}
echo say($name);
?>

Perlでは関数でなくサブルーチンと呼ばれていたな。

sub foo {
print "$_[0] ";
return $_[0]+100;
}
$b= &foo(100)
print $b;;
#100 200
-------------------
function foo($a) {
print "$a ";
return $a+100;
}
$b= foo(100);
print $b;
#100 200

PHPの場合は明示的に引数を記述しておく必要がある。
可変引数は配列を渡せば良いだろう。Perlも実際は@_という配列を渡しているわけだし。
まあ、こうやって見ると両方大した違いは無く見えるが
変数のスコープについて根本的な違いがあるので注意しよう。
それについては後述。
Perlでは関数でなくサブルーチンと呼ばれていたな。

sub foo {
print "$_[0] ";

>>28
変数名の後ろは全角文字でもダメみたいですね。
（半角の「.」はOKだった）

#PHP code
$a=26;
print $a."ゲット";

#26ゲット

#PHP code
$a=26;
print "$a.ゲット";

#26.ゲット

>>28
print "${a}ゲット";
print $a."ゲット";
echo $a,"ゲット";

Perlでは関数でなくサブルーチンと呼ばれていたな。

sub foo {
print "$_[0] ";
return $_[0]+100;
}
$b= &foo(100)
print $b;;
#100 200
-------------------
function foo($a) {
print "$a ";
return $a+100;
}
$b= foo(100);
print $b;
#100 200

PHPの場合は明示的に引数を記述しておく必要がある。
可変引数は配列を渡せば良いだろう。Perlも実際は@_という配列を渡しているわけだし。
まあ、こうやって見ると両方大した違いは無く見えるが
変数のスコープについて根本的な違いがあるので注意しよう。
それについては後述。
Perlでは関数でなくサブルーチンと呼ばれていたな。

sub foo {
print "$_[0] ";
　

シフトJISでがんがん書いてます。

>>36
　　_n
　（　l　　　　_、_
　 ＼ ＼　（ <_,`　）
　　　ヽ___￣￣　 ） 　　ｸﾞｯｼﾞｮﾌﾞ!!　
　　　　　/ 　 　/

>>37
　　　_、_
　（　,_ﾉ` ） 　 　　　n
￣　　 　 ＼　 　 （ E） 　ｸﾞｯｼﾞｮﾌﾞ!!
ﾌ 　　　 /ヽ ヽ_／／

些細なことに見えるが、
自分はこのせいで某スクリプトを
PerlからPHPに移植する際に、
３０分ぐらい睨めっこした記憶があるので。
頭の中に入れて起きましょう。

$a=26;
print "{$a}ゲット";
print $a."ゲット";

先生質問です。
>>9の通りしましたがapacheが起動できません。
どうやらhttpd.confのLoadModule php4_module C:/php/sapi/php4apache.dllが原因のようです
php4apache.dllをphp4apache2.dllとしても同じでした。

WinME Apache2.0.39です

>>42
OS側類。

>>42
Apacheは２よりも1.3.27の方がいいと思う。
後はなんだろな〜
Meなんて怪しいＯＳ使ったことないからな。
とりあえずApacheのバージョンを変えて試してみてクレイ。

>>44
ありがとうございます。1.3.27を使ったら起動できました。

　|　 | ∧
　|＿|Д｀) < それだー！！
　|文|⊂）
　|￣|∧|
￣￣￣￣￣
　|　 | ∧
　|＿|Д｀) < それだー！！
　|文|⊂）
　|￣|∧|
￣￣￣￣￣
　|　 | ∧
　|＿|Д｀) < それだー！！
　|文|⊂）
　|￣|∧|
￣￣￣￣￣
　|　 | ∧
　|＿|Д｀) < それだー！！
　|文|⊂）
　|￣|∧|
￣￣￣￣￣
　|　 | ∧
　|＿|Д｀) < それだー！！
　|文|⊂）
　|￣|∧|
￣￣￣￣￣

>>44
OS = Windowsとか思っている痛い講師がいるクソスレはココですか。

>>47
世の中は理詰めだけでは解決しない。
理論ヲタになるより、わかりやすさを求める方が現実的だ。
わかるかい？
しかも、PHPと直接は関係ない。
君は文学者がテイラー展開を出来なかったら馬鹿にするだろうか？

では、今日はいよいよ変数のスコープについての説明だ。
あくまでも対象者は基本的に『Perlしか』やったことがない人のみ。
C言語など他の言語をやっている人には馬鹿見たく思われる説明になるからだ。

>>48
＞君は文学者がテイラー展開を出来なかったら馬鹿にするだろうか？

少なくとも数学者を目指す文学者がマクローリン展開を知らなければバカにするが。

>>49
俺様はべつにオペレーティングシステムのエキスパートを目指してはいないッポ。

#Perlscript

sub foo{
$a = 100;
print "$a,";
$a++;
}

&foo();
print $a;

#100,101

まあ、当たり前の結果が表示されます。
これをPHPに書き換えてみましょう。

#PHPscript

<?php
function foo(){
$a = 100;
print "$a,";
$a++;
}

foo();
print $a;

?>
# 100,

何故か100しか表示されません！？��(￣□￣;)ﾅﾝﾄ!!
どうして後ろの$aは表示されなかったのでしょうかという問題です。

同様の例です。

#Perl

sub hoge{
print $a;
}
$a="俺様";
&hoge;
----------
#PHP

function hoge(){
print $a;
}
$a="俺様";
hoge();

Perlの方だと見事、俺様と表示されるのですが、
後者の方は何も表示されないので吃驚仰天です。

>>50
＞俺様はべつにオペレーティングシステムのエキスパートを目指してはいないッポ。

いや、エンジニアでなくても車=ベンツとか思ってる奴はアホなわけで。

教養ではなく常識なのよ。常識。

>>53
邪魔。ｷｴﾛ

>>54
どうしていつものコテハンを使わないんですか？

>>55
ごめんごめん。かんじよめないんだ？
ｼﾞｬﾏ。ｷｴﾛ

>>54,>>56
（・∀・）ｶｴﾚ!!
せっかくこのスレを良い感じにしたいのだから
煽りはよそでやってクレイ。

>>53
まあ、教養が無かった俺様が厨ってことで
その話題は終わりにしよう。スレ違いだし。

↓↓↓↓↓★ココだ★↓↓↓↓↓
http://www.pink-angel.jp/betu/linkvp/linkvp.html

>>50-51
Perlがデフォルトでグローバル変数なのに対して、
PHPでは、デフォルトでローカル変数だから。

#PHPscript
<?php
function foo(){
$a = 100;
print "$a,";
$a++;
}
foo();
print $a;
?>
は

#Perlscript
sub foo{
my $a = 100;
print "$a,";
$a++;
}
&foo;
print $a;

と同じ
#始めたばかりなので全く同じかどうかとか用語の使い方は正しくないかもしれません

#PHPscript
<?php
$a = 999;
function foo(){
$a = 100;
print "$a,";
$a++;
}
foo();
print $a;
?>
#100,999

なーる。

>>60
(*ﾟ▽ﾟﾉﾉﾞ☆ﾊﾟﾁﾊﾟﾁ

Perlにおいていわゆるmyを付けた場合が
PHPでは標準になっています。
C言語などの場合はコンパイル時に
未定義（未宣言）の変数だ！ってエラーを出してくれるのですが、
PHPではそのまま初期値（文字なら空白、数字なら0）として
認識してしまうので注意しましょう。

結構すんなり受け入れられるのかなー？
普段からmyを使ったりしている人なら問題ないだろうけど
プログラミング言語をPerlしかやってないでグローバルなのが当たり前だって
思ってた人には受け入れるのに時間が掛かるかもしれない。

そんなことないか？どうだろう。

Perlってなんて読むの？

逆にPerlの標準のようにグローバル（大域）変数として
扱いたい場合も書いておきましょう。
これはCやJavaとも違う仕様ですね。
関数内の最初でglobalと宣言します。
なお、PHPの設定でregister_globalsをonにすると
また違うようなのですが、デフォルトはoffで推奨となっているのでそれに従います。

<?php
$a = 999;
function foo(){
global $a; //これでグローバルスコープの$aを参照しますよと宣言している。
print "$a,";
$a++;
}
foo();
print $a;
?>
#999,1000

因みに、function foo()はどこに書いてもOKです。
（PHP3だったころは駄目だったとか・・・）

>>63
[p:(r)l]

Perlには静的（スタティック）変数が無かったと思うので
それについても書いておきましょう。

function foo(){
static $a=0;
print $a;
$a++;
}

for($i=0;$i<5;$i++){
foo();
}

#01234

このようにすると
最初にfoo()が呼ばれたときのみstatic $a=0が呼ばれてくれるのです。
以降、foo()が呼ばれるたびに$aは１ずつ増加してくれます。
staticをつけないと毎回0が出力されてしまいますね。
変数のスコープは関数内のみなのに値を保持していてくれるわけです。
globalでは無いので関数外部から直接$aの値をいじることは出来ません。

perlの use strict; のような未定義変数をチェックする方法はPHPに無いのでしょうか。

{
my $static = 0;
sub foo () {
return ++$static;
}
}

だめだ・・・functionの時点でわからそ。

>>66
すまんが俺様は知らんな。
全ての定義済の変数を配列で返すような
関数ならあるが。

<?php
$def_arr= get_defined_vars();
//初期設定（_SERVER["SERVER_ADDR"]のようなもの）
//を含む全ての定義済みの変数の配列を得る）

$a=3;
$abc=10;

$arr = get_defined_vars();
//初期設定のものに上の２つが追加された。

$new_arr = array_diff($arr,$def_arr);
//２つの配列の差を得る。

print_r($new_arr);//配列の内容を出力
?>

#Array ( [a] => 3 [abc] => 10 )

>>67
なるほど。Perlでstaticを実現した例ですね。
まあ、PHPの場合はわざわざ自前で作らなくても
最初からstaticという命令が用意されているということです。

>>68
Perlをある程度理解していれば
わかるようにしたいのだが、
（Perlも未経験という場合はちょっと厳しいです。）
どこら辺がわからんだろうか？
とりあえずPerlのsubをfunctionに置き換えちゃえばＯＫだ。

　

>>69
どもども。
ちょっと面倒ですね。

>>66
error_reporting(E_ALL);
でどうかな。

　　　　　

<?php
error_reporting(E_ALL);
print $a;
?>
#<b>Notice</b>: Undefined variable: a in <b> (filename)
# </b> on line <b>3</b><br />

>>76
ありがとう。うまくいきました。

>>76
（･∀･）ｲｲ!

φ(.. )ﾒﾓｼﾃｵｺｳ
error_reporting(E_ALL);

あいだに空を入れる人生。色即是空(w

よっしゃ！早くも寂れてきたぞ。今日は配列について書いておこう。

まず、Perlの場合配列値を表す変数は先頭が$でなく@になっていた。
しかしPHPではそんな面倒なことはない。どんな場合でも先頭は$でＯＫだ！
凄い楽そうだろ？（祝

初期化の差はこんな感じだ。

#Perl
@a = (20,10,30,3);

#PHP
$a = array(20,10,30,3);

arrayって余計な文字が付いたが細かいことは気にするな。

驚くことにPHPでは

$a[] = "a";
$a[] = "b";
$a[] = "c";

$a[0] = "a";
$a[1] = "b";
$a[2] = "c";

この２つが同じ意味となるのだ。
角括弧内の数字を省略した場合、
値は配列に最後の要素として勝手に追加してくれる。
まあ、こういう独自仕様は混乱の元だから俺は上の形式で書いたことは無いがな。
わかった上で使うなら利用場面は結構多いかもしれない。

↓↓↓↓↓★ピンクエンジェル★↓↓↓↓↓
http://www.pink-angel.jp/betu/linkvp/linkvp.html

配列の関数一つ一つ説明するのは面倒だから
あとは>>32のサイトや公式のマニュアルでも読んでくれ。
Perlで実現できてたことの代替手段は大体存在してる。

多次元配列は一つ注意を。
これは前も似たようなこと言ったが

$a[0][1] = 41;
print "$a[0][1]";

Perlだと期待する結果41が出力されるが、
PHPだとArray[1]という怪しげな結果が出力されてしまう。
後ろの[1]はただの文字列として認識されてしまっているようなのだ。
以下のどちらかにしないといけない。

$a[0][1] = 41;
print "{$a[0][1]}";
print "".$a[0][1];

まあ、おかしくなったらまずは変数を{}で括ってみろってことだ。

@a{qw(a b c)} = @b[1..3];
こういうのはどう書く?

>>89
うーん、よくわからんな（汗
誰かわかる人募集中だ！

まあ、とりあえず根性で全部書いておけ。
$a = array(
"a" => $b[1],
"b" => $b[2],
"c" => $b[3],
)

なんで、空投稿するんだよ。見ずらいんだよ。

日本語すら満足に書けない俺様が講師のクソスレはここですか？

見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。
見ずらいんだよ。

ねちっこいね。うざいというかきもい。

　 ∧＿∧
　（　´∀｀）＜きもい。きもい。
　（ 　　　 つ
　（_○_＿_)

見づらいんだよ。でした。すまん。
俺は「俺様」じゃないです。

普通に見てる人もいるんで、煽ってるやつらマジでどっかいって。

>>97
普通にウザがってる人もいるんで自分のサイトでやるように説得してください。

煽りでもレスが付かないよりは大歓迎だ！
>>98
需要も少しはあるようだからまあ、多めに見てもいいじゃないか。
WebProg板ってスレ保持数に比べて活性化しているスレ数が非常に少ないから
他のスレがdat落ちして困るとかも無いしな。ウザかったら見なければ（･∀･）ｲｲ!
２ｃｈブラウザ使ってこのスレごとあぼーんだ。

今日はオブジェクト指向について書いておこう。
PHPもPerlもJavaやC++に代表されるオブジェクト指向言語である。

Perlのオブジェクト指向についてあまり知らないんですが、
Javaに比べるとPHPのオブジェクト指向に関する仕様は
　　　　　　　　　　　　　ショボイ！！！！
今年中に出る予定のPHP5で大幅に機能がアップするらしいので
それに期待しましょう。

まず、誰でも最初に疑問に思うのが
オブジェクト指向を用いるメリットは何か？
ということだ。

再利用ができる？
そんなのオブジェクト指向じゃなくてもしてるじゃないか。
我々はprintという出力命令を何度も利用している。
printの命令が内部でどういう仕組みになっているか調べたことのある人は極少数だろう。

まあ、オブジェクト指向をうまく使えば
再利用『しやすく』はなるだろう。

まず、カプセル化（データ隠蔽）というものがある。
人間というオブジェクトの例で考えてみよう。
人間は体重というデータを持っているが
我々は外見から見ただけでは体重を正確には知れない。
例えば、彼に『体重計に乗れ』ってメッセージを送れば
正確な体重を得ることが出来る。
同様に体重に『直接』アクセスして値を変えることは出来ない。
彼に『〜を食べろ』ってメッセージを送れば
その食べた分だけ体重が増加してくれるのである。

つまり、内部で保持しているデータを隠蔽できて、
見たり変えたりするには間接的にアクセスする必要があるということなのだが、

PHPではアクセサ（アクセス制限）の概念が存在しないため
このカプセル化があっさり崩壊してしまう。

再利用のためのもう一つの便利な機能は『継承』だろう。
既存のクラスのフィールド（データ）やメソッド（機能）を引き継いで、
その上で既存の機能を修正したり新たに追加したりできるようになる。
まあ、言い方を変えれば『継ぎはぎ』みたいなものだ。

PHPでは多重継承が存在しない。
つまり、あるクラスに対して１つの親クラスからしか
フィールドやメソッドを引き継げないということだ。
同じく多重継承が禁じられているJavaではこのようなことがしたければ
interfaceで代替が可能だが、
PHPではその代替案すら用意されていない。

多重継承なんかしなくてもプログラムは作れるという主張も根強いが、
まあ、それを言ったら継承なんかしなくてもプログラムを作れる
と言っても同じようなことである。

１つぐらいサンプルを書いてみよう。
因みに、このように変数に日本語使っても大丈夫だ。
（普段はお奨めしない。）

<?php
class 人{ //クラス名
var $体重; //フィールド
function 人($値){ //コンストラクタ（初期化）
$this->体重=$値; //値をフィールドへ代入
}
function 体重計に乗る(){ return $this->体重;} //体重を出力するメソッド
function 食べる($量){ $this->体重+=$量;} //体重を量だけ加える
}

$俺様=new 人(60);
print $俺様->体重計に乗る();
print ",";
$俺様->食べる(0.5);
print $俺様->体重計に乗る();
#60,60.5
?>

クラス内で自分自身のフィールドにアクセスするのにも
$this->体重
このように$thisとかいうものが必要なのだ。
（Javaの場合は省略可能）
これは長いコードを書こうとするとわかるが面倒すぎ。

ここで>>102で指摘した問題が起きる。
<?php
class 人{
var $体重;
function 人($値){
$this->体重=$値;
}
function 体重計に乗る(){ return $this->体重;}
function 食べる($量){ $this->体重+=$量;}
}

$俺様=new 人(60);
$俺様->体重 = 200; //おいおい、勝手に体重変えられたYO!
print $俺様->体重; //体重計使わなくても調べられるのかYO!
#200 俺は相撲取りじゃねえYO!
?>

てなわけで体重計とかのメソッドを作る意味がなくなってしまうのだ。
（Javaの場合はフィールドの前にprivateを付けるなどすれば
このような直接アクセスを防ぐことが出来る。）

コンストラクタと言うのは結構便利なんだがな。
<?php
class 人
{
var $体重;
function 人($値){
if($値<0) print "(　´,_ゝ`）ﾌﾟ";
else $this->体重=$値;
}
}

$俺様=new 人(-20);
#(　´,_ゝ`）ﾌﾟ
?>

このように体重に負の値が入れられるのを
防ぐことが出来る。
まあ、>>106のようにされたら結局は意味が無いのだが・・・

というわけで長くなったが
PHPのオブジェクト指向は
現在の仕様では大したことがないということで
積極的に使う必要は無いだろう。
機能をグループ化したい人とか、
『何となくかっこいいことしたい人とか』
（ただし、使い方を誤ると逆にかっこ悪くなる）
にはしても損は無い程度だろうか。

いずれにしてもPHP5に期待。

否定的なことばかり書いてたが
最近の本とか見るとメリットしか書いてなくて
オブジェクト指向ﾏﾝｾｰになる奴が多すぎる気がするから
敢えて逆行して書いただけで、
メリットをもっと強調するのなら実際は
そこまでひどいわけでもないがな。

98 名前：nobodyさん 投稿日：2003/03/03(月) 08:39 ID:???
>>97
普通にウザがってる人もいるんで自分のサイトでやるように説得してください。


99 名前：俺様 投稿日：2003/03/03(月) 10:08 ID:gt/b6+qo
煽りでもレスが付かないよりは大歓迎だ！
>>98
需要も少しはあるようだからまあ、多めに見てもいいじゃないか。
WebProg板ってスレ保持数に比べて活性化しているスレ数が非常に少ないから
他のスレがdat落ちして困るとかも無いしな。ウザかったら見なければ（･∀･）ｲｲ!
２ｃｈブラウザ使ってこのスレごとあぼーんだ。


98 名前：nobodyさん 投稿日：2003/03/03(月) 08:39 ID:???
>>97
普通にウザがってる人もいるんで自分のサイトでやるように説得してください。


99 名前：俺様 投稿日：2003/03/03(月) 10:08 ID:gt/b6+qo
煽りでもレスが付かないよりは大歓迎だ！
>>98
需要も少しはあるようだからまあ、多めに見てもいいじゃないか。
WebProg板ってスレ保持数に比べて活性化しているスレ数が非常に少ないから
他のスレがdat落ちして困るとかも無いしな。ウザかったら見なければ（･∀･）ｲｲ!
２ｃｈブラウザ使ってこのスレごとあぼーんだ。

98 名前：nobodyさん 投稿日：2003/03/03(月) 08:39 ID:???
>>97
普通にウザがってる人もいるんで自分のサイトでやるように説得してください。


99 名前：俺様 投稿日：2003/03/03(月) 10:08 ID:gt/b6+qo
煽りでもレスが付かないよりは大歓迎だ！
>>98
需要も少しはあるようだからまあ、多めに見てもいいじゃないか。
WebProg板ってスレ保持数に比べて活性化しているスレ数が非常に少ないから
他のスレがdat落ちして困るとかも無いしな。ウザかったら見なければ（･∀･）ｲｲ!
２ｃｈブラウザ使ってこのスレごとあぼーんだ。


98 名前：nobodyさん 投稿日：2003/03/03(月) 08:39 ID:???
>>97
普通にウザがってる人もいるんで自分のサイトでやるように説得してください。


99 名前：俺様 投稿日：2003/03/03(月) 10:08 ID:gt/b6+qo
煽りでもレスが付かないよりは大歓迎だ！
>>98
需要も少しはあるようだからまあ、多めに見てもいいじゃないか。
WebProg板ってスレ保持数に比べて活性化しているスレ数が非常に少ないから
他のスレがdat落ちして困るとかも無いしな。ウザかったら見なければ（･∀･）ｲｲ!
２ｃｈブラウザ使ってこのスレごとあぼーんだ。
　　　　　　　　　　　　　　　　　　　　　　　　　　　

98 名前：nobodyさん 投稿日：2003/03/03(月) 08:39 ID:???
>>97
普通にウザがってる人もいるんで自分のサイトでやるように説得してください。


99 名前：俺様 投稿日：2003/03/03(月) 10:08 ID:gt/b6+qo
煽りでもレスが付かないよりは大歓迎だ！
>>98
需要も少しはあるようだからまあ、多めに見てもいいじゃないか。
WebProg板ってスレ保持数に比べて活性化しているスレ数が非常に少ないから
他のスレがdat落ちして困るとかも無いしな。ウザかったら見なければ（･∀･）ｲｲ!
２ｃｈブラウザ使ってこのスレごとあぼーんだ。


98 名前：nobodyさん 投稿日：2003/03/03(月) 08:39 ID:???
>>97
普通にウザがってる人もいるんで自分のサイトでやるように説得してください。


99 名前：俺様 投稿日：2003/03/03(月) 10:08 ID:gt/b6+qo
煽りでもレスが付かないよりは大歓迎だ！
>>98
需要も少しはあるようだからまあ、多めに見てもいいじゃないか。
WebProg板ってスレ保持数に比べて活性化しているスレ数が非常に少ないから
他のスレがdat落ちして困るとかも無いしな。ウザかったら見なければ（･∀･）ｲｲ!
２ｃｈブラウザ使ってこのスレごとあぼーんだ。
　

あんまり資源無駄に使ってるとアク禁食らっちゃうよー

このスレすごく良いです。頑張ってください。

>>113
同意。>>1は反省しる。

>>114
自作自演晒しage

オブジェクト指向に関するレスは０か。
まあ、使わなければならない機能でもないから放って置いてくれ。
今日はそろそろ具体的なHTMLドキュメントの作成方法に入っていこう。

>>113
気をつけます。
>>114
(TдT) ｱﾘｶﾞﾄｳ
>>115
俺様は朝５時になんか起きれん。

出力方法は何通りかあるので示しておきます。
自分が使いやすい方法を用いればよいだろう。

<?php
$title = "タイトル";
print "<html>";
print "<head>";
print "<title>$title</title>";
print "</head>";
print "<body>";
print "俺様のHTMLドキュメント";
print "</body>";
print "</html>";
?>

前も言ったように、CGI/Perlの場合は
print "Content-type: text/html\n\n";
こんなのが必要だったがmod_phpの場合は要らない。
上のスクリプトを書いてブラウザで開いてみれば
見事、俺様のHTMLドキュメントと出力される。

資源無駄使いって言われたので
混合させてまとめて記述しちゃうか。
<?php
$title = "タイトル";
echo "<html>"; //echoも出力命令の１つ。printと同じようなものと思って良い。
echo("<head>"); //今まで省略してたけど()を付けても構わない。printも同様。

//C言語にあったprintfも使える。%3dなど書式をいろいろ設定できる。
//printやechoと違い、()が必須なので注意。
printf("<title>%s</title>",$title);
printf("</head>");

print <<<EOD //ヒアドキュメント。HTML部分が長くてprintとか書くのが面倒なとき便利
<body>
俺様のHTMLドキュメント
</body>
EOD; //ヒアドキュメント終了
print "</html>";
?>

ヒアドキュメントはPerlでも使っていた人は多いでしょう・
Perlでは↓のように書くが、PHPではセミコロンの位置が変わっているので
間違えないように注意しよう（重要）。
print <<EOD;
...
EOD

因みに、PHPはHTML内に埋め込むことができると言うのを
利点として主張されることも多い。これは以下のように書けるからである。
<?php $title = "タイトル"; ?>
<html>
<head>
<title><?php $title ?></title>
</head>
<body>
俺様のHTMLドキュメント
</body>
</html>
このように必要な部分だけをPHPスクリプトとして認識させることが出来る。

コメントについても書いちゃおう。
Perlでは#のみだったがPHPではJavaなどで使われている以下の形式も可能である。
// コメント。#と意味は同じ。
/* これもコメント。複数行をコメントか出来るのが特徴。
つまりここもコメントになる。　　　*/

この利点を利用すれば
簡単なカウンタなら
カウント保存用の空ファイルさえアップしておけば
ほんの数行であっという間に出来てしまうのだ。

明日はファイル入出力をやろう。

>>116
オブジェクト指向、興味あるよ？

手っ取りばやくお金もうけしましょう
http://www.h4.dion.ne.jp/~sohotop/
日給２万円も無理じゃない！！！

>122
ねずみ講じゃないの？

http://www.agemasukudasai.com/bloom/

香ばしいです、はい。

OOの無いPHPを使う位なら俺はPerlを使う。

>>126
入門なんだから、大目に見てくださいな。

>>126
まあ、まずはOOを使うメリットをよく考えないと。
モジュールでも作るのか？

>>127
OOの入門レベルなら
プログラミング全体で見てもやはり入門であることには違いない。

では、ファイル操作について簡単な説明をしておこう。
ファイルの開き方は、PerlではopenだったがPHPではfopenになる。
読み取りや書き込みなどのモードもPerlとは仕様が変わり
C,Java寄りになっているので注意しよう。
PHP:
$fp = fopen(filename, mode); //ファイルポインタの位置が返る
Perl：
open(FILE, filename); //返り値は正常時が1、失敗だと０

オープンモードの選択方法がPerlだと+>みたいのをファイル名に直接つけていたのが
PHPだと２つ目の引数として別に記述するようになった。
ファイルハンドラは引数に記述するのではなく、
返り値になったのでそこも注意しよう。

具体的な仕様はマニュアルを参照。
http://www.php.net/manual/ja/function.fopen.php

>>130
なぁ、お前学校行ってないの？

では超簡易カウンタを作ってみよう。
仕様としてはファイルcount.txtの１行目にカウンタ数値を書くだけのものだ。
まず予めcount.txtを作成して0を記述しておくこと。

<?php
$fp = fopen("count.txt","r");
//count.txtを読み出しモードで開く。
//$fpはファイルポインタであり、rの場合ファイルの先頭の位置が返される。
$count = fgets($fp); //改行かファイルの終端まで読みこんで$countへ代入。
fclose($fp); //いったん閉じる
$count++;
$fp = fopen("count.txt","w"); //書き込みモード
fwrite($fp,$count); //書き込み。
fclose($fp);
?>
<html>
<body>
貴方は<?php print $count; ?>人目の俺様の弟子じゃ。
</body>
</html>

>>131
ｵﾏｴﾓﾅｰ

では明日はいよいよフォームの処理を行おう。

ちなみにレッツPHPにファイルを１回しか開かなくていいバージョンが書かれているな。
http://php.s3.to/counter/
同時アクセスの際の弊害が置きにくくなるからそっちの方がいいだろう。
flockもしておくこと。

因みに、PHPはHTML内に埋め込むことができると言うのを
利点として主張されることも多い。これは以下のように書けるからである。
<?php $title = "タイトル"; ?>
<html>
<head>
<title><?php $title ?></title>
</head>
<body>
俺様のHTMLドキュメント
</body>
</html>
このように必要な部分だけをPHPスクリプトとして認識させることが出来る。

コメントについても書いちゃおう。
Perlでは#のみだったがPHPではJavaなどで使われている以下の形式も可能である。
// コメント。#と意味は同じ。
/* これもコメント。複数行をコメントか出来るのが特徴。
つまりここもコメントになる。　　　*/

PHPには「〜?〜:〜」に該当する関数等はありまつか？
下のようなのが沢山あるのでなるべくif文は使いたくないんです。

例1：（Perl）
printf "<a href=\"%s\" target=\"%s\">%s</a>\n",&link($a?$b:$c),$d?"_blank":"_top",$d?"新しいウィンドウで開く":($e?"次のページ":"更新");

条件演算子としては、他に "?:" (または trinary) 演算子があります。 この演算子の動作は、Cまたは他の多く言語と同じです。


(式1) ? (式2) : (式3);



この式は、式1 がTRUEの場合に 式2 を、 式1 がFALSEの場合に 式3 を値とします。

と、PHPマニュアルからまんま転載してみる。

>>139
ありがとう。
PHPに乗り換えようかと思います。

PHPによるHTTP認証のフックは、Apacheモジュールとして実行した時のみ 有効で、
CGI版では利用できません。Apache モジュールPHPスクリプトにお いて、header()
関数を使用して "Authentication Required" メッセージをクライアントブラウザに送る
ことが可能です。 これにより、クライアントブラウザにユーザー名とパスワードを入力する ウイ

ンドウがポップアップ表示されます。一度、ユーザーがユーザー名と パスワードを
入力すると、PHP スクリプトを含むその URL は、次回以降、 定義済みの変数 PHP_AUTH_USER, PHP_AUTH_PW, and PHP_AUTH_TYPEにそれぞれユーザー名
、 パスワード、認証型を入力してコールされます。 定義済みの変数は、配列 $_SE
RVER および $HTTP_SERVER_VARS　でアクセス可能です。 "Basic" 認証のみ
がサポートさ
れています。詳細は、 header()を参照下さい。

>>140
俺様の騙りがついに
ｷﾀ━(ﾟ∀ﾟ)━( ﾟ∀)━( ﾟ)━( )━(ﾟ )━(∀ﾟ )━(ﾟ∀ﾟ)━!!!!

http://www.agemasukudasai.com/bloom/

つづきまだー？

>>132
ファイルロックとかしなくても大丈夫？

$a : $b ? $c = 1;

PHPはこれ書ける?

>>143
まあ、１日にいくつも書くの疲れるから。
あせらず明日まで待ってクレイ。

>>144
実際に使うなら、ファイルロックしないと( ﾟдﾟ;)ﾏｽﾞｰだろうな。
シンプルカウンタは>>135のを使ったほうが良い。

>>145
?と:が逆じゃん？
>>138

>>145
三項演算子まともに使えない自作自演俺様晒しage

>>147
ん？>>146で言った逆っての間違ってたか？
そんなことはないと思うが・・・

>>145-148
てか>>137-138で既出だし。

ふふふ。ひっかかったか。

Perlは三項演算子を左辺値として使える。
って全然利用価値はないけど、知ってるか試しただけ。

あぁ。$a ? $b : $c だな。・・

>>150
ひっかかってた俺様晒しage

>>152
(　´,_ゝ`）ﾌﾟ

>>150
何が引っかかったのかよくわからん。
>>145は逆だからかエラーでてるし。

>>150
とりあえず
$a ? $b : $c = 1;
って正しく書いてくれたら面白かったのに。
まあ、またそういうのがあったら引っ掛けてみてクレイ。

>>150
気持ちわりぃ〜・・・・(文法が)

わからない点が出てきた（汗

$a ? $b : $c = 1;
これは$aがまだ初期化されていないため
falseとみなされて$cに1が代入される。
ところが、
$a=true;
$a ? $b : $c = 1;
このようにしても$bには１が代入されていなかった・・・

ちなみにPerlの場合はちゃんと$bに１が代入されてました。
というわけでどうしてPHPだと代入されないのかを考えて見ましょう。
PerlとPHPの違いですね。

俺様に、きもいストカー、スレ繁盛。　　　サラリーマン俳句

define("true",0);

さっき書いたもので十分。Perlは三項演算子(の2、3番目のやつ)が左辺値になれる。
なんと関数も左辺値にできる(ver 5.6辺り(?)以降から..)

my %hash;
sub hoge : lvalue {
my $key = shift;
return $hash{$key};
}

hoge('test') = 1;
print $hash{test};

>>157
あほか？
$a?$b:($c=1);と解釈するからだろ。つーかそれが健全。

ごめん。またもや失敗。

return を使ってはいけない。とのこと。

sub hoge : lvalue {
my $key = shift;
$hash{$key};
}

C(gcc 2.95.3-6 mingw)はperlと同じ挙動を示した。
こんな書き方があるとは、知らなかった。。

わからない点が出てきた（汗

$a ? $b : $c = 1;
これは$aがまだ初期化されていないため
falseとみなされて$cに1が代入される。
ところが、
$a=true;
$a ? $b : $c = 1;
このようにしても$bには１が代入されていなかった・・・

ちなみにPerlの場合はちゃんと$bに１が代入されてました。
というわけでどうしてPHPだと代入されないのかを考えて見ましょう。
PerlとPHPの違いですね。わからない点が出てきた（汗

$a ? $b : $c = 1;
これは$aがまだ初期化されていないため
falseとみなされて$cに1が代入される。
ところが、
$a=true;
$a ? $b : $c = 1;
このようにしても$bには１が代入されていなかった・・・

ちなみにPerlの場合はちゃんと$bに１が代入されてました。
というわけでどうしてPHPだと代入されないのかを考えて見ましょう。
PerlとPHPの違いですね。わからない点が出てきた（汗

$a ? $b : $c = 1;
これは$aがまだ初期化されていないため

わからない点が出てきた（汗

$a ? $b : $c = 1;
これは$aがまだ初期化されていないため
falseとみなされて$cに1が代入される。
ところが、
$a=true;
$a ? $b : $c = 1;
このようにしても$bには１が代入されていなかった・・・

ちなみにPerlの場合はちゃんと$bに１が代入されてました。
というわけでどうしてPHPだと代入されないのかを考えて見ましょう。
PerlとPHPの違いですね。わからない点が出てきた（汗

$a ? $b : $c = 1;
これは$aがまだ初期化されていないため
falseとみなされて$cに1が代入される。
ところが、
$a=true;
$a ? $b : $c = 1;
このようにしても$bには１が代入されていなかった・・・

ちなみにPerlの場合はちゃんと$bに１が代入されてました。
というわけでどうしてPHPだと代入されないのかを考えて見ましょう。
PerlとPHPの違いですね。

粘着きもいお（○´∞｀○）

>>161
http://www.php.net/manual/ja/language.operators.php
演算子の優先順位が
=より：?の方が高いから
$a?$b:$cの方が$c=1より先に評価されるはずじゃない？

でもこうやってみたら$aが真のときに
$bに１が代入されてたからやっぱ>>161のいう通りかな。
$a ? $b = 1: $c;
しかし、いいかげんな仕様だね。

>>161
http://www.php.net/manual/ja/language.operators.php
演算子の優先順位が
=より：?の方が高いから
$a?$b:$cの方が$c=1より先に評価されるはずじゃない？

でもこうやってみたら$aが真のときに
$bに１が代入されてたからやっぱ>>161のいう通りかな。
$a ? $b = 1: $c; >>161
http://www.php.net/manual/ja/language.operators.php
演算子の優先順位が
=より：?の方が高いから
$a?$b:$cの方が$c=1より先に評価されるはずじゃない？

でもこうやってみたら$aが真のときに
$bに１が代入されてたからやっぱ>>161のいう通りかな。
$a ? $b = 1: $c; >>161
http://www.php.net/manual/ja/language.operators.php
演算子の優先順位が
=より：?の方が高いから
$a?$b:$cの方が$c=1より先に評価されるはずじゃない？

でもこうやってみたら$aが真のときに
$bに１が代入されてたからやっぱ>>161のいう通りかな。
$a ? $b = 1: $c;

これで勘弁してくれ
Perl
$a?$b:$c=1;
PHP
$a?$b=1:$c=1;

では今日はフォームの受け渡しを書いておこう。

まずはhtml部分から。

<form action="../cgi-bin/test.cgi" method="POST">
名前: <input type="text" name="name" /><br>
性別: <br>
<input type="radio" value="男" name="sex" checked>男<br>
<input type="radio" value="女" name="sex">女<br>
<input type="submit" name="送信">
</form>

Perlだとこうなる。

#!/perl/bin/perl
print "Content-type: text/html\n\n";
use CGI;
$q = new CGI;
print $q->param('name')."は".$q->param('sex');

まあ、cgi.pmがPerl5で標準に組み込まれるようになったので
かなり楽になっただろう。
cgi.pmを用いないとさらに面倒である。

PHPの場合だとこれでよい。
<?php
print $_POST["name"]."は".$_POST["sex"];
?>

ちなみにGET方式の場合は同様に
$_GETの配列に代入される。

$_REQUESTにはGET,POST関係なく
代入されてくれる。（ただし、安全じゃないという理由で推奨はされない）

http://www.php.net/manual/ja/ref.strings.php
文字列関数を見るとわかるがかなり便利な関数が標準で用意されている。

htmlspecialchars
特殊文字をHTMLエンティティに変換する
例えば、<を'<'に変えてくれるのだ。
タグとみなされずにすむ。

trim
文字列の先頭および末尾にあるホワイトスペースを取り除く
これもフォーム処理の際にはあると便利だろう。

こんなふうにすればフォームから受け取った全ての値に
簡単に処理を適用できる。
$_POST = array_map("htmlspecialchars", $_POST);
$_POST = array_map("trim", $_POST);

これでフォームもバッチリъ( ﾟｰ^)だろう。

a?b:c=1;
本来はエラーにすべきだけど、gccだと通るんだよな・・・三項演算子が左辺になりうる。
まあ-ansi -pedanticをつければエラーにしてくれるけど。

s/左辺/左辺値/

いい加減な仕様とか言って・・

演算子の優先順位も、左辺値になるということも、
perlopにちゃんと書いてあるし。ちゃんとした仕様。

仕返しだ。

$a ? $b : $c = $d ? $e : $f = $g ? $h : $i = $j ? $k : $l = $m ? $n : $o;

>>177
いや、いい加減な仕様ってのは今回に限ってはPHPに対していったのさ。
>>157で言ったようにPerlの場合は予想したとおりになったからね。

俺が言いたかったのはPHPの場合が>>161みたいになっているのが
いい加減だなあってことだ。

PHPも、優先度は、=の方が上だから、そのままの結果。ではないのか?

>>179
＞優先度は、=の方が上
ソースｷﾎﾞﾝﾇ。
俺が調べた結果だと=の方が下だった。

◆ようこそ！！ピンクエンジェルです★
http://www.pink-angel.jp/betu/index.html

本来はd=a?b:c;という形で使う者なんだから、=の方が低くて当然。
左辺値になるってのがおかしいんだよ(-_-;)

>>180
あぁ。最低から並べたものって書いてあった。うぅ。

180 名前：俺様 投稿日：2003/03/06(木) 17:04 ID:SMJB497B
>>179
＞優先度は、=の方が上
ソースｷﾎﾞﾝﾇ。
俺が調べた結果だと=の方が下だった。


181 名前：nobodyさん 投稿日：2003/03/06(木) 17:05 ID:G2YpYyeT
◆ようこそ！！ピンクエンジェルです★
http://www.pink-angel.jp/betu/index.html


182 名前：nobodyさん 投稿日：2003/03/06(木) 17:06 ID:???
本来はd=a?b:c;という形で使う者なんだから、=の方が低くて当然。
左辺値になるってのがおかしいんだよ(-_-;)


183 名前：nobodyさん 投稿日：2003/03/06(木) 19:06 ID:???
>>180
あぁ。最低から並べたものって書いてあった。うぅ。

182 名前：nobodyさん 投稿日：2003/03/06(木) 17:06 ID:???
本来はd=a?b:c;という形で使う者なんだから、=の方が低くて当然。
左辺値になるってのがおかしいんだよ(-_-;)


183 名前：nobodyさん 投稿日：2003/03/06(木) 19:06 ID:???
>>180
あぁ。最低から並べたものって書いてあった。うぅ。

教えて下さい。
配列@arrayに、'12-34','34-56'...みたいなデータが入ってて、-の右側でソートしたい場合、

@tmp = map { (split /-/)[1] } @array;
@array = @array[ sort { $tmp[$b] <=> $tmp[$a] } 0 .. $#tmp ];

でやってたんですが、同じことをPHPでやるにはどうしたらいいんでしょう？

>>185
実はそれに似たようなので、俺様も苦労したんだな〜

1<>32<>43<>2
3<>41<>443<>232
...
ってな感じでデータが入ってて
３列目（上だと43,443）だけでsortしたいなーって。
で、結局よくわからんかったから自己関数作った。

function cmp ($a, $b) {
$tmp1 = explode("<>", $a);
//文字列$a（="1<>32<>43<>2"）を<>で区切って配列に代入
//例えば、$tmp1[0]=1,$tmp1[1]=32
$tmp2 = explode("<>", $b);
if($tmp1[2] == $tmp2[2]) return 0;
elseif($tmp1[2] > $tmp2[2]) return -1;
else return 1;
}

usort ($array "cmp");
//ユーザー定義の比較関数により値で配列をソート

まあ、usortの使い方とかはマニュアルで調べてクレイ。
http://www.php.net/manual/ja/ref.array.php

俺様のと若干違うようなので、もっと簡単な方法があるかも知れんが
参考までに。

教えて下さい。
配列@arrayに、'12-34','34-56'...みたいなデータが入ってて、-の右側でソートしたい場合、

@tmp = map { (split /-/)[1] } @array;
@array = @array[ sort { $tmp[$b] <=> $tmp[$a] } 0 .. $#tmp ];

でやってたんですが、同じことをPHPでやるにはどうしたらいいんでしょう？教えて下さい。
配列@arrayに、'12-34','34-56'...みたいなデータが入ってて、-の右側でソートしたい場合、

@tmp = map { (split /-/)[1] } @array;
@array = @array[ sort { $tmp[$b] <=> $tmp[$a] } 0 .. $#tmp ];

でやってたんですが、同じことをPHPでやるにはどうしたらいいんでしょう？教えて下さい。
配列@arrayに、'12-34','34-56'...みたいなデータが入ってて、-の右側でソートしたい場合、

@tmp = map { (split /-/)[1] } @array;
@array = @array[ sort { $tmp[$b] <=> $tmp[$a] } 0 .. $#tmp ];

でやってたんですが、同じことをPHPでやるにはどうしたらいいんでしょう？教えて下さい。
配列@arrayに、'12-34','34-56'...みたいなデータが入ってて、-の右側でソートしたい場合、

@tmp = map { (split /-/)[1] } @array;
@array = @array[ sort { $tmp[$b] <=> $tmp[$a] } 0 .. $#tmp ];

でやってたんですが、同じことをPHPでやるにはどうしたらいいんでしょう？

配列にしてからソートした方がよくない？

>>185
Perlならこれでいいんじゃない?

@array = sort { (split(/-/,$a))[1] <=> (split(/-/,$b))[1] } @array

>>185

$i = 0;
for($array[$i]) {
list($first, $second) = explode("-",$array[$i]);
$first[] = $first;
$secondt[] = $second;
$i++;
}

array_multisort($second, $first);

$i++;
while ($first[$i]){
$array[$i] = $first[$i] . "-" . $second[$i];
$i++;
}

PHP初心者スレで書いた奴を改善してみた。

>189
ソートの度になにかの処理をするって遅くならん？

現在時刻から$n日後を求めたいいいだけどprelだと以下
($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime(time + $n*24*3600);
PHPだとどうなるんだ？
あのツェラーの公式だっけか？

>>192
>$n日後

なら純粋にtime()に86400 * nを足せばいいのでは？

$i = 90;

$year = date("Y", time());
$day = date("n", time());
$month = date("j", time());
$hour = date("G", time());
$minute = date("i", time());
$second = date("s", time());

$timestamp = mktime($hour, $minute, $second, $month, $day + $i, $year);

print date("Y/n/j G:i:s", $timestamp);

まぁ別に変数を使う必要も無いわけだが。

>>193 >>194
レスサンク！
ツェラーの公式とはまた違うか、・・・・。
PHPではツェラーの公式なんか使わなくても簡単に指定した日の
曜日とかも算出出来ちゃうんだね。
--抜粋--
また、カレンダー等でその日の曜日を知りたい時、「perl」では
Zeller（ツェラー）の公式を使って算出しなければいけませんが、
「php」では「string date (w , [timestamp])」とすると、
「timestamp」で指定した日にちの曜日を数字で返してくれます
（0(日曜)〜6(土曜)）。極端な例を２点ほどあげましたが、
他にも便利な関数が数々あります。
--抜粋--
ttp://bin5.info/useful/php/php_02.html

>>195
質問が変わっている。

>>196
いやいや、これはこれであれはあれで・・・
失礼すました。

Perlの場合、自前で計算したくないなら、Date::Calcを使えばいい。

>>194の回答はアホ過ぎ。timeの戻り値がシリアル値なんだから、
その性質を使わないのは勿体無い。

>>193
うるう秒はどうするの？

>>199
うるう秒の意味わかってるか？
で、それをどうしたいのか？

うるう秒が蓄積されて誤差が1日を超えるような時間は、32bitのtimeでは指定できない。

でいいかな?

うるう秒をちゃんと考えるなら、>>194の方法で・・。

list($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time() + $n*24*3600);

>>198
「アホでも判るように。」が信条なんだが。

で、後学の為にその性質を使ったコードを見せて頂きたい。

reloadなしで書くとこうなるわけですね。
>>202
サンクス

吊ってきま。

つづきまだー

そろそろネタ切れだ。
以上の知識でもうどんな物でも
Perl→PHPの移行はできるはずだ。

練習として誰かYomiサーチを移植してみよう。

>>208
削除依頼よろしく。

俺様、ちょっち待てよ。
Yomiサーチの移植の続きやれよ。(w

>>210
出来るわけ無いだろう。このスレ読む限りでは。

dbを触るところまでやってほしかったっす。

よっしゃ。じゃあMySQLまでやろう。
というか俺が今その勉強中だから

まあ(・∀・)つ目　ｵﾁｬﾃﾞﾓﾉﾝﾃﾞﾏﾃ!

>>213
死ね

>>214
(´Д⊂

　 ∋8ノノハ.∩
　　 川o・-・）ノ　＜先生！こんなのがありました！
＿_/ / 　 　/ 　　
＼(_ﾉ￣￣￣＼
||ヽ||￣￣￣￣||
　...||￣￣￣￣||
http://saitama.gasuki.com/saitama/

PHPはいいからDelphiおしえれ

>>217
何が聞きたい？

>>218
Perlとの違い

>>219
もうちょい具体的に。激しく違う。としか言いようがない。

Delphiは板違いなのでプログラム板で。

>>221
釣りですか？
真性ならプログラム技術板のPerlスレでも似たようなことを言っちゃうんだろうな。

>>220
ﾜﾗﾀｗ

このスレでは、いずれ php.ini の解説もしてくれますか？
俺が Perl → PHP で一番悩んでるのが php.ini (により定まる動作環境？) なんだよね。
こっちのサーバでは動くのにあっちのサーバでは動かない、とかとか。

>>224
それって各鯖の鯖管に問い合わせるべきじゃないのか？
知っててもそれじゃ手が出せないだろ。

>>225

php.iniの設定ってある程度はコード中で変えられたと記憶。

>>225
問題解決のためならその通りですが、
予備知識が無いと、聞きようが無い and 読みようが無いと思ったのさ。

詳しくは本でも買って読め、ということになるのかもしれないけど、
Perlユーザ向けの *入門編レベル* で十分なので、
抑えておくべきポイントを教えてくれると嬉すぃ。

>>227
phpinfo呼び出す。

後は値でどういう設定かは見当が付く。

もちろん、一番最初に
<?php
phpinfo();
?>
だけ書いたファイルを置く、これはやってます。

ただ、
> 後は値でどういう設定かは見当が付く。
これがね…。
要点だけで良いので、時間余ったらよろしく。>>俺様

まあ、入門レベルならそこまで弄る所はないだろうというのが本音だが。
＞こっちのサーバでは動くのにあっちのサーバでは動かない
これで困っているなら、なぜ動かないのかを検討する方が先だろうし。

まあ、php.ini自体に英語で最初から説明が書いてあるので
それを見ながら幾つか拾ってみよう。

まずここはサーバで違いがあるところが多い。

; Safe Mode
safe_mode = Off（デフォルト時）

セーフモードとは何か？についてはマニュアルに結構書いてある。
http://www.php.net/manual/ja/features.safe-mode.php
http://www.php.net/manual/ja/features.safe-mode.functions.php

見ればわかるとおり、Onにすると使えなくなる関数とかがいくつか出てくるが
共用鯖ではOnにしている所がかなり多いので
On上での動作確認をした方がいいだろう。

>>231
お前、全部説明する気か？大変すぎだぞ。それ。

というか便利なページ発見。
http://www.net-newbie.com/postgres/php.ini-recommended.txt

PHPにはphp.ini-recommendedという推奨設定ファイルが付いている。
上はその日本語訳のようだ。

>>232
まあ、重要な部分だけあといくつか。
あとはその日本語訳をよんでクレイってことで。

これも確かめたほうがいいな。
register_globals = Off

Onにすると変数がグローバル変数となってしまう（だったっけ？）
俺はOnにしたことないからよく知らんが。
4.1.0以降でデフォルトがOnからOffに変わったので注意すべき。
Onのサイトのみで動いていたものをOffのサイトで動かすには
結構スクリプトの書き換えが必要。

>>234
違うぞ。

フォームからの情報がそのまま変数として展開されるか、$_GET $_POSTなどの連想配列？の要素として格納されるかの違いだ。

; UNIX: "/パス1:/パス2"
;include_path = ".:/php/includes"
;
; Windows: "\パス1;\パス2"
;include_path = ".;c:\php\includes"

必要なら先頭の『;』は外しておこう。

例えば、DBで便利なPearを使うなら
include_path = ".;c:\php\includes;c:\php\pear;"
ってな感じにディレクトリを加えたほうが良い。
PearはPHPインストール時にデフォルトで付いてくるのだが
サーバー上でincludeできる設定になっていない場合、
自分で使いたかったらPear自体を自分のディレクトリに
アップロードしないとならないかも。

>>235
フォローサンクス。

あと、
; cgi.force_redirect = 1
はこのように変えたほうがいい。
cgi.force_redirect = 0

ただ、PHP4.3.0はこの挙動がおかしくなるバグがあるらしいので注意。

>>237
CGIとして使うなら必須だな。

後はこれだ。

extension_dir = ""

きちんとextensionsディレクトリをさすようにしておこう。
extension_dir = "C:/php/extensions"

>>239
じゃないとexpatとかmbstringが使えないからな。重要だ。

何気に息が合ってそうなのが面白い。
がんがれ。

ああ、あとそのディレクトリをきちんと設定しても
一部のDLLは使えるようになっていない。
Windows使いなら

;Windows Extensions
;Note that MySQL and ODBC support is now built in, so no dll is needed for it.
;
;extension=php_bz2.dll
;extension=php_cpdf.dll
・・・

使いたいdllの先頭の；を外す必要がある。

具体的に各鯖でどうなってるかはphpinfo()読めば大体わかるでしょう。

まあ、重要な設定はこんなもんか？
後は上の日本語訳や
マニュアルにもけっこう説明がしてあるはずだから
それを読んでクレイ。

register_globals対策。

php3 -> php4で一番困るのが
register_globals

で、Sourceを手っ取りばやく移植するにはSourceの先頭で

$hoge = $_POST["hoge"];

ってな感じにする。

>>244
って言うか配列を変数に展開する関数みたいなの無かったっけ？
Perlだったっけか？

何だよここ、良スレ過ぎ！
回答ありがとう。

>>233
ググりかたが甘かったみたい。サンクスコ。
がんがってみます。

extract

レッツPHPより引用

＞■修正の仕方
＞以前のスクリプトを、PHP4.1.0以降に対応させるには、
＞以下の文を、最初の<?以降に挿入すると、暫定的に動作するかと思われます。
＞extract($_GET);
＞extract($_POST);
＞extract($_COOKIE);
＞extract($_SERVER);

＞extract($_SESSION);←セッションを使う場合

＞未確認なので動作は保証しません。extractは配列を変数に展開するための関数です（$_GET[f]=2002なら$fに2002が入る）

phpをcgiとして使用した場合は

・Perl/CGIと比較して処理速度の高速化
・サーバー負荷の低減

これらのメリットは無くなるということですか？

>>249
そだね。CGIとしてPerlやCを動かすのと状況は同じ。
それでも俺的にはメリットは余りあるけど。
後、マルチすんなボケ。

今日はいよいよDBについて書こう。ようやく使い方がわかってきたので。
PostgreでもMyでも使えるようにPearを用います。

対応DB
Interbase
Mini-SQL
Microsoft SQL Server
MySQL
Oracle 8 (OCI)
ODBC
PostgreSQL
Sybase

まず準備としてphp.iniの設定が必要だ。

この３つを参照。
>>236
>>239
>>242

>>239、>>242はMySQLのみの場合は要らないかな。
例えばPostgreSQLを使いたければ
;extension=php_pgsql.dll
を
extension=php_pgsql.dll
ってする必要がある。

MySQLのみインストール方法も書いておこう。

http://www.mysql.com/downloads/
ここからバージョンを選んで（勇気ない俺は4ではなく3.23）
Windows downloadsってのを落とす。
で、seteupを実行してnext連打でOK（一応要確認）。

インストールしたらc\:windows辺りにmy.iniってファイルが出来ていると思うので
それを開いてこれを追加。

[mysqld]
default-character-set=sjis

以上で完了だ。

PostgreSQLはcygwinを入れたりアカウント作ったりと面倒なので各自で調べてくれ。
何とかインストールできたけど数時間掛かった（汗

ああ、後winmysqladmin.exeってのも
一度実行してユーザー名とパスを決めるように。
外部に公開しない場合はキャンセルでも良いでしょう。

PHPにはいる前に単独での動作確認もしておきましょう。
DOSプロンプトで

C:\>mysql\bin\mysql
で、
Welcome to the MySQL monitor. Commands end with ; or \g.
Your MySQL connection id is 50 to server version: 3.23.55-nt

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql>

こんなふうになったら成功だ。

Pearはここを参考。
http://pear.php.net/manual/ja/

調べたところによるとWindows用PHP4.3以降では
標準で付かなくなってしまったらしいので
上を参考に落としておきましょう。

もちろん4.2以前から使ってた人は
最初からPearも使用できます。

というか調べてるうちに（･∀･）ｲｲ!サイト見つけたな。
これ見れば俺様の説明なんぞ用なしかも。
http://tsuttayo.sytes.net/mysql/index.html

これ見てphpMyAdminとかも入れておくと良い。
ブラウザからアクセスできるのでレンタル鯖などでも手軽に使えるのが特徴。

（＾＾）

age

MySQL入れました。
最初、エラーが出て焦りました。
mysqladminいいかも。

つづきまだー

>>262
何の話題がいい？
語るべきことは大体語っちゃったから
もう全てのPerlスクリプトを移植できるはずだ。

実践編が欲しいな。

なんかのコピペジェネレータを作るとか。

てかフォームを表示して受け取ってとかやってるとすんげー
HTMLとPHPのコードが入り乱れて汚くなっちゃうんだけど、どうすりゃいいの？

上でデータを作って下で表示させりゃいい。
<?

//極手抜き
$hoge = $_POST["hoge"];

?>
<HTML>
<H1><? print $hoge; ?></H1>
</HTML>

とか。

俺様殿江。ファイルとディレクトリの扱い方について解説して下さい。

Perl の Taint モードみたいのって、PHP にありますか？

Perlのexitや__END__みたいなヤシはありますか？

$fh = @fopen($file,"w");
の@はperlの何に相当するんですか？単にfopenじゃイクナイの？

>>269
@をつけると、エラー出力を抑止する。
つけなくてもいいけど、その場合はfopenに失敗したときにエラーがブラウザに返される。

>>270
ありが�d。
それじゃ代わりにperlみたいに
$fh = fopen($file,"w") or die("しぼんぬ");
ってやってもイイのかな。

>>271
いやだからそーすると、しぼんぬの前にエラーメッセージが出てしまう。

$fh = @foepn($file, "w");
if(!$fh){
　die("しぼんぬ");
}

>>272
なるほど。ありが�d�d

>>268
exitはexit()
__END__や__DATA__はないんじゃないかな

>>274
さんくす

メモ。

$a = $b || $c;

perl では、$b が false の場合は $c が $a に代入される。
php の場合は、 $a には $b || $c の bool値(0 or 1)が入る。

>>276
それJavaScriptでもできたなぁ。

ISPによっては、PEARとかの拡張モジュールが入ってない
ところがあるだろうけど、自分で使えるように拡張できるの
ですか？
例えばPerlでいえば、モジュールを自分のディレクトリに入れ
ておけばいいけど、そーゆーことはPHPでできますか？

>>277
ホントだ。
$foo ||= 'bar'; とか…は流石に無理かな。
ちなみに、python でも or を使って同様のことが出来ました。

>>278
出来るよ。ただし、共有のサーバーにインストールする場合は、
いままで自分のHOMEのライブラリを読んでいたのが、
ISPがPEARをインストールして突然ライブラリのバージョンが変わったりとか
…ありそうな話なので気をつけて。

>>279
できるのですか。
PHPは、PHP.INIにいろいろな基本設定を書いたりするようなので、
通常ISPでCGIやると、それを編集するのは許されないだろうから
無理だとおもっていました。

PHP.INI に記述された設定は、スクリプト内で変更できるのですか？

> PHP.INI に記述された設定は、スクリプト内で変更できるのですか？
ini_set -- 設定オプションの値を設定する
string ini_set ( string varname, string newvalue)
だけど、全ての設定が変更可能ではなく、pathの設定とかは確か無理だったかな。

include_pathの設定は、カレント・ディレクトリに
<?php require_once '/full/path/of/PEAR.php'; ?>
とか、リンクを PEAR.phpと言う名前で置くことで対応。

Perl の
$ perl -wcT hoge.pl
に相当する PHP の簡単な文法チェック方法って無い？

質問です。

例えば名前とトリップを分離する場合、Perl なら
if ($FROM =~ /(.*)(\#\S+)/) {
　　$name = $1;
　　$trip = $2;
}
と、$1, $2 使って楽できるんだけど、
PHP で↑の $1, $2 みたいなモノに相当するのって何ですか？

>>283
PerlならsplitにLIMITを指定して使い、分割すると思うが・・・・
PHPでもsplitでしょ。

>>284
あー例が悪かったですね。丁度身近にあったので出しちゃいました。
要はマッチした部分を簡単に再利用できないか？という質問です。
つまり、Perl の $1, $2 に相当するモノって何だろう、ということです。

\\1,\\2

>>286
\\1, \\2 ってどう使うのでしょう？
マッチングの後に、print \\1; とかやったらエラーになりました…。

再度、google 様に問い合わせたら、
if (ereg("(.*)(\#[^ \t\n\r\f]+)", $FROM, $regs)) {
　　$name = $regs[1];
　　$trip = $regs[2];
}
でいいみたいですね。調査が甘くてすみません。

自己レスです。
\\1, \\2 は
$url = ereg_replace("(http://ime.nu/)(.*)", "http://\\2", $url);
こうでしたか。
レスありがとうございました。>>286

magic quotes gpc なるヤツでここしばらく悩んでた。
勝手にエスケープされるなんて、まるで想像もつかなかった。
Perl → PHP への道、俺にとってはかなり遠い。でもガンガルsage

ところで tr/ab/cd/ って PHP ではどーやんの？

>>289
$hoge=ｓｔｒｔｒ($hoge, "ab", "cd");

>>290
ｻﾝｸｽｺ!!

俺様ありが�d

C/C++とPerlとVBとPascalとASM位しか知らなかったのだが、
よーやくPHPに手が伸びそうでつ。

>>281
教えていただき、ありがとう。

システム側で設定したPHP動作設定値を変えられないとなると、
ISPで利用する場合、大きな壁になりそうですね。

例えばアップロードファイルのサイズは２Mまでだから、それを超え
るものをアップさせる仕様に対応できない。
PHPでWebアプリ組んでも、いつかはユーザ要件に対応できずに全部
Perl等に書き直す時が来るかも、ということでしょうか？

>>293
>>293
WEB用途にPHPを使うなら、.htaccessでphp.iniの設定を上書きする方法があります。
アップロードサイズの制限を変更するには、
upload_max_filesize と post_max_size の値を上げることで対応出来るかな。

PEAR のインストールは、多分 include_path に PEAR のpathを追加するだけでOKだと思う。

既出だけど、三項演算子のネストではまった事あったのでそのときの教訓。
Perl と PHP では、演算子の優先順位に結構違いがあるので
一度目を通しておこう。

$r =
　($foo < $bar) ? "LESS" :
　($foo > $bar) ? "GREATER" :
　"EQUAL";

>> 282
php -l script.php

-w は、error_reporting(E_ALL); に相当？（かな？）
Taint モードについては、私も前に探したことあるけどPHPには見つけられなかった。
汚染チェックは、自主的にそういう習慣を身につけるしかないのかな。

@sortdata = sort { (split(/\,/,$a))[2] <=> (split(/\,/,$b))[2] } @hogehoge;
Perlでいう↑みたいなことはPHPではどうやればできますか？

>>296
おぉ、回答ありがとう。

　　　　 　∧＿∧ 　　　　　　 　 ＿　＿　　　　　.'　　，　．. . 　∧＿∧
　　　　　（　´_ゝ`） 　　_　.- ― .＝￣　￣`:,　.∴　'　　　　　（ >>297）
　　　　／　　　　 ''￣　　　　　　＿＿――＝',　・,‘　ｒ⌒>　_／ ／
　　　/ /＼　　　/￣＼-― ￣￣　　￣"'"　. 　　’ |　ｙ'⌒　　⌒i
　＿|￣￣ ＼　/　 ヽ　＼＿　 　　　　　　　　　　　　|　　／　　ノ ｜
　＼￣￣￣￣￣￣ ＼＿_）　　　　　　　　　　　 　　, ー' 　／´ヾ_ﾉ
　　||＼　　　　　　　　　　　　＼　　　　　　　　　　／　,　　ノ
　　||＼||￣￣￣￣￣￣￣||￣ 　　　 　　　　　／　／ ／
　　||　 ||￣￣￣￣￣￣￣|| 　　　　　　　　 ／　／　,'
　　||　 ||　 　 　 　 　 　 　 ||　　　　　　　 ／　 ／| 　|
　　　　　　　　　　　　　　　　　　　　　　 !､＿／ / 　 〉
　　　　　　　　　　　　　　　　　　　　　　　　　　 |＿／

>>294
回答ありがとう。

%hash = map { $_ => 1 } @list;
とか、
@hash{@list} = (1) x @list;
Perlでいう↑みたいなことはPHPではどうやればできますか?

手本になるようなきれいなPHPコードどれかしってまっか？
やっぱxoopsでっか？

>>302
XOOPSを積極的に弄っている身としては残念なことだが、
決してきれいなコードではないし、流れを追うのも面倒。
過去のしがらみとかあるので大きく変えられないことや、
複数人で作っているが、細かい部分で明確な規定がある訳ではないので
コア、標準モジュール、果ては標準外の勝手モジュールまで入れると
コードの統一はされていないと思っていい。
フレームワークとしては非常に緩いのでモジュールのコードまで
含めるのは本来フェアではないのだが。

あとJpGraphもコードはちょっとね。便利に使わしてもらってますけど。

>>303
サンクス
とりあえず手本にさせてもらいます。
いろいろ仕掛けをつけやすそうだし。
ほかよりましなようなので。

sub test {
　my $num = 0;

　return sub {
　　$num += shift if @_ == 1;
　　return $num;
　}
}
Perlでいう↑みたいなことはPHPではどうやればできますか?

>297,301,305
PHPでFP（関数プログラミング）でもやりたいのかな？

lambda 代わりに create_function,
array_(map|reduce|filter) 後、array_walk, usort。
で、大体御希望の事は出来ると思います。

ただし、…前にも書いたけど &&, || が倫理値を返したり、
…かといって三項演算子を使おうとすると今度は演算子の優先順位が違ったり、
他にも変数のスコープ等、細かな違いがいろいろ有るので、
PHPでのFPはあまりお勧めしない。素直にパラダイムシフトした方が良いと思う。

例えば >305 だと、

function test(){
　$num=0;
return create_function('$x','global $num;$num+=$x;return $num;');
}

$num がグローバルに置かれるので、これでは要件を満たせていない。
カプセル化したいのなら、クラスを作る。

class Test{
　var $num;
　function Test(){ $this->num = 0; }
　function add($n){ $this->num += $n; }
　function getNum(){ return $this->num; }
}

# 突っ込まれるかもしれないので、一応補足。
現行のバージョンのPHPでは、すべてpublicメンバになるので、
$numへ直接アクセスすることが可能。(Perlのオブジェクトでも同様だよね)
現状(PHP4)では、完全に隠蔽することは出来ない。…はず。（PHP暦浅いので自信なし。フォロー求）

# http://www.php.net/ZEND_CHANGES.txt を読んだところ、
# zend2 engine/PHP5? では private が使えるらしい。

perldoc モジュール名、perldoc -f 関数名に該当する PHP のやり方って
なんでしょうか?

php.netで検索する。

ブラウザのアドレス欄に
php.net/関数名
pear.php.net/モジュール名

倫理値w

ぷりぃず、晒さないでｗ
訂正 s/ｲ/言/

>310

ローカルには作れんもんでしょうか?
ADSL でも結果が出るまでの "待ち" が気になるの。

foreach (@pairs) {
($name,$value) = split(/=/);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value, "sjis", "", "z");
$value =~ s/&/&/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/"/"/g;
$value =~ s/\r\n/<br>/g;
$value =~ s/\r/<br>/g;
$value =~ s/\n/<br>/g;
$in{$name} = $value;
}

こんなのはどうやってますか？

>>314
ネタ？

> 倫理値w
右か左を返すんだよ

PHPってx演算子ないの？
print "-" x 10;
みたいな

str_repeat()が近いよ。

perl にあって PHP にないもの。
PHP にあって perl にないもの。

…って何かないかな？

年寄りデザでつが，これから極めるのならPerlとPHPどっちでつか？
ただPerlと違い，初心者向けの本がPHPにないところが痛いでつが。

でつ厨にはどちらも無理でつ

”極める”のなら、Perlの方が面白い。

>>320
私も年寄りですが、Perl、PHPを使ってメシ食ってます。

まったくの初心者が始めるならPHPですね。
HTTPプロトコルをあまり意識する必要がないから、
ブラウザに文字を表示させるのは簡単です。
そのコードも単純明快に理解できます。

一方Perlは、ブラウザに文字を表示させるためには
表示する処理の前に、何行かのおまじないを書かな
ければいけません。
そのおまじないを理解しようとすると、初心者では到底
理解できないので「難しい」ということになるかもしれません。

PHPの本は初心者用がたくさん売られていますよ。
大丈夫です。

Perlの方が幾分ややこしい気はするね。
Perl->PHPは入りやすいらしいけど逆は結構厳しい。
ちなみに、私は後者です…。

>>323
Thanksです。
PHPだと入門書でいきなりECサイトまで行ってしまうのですが，
（チャット作成までなんとかついていっている程度）
Perlだと入門書で息切れするような。。。（とてもECサイトまでナンテ
行きませんよね？）
ただ，やはりデザなので自分一人でECサイトまではやりません。
外に頼むまでもない事を自分でやれるようにするという感じです。
（極めるという表現が不適切でした。）
データバのソートとか，Webの自動更新とか。
そのあたりでPerlとPHPはどうかな？と思ったわけです。

@array = ($query =~ /([0-9a-fA-F]{4})/g);

これをPHPで表現するとどうなるんですか？

>>323
おまじないってなんだ？CGIとして使ったときのヘッダーのことか？

>>327
print "Content-type: text/html\n\n";
だと思われ

>>328
ヘッダーじゃん。

おまじないって言ったら1;が浮かぶ

PHPって配列厄介だなぁ。

>>331
PHPの配列の何が厄介なん？？？　ほれいってみ。教えてあげるよ。

>>331
僕PHPはじめて1週間だけど配列はだいたい分かったので
配列ですが僕はすぐ理解できたので
331さんの厄介とこが分かれば教えてあげますよ

ｵﾚは>>333の日本語が分かりづらい

>>334
同じく

>334
禿ﾃﾞｩ

>>331=>>334=>>335=>>336　反応しすぎ。
ぶっちゃけ、331はバカだな。(w

phpでperlでいうところのpackageの作り方教えてください。

331は、ハッシュと配列が一緒なのが気に入らないらしい。あと、
いちいちarray_*系の関数を使わないといけないのも面倒らしい。

>>338
ｐｈｐは名前空間を定義できない。

（＾＾）

（＾＾）

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

EUCの配列、文字列をSJISにするのはどういう風にやるの？

やっぱりpackageはC++でいう名前空間にあたるの？

見るべし！
http://zoetakami.fc2web.com/

http://www.yamazaki.90.kg/hankaku/hankaku07.html
http://yamazaki.90.kg/zenkaku/index.html
http://www.yamazaki.90.kg/hankaku/hankaku08.html
http://yamazaki.90.kg/hankaku/hankaku10.html
http://www.yamazaki.90.kg/hankaku/hankaku01.html
http://yamazaki.90.kg/hankaku/hankaku03.html
http://www.yamazaki.90.kg/hankaku/hankaku02.html
http://yamazaki.90.kg/hankaku/hankaku09.html
http://www.yamazaki.90.kg/hankaku/hankaku06.html
http://yamazaki.90.kg/hankaku/hankaku04.html
http://www.yamazaki.90.kg/zenkaku/index.html
http://www.yamazaki.90.kg/hankaku/hankaku05.htm

http://homepage.mac.com/ayaya16/

http://www.atmarkit.co.jp/flinux/special/php5/php5a.html
もうひとふんばりっ！

イスラエルとか言われると萎える

mb_convert_encodingが使えないサーバの場合は？

jcode.php

教えてください。
perlで言うところのwarnなんですが、
print error_log($test);
見たいな形でerrorログに$testの値を出そうと思ったのですがうまくいきませんでした。。
どなたかperlでいうところのwarn関数のPHP版を教えてください。

>>353
よくわかんないけど trigger_error とか？

あぼーん

まぁ、胸張れるような場所でもないしな。

その発言しているサイトがある
インターネット全体からどれだけの犯罪者を出しているんだろうね…

２ｃｈから情報を得ておきながら悪口言う人間もいることだし
放置しても平気でしょ

日本人だって
殺人とかの罪犯す奴いるじゃないか

そしたら外国人は
日本人はみんな犯罪者だと思うのか？

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

open( LOCK, ">./lock/count.lock" );# ロック用のファイルを作る（※１）
flock( LOCK, 2 );# ファイルをロックする
open( COUNT, "./log/count.log" );# カウンターの値が入ったファイルを開く
$count = <COUNT>;# カウンター値を読み出す
close( COUNT );# カウンターファイルを閉じる
$count++;# カウンターを＋１する
open( CTEMP, ">./log/count2.log" );# 更新したカウンタの値を別のファイルに一時的に書き出す（※２）
print CTEMP $count;
$ezcount = "";#カウントファイルの数字を絵文字に変換
for ($i = length($count) - 1; $i >= 0; $i --) {
$n = int(substr($count, $i, 1));
if ($n == 0) {
$ezcount = "<img localsrc=\"325\">" . $ezcount;
} else {
$ezcount = "<img localsrc=\"".(179+$n)."\">".$ezcount;
}
}
close( CTEMP );# 一時的に書き出したファイルを閉じる（書き込み完了）
rename( "./log/count2.log", "./log/count.log" );# 一時的に書き出したファイルを本来のファイル名にリネーム
unlink( "./lock/count.lock" );
flock( LOCK, 8 );
close( LOCK );
これをPHPにしたいのですが…だれかお願いします！

>>360
マルチおよび自分でやろうともしない。放置

formから$_POST["name"]で値を受け取ったのですが、
値中の「"」と「'」がｴｽｹｰﾌﾟされてしまって、「\」がついています。
これは自分で取り除くしかないのでしょうか？

>>362
php.iniのmagic_なんちゃらを、off 詳細は誰かおながい

>>363
ありがと、やってみる

>>363
ﾛｰｶﾙで出来なかったので、ﾚﾝﾀﾙ鯖にｽｸﾘﾌﾟﾄ設置して実験したら
やっぱり同じ現象がおこりました｡･ﾟ･(ノД`)･ﾟ･｡
自分で取り除いてみます…お騒がせしました

>>362
StripSlashes

　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

ヒアドキュメントを使うと
print <<<EOF
<タグ>$a<タグ2>
EOF;
の<タグ2>が表示されないのって、どうすりゃいいの？？？

>>368
print <<<EOF
<タグ>${a}<タグ2>
EOF;

THANK!!!

jcode.phpでEUC半角カタカナをSJIS全角カタカナにしていのだが。

http://homepage3.nifty.com/coco-nut/
・＿・ｙ━””

age

http://kame.kakiko.com/hiroyuki/hankaku_b01.html

過去ログからのコピーです。http://natto.2ch.net/mass/kako/974/974478132.html

489 名前： 文責：名無しさん 投稿日： 2001/04/11(水) 17:25
　一般人なのに盗聴される、じゃなくて、「一般人だから盗聴される」んじゃないのかな？
　基本的にネタ集めのためにやってんなら、有名人のネタを盗むと、有名人は告発できるし、
そんなことされても当たり前だと思われるので告発しても信じてもらえる。
　そうでない人は、ここの途中の書き込みにもあったように「電波」扱いされるだけ。

　ただで、ネタを仕入れるんなら、一般人に限るでしょう。
　マスコミは自分らの無能さを恥じてほしいです。

　ちなみに私が盗聴されはじめたのは、芸能人にストーカーされ始めてからでした。
　そこからマスコミに広がって行った。
　だから余計「妄想」とか思われそう。
　友人に話したら完全に病気扱いされた。ストーカーって言葉がない時代だったしね。
　書いておいておいた小説のネタが、他人の原作でドラマ化されたときにはきれまくっ
たなあ。（一度や二度のことじゃないけど）

a

>>371
http://www.php.net/manual/ja/function.mb-convert-kana.php

http://homepage.mac.com/norika27/

>362
http://jp.php.net/manual/ja/function.stripslashes.php
これじゃだめかい?

あ

HTMLとPHPコードを分離したいんだけど、
何か方法ありますか？perlでいうとこの
HTML::Template みたいなのとか。

>>381
【PHP】Smarty【Template】
http://pc2.2ch.net/test/read.cgi/php/1047225437/

>>382
thx!

perlのdefinedみたいな奴
変数の定義がされているかどうかの
チェックはどうやったらいいですか？

同名関数ありますた。ｽﾏｿ

でも定数のみですた。
もうだめぽ ..

isset ですた。

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

PerlからPHPに入るとPHPで簡単にできることを
Perlっぽく遠回りに書いてしまうことってないですか？
逆も然り
そーゆー注意点とか教えて下さい。

Perl癖を取るためにもPHPに限らず
他の言語に興味を持つといいと思います。

もうそろそろPHPにも手を出してみるかと思ってたが、
このスレ見たらやる気なくした。やっぱC/C++にするわ。

まず第一に<?〜?>にコード書くなんて本当にキモいよ。
（JSPやASPも同じようなもんだがな）

PHPってCGI/Perlの速度に我慢できなくなった奴が、C/C++はできないから
しょうがなく使ってるんだろ？
プロはJavaとかASP使うし、素人はPerlで十分（環境も整ってる）。
速度ががまんならないならC/C++、もしくはモジュール資産を活かして
mod-perlだな。

PHPの選択はまずありえないね。

ASP使ってる時点でOutだと思うがね。
とりあえず海外見てきたら？

範囲演算子".."がないのが激しくムカツクんだが。

http://homepage.mac.com/hiroyuki44/hankaku08.html

http://www.adultshoping.com/addclickport.cgi?pid=1058922748
●無料でパソコンだけで月に１０万円↑稼げます！
登録完全無料！お小遣いが沢山稼げちゃいます。
月に平均１０万円ほど稼げます。頑張ればもっと！
夏休みを有効に利用しましょう！
無料だから登録しないと損します〜。

>>391
珍獣みっけ。
何のためのプログラムしてるのか知りたい。

↑趣味に効率は全く必要ないそうです

>>391
おもろい

改行コードCRLFで保存したファイルを
配列で１行づつ配列で取り出して保存したいんですが、
何故かPHPだと改行コード(CRCR...LF)と増え続けます。
改行コードの仕様の問題なんっすかねぇ？

# Perl
open( IN , "hoge.dat" );
@lines = <IN>;
close( IN );
#何か処理
open( OUT , ">hoge.dat" );
print OUT @lines;
close( OUT );

// PHP
$lines = file( "hoge.dat" );
// 何か処理
$fp = fopen( "hoge.dat" , "w" );
foreach( $lines as $line ){
　fputs( $fp, $line );
}
fclose( $fp );

>>399
CRが付くって事は環境はWindows？
perlでいうbinmode($fp)ていう関数ないかね？

http://flex.ee.uec.ac.jp/texi/perl/perl_76.html#IDX157

>>400
バイナリモードで開く"wb"(WINのみ)
$fp = fopen( "hoge.dat" , "wb" );
とすると一応解決しますね。サンクスです。
根本的な解決になってるのかどうか微妙っす。

>>401
テキストモードで開くと
fputs などの出力処理中に \n が見つかった際に
内部で \r\n に置き換えるという小さな親切を行ってくれます

バイナリモードならそれをやらないので解決だと思われまする

うーん、でも読み込む際も CRLF⇒LF 変換やってくれたような？
まあいいや。たぶん大丈夫。

>内部で \r\n に置き換えるという小さな親切を行ってくれます
なるほそ。小さな親切ですね・・・

perlで、書き込み処理を終えたあとに他のページに飛ばすとき、
print "Location:./santa.cgi?$no\n\n";
exit;
などとしていましたが、phpでこれと同等なのはどういうコマンドでしょうか？
コマンド名だけでも良いので助言お願いします。

>>405
マニュアルのHTTP関連の関数を見るべし。

header("location: ./santa.php?no");
でどうでしょう。

locationは絶対ﾊﾟｽで指定しなよ…

どっちでも同じでしょ。
相対だと不都合でるブラウザってあるの？

あるよ。
携帯とか。

どこの携帯？

http://homepage.mac.com/hiroyuki44/

>>409
RFC嫁

>>411
ﾄﾞｺﾓ

○ index.html
× ./index.html
ってのが前あった。

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

良スレ
あげとく

PHPユーザーのためのPerl入門だれか立ってってくれ！

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

PHPでOOPでもと思い、

Perl
use lib './lib/';
use Hoge;

PHP
define( 'LIB_DIR', './lib/' );
include( LIB_DIR . 'Hoge.class.php' );

とやってるんだけど、もうちっと短く書きたいなぁ。

Perlやってた奴が、PHPを勉強するのにいい本って何？
PerlでいうところのプログラミングPerlみたいな
大御所のこれさえ買っとけばたいてい載ってるって本きぼん。

大人の時間ドットNET
http://2ch.otona-no-jikan.net

>>422
赤マンモス

HTML::Template, DBI に替わるものがPHP覚える気になるんだけど。
プログラム中にHTML書いてあったら落ち着かない

あ

検索について教えて下さい。
perlで検索で、$find_lineの中に、$f_a_wordが含まれているかを
if (index($find_line,$f_a_word) >= 0) {
　含まれている
} else {
　含まれていない
}
このようにしていたのですが、phpだとどのようになりますか？

427です。eregというので出来そうです。
失礼しました。

>>425
これじゃだめかな？
やってみてくりくり


<?php

$find_line = "これはテソトです。";
$f_a_word = "テソト";

if(strstr($find_line,$f_a_word)){
echo '$find_lineの中に$f_a_wordは含まれています！';
}
else{
echo '$find_lineの中に$f_a_wordは含まれていません！';
}

?>

番号ずれてますたスマソ。
427-428宛のレスです。

OpenJaneって番号ズレるのね。。。

strstr();ってi18n対応？

mb_strpos()とかじゃだめかい？

>>421
> PHPでOOPでもと思い、

インクルードパスの設定とOOPには何の関係もない。
‥‥‥というのはともかく、auto_prepend でググれ。

ここ、一昨日初めて来たんだけど良スレだね。
おかげで分からなかった事も分かりました。ありが�d

あるディレクトリの一覧をファイル名順でソートしたいと思います。
ただし、.や..や.htaccessといった、「.」で始まるファイルは対象外にしたいのです。

Perlで
---
opendir(DIR, $path);
@list = sort grep(!/^？./, readdir(DIR));
closedir(DIR);

と書くところを、phpではどのように表現すればよいのでしょうか？

>>391
ﾜﾛﾀ

>>435
自信ないが
$dh = opendir($path);
while ($tmp = readdir($dh)) $filename[] = $tmp;
$filename = preg_grep("/^[^\.]/", $filename);
sort($filename);
closedir($dh);

natsort は？

>>437-438
なるほど。このコード実行してないんであれですが、
preg_grep する前に $filename[] = $tmp しちゃうと、
配列$filename内には「.」や「..」が残りそうな雰囲気が…違ったらごめん。
こんな感じにしてみました。
---
if( false !== ($handle = opendir($query_path)) ){ //ディレクトリが開けるなら
while( $file = readdir($handle) ){
if( preg_match ("/^？./", $file) ){
$files[] = $file;
}
}
closedir($handle);
if( count($files) >= 1 ){
sort($files);
}else{
print "このディレクトリ内に読めるファイルはありません？n";
}
}


つーかnatsortって便利ですな。
http://search.net-newbie.com/php/function.natsort.html

>437のでOKでは。>439は正規表現が意味不明になってるよ。

正規表現が分からない時はこんなのもアリかな。

while ( $entry = readdir($dh ) {
　　if ( substr($entry, 0, 1) != '.' )
　　　　$files[] = $entry;
}

http://jp.php.net/substr

ああ全角か。ｽﾏｿ。

全角でもオレには意味不明なんだが・・・

分からなかったら聞きましょうね♪

>>443が一番意味不明だな

perlのflock関数だったらさんざん使ったことあるんですが、
perlの場合のflock関数と比較して、
phpのflock関数を使うときの注意点って、特になんか、ありますか？

（ウェブサーバは、Apacheという前提です）

どなたかお答えくださいませ

lockはlock専用スレがありまっせ。

>>445
にたようなもんじゃないのかな？
たしか、PHPマニュアルにもflock関数は全ての環境で使えるもんじゃ
ないみたいなこと書いてあったし、
ネットワークファイルシステムに対応してないけりゃ、無理だろうし。
ちなみに、うぇぶさばは関係ないですぞ。

>>447
ども。のぞいてきます。

>>448
そうですね。
よく考えりゃ、どっちもOSのflockを呼び出してるってことだから、
特段変わることはないか。。。

＞ちなみに、うぇぶさばは関係ないですぞ。
いや、マニュアル
http://www.php.net/manual/ja/function.flock.php
に、
「いくつかのオーペレーティングシステムでflock() はプロセスレベルで実装されています。
ISAPIのようなマルチスレッド 型のサーバーAPIを使用している場合、
同じサーバーインスタンスの並 列スレッドで実行されている他のPHPスクリプトに対してファイルを保 護する際に
flock()を使用することはできません」
って書いてあったから、
ウェブサーバにIIS使ってると、事情が違うのかなと思って一応かいといたもんで。。。
（正直IIS分からんですが）

？

>>450
あれ、なんかとぼけたこと自分言ってました？

ご指摘きぼんぬ

通りがかりだが
あまり気にする事は無いかと

マルチスレッド型を利用している場合、別々に動作している
phpは同一プロセス（の、別スレッド）で動作している事になるので
プロセス単位で排他をかけるflock()は排他の目的には使えない
ということで、HTTPdとphpの組み合わせによる、というのは正しいかも

保守新党

$str =~ s/◆/◇/g;
みたいなマルチバイト文字列の置換をPHPでやるにはどうしたらいいんでしょうか。
mb_ereg_replaceはまだ実験段階らしいのであまり乗り気ではなく。

>>454
str_replaceでも「とりあえずは」OK。
それか、文字列をUTF-8に変換してから
$str_utf8 = preg_replace("/pattern/u", "replace", $str_utf8);
でもOK。

ただしmb_ereg_replaceはライブラリのライセンス絡みでもめてたけど
関数自体は十分実用に耐えるよ。
ライブラリの変更はPHP5で行われ、ユーザレベルでの変更は
不要になる方向らしいから気にすることは無いと思うけど。

ちなみにmb_ereg系を使うときはmb_languageとmb_internal_encodingを
ちゃんと設定していないと駄目。

>>455
詳細なレスありがとうございます。
試しにpreg_replaceを使った時えらく文字化けしたのでなんでだろと疑問だったんですがこれで解決しました。
一応マルチバイト文字列関数用にphp.iniの設定は書き変えてあるので、
mb_ereg_replaceを使っても将来的に問題ないということならこれでいこうかなと思います。

配列をpackする時ってどうすんの？
他にも$a,$b,@c,$d,…と並べて@cの内容が展開されるようにしたい時とか．

既出かもしれませんが、
http://www.din.or.jp/~ohzaki/perl.htm
をPHPにコーディングしなおしたサイトを誰かしりません？
無いかなー。

　$a="abcdABCD";
　$a =~ tr/[a-z][A-Z]/[A-Z][a-z]/;
　print "content-type:text/html\n\n";
　print "$a";

上のコードをPHPに移植し、

　$a="abcdABCD";
　$a=strtr($a, "[a-z][A-Z]", "[A-Z][a-z]" );
　echo $a;

と書いてみたところ、strtr()で正規表現が使えないようなのですが
何か良い方法はないですか。

perlだと、csvファイルに対してSQL文を投げられる、SQL.pmっていうのがあるんですが、
phpでそういうモジュールってないでしょうか？
（いやぁ、ほんとはDB使いたいんですけどね。。。わけあってつかえず）

連休中にphp勉強したいぞーage

>>459
泥臭いけど・・
$a = 'abcdABCD';
$from = implode('',array_merge(range('a','z'),range('A','Z')));
$to = implode('',array_merge(range('A',Z'),range('a','z')));
echo strtr($a,$from,$to);

rangeを使って配列をつくってarray_mergeで配列合体させて
implode(perlでいうところのjoin)で文字列にして置換ってかんじ
連続する文字コードならrangeでいけるよね

perlでいうところの、

print qq|
　$hoge
<hr>
<a href="http://www.yahoo.com"></a>
|;

みたいの、phpでないでしょうか？

要は、変数展開もされて、”もエスケープする必要がないように書きたいのですが・・・

$a =~ tr/[a-z][A-Z]/[A-Z][a-z]/;

なんか無駄がないか？

>>463
ヒアドキュメントじゃだめですか？

$a = 2;
switch($a) {
　case "1" : global $b = "one";
　case "2" : global $b = "two";
　case "3" : global $b = "three";
}
echo $a." -> ".$b;

みたいなことをやりたいのですが、switch文では無理ですか？
if,elseif...なら可能なのですが…

>>466
それを実行すると1〜3のどれを$aに入れても$bが"three"になっちゃう

各分岐のお尻にbreak;付けましょうね
switch($a) {
　case "1" : $b = "one"; break;
　case "2" : $b = "two"; break;
　case "3" : $b = "three"; break;
}

>>466
よく嫁
http://www.php.net/manual/ja/control-structures.switch.php

>>467-468
ありがとう。自分、厨すぎました。

>>465
ありがとうございます。

そういえば、php4からヒアドキュメント使えるようになったんですよね。
（php3の知識はあっても、4の知識はあまりないもんで）

ヒアドキュメントで逝ってみます。

ただ、print qq|ほげー|;の手軽さが、なれてしまって、ラクなんですけどね。。。
ともかく、ありがとうございました。

my $xやvar xみたいな変数の宣言をする方法はないのでしょうか？

>>471

↓このへんわかりやすいんちゃう？
http://itbtech.itboost.co.jp/php/php_01.php

<引用>
PHP の変数は宣言がありません。
また、明示的に型の指定をしてやる必要もありません。
この辺は Perl と同じです。
必要に応じてキャスト(相当のこと)を行うことはできます。
</引用>

Perlで$a |= "default a";
という書き方を多用していたのですが、
PHPでは$a = !isset($a) ? "default a" : $a;
でよろしいのでしょうか？

$a ||= "default a";
なら、
$a || ($a = "default a");
$a or $a = "default a";
とか。

$a |= "default a";
はそのままで通る。
(perl/PHP共に期待したものではないと思うけど)

>>474
すみません、先ほどは$a ||= "default a";
のことを言っておりました。
で、$a || ($a = "default a");
ですと、$aが未定義の場合、undefined errorが出てしまいます。
（当方error_reporting = ALLにしています）

>>475
isset($a) || ($a = "default a");
これでどう？

厳密にはこうだろうけど、
(isset($a) && $a) || ($a = "default a");
長すぎ。

# PHP的には、先にデフォルトを設定するものだと思ってた。
# PHPのエロイ人plz。

> isset($a) || ($a = "default a");
これなら問題なく実行できました。この書き方が一番スマートそうですね。

GETのパラメータ区切りに&じゃなく;を使うにはどうしたらよいのでしょうか？

>>478
php.iniの設定変更
arg_separator.input = ";&"
しか思いつかない。

Perlと関係なければ、
【PHP】質問スレッド　Part11
http://pc2.2ch.net/test/read.cgi/php/1067635640/l50
こちらへどぞ。

俺様帰ってこないかな
別に用は無いんだけど

>>480
この板はしばしば見ているぞ。
最近はperl2phpのコンテンツを立ち上げてがんばっているところだ。

>>481
perl2php期待してます。
php勉強してるので…

http://www.cs.wcupa.edu/~rkline/perl2php/

ソケット通信をする際、相手方のIPアドレスがわかっている場合、
fsockopenの第一引数にIPアドレスを入れれば、
内部的に名前の解決をしなくて済むのでしょうか？

>>484 ttp://jp.php.net/fsockopen
IP address がすでにわかってるのに名前の解決？
Ip address => name なら、そもそも必要ない。

fsockopen関数の内部で、PHPが名前え解決するかどうかとういう話であれば、
inet_aton が失敗すれば(第一引数のhostが IP address を表す文字列でない場合)、
名前の解決(gethostbyname)がされる様です。

>>485
＞fsockopen関数の内部で、PHPが名前え解決するかどうかとういう話であれば、
＞inet_aton が失敗すれば(第一引数のhostが IP address を表す文字列でない場合)、
＞名前の解決(gethostbyname)がされる様です。

なるほど、ありがとうございます。
大変参考になりました。

IPアドレスでfsockopenと、リモホでfsockopenとで、
処理にかかる時間を比べたんですが、
前者の方が多少遅い結果になりました。
perlの場合とはやはり違うのでしょうか…？

perlでいうtr/a-zA-Z//c（a-zA-z以外にマッチして置き換える）
っていうのはPHPではどう書けば良いでしょうか？(´・ω・`)?ﾓﾆｭ
小一時間探したけど見つかりませんでした

やりたいことは、リストに含まない文字が
検出されたらエラーを表示させる事です。

perlだと
if(($_ =~ tr/a-zA-Z0-9//c) {
die 'リストに含まれない文字が検出されたYO!';
}
な感じでそれをＰＨＰでやりたいです。

【PHP】質問スレッド　Part12
http://pc2.2ch.net/test/read.cgi/php/1070639208/

>487
どうせろくでもないベンチスクリプトだろ

>488
既出

>789
!

>>489
$str = ...
if (ereg("[^a-zA-Z0-9]", $str)){
die('リストに含まれない文字が検出されたYO!');
}

多分"[^[:alnum:]]"でも。

そういうことじゃないと思う。

＞４９２

ぇ？ネタですか？(´・ω・`)?ﾓﾆｭ

-zA-Z0-9にマッチでエラー表示
じゃないでつ。文字列中に例えば
記号が入ってたらエラーにする処理でつ。

ネタ？
491のでええやん。elseでもいいし。

>>494
a-zA-Z0-9 *以外* の文字にマッチしたらdieしますが、違うのですか？

asdf

ghjk

>496

ぉぉやってみたら確かにマッチした。さんくすこ。
PHPだと’^’って反転する意味なのですか・・・？
なんか小さな幸せを発見したｗ

ぁぁぼけてすまそ。。。
文字クラスの反転記号ですね。記憶から全く遠のいていますた。
（PHPの独自拡張なのかとさえ思ってしまったｗ）

もう一度勉強し直し逝ってきま ＿|￣|○

>>481
で、どのへんまでできた？
なぜかおれも作るハメになってしまって、
BNFで定義しきれないPerlを無理やりBNFレベルで定義中なんだけど。
そこまでPerl詳しくねーんで困ってる。
parrotのライブラリにPerl6のパーサーやってるっぽいんだが、、むずい。
だれか、なんちゃってPerl BNF定義した人おらんですか。。

ｶﾞｸ
ｺﾝﾃﾝﾂか。。ツールじゃないのね。。ｼﾂﾚｲ

質問君です。すいません。

idはadmin、passは111111だったとして、

test.php?id=admin&pass=111111と入力します。

test.php内で
idとpassの値を受け取るには、$id=param[id]でしたっけ？

extract($_GET);

$_GET["id"];
$_GET["pass"];

>>504
なぜ、extract()

>>505

ここ読みました。
http://php.s3.to/off.txt

これも対策済まれている方が多いことですが、

Warning: REG_EBRACK in
eregi関数で文字比較するとき、全角の「ー」の2バイト目が半角では“[”になるのが原因らしい・・
簡単な解決方法ありますでしょうか？

>>501-502
いや、俺もツール考えてみたんだわ。
PHPなら文法定義しているの発見したんだけど
Perlは見つからないんだよね。。。

perly.yにあるyacc文法も読んだんだけど
文法以前に字句解析どうしようって感じで。

>>506
extract() するなら、$_GETでアクセスする必要ないかと…

register_globals=off　がデフォになったのは、
未初期化の変数が汚染されたりとか
セキュリティ面の問題が利便性より重要だったからではないのかなぁ
なので、extract()するならその配列の安全チェックをしてからのほうが良いかと。

>>506後半
内部エンコーディングをEUCかUnicodeにする。
入力変換をautoにする。
これで、内部では、EUCかUnicodeになるので、その手の問題に遭遇しない。
海外製ソフトでSJISはいいことがない。

入力変換はHttpInputだけなので、ファイルを読むときなどはMb_かjcode.phpで
内部エンコードにそろえてやる必要があると思います。

list()でログファイル(5MB程度）を参照して検索などを作るとき、

fopen()
flock()
Fclose()
しなくてもログファイルの破損などは起こらないでしょうか？
書き込み中はロックしてますが、list()中はロックしないとします。

>>511
listでファイルは参照できないはずだが????

正規表現でマッチできないけど？
どこがおかしいの？

//10桁の1...と12桁の2...の配列がある。
$str = array('1111111111','222222222222');
//10桁以上、10桁以下の（要は10桁のみ）数値パターンを配列$resultに格納したい。
$hoge = preg_grep("/[0-9]{10,10}/",$result);
//結果、両方でてきちゃう。どうして？
print_r($result);

よろしこ。

>>513
それだと
"hoge1234567890hage"とかにもマッチする。
数字で始まり10個目の数字で終わるなら
$result = preg_grep("/^[0-9]{10,10}$/",$str);

$result = preg_grep("/^\d{10}$/",$str);
でもいい

>>514,515 イ奄様
有難うございます。なるほどよく分りました。

しかも、問題が間違えているにもかかわらずよく理解してくださいました。
重ねて御礼します。

出したかった問題は、こうでした。
$result = preg_grep("/[0-9]{10,10}/",$str);
まぁ、間違ってんだから訂正は要らないんだけどね・・・。

それは perl でも同じ結果だろうなと。
perlとPHPで結果が違うのかと思ったよｗ

質問してもいいですか？
Perlの「undef」に相当するPHPの関数は何ですか？
マニュアル検索しても見つけられなかったのです。
スレ違いでしたらスルーでお願いします。

>>518
unsetじゃないかな？

Perlだと文字列の置換をしたときに置換されたものが$1などの変数に代入されますよね。
PHPでも同じことは出来るのでしょうか？

>>520
自己レスです。
preg_match_allで出来ました・・・
他にいい方法があれば知りたいです。

自作関数に渡した引数は、Perlでは$_[0],$_[1]...に、
JavaScriptではarguments[0]...に、入るじゃないですか。
PHPでは何に入るのでしょうか？
もしかして必ず function x($a,$b,$c) の様にする必要があるのでしょうか？
何とかして引数を配列として扱いたいのです。

>>522
function ほらよ ($配列) { print_r($配列); }
ほらよ(array('a', 'b', 'c'));

>>523
有難う御座ります。
PHPって関数名や変数名に日本語使えたんですね　驚きました。

(＾∀＾)ｹﾞﾗｹﾞﾗ

(＾∀＾)ｹﾞﾗｹﾞﾗ

(＾∀＾)ｹﾞﾗｹﾞﾗ

(＾∀＾)ｹﾞﾗｹﾞﾗ

（ ・∀・）σ）´Д｀)>>524

http://f13.aaacafe.ne.jp/~mugen/perlvsphp/top.html

よろしこ。

>>530
実に頭の悪そうな文章ですね。

>>530
Shift_JISでスクリプトを書いてはいけない理由、
どうしてもShift_JISで書きたい場合はどのPHPをインストールすべきとか
mb_string周りのPHP.iniの設定の仕方、設定のオーバーライドの方法を解説して欲しい。

あと、PerlにもHTML埋め込みを行う方法がいくつかあるよ。

>>530
俺もPerlはあまり好きじゃないが
＞認めざる終えません。
なんて文章書く人の言語構造をむしろ疑いたい。

>>532
その真珠のヴァージョンは何ですか？
requireを使用するとか笑わせる答えじゃないですよね？

>>533
＞しかし、ＣやＪａｖａなどと比べPerlの方が極力型を意識しない言語仕様
＞になっているというのは認めざる終えません。
あーそんな風に書いてたんだね。そのうち、なんとか汁。

# 真珠批判やってるサイトって他にもあるもんだねー。

マジレスした自分に鬱。

perlにおいて、csvファイルを配列に取り込み、複数項目（カンマ区切りの2列目と3列目)でソートをかける為に
下記のような方法を取っていたのですが、
これをphpで行う場合、multisortでは１項目でのソートしか出来ないと
マニュアルに記述されていますが、どのような処理でなら可能でしょうか？

@DATA = sort { (split(/,/,$b))[1] <=> (split(/,/,$a))[1] || (split(/,/,$a))[2] <=> (split(/,/,$b))[2]; } @DATA;

>>536
http://jp.php.net/manual/ja/function.usort.php

>>530
あまり真面目に見ていないけど、もっと説得力ある文章になるくらい
たくさんプログラムを作ってみた方が良いんじゃないかな。
今の状態だと言語の違い以前に本当にプログラムを作った事が
あるんだろうかと疑いたくなるよ。

>>535
気にすんな

ASPユーザですが、PHPへの移行への許可は頂けますか？

perlとPHPのどっちが偉いかとかいった下らない話題につき合うつもりはないが

http://f13.aaacafe.ne.jp/~mugen/perlvsphp/page7.htm
↑を MVC と呼ばれては碇浸透

コンテンツとデザインの分離スレにちょっと鯉 >>350

>>540
そいつはマジメに運営してないからほっといていいよ。

PHP普及の原因は、イスラエル・Zend社のマーケティングの成功にある。
�@Perlでは別インストールで多くの人が知らないデーターベース利用を標準で使用できるようにし、「データーベースが簡単に取り扱える」というイメージを特に強く植えつけた。
�Aウェブサイト作成への特化。例えば、セッション管理がそうだ。
�Bソースの隠蔽による著作権保護を可能にした。
データーベースを使いたいが、使い方がわからない。そこに、PHPなら使えるという情報が先に入る。これで、PHPに入った人もかなり多いはず。
PHPの言語仕様はZendに大きく左右される。
二年ほど前、PHPが出始めた頃には、変数のスコープがPerlとまったく同じ仕様だった。
もともと、Perlのソースコードを改編して作成されたPHP。
↓PHPの歴史
http://php.planetmirror.com/manual/ja/history.php
PHPには、Perlコードの退行による高速化の意図が言語のいたるところに見える。
マイクロソフトは、オブジェクト指向への対応というのが大義にVB6.0からVB.NETに言語仕様を大幅に変えた。
今後も大きく言語仕様が変わることはないのか？
オープンソースとは言っても、Zend社の
http://www.zend.com/management.php
の数人のスタップによって大きく左右される。
再帰的定義とされる「PHP:Hypertext Preprocessor」という名前にも理由がある。これは、要するに、正確には、「Perl Hypertext Preprocessor」としたいところだが、GNUの「GNU is Not UNIX」という再帰的な定義をもじったものだ。
要するに、「GPLのフリーソフトのライセンスには違反していませんよ！」と一つには主張し、また、一つには、「PHP is Not Perl」とでも言って、Zendの社としての姿勢を、先人の「Perl開発者たち」から擁護する意図があったのだろう。
Nではなく、Hなのが、そのための味噌だ！Perl開発者たちは、当然、面白くないはずだ。
PHP信奉者は、六芒星（hexagram）マークのユダヤ教にでも、入信せよ！
…といいつつ、かく言う私も、PHPに乗り遅れまいと必死だが…。（^^;）

↑もう5回くらい見たんだが。しかも全部IDが同じだ･･･見間違いだよな?

最近やっとphpの配列は、perlの配列のリファレンスだと考えればいいんだとわかった。
んで、phpで関数に配列を引渡すときは、配列のコピーのリファレンスを渡していると考えればいいとわかった。

だから、phpのこれは
$array[$index] = $value;

perlのこれに対応するわけじゃなく
$array[$index] = $value;

これに対応しているわけで
$array->[$index] = $value;

phpのこれは
$array = array($val1,$val2,$val3);

perlのこれに対応している
$array = [$val1,$val2,$val3];

なのでphpのこれは
function f($array){
.......
}

perlのこれに対応するわけだったんだね。
sub f{
my $array = [@{$_[0]}];
.......
}

Perlのlast関数にあたるものはPHPのbreak関数かと思いますが、
next関数にあたるものは何になるのでしょうか？

ご教示いただけますと幸いです。

>>545
continue

>>545
関数じゃないよ。制御構造と呼んでくれくれたこら

>>544
おれがPHP使い始めたころと同じこと考えとるな
きっと次は$がいらないんじゃないかとか
printした時に自動で配列表示して欲しいとか
正規表現や無名関数使いずれーとか
便利な関数がイパーイあってええねとか
クラスがPerlよりはおしゃれだとか
↓

日本語を変数名に使えるようにすんなよとか
リファレンス変数とか可変変数で戸惑うとか
多重継承できないってなんだよとか
DBはいいなとか
↓

0.0.1のバージョンアップでコアに新機能を加えたあげくにエンバグって何よとか
デフォルトでハッシュな配列はステキですねとか
array_map_recursive()きぼんとか
↓

perl使いがPHP使いに成ってもスキル低いのには変わらないけどな。
PHP覚える時間と暇があれば、JavaとかCが使えるようにスキル磨け。

意味不明

Cはもう、使う職場が限られている気がするが

保守

保守

保守

スレの内容を勝手にまとめてみたのでうｐするよ
俺様タンのレスぶっこ抜いただけなので
だめなようならすぐ消します。
txtだけどhtmlにリネームしてくだせ。

http://bebe.run.buttobi.net/up/src/be_1673.txt.html

HEAD内のひとつめのSTYLEタグは不要なので消しておｋ

>>557
乙。もらいます

Perlのqqみたいなの、PHPでできんか？

できんか・・rubyでも同様の文法はあるんだけどなぁ・・。
ヒアドキュメントは、インデントが崩れるので大袈裟でちょっと扱いにくい。

ヒアドキュメントは当然ながら、qqも必要ないもん。

保守

このスレの意思とは逆なんですが、
php経験があり、perl未経験です、
perlスクリプトを眺めているのですが、どうもわからない構文が多々あります。


サブルーチン if ($hoge && $> == 0);

↑これってどういう意味を表しているのでしょうか？
ifの前にサブルーチンが存在するのと、
$hoge && $> == 0 の意味がわからんです。

$>はuid
$hogeが真かつrootで実行されている時だと思う

> ifの前にサブルーチンが存在するのと、
Perlの基本的な変体文法なので入門書読め

perlでハッシュの値を出力すると何故か「1/8」になってしまうんですがこれはどうすれば直せますか？

亀だが

>566
$foo=%hoge;
print $foo;

ってなってんじゃね
鯨のハラワタが散らかってるとか言われる部分だから気にするな

perl嫌になてきた
だからといってphpも嫌だぜ
Lispでもはじめようぜ

早くもPHPユーザのためのPerl入門スレになりつつあるな

アリガ�d

基礎PHPという教本を読みながら問題を解こうとしているんですが、まったく理解できなくて
悩んでいます。
何方か指南していただけないでしょうか？
問題の内容は以下に、

内容
フォームからPOSTのメソッドを利用して「ユーザー名」と「パスワード」を送信する。
受信したファイルでは「ユーザー名」と「パスワード」の妥当性を判断してメッセージを出力する。

条件
データ送信用ファイル：input.html
データ受信用ファイル：check.php

input.htmlには2種類のテキストボックスを配置させる（txtNameとtxtPassword）
check.phpでは以下の4種類のメッセージを出力させること
ユーザー名とパスワードの組み合わせが正しい場合「認証成功！」
ユーザー名が存在しない場合「ユーザー名が存在しません」
ユーザーは存在するがパスワードが誤っている場合「パスワードが間違っています」
ユーザー名またはパスワードのいずれかが空白の場合「ユーザー名またはパスワードが未入力です」

check.phpにおけるユーザー名とパスワードの組み合わせは以下のとおりとする。（3ユーザー分）
ユーザー名：guest admin shs0000
パスワード：goma adm 0000

スクリプト内での以下の配列に格納し、プログラムによって判断を行うこと。
ユーザー名：$arrUser $arrUser = array(・・・・);
パスワード：$arrPass $arrPass = array(・・・・);

ヒントでfor,if文を使うとあります。

どうかお願いします。

ここに神がいることを祈ります。

これ
↓
$a1="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ./";
$a2=substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
$cryptpass = crypt($pass,$a2);

をPHPで同じことさせるにはどうしたらいいのでしょうか・・・

int(rand(64)) => rand(0, 63)

これだけ代えればいけるんじゃね？

>>572
あなたは神だ。
ありがとうございました＾＾
本当助かりました。

>>570
まずPerlでかけるのか？
かけないなら質問スレいってこい

漠然とした質問で申し訳ないが
単なるテキストファイルをincludeするだけだったら
SSIとPHPとどっちがサーバ負荷が少ないかな？

基本同じくらい


ただ、組み込むモジュールmod_includeとmod_phpではmod_phpの方が断然メモリ食う

>>576
遅くなったがありがトン

すでに構築されてるサイトを引き受ける事になったんだけど
SSIだらけだったんでちょっと気になってね
PHPの方が利便性良さそうなんで移行しようかと思ったけど静観かな

&ReadParse;
while (($key,$val) = each %in) {

って言う良く見るPerlをphpで書き直すと？
extractだとPOSTとGET両方は拾えないみたいですし。
キーごとに処理を分けるのは、phpではどうしたら？

教えて下さい神様。

if(isset($_POST)) {
while(list($key, $val) = each($_POST)) {
//POST変数が存在する数だけループ　$key $valで所得->処理
}
}
if(isset($_GET)) {
while(list($key, $val) = each($_GET)) {
//GET変数が存在する数だけループ　$key $valで所得->処理
}
}

かな？後、
import_request_variables("GPC","{re_ とか何か接頭辞}");
を使うとGET,POST,COOKIEを一度に変数へ展開できる。
Perlの方が良く解らないので見当はずれだったらごめん。

ありがとうございます。
上述の方法でやってみます。

助かりました！

>>578だとgetだろうがpostだろうが
すでに%inに入ってる訳だがその辺は良いのか？

>>579
俺はPHPはイマイチなんだが、$_POSTか$_GETを判別して別のハッシュに入れ
そのハッシュをeachした方が良くね？

>>581
Perlでいうハッシュ＝連想配列：$QUERY{$key} = $valで、
$_POSTや$_GETは既に判別された後のハッシュと同じと解釈してますが、
実際どうなんだろう？

いや、ループの前に$_POSTでも$_GETでも１つにしちまえば
ループ自体が１つに出来るっていう話

つ $_REQUEST

>>584
そんな便利なのあるんだな
元質問者じゃないが勉強になったよ

DMYHMS形式をエポック秒に変換したいんだすが、
Perlのtimelocal()的なものがphpでありますでしょうか？

お前は風大左衛門かw
こんな感じでどうだす？

mktime(HH,MM,SS,mm,dd,yyyy);

>>587
バッチリです！ありがとうごぜいます。

文字列の小数点以下を削除しようと思って、（"3.1415"→"3"）

$PI = ereg_replace("\.\d*", "", $PI);

とすると、31415になってしまいました。perlの
s/\.\d*//;
だとうまくいくのですが、何かPHPでの注意点ありんすか？

perlちとPHPとで、正規表現がちがうでよ。

$PI = ereg_replace("\.[0-9]*", "", $PI);
$PI = preg_replace("/\.\d*/", "", $PI);

こんなんどうだべ？

>>590
ズッポシです！ありがとうございました。

PHPのエラー処理は、以下の三つくらいがあげられますが、
どれを使うのが一番なのでしょうか？
・tryとcatch
・set_error_handler
・PEAR_Error
自分は、try catchが一番いいと思いつかっています。

　　∧＿∧
　 （　・∀・） 　　 　 |　| ｶﾞｶﾞｯ
　と　　　　） 　　 　 |　|
　　 Ｙ　/ノ 　　　　 .人
　　　 /　） .人　　 < 　>_∧∩
　 ＿/し'　< 　>_∧∩｀Д´）/
　（＿フ彡　Ｖ｀Д´）/　　 / ←>>416
　　　　　　　　 　 　/ ←>>343

同じだから移行して何の意味があるのかわからん