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

このエントリーをはてなブックマークに追加
952 ：nobodyさん：03/08/13 00:25 ID:???
>>945
あるいは
while ( @test ) {
　　pop shift @test."\n";
}

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

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

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

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

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

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

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

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

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

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

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

できません。共有はできません。どちらかあきらめてください。
あなたも欲ばりですね。
そんな初歩的な質問、こんなところでしないでください。どこか行ってください。
966 ：nobodyさん：03/08/13 16:46 ID:???
#!/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;
967 ：nobodyさん：03/08/13 16:46 ID:???
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'};
}
968 ：nobodyさん：03/08/13 16:46 ID:???
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;
969 ：nobodyさん：03/08/13 16:46 ID:???
>>963
ファイル使っちゃあかんの？dbmとかbdbとか
あと時計監視はちょっと、、、cronとか使えないの？
970 ：nobodyさん：03/08/13 16:47 ID:???
# 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>";
971 ：nobodyさん：03/08/13 16:48 ID:???
∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧
＜ 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ＞
＜　動カンカッタ>>720-736ーーーーーーーーー！！　　　　＞
＜　　 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ＞
　 ∨∨∨∨∨∨∨∨∨∨∨＼　 ／∨∨∨∨∨∨∨∨∨∨∨
　　　　　　　　 　／:|.　　　　　　　|　|　　　　　／:|
　　　　　　　 ／　 .:::|　　　　　　　∨　　　 ／　 :::|
　　　　　　　 |　　...:::::|　　　　　　　　　 　/　　　::::|
　　　　　　　i　　　 　 ￣￣⌒ﾞﾞ^――／　　 　::::::::|
　　　　　　/＿,,___　　　　　　 . _,,,,__,_　　　　　:::::::::::＼
　　　　 　／　　　ﾞ^＼ヽ..　 , /ﾞ　　　¨＼,.-z　　　::::::::::＼
　　　　 　「　●　　　　| 》　 l| 　●　　　 ﾞ》　ミ..　　　.::::::＼
　　　 　/i,.　　　　　 .,ﾉ .l|　 《 　　　　　 ..|´_ilﾄ　　　　::::::::::＼
　　　　/　＼___,,,,,_／ .'″　　^=u,,,,_ v／.. 　　　　　　:::::::::::::l!
　　　 |　　　　　　　　　　　￣　,,､　　　　　　　　　i し.／::::::::.｝
　　　|　　/ 　,,__＿＿　_,／￣　＼　＼　　　　　 ﾉ　(　　::::::::::|
　　　 |　　|.. |　／└└└└＼../＼　　＼　　 　'~ヽ　::::::::::::::｝
　　　　|　 　.∨.|llllllllllllllllllllllllllllllllllllllll|　　　　　　　::::::::::｛
　　　　| 　　　|.|llllllllllll;／⌒／⌒　　〕　　　　　　　　　　:::::::::::｝
　　　　 |　　　|.|lllllllll;　　　./　.　　 .　|　　　　　　　　　　::::::::::［
　　　　 .|　　　|.|llllll|′　　/　　　　.　|　　　 .|　　　　　　:::::::::::|
　　　　　.|　　 |.|llll| 　　　| 　　　　.∧〔　　　/　　　　:::::::::::::／
　　　　／　｝.∧lll　　　　|　　　　../　/　　／　　　:::::::::::::::::＼
　　 ／　　　/|　＼┌┌┌┌┌/.／　／:::　 　　　　:::::::::::::::::＼
　　　　　　(　ﾞﾞ^^¨^¨ﾞﾞ¨　￣￣￣　／:::::::::::
972 ：nobodyさん：03/08/13 16:48 ID:p0VVcbYX
スレンダーなロリ体形ながらもオマンコ方はしっかり発達しちゃってます。
大きなオチンチンを喉の奥までくわえ込んでのフェラは大人顔負けですぞ。
挿入シーンは少ないながらも小さなオマンコにしっかり挿入されているシーンが勃起モノ！
若い娘はいいですな。

無料ムービーはこちら！
http://www.cappuchinko.com/
973 ：960：03/08/13 16:50 ID:???
962さん、どうもありがとうございます！
解決しました。
974 ：nobodyさん：03/08/13 16:55 ID:???
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
975 ：nobodyさん：03/08/13 17:32 ID:???
荒らしではないんだが、レスあぼ〜ん依頼してる方へ
なるべく一度に依頼してくれませぬか？
かちゅだとあぼーんするたびにスレ再取得しなくちゃならないから大変なのよ
976 ：nobodyさん：03/08/13 17:57 ID:???
>>975
ものすごく自分勝手なやつだな。
977 ：nobodyさん：03/08/13 18:47 ID:???
>>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
（使ったことないので、どんなものか知らなかったり。使った感想きぼん。)

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






















979 ：nobodyさん：03/08/13 19:56 ID:???
>>976
( ﾟДﾟ)ﾊｧ?
つーか、削除依頼なんかすんな。透明あぼーんでもしたらいいだろ。
980 ：nobodyさん：03/08/13 19:57 ID:???
>>979
お前が使用ブラウザを変えればいいだけだ。
981 ：nobodyさん：03/08/13 19:59 ID:???
ウンコスレ
982 ：nobodyさん：03/08/13 20:12 ID:???
バカはあぼーんしないといけないので。
つーか、かちゅなら改造して
再取得しても「あぼ〜ん」を保持するようにしたらいいじゃん？
983 ：nobodyさん：03/08/14 02:32 ID:???
#!/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;
984 ：nobodyさん：03/08/14 02:32 ID:???
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'};
}
985 ：nobodyさん：03/08/14 02:32 ID:???
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;
986 ：nobodyさん：03/08/14 02:33 ID:???
# 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>";
987 ：nobodyさん：03/08/14 02:35 ID:???
　　　　　　　|　通報しますた!
　　　　　　　＼
　　　　　　　　￣∨￣￣￣￣￣
　　　　　　　　　　　　　　
　　　　　　　　　∧_∧
　　　　　　　 　 ( ´Д｀)
　　　　　　　　／,　　/
　　 　　　　 (ぃ9　　|
　　　　　　　/　　　/、
　　　　　　 /　　 ∧_二つ
　　　　　　/　　 /
　　　　　 /　　　＼
　　　　　/　/~＼　 ＼
　　　　 /　/　　 >　 )　
　　　／　ノ　　 /　／
　　/　／　　.　/ ./.
　 / ./　　　　(　ヽ、
　(　_)　　　　 ＼__つ
988 ：nobodyさん：03/08/14 02:37 ID:???
。(´･ω･`) 。(´･ω･`) 。(´･ω･`) 。(´･ω･`) 。(´･ω･`)
　　　(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)
　　　　　　　　○(´･ω･`)○(´･ω･`)○(´･ω･`)○(´･ω･`)○(´･ω･`)○
　　　　　　　　　　　　　。(´･ω･`) 。(´･ω･`) 。(´･ω･`) 。(´･ω･`) 。
　　　　　　　　　　　　　　(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)
ＰＨＰって携帯会社の名前じゃないのか！？(´･ω･`)ｏ(´･ω･`)ｏ(´･ω･`)ｏ
　　　　　　　　　　　　　　○　　　　　　　ｏ(´･ω･`)ｏ(´･ω･`)○　ｏ　　　○
　　　　　　　　　　　　　　　　　　　　　　　　　　(´･ω･`)○(´･ω･`)
　　　　　　　　　　　　　　　　　　　　○　。　　ｏ　　　　ｏ　○。 　

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

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

５、チンコ！！

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


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
























997 ：nobodyさん：03/08/14 05:47 ID:???
QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
998 ：nobodyさん：03/08/14 05:47 ID:???
ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt
ttttttttt
999 ：nobodyさん：03/08/14 05:48 ID:???
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
1000 ：nobodyさん：03/08/14 05:48 ID:GvyHuosa
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWW
w
fga545fg45a1g354
1001 ：１００１：
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。