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

俺様 · 03/02/27 15:17

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

**nobodyさん** · 03/07/25 22:24

>>391
おもろい

**nobodyさん** · 03/07/26 02:18

改行コード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 );

**nobodyさん** · 03/07/26 02:50

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

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

**nobodyさん** · 03/07/26 03:36

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

**nobodyさん** · 03/07/26 04:30

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

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

**402** · 03/07/26 04:33

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

**nobodyさん** · 03/07/26 16:31

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

**nobodyさん** · 03/07/28 20:34

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

**nobodyさん** · 03/07/28 20:42

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

**nobodyさん** · 03/07/29 00:10

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

**nobodyさん** · 03/07/29 00:53

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

**nobodyさん** · 03/07/29 01:11

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

**nobodyさん** · 03/07/29 01:19

あるよ。
携帯とか。

**nobodyさん** · 03/07/29 01:59

どこの携帯？

_ · 03/07/29 02:02

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

**nobodyさん** · 03/07/29 04:06

>>409
RFC嫁

**nobodyさん** · 03/07/29 08:58

>>411
ﾄﾞｺﾓ

**nobodyさん** · 03/07/31 09:22

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

**山崎渉** · 03/08/02 02:23

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

**ぼるじょあ** ◆ySd1dMH5Gk · 03/08/02 04:51

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

**nobodyさん** · 03/08/03 03:36

良スレ
あげとく

**nobodyさん** · 03/08/15 21:51

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

**山崎渉** · 03/08/15 22:25

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

**nobodyさん** · 03/08/28 08:28

PHPでOOPでもと思い、

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

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

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

**nobodyさん** · 03/08/30 22:41

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

**nobodyさん** · 03/08/30 23:14

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

**nobodyさん** · 03/08/31 13:22

>>422
赤マンモス

**nobodyさん** · 03/09/07 01:36

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

**nobodyさん** · 03/09/07 01:56

あ

**nobodyさん** · 03/09/10 00:04

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

**427** · 03/09/10 00:42

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

**nobodyさん** · 03/09/10 01:08

>>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は含まれていません！';
}

?>

**429です** · 03/09/10 01:20

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

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

03/09/10 04:03

strstr();ってi18n対応？

**nobodyさん** · 03/09/10 10:21

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

**nobodyさん** · 03/09/11 23:16

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

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

**nobodyさん** · 03/09/20 14:31

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

**nobodyさん** · 03/09/20 22:34

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

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

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

**nobodyさん** · 03/09/20 23:19

>>391
ﾜﾛﾀ

**とおりすがり** · 03/09/21 03:57

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

**nobodyさん** · 03/09/21 19:51

natsort は？

**nobodyさん** · 03/09/22 04:27

>>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

03/09/22 05:52

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

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

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

http://jp.php.net/substr

03/09/22 06:08

ああ全角か。ｽﾏｿ。

**nobodyさん** · 03/09/22 11:22

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

**nobodyさん** · 03/09/22 16:10

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

**nobodyさん** · 03/09/22 16:36

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

**nobodyさん** · 03/09/25 23:55

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

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

**445** · 03/09/28 00:48

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

**nobodyさん** · 03/09/28 02:01

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

**nobodyさん** · 03/09/28 02:26

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

**445** · 03/09/28 03:46

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

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

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

**nobodyさん** · 03/09/28 09:23

？

**445** · 03/09/28 22:34

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

ご指摘きぼんぬ

**nobodyさん** · 03/09/29 10:34

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

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

**nobodyさん** · 03/10/07 22:48

保守新党

**nobodyさん** · 03/10/07 23:44

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

**nobodyさん** · 03/10/08 00:11

>>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を
ちゃんと設定していないと駄目。

**454** · 03/10/08 00:30

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

**nobodyさん** · 03/10/18 23:15

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

**nobodyさん** · 03/10/27 17:51

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

**nobodyさん** · 03/10/28 18:22

　$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()で正規表現が使えないようなのですが
何か良い方法はないですか。

**nobodyさん** · 03/10/29 23:14

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

**nobodyさん** · 03/11/01 14:03

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

**nobodyさん** · 03/11/01 14:49

>>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でいけるよね

**nobodyさん** · 03/11/03 00:41

perlでいうところの、

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

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

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

**nobodyさん** · 03/11/03 00:44

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

なんか無駄がないか？

**nobodyさん** · 03/11/04 00:00

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

**nobodyさん** · 03/11/07 15:11

$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...なら可能なのですが…

**nobodyさん** · 03/11/07 15:40

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

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

**nobodyさん** · 03/11/07 15:43

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

**nobodyさん** · 03/11/07 15:59

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

**463** · 03/11/12 04:51

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

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

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

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

**nobodyさん** · 03/11/12 05:09

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

**nobodyさん** · 03/11/12 06:00

>>471

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

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

**nobodyさん** · 03/11/12 17:05

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

**nobodyさん** · 03/11/12 20:14

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

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

**473** · 03/11/12 21:19

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

**nobodyさん** · 03/11/12 21:56

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

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

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

**473** · 03/11/12 22:08

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

**nobodyさん** · 03/11/12 22:08

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

**nobodyさん** · 03/11/12 22:34

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

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

**nobodyさん** · 03/11/26 02:30

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

俺様 · 03/12/05 23:06

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

**nobodyさん** · 03/12/12 00:39

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

**nobodyさん** · 03/12/12 01:34

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

**nobodyさん** · 03/12/14 00:06

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

**nobodyさん** · 03/12/14 21:20

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

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

**nobodyさん** · 03/12/14 23:41

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

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

**486** · 03/12/17 00:08

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

**nobodyさん** · 03/12/18 13:37

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

**nobodyさん** · 03/12/18 13:59

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

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

**nobodyさん** · 03/12/18 15:25

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

**nobodyさん** · 03/12/18 16:46

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

>488
既出

>789
!

**nobodyさん** · 03/12/18 20:33

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

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

**nobodyさん** · 03/12/18 20:37

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

**nobodyさん** · 03/12/21 18:56

＞４９２

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

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

**nobodyさん** · 03/12/21 20:52

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

**492** · 03/12/21 21:11

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

**nobodyさん** · 03/12/22 17:55

asdf

**nobodyさん** · 03/12/22 19:05

ghjk