トップページ⇒php
1001コメント294KB

Perl コーディング初心者質問コーナー Part26

レス数が1000を超えています。これ以上書き込みはできません。
0001nobodyさん03/07/24 19:48ID:???
いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【 スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10
0951nobodyさん03/08/13 00:23ID:???
>>943
ハードリファレンスやシンボリックリファレンスとして使用する値は、
定義済みの値でなければなりません
0952nobodyさん03/08/13 00:25ID:???
>>945
あるいは
while ( @test ) {
　　pop shift @test."\n";
}

>>946
あるいは
while ( ($key, $val) = each %HASH ) {
　　print $key." = ".$val."\n";
}
095395203/08/13 00:26ID:???
失礼。訂正です。

>>945
あるいは
while ( @test ) {
　　print shift @test."\n";
}
0954nobodyさん03/08/13 00:26ID:0XDiwwzH
お。。
まちがってた。
thxでごんす。
095594603/08/13 00:28ID:???
ありがとうございました。
whileとforeachの違いがイマイチわかりづらいですが
ラクダ本でも見てゆっくり勉強する事にします。

ハッシュの方はKeys関数のところみたら見事に載ってました。
わざわざすみませんでした…。
095695203/08/13 00:29ID:???
たびたび失礼。訂正です。

>>945
あるいは
while ( @test ) {
　　print shift @test;
　　print "\n";
}
0957nobodyさん03/08/13 01:30ID:???
>>945
@testが小さければ
print join("\n", @test, '');
0958nobodyさん03/08/13 10:45ID:???
>>946

while (<>) {
print $_ . "\n";
}
のつもりで書いたのか。それならば。
while (shift @test) {
print $_ . "\n";
}
0959nobodyさん03/08/13 12:13ID:???
>>946は何でかたまったのか自分でわかってる？
0960nobodyさん03/08/13 16:15ID:???
スレ違いって言われたのでこちらで改めて質問します。

KENTさんのWeb Patioを使っています。
regist.cgiにおいて、
「初心者」という文字列を含む名前をエラーではじきたいのですが、
どうすればいいでしょうか？

一応、「初心者」であればエラーを返すようにしています。
if ($i_nam eq "初心者") { &error("任意の名前でお願いします"); }
この場合だと「PC初心者」をはじくことができません。
正規表現を使わなければいけないというのはわかっているのですが、
if ($i_nam =~ /初心者/)
ではダメなんでしょうか？

よろしくお願いします。
0961nobodyさん03/08/13 16:31ID:???
>>960
どうだめだったの？
漢字コードは合わせてる？
0962nobodyさん03/08/13 16:38ID:???
>>960
この場合、正規表現は使わない方が低コスト。
全部EUC-JPかUTF-8で扱っているとして

if (index($i_nam, '初心者') >= 0) {
&error("任意の名前でお願いします");
}
0963nobodyさん03/08/13 16:40ID:???
子プロセスを作って、平行して違う処理をさせたいのですが、
親からも子からも見える変数というのは、そのままでは実現できないのでしょうか？

小難しいのでビデオ予約に例えますが、
>親はユーザとsocketで通信をして、予約リストの追加削除修正を行い、
>子は時計を監視しつつ、時間になったら録画をスタートさせる
この"予約リスト"を親子で共有したいのです。
0964nobodyさん03/08/13 16:43ID:VxpLVgAp
>>960

初心者ははじくことができません。
そんな初歩的な質問は板違いです。どこか行ってください。邪魔です。
ＷＥＢ板にいって、二度と来ないでください。
0965nobodyさん03/08/13 16:45ID:???
>>963

できません。共有はできません。どちらかあきらめてください。
あなたも欲ばりですね。
そんな初歩的な質問、こんなところでしないでください。どこか行ってください。
0966nobodyさん03/08/13 16:46ID:???
#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand2;
0967nobodyさん03/08/13 16:46ID:???
srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}
0968nobodyさん03/08/13 16:46ID:???
srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;
0969nobodyさん03/08/13 16:46ID:???
>>963
ファイル使っちゃあかんの？dbmとかbdbとか
あと時計監視はちょっと、、、cronとか使えないの？
0970nobodyさん03/08/13 16:47ID:???
# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player1は<big>$kougeki1</big>のダメージを受けて混乱した。
<p>Player1は<big>$kougeki1</big>のダメージで野原でクソをし始めた。
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを受けて裸踊りを始めた。
<p>Player2は<big>>$kougeki2</big>のダメージで道を歩いていた女にレイプし始めた。</p></p></body>\n";
print "</html>";
0971nobodyさん03/08/13 16:48ID:???
∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧
＜ 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ＞
＜　動カンカッタ>>720-736ーーーーーーーーー！！　　　　＞
＜　　 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ＞
　 ∨∨∨∨∨∨∨∨∨∨∨＼　 ／∨∨∨∨∨∨∨∨∨∨∨
　　　　　　　　 　／:|.　　　　　　　|　|　　　　　／:|
　　　　　　　 ／　 .:::|　　　　　　　∨　　　 ／　 :::|
　　　　　　　 |　　...:::::|　　　　　　　　　 　/　　　::::|
　　　　　　　i　　　 　 ￣￣⌒ﾞﾞ^――／　　 　::::::::|
　　　　　　/＿,,___　　　　　　 . _,,,,__,_　　　　　:::::::::::＼
　　　　 　／　　　ﾞ^＼ヽ..　 , /ﾞ　　　¨＼,.-z　　　::::::::::＼
　　　　 　「　●　　　　| 》　 l| 　●　　　 ﾞ》　ミ..　　　.::::::＼
　　　 　/i,.　　　　　 .,ﾉ .l|　 《 　　　　　 ..|´_ilﾄ　　　　::::::::::＼
　　　　/　＼___,,,,,_／ .'″　　^=u,,,,_ v／.. 　　　　　　:::::::::::::l!
　　　 |　　　　　　　　　　　￣　,,､　　　　　　　　　i し.／::::::::.｝
　　　|　　/ 　,,__＿＿　_,／￣　＼　＼　　　　　 ﾉ　(　　::::::::::|
　　　 |　　|.. |　／└└└└＼../＼　　＼　　 　'~ヽ　::::::::::::::｝
　　　　|　 　.∨.|llllllllllllllllllllllllllllllllllllllll|　　　　　　　::::::::::｛
　　　　| 　　　|.|llllllllllll;／⌒／⌒　　〕　　　　　　　　　　:::::::::::｝
　　　　 |　　　|.|lllllllll;　　　./　.　　 .　|　　　　　　　　　　::::::::::［
　　　　 .|　　　|.|llllll|′　　/　　　　.　|　　　 .|　　　　　　:::::::::::|
　　　　　.|　　 |.|llll| 　　　| 　　　　.∧〔　　　/　　　　:::::::::::::／
　　　　／　｝.∧lll　　　　|　　　　../　/　　／　　　:::::::::::::::::＼
　　 ／　　　/|　＼┌┌┌┌┌/.／　／:::　 　　　　:::::::::::::::::＼
　　　　　　(　ﾞﾞ^^¨^¨ﾞﾞ¨　￣￣￣　／:::::::::::
0972nobodyさん03/08/13 16:48ID:p0VVcbYX
スレンダーなロリ体形ながらもオマンコ方はしっかり発達しちゃってます。
大きなオチンチンを喉の奥までくわえ込んでのフェラは大人顔負けですぞ。
挿入シーンは少ないながらも小さなオマンコにしっかり挿入されているシーンが勃起モノ！
若い娘はいいですな。

無料ムービーはこちら！
http://www.cappuchinko.com/
097396003/08/13 16:50ID:???
962さん、どうもありがとうございます！
解決しました。
0974nobodyさん03/08/13 16:55ID:???
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0975nobodyさん03/08/13 17:32ID:???
荒らしではないんだが、レスあぼ〜ん依頼してる方へ
なるべく一度に依頼してくれませぬか？
かちゅだとあぼーんするたびにスレ再取得しなくちゃならないから大変なのよ
0976nobodyさん03/08/13 17:57ID:???
>>975
ものすごく自分勝手なやつだな。
0977nobodyさん03/08/13 18:47ID:???
>>963
名前付きパイプ(ネームドパイプ)
http://www.kt.rim.or.jp/~kbk/perl5.doc/perlipc.html#Named_Pipes
クックブックレシピ16.11
か、
sysV IPC
http://www.kt.rim.or.jp/~kbk/perl5.doc/perlipc.html#SysV_IPC
クックブックレシピ16.12
（使ったことないので、どんなものか知らなかったり。使った感想きぼん。)

リアルタイムでなければファイルに一票。
0978nobodyさん03/08/13 19:41ID:???






















0979nobodyさん03/08/13 19:56ID:???
>>976
( ﾟДﾟ)ﾊｧ?
つーか、削除依頼なんかすんな。透明あぼーんでもしたらいいだろ。
0980nobodyさん03/08/13 19:57ID:???
>>979
お前が使用ブラウザを変えればいいだけだ。
0981nobodyさん03/08/13 19:59ID:???
ウンコスレ
0982nobodyさん03/08/13 20:12ID:???
バカはあぼーんしないといけないので。
つーか、かちゅなら改造して
再取得しても「あぼ〜ん」を保持するようにしたらいいじゃん？
0983nobodyさん03/08/14 02:32ID:???
#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand2;
0984nobodyさん03/08/14 02:32ID:???
srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}
0985nobodyさん03/08/14 02:32ID:???
srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;
0986nobodyさん03/08/14 02:33ID:???
# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player1は<big>$kougeki1</big>のダメージを受けて混乱した。
<p>Player1は<big>$kougeki1</big>のダメージで友達のトイレではみ出したクソをし始めた。
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを受けて裸踊りを始めた。
<p>Player2は<big>>$kougeki2</big>のダメージで友達の女にレイプし始めた。</p></p></body>\n";
print "</html>";
0987nobodyさん03/08/14 02:35ID:???
　　　　　　　|　通報しますた!
　　　　　　　＼
　　　　　　　　￣∨￣￣￣￣￣
　　　　　　　　　　　　　　
　　　　　　　　　∧_∧
　　　　　　　 　 ( ´Д｀)
　　　　　　　　／,　　/
　　 　　　　 (ぃ9　　|
　　　　　　　/　　　/、
　　　　　　 /　　 ∧_二つ
　　　　　　/　　 /
　　　　　 /　　　＼
　　　　　/　/~＼　 ＼
　　　　 /　/　　 >　 )　
　　　／　ノ　　 /　／
　　/　／　　.　/ ./.
　 / ./　　　　(　ヽ、
　(　_)　　　　 ＼__つ
0988nobodyさん03/08/14 02:37ID:???
。(´･ω･`) 。(´･ω･`) 。(´･ω･`) 。(´･ω･`) 。(´･ω･`)
　　　(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)
　　　　　　　　○(´･ω･`)○(´･ω･`)○(´･ω･`)○(´･ω･`)○(´･ω･`)○
　　　　　　　　　　　　　。(´･ω･`) 。(´･ω･`) 。(´･ω･`) 。(´･ω･`) 。
　　　　　　　　　　　　　　(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)
ＰＨＰって携帯会社の名前じゃないのか！？(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)ｏ
　　　　　　　　　　　　　　○　　　　　　　ｏ(´･ω･`)ｏ(´･ω･`)○　ｏ　　　○
　　　　　　　　　　　　　　　　　　　　　　　　　　(´･ω･`)○(´･ω･`)
　　　　　　　　　　　　　　　　　　　　○　。　　ｏ　　　　ｏ　○。 　

　　　　　　　　　　　　 ／::.　ｿ . :;;ヽ　　　　　　
　　　　　　　　 　　　 /::.　　　　 ..:::;;;ヽ
　　　　　　　 　　 　 /::.　　　　　　..::;;;;ヽ
　　　　　　 　　　　/::.　　　　　　　 ..::::;;;;i
　　　　　　 　　　 （::.　　　　　　　　..::;;;丿
　　　　　　　　 　　　>::...＿＿＿..::::;;;イ
　　　　　　　 　　　　!ヾ.￣⌒_＿￣彡|　
　　　　　　 　 　 　 iﾐ:::ミＣ＝　≡..:::　）
　　　　　　　　　 　　|:::　丶ヽ　　..:ヽ ）　　　　　　
　　　　　　　　　　 　|::: （'　　　 （　::;;;|
　　　　　　　　　 　　|:::　| ﾐ　　　ヽ＼|
　　　　　　　　　 　　|:::　丶ヽ　　..:ヽ ）　　　　　　
　　　　　　　　　 　 （ ＼　 l. |　　..:;;;;;;|
　　　　　　　　 　　　|::＼∨丿 ″..:;;;;;|
　　　　　　　　　 　　|:::　（　( 　ﾞ　..:;;;;;|
　　　　　　　　　 　　|:::　（　( 　ﾞ　..:;;;;;|
　　　　　　　 　　.彡.|::: 　 i　ｌ　　 :::;;;;;|ゞ巛ミ
　　　　　　 　巛从ﾐ彡ミ彡从巛彡ミ彡ﾐ彡》》
　　　　　　巛巛ミ人ﾐ彡巛彡从ミ巛ミ人ﾐ》》》》
　　　　　巛彡巛彡从ミ》彡彡巛ミ人ﾐ彡ミ从》》
0989nobodyさん03/08/14 02:42ID:???
このスレはここで終了にしましょう
ーーーーーーーーーーーーーー終了ーーーーーーーーーーーーー

１、荒らしが住みついている
２、めちゃくちゃ荒れるのはわかっている
３、いるやつが無脳で役立たずが多い
４、存在価値なし！！

５、チンコ！！

以上をもって、全て終了とさせてもらいました。
0990nobodyさん03/08/14 03:05ID:???
すげー勢いでレス番欠けてる( ´ー｀)
0991nobodyさん03/08/14 03:14ID:???
住みついてる荒しってパンチキックのやつだけだろ？
0992nobodyさん 03/08/14 05:36ID:???
で、次スレ立てるん？
0993nobodyさん03/08/14 05:46ID:???
　
0994nobodyさん03/08/14 05:46ID:???
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0995nobodyさん03/08/14 05:47ID:???


0996nobodyさん03/08/14 05:47ID:???
























0997nobodyさん03/08/14 05:47ID:???
QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
0998nobodyさん03/08/14 05:47ID:???
ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt
ttttttttt
0999nobodyさん03/08/14 05:48ID:???
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
1000nobodyさん03/08/14 05:48ID:GvyHuosa
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWW
w
fga545fg45a1g354
1001１００１Over 1000Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。