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

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入門だれか立ってってくれ！

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

ああ全角か。ｽﾏｿ。

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

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

>>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が一番いいと思いつかっています。

同じだから移行して何の意味があるのかわからん

【話題】なぜ日本人は世界中でモテモテなのか！？日本人の魅力について外国人１００人に聞いてみた【最強】

https://www.youtube.com/watch?v=P4UD7b6h2KM

【話題】なぜ日本人は世界中でモテモテなのか！？日本人の魅力について外国人１００人に聞いてみた【最強】

https://www.youtube.com/watch?v=P4UD7b6h2KM

ぜんしろうは、せんずろうと言われるが、この歳になればみんなせんずろうだ。

誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』 というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

UT147M7AKH

☆ 日本の、改憲を行いましょう。現在、衆議員と参議院の
両院で、改憲議員が３分の２を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆

プログラミングを誰でも習得できる方法は、「前場アキドルのプログラミングマスター方法」というブログで見られるらしいよ。ネットで調べると見られるらしいです。

J4K21

ｵﾗｵﾗ ( ￣Д￣)y-*);ﾟ皿ﾟ)ﾉ ｱﾁﾁﾁｯ!!!