Perlコーディング初心者質問スレ Part 41
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
05/03/10 00:47:16ID:sT66OcmD【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0552549
2005/04/18(月) 19:40:25ID:???0553nobodyさん
2005/04/18(月) 19:58:14ID:???perl -MJcode -e "print $Jcode::VERSION"
のようなワンライナーは普通の人間にも有用だと思うがな。
利用できるモジュールのヴァージョンをコマンドラインで調べるのは
「普通の人間」のする事ではないと言われればそれまでだがな。(w
0554546
2005/04/18(月) 20:16:51ID:???sub getPack {
my @pack;
my @hex1,@hex2;
my $hex1,$hex2;
open READ, '< C:\hex.txt';
foreach (<READ>) {
chomp;
if (/^#/ || $_ =~ /^\n/ || $_ =~ /^\r/) {
next;
}
push @packet,$_;
}
close READ;
for($i=0;$i < @pack;$i++){
($hex1,$hex2) = split /,/, $pack[$i];
push @{$packed{'hex1'}},pack "C*", packHex($hex1);
push @{$packed{'hex2'}},pack "C*", packHex($hex2);
}
#↓はとりあえず変換できているか確認するために表示させています。
#pack後はバイナリのため直接表示させて確認することができないので
#packされたデータを元のhexデータに変換しています。
#ちゃんと可逆変換ができればきちんと動作しているという確認がとれると考えました。
print"確認 - Hex:".getHex($packed{'hex2'}[0])."\n";
print"確認 - Pack:$packed{'hex2'}[0]\n";
}
0555546
2005/04/18(月) 20:17:27ID:???my $hex = shift;
my @hex;
@hex = split / /, $hex;
@hex = map { "0x".$_ } @hex;
return @hex;
}
sub getHex {
my $data = shift;
my $i;
my $return;
for ($i = 0; $i < length($data); $i++) {
$return .= uc(unpack("H2",substr($data, $i, 1)));
if ($i + 1 < length($data)) {
$return .= " ";
}
}
return $return;
}
sleep(999999);
0556546
2005/04/18(月) 20:17:53ID:???00 00 00 00 FF FF 01 00 02 00 00 00,C8 FB 6A 0A
こんな感じです。
連書き失礼します。
情報を小出しにするつもりはなかったのですがあまり長々と書いてもいけないと
思って簡略に書いてしまいました。
このようなコードを書いたのですがどうしても
push @{$packed{'hex1'}},pack "C*", packHex($hex1);
この時点でうまくpackしてくれません。
私もpackできるものだと思っていただけに原因がわかりません。
重ねてアドバイスお願いできますでしょうか。
0557nobodyさん
2005/04/18(月) 21:18:35ID:???> my @hex1,@hex2;
my(@hex1), @hex2; と解釈されるが、それは意図通りか?
> push @packet, $_;
@pack ではなく?
#!/usr/local/bin/perl -w
use strict;
sub packHex { map pack('H2', $_), map split(/ /), @_ }
sub getHex { join ' ', map uc unpack('H2', $_), @_ }
my(@hex1, @hex2);
while (<DATA>) {
next if /^[\n\r#]/;
chomp;
my($hex1, $hex2) = split /,/;
push @hex1, packHex($hex1);
push @hex2, packHex($hex2);
}
print getHex(@hex1), "\n";
print getHex(@hex2), "\n";
__DATA__
00 00 00 00 FF FF 01 00 02 00 00 00,C8 FB 6A 0A
0558546
2005/04/18(月) 22:33:33ID:???レスありがとうございます。
ご指摘のとおり2箇所間違っていました。
更にはアドバイスどころかこんなコンパクトなコードまで
書いていただいいてありがとうございます。
あともうひとつだけできないことがありまして
print getHex(@hex1), "\n";
をした場合に"C8 FB 6A 0A"このように表示されるようにしたいのですが
（つまりバイナリデータを配列の1要素として格納したい）
557さんのコードを元に
$i=0;
while (<DATA>) {
next if /^[\n\r#]/;
chomp;
my($hex1, $hex2) = split /,/;
$hex1[$i] = packHex($hex1);
$hex2[$i] = packHex($hex2);
$i++;
}
close DATA;
#ためしに一行目のデータだけを表示
print getHex($hex1[0]), "\n";
print getHex($hex2[0]), "\n";
このようにしてみましたがうまくいきません・・・
0559nobodyさん
2005/04/18(月) 22:39:16ID:???とりあえず文字列"0x10"は数値として解釈されると0x10(=16)では
なくて0になるってことに気をつけるべきだな。
0560nobodyさん
2005/04/19(火) 00:10:27ID:???>>1
> 3： こんなエラーが出て上手く行かなかった。
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_join_EXPR_LIST
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_map_BLOCK_LIST
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_pack_TEMPLATE_LIST
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_push_ARRAY_LIST
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_split__PATTERN__EXPR_LIMIT
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_unpack_TEMPLATE_EXPR
http://perldoc.jp/docs/perl/5.8.1/strict.pod
sub packHex { join '', map pack('H2', $_), split / /, pop }
sub getHex { join ' ', map uc unpack('H2', $_), split //, pop }
sub packHex { my @chr = split / /, pop; pack 'H2' x @chr, @chr }
sub packHex { local $_ = pop; s/\s+//g; pack 'H*', $_ }
0561546
2005/04/19(火) 11:21:09ID:???たびたびありがとうございます。
すいませんでした。
テンプレの基本がなってませんでした。
各関数の詳細解説までつけていただいてありがとうございます。
perldocというのがあるのですね。
これは凄くありがたいです。
packHexにもいろいろなやり方があっておもしろいです。
これから少しずつ噛み砕いて見ていこうとおもいます。
かなりお世話していただいて本当にありがとうございました。
0562質
2005/04/19(火) 12:56:26ID:xzzJhUPg「ECU-JP」で保存されるようにするにはどのようにすればよいのでしょうか？
0564質
2005/04/19(火) 14:33:26ID:xzzJhUPgお答えありがとうございます。
ところがjcode.plをEUC-JPで保存出来ないんです。
他のファイルは出来るのですけど。。。
0565nobodyさん
2005/04/19(火) 14:51:11ID:???jcode.plを使って保存する文字列のコードをEUC-JPに変換する。
&jcode::convert(\$hoge,"euc-jp","sjis");
貴方の文脈では、jcode.pl自体をEUC-JPで保存しようとしてるぞ。
本当にそうだったりしてｗ
0566nobodyさん
2005/04/19(火) 15:30:24ID:???--start_of_aaa--
あああ ←
いいい ←この部分を@aaaに
ううう ←
--end_of_aaa--
--start_of_bbb--
かかか ←
ききき ←この部分を@bbbに
くくく ←
--end_of_bbb--
--start_of_ccc--
さささ ←
ししし ←この部分を@cccに
すすす ←
--end_of_ccc--
open (TMPL,'./tmpl.dat');
@templates = <TMPL>;
close TMPL;
foreach $line (<@templates>){
if($line =~ m|--start_of_aaa--|){
unless($line =~ m|--end_of_aaa|){
push @aaa,$line;
}else{
last;
}
}
if(以後同様の繰り返し)
}
当然@aaaには--start_of_aaa--しか入らないのですが、ここで詰まってしまい、先に進めません。。。
0567nobodyさん
2005/04/19(火) 16:02:20ID:???漏れならこうするかなあ。
my %data = ();
my $key = "__GOMI__";
foreach my $line (<@templates>) {
if ($line =~ m/--(start|end)_of_(\w+)--/) {
$key = ($1 eq "start") ? $2 : "__GOMI__";
$data{$key} = [];
} else {
push(@{$data{$key}}, $line);
}
}
my @aaa = @{$data{"aaa"}};
my @bbb = @{$data{"bbb"}};
my @ccc = @{$data{"ccc"}};
0568nobodyさん
2005/04/19(火) 16:19:21ID:n4Wb5OBGメールフォームのデータをCSVに保存するCGIの改造です。
吐き出されたデータが"xxxx"という風にダブルコーテーションで囲まれてしまいます。
これを外して登録したいのですが、ご教授お願いします。
$head = "DATE";
$head.= join("\",\"", 'DATE', @KEY);
$out_data = join("\",\"", @output);
if (-f $f2m_file){
open(OUT, ">> $f2m_file") or &openerr();
flock(OUT, 2);
seek(OUT, 0, 2);
}
else{
open(OUT, "> $f2m_file") or &openerr();
flock(OUT, 2);
seek(OUT, 0, 0);
print OUT jcode("\"$head\"")->sjis."\r\n";
}
print OUT jcode("\"$out_data\"")->sjis."\r\n";
close(OUT);
chmod(0644, $f2m_file);
}
0569質
2005/04/19(火) 16:37:39ID:xzzJhUPgいやあ、お恥ずかしい、その通りでしたｗ
ソースを書き換えて出来るようになりました。ありがとうございます。
0571nobodyさん
2005/04/20(水) 00:36:08ID:PF1TJn1KCGIなどによく「***.cgi?mode=find」みたいな感じでリンクになっていたりしますがmode=findの部分はどういう仕組みになっているのでしょうか？
0573nobodyさん
2005/04/20(水) 05:06:40ID:2zJFmw5b3/31 新井 50000
4/1 伊藤 10000
4/10 新井 -50000 50000
4/10 上田 20000
4/15 新井 30000
4/17 伊藤 -10000 10000
4/17 伊藤 40000
こんな感じのテキストデータがあって、
スタッフごと・月ごとに売上確定分や売上見込の集計を出したいんだが…
スタッフは単発もいるので、あくまでこのデータだけから抽出したいけど、
どうすればいいんだろうか。if文使いまくりになりそうで。
0574nobodyさん
2005/04/20(水) 05:34:11ID:???http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perllol.html
0575nobodyさん
2005/04/20(水) 09:22:01ID:???タブ区切りの場合：
while(<>){
if(/^(\d+)/){$tuki=$1;}
if(defined $sengetu and $sengetu != $tuki) {
print "$sengetu月\n";
foreach $key (keys %mikomi) {
print "$key: 見込=$mikomi{$key} 売上確定=$uriage{$key}\n";
}
undef %mikomi; undef %uriage;
}
if (/^\d/) {
split(/\t/,$_);
$mikomi{$_[1]} += $_[2];
$uriage{$_[1]} += $_[3];
$sengetu=$tuki;
}
}
print "$sengetu月\n";
foreach $key (keys %mikomi) {
print "$key: 見込=$mikomi{$key} 売上確定=$uriage{$key}\n";
}
0576nobodyさん
2005/04/20(水) 09:24:41ID:???0577573
2005/04/20(水) 09:47:22ID:???昨日一人で考え込んで明け方になっちゃったんだけど、
まさか起きたらもうレスがついてるとは思わなかったよ。
>>576の言うとおりだね。厚意をありがたく思います。
つか、>>575をコピペでいけちゃいそうだぞw 申し訳ないっす。
0578nobodyさん
2005/04/20(水) 18:30:18ID:???>>575だけどさ、まあいいってことよ。
その代わり、Perlを宣伝しろよな。
Perlに利害関係があるわけじゃないけどさ、このごろrubyが
幅利かせすぎだよね。
0579nobodyさん
2005/04/20(水) 18:33:21ID:???>過疎地だから、飛び入りにはやさしいスレです。
1年前or半年前くらいは、すっごいレスの伸び様だったがな。
何かさ、やっぱrubyに食われてる？それともphpか。
0580nobodyさん
2005/04/20(水) 20:02:41ID:???rubyやpythonに行くぐらいならjavaがいいや。
phpはApacheとの連携が強力なのでいっそJakarta Projectに
加わってApacheの標準Scriptの地位を固めてくれんかな。
0581nobodyさん
2005/04/20(水) 21:49:51ID:???while(<DATA>){
split/\t/;
$_[0]=~s/\/\d+$//;
$hash{$_[0]}{$_[1]}{miko} += $_[2];
$hash{$_[0]}{$_[1]}{kaku} += $_[3];
}
foreach my $tuki(sort{$a<=>$b} keys %hash){
print "$tuki月\n";
foreach my $name(sort keys %{$hash{$tuki}}){
print "$name:\t見込=$hash{$tuki}{$name}{miko}\t売上確定=$hash{$tuki}{$name}{kaku}\n";
}
}
0582nobodyさん
2005/04/20(水) 22:12:44ID:???0583nobodyさん
2005/04/21(木) 03:11:08ID:???a.cgi?k=1のようにアドレスバーに引数を含むアドレスが表示されますよね
CGIゲームなどをやっているとこの引数が表示されない場合があるのですが
そういう風に引数を見えなくするにはどうしたらいいのでしょうか
0584nobodyさん
2005/04/21(木) 03:31:43ID:???CGIスレとかWeb制作板で聞いてね
0585nobodyさん
2005/04/21(木) 09:48:59ID:u958lKZ/スクリプトを手動で実行すると動くのですが、cronから実行すると
ライブラリが見つからないと怒られてしまい困ってます。
0586nobodyさん
2005/04/21(木) 10:05:27ID:???0587nobodyさん
2005/04/21(木) 11:02:48ID:???全部グローバル変数でやってまして最近my変数を覚えたんですけど、
KENTの掲示板などを落として見てみてもmy変数使って無いですし、
そんなに長い処理でもないと思うので、そこまで気を遣う必要ってないのでしょうか。
自作しているのは、サブルーチンの階層も深くて2つまでです。
0588nobodyさん
2005/04/21(木) 16:44:18ID:???0590nobodyさん
2005/04/21(木) 17:56:10ID:???myは便利だよ。 もう my のない世界なんて考えられないって程に。
0591nobodyさん
2005/04/21(木) 18:24:00ID:???直せるうちに直しておいた方が、後で改造するときに分かりやすいと思う。
変数名なんて三日も空けば忘れるからな。
ちょっと手間をかけておく事で、後の面倒を大きく減らせる。
他のプログラム言語なんかも学ぶなら、my変数のような考え方は必須になる。
グローバル関数を無くし関数の独立性を高めるという考えは、カプセル化、そしてオブジェクト指向に繋がっていく。
0592nobodyさん
2005/04/21(木) 18:43:42ID:???0593nobodyさん
2005/04/21(木) 20:42:56ID:???詳しく。
0594nobodyさん
2005/04/21(木) 22:24:07ID:???0595nobodyさん
2005/04/21(木) 22:54:38ID:???0596nobodyさん
2005/04/22(金) 07:08:46ID:0S2C2eid0597nobodyさん
2005/04/22(金) 07:26:56ID:???Perlモジュールについて
http://pc8.2ch.net/test/read.cgi/php/997829243/
Win なら
http://homepage3.nifty.com/hippo2000/perltips/perllha.htm
やりたい事によっては system() で lha(1) を使った方が早いかも。
0598nobodyさん
2005/04/22(金) 07:41:56ID:???そこでで聞いてみるっす
0599nobodyさん
2005/04/22(金) 16:04:20ID:???ググっても出ないorz
0600nobodyさん
2005/04/22(金) 16:07:04ID:???すんません
わかりました
0601nobodyさん
2005/04/22(金) 16:42:34ID:???0602nobodyさん
2005/04/22(金) 18:59:27ID:???これをもうちょっとこざっぱりとまとめて書きたいんですが…
どうしたらいいでしょうか？
0603nobodyさん
2005/04/22(金) 19:09:20ID:???0604nobodyさん
2005/04/22(金) 23:09:20ID:???この例で、$hensu1 にどのような文字列が来るか分からない時は、
必ず、
$aa=~s/\Q$hensu1/$hensu2/g;
とすべきなのでしょうか？
また、例えば、
$aa="ポっポっポ、はとポっポ";
$aa=~s/ポ/ぽ/g;
print $aa;
これでは、文字が化け化けで、
$aa="ポっポっポ、はとポっポ";
$aa=~s/\Qポ/ぽ/g;
print $aa;
とすれば正常になりますが、「ポ」と同じように\Qでクォートしなければ
いけない文字は、他に何がありますか？というか、どのような理屈で
クォートしなければいけないのでしょうか？
0606nobodyさん
2005/04/22(金) 23:15:23ID:???perl -e '$a0=1; $a1=2; $a2=3; for(0..9){print "$a$_\n";}'
みたいなんで$a0から$anまでの変数を作りたいんですが、これじゃ
変数名としてつながってくれないんです。
0607nobodyさん
2005/04/22(金) 23:39:50ID:???詳しくは「シンボリックリファレンス」をキーワードに調べてくれ。
しかし一応できるこたできるが、よっぽど特殊なことをやろうと
言うんじゃない限りはじめから配列かハッシュ使ったほうがいいと
思われ。
0609nobodyさん
2005/04/23(土) 12:37:33ID:???それとも、配列を使えない事情があるのか？
>607のコードが使える状況で配列が使えない状況ってのが思いつかんのだが…
0610nobodyさん
2005/04/23(土) 13:52:44ID:???リファレンスは意外と馴染みやすい。
0611nobodyさん
2005/04/23(土) 17:56:38ID:???0612６０６＝６０８
2005/04/23(土) 18:16:56ID:???ごみんなさい、わては>>602じゃないです。
もち>>602の場合は、配列でしょうが、
コマンドラインでワイルドカードを引数において、たくさんのファイルを
読んでそのファイル名に応じた変数を作りたかったのです。
便乗質問の積もりですた。
0615nobodyさん
2005/04/23(土) 21:08:01ID:???登録されたデータ(ログファイル)から任意の3つくらいを抽出したいのですが、
このとき重複しないような方法がわかりません。
具体的にいうと、タグを何個か1つのログに登録しておいてそのなかの3つくらいを重複しないようにランダムに出したいのです。
randでやったらどうしても重複してしまいます。
0617nobodyさん
2005/04/23(土) 21:44:19ID:???んじゃ、>>616さんと違う手法で、
ランダムに並べ替えてから、任意の3つを取る。
@tag = ('big','small','strong','table','input','img');
for(@tag){
$hoge = rand(@tag);
($tag[$_],$tag[$hoge]) = ($tag[$hoge],$tag[$_]);
}
for(0..2){
print "$tag[$_]\n";
}
0619nobodyさん
2005/04/23(土) 23:55:32ID:???my @bbb = (
['ab','ac','ad',], # 0
['be','bf',], # 1
['cg',], # 2
); # このようなデータを用意しておき、
my $data = "abc"; # というデータを与えた時に
my @list = ( 'abbecg', 'abbfcg', 'acbecg', 'acbfcg', 'adbecg', 'adbfcg', );
# @listのような配列を作り出したいのですがどなたか教えて下さい。
# （１） %aaaのa,b,cの部分は英数字と記号が入ります。
# %aaaの0,1,2はそれぞれ順番に数字を割り当てています。
# （２） @bbbの一次元目の数値は%aaaの0,1,2と一致します。
# @bbbの二次元目の要素数は固定ではなく変化します。
# （３） $dataは%aaaに該当するものがあった場合にのみ「a→ab」のように変化し、
# %aaaに該当するものが無い場合は「z→z」のように変化しません。
# 現在は以下のようにしてランダムに出力しているのですが、
# 今やりたいことは出力される可能性のある文字列全てを取り出したいのです。
# 分かりにくくてすいませんが宜しくお願い致します。
> my $compdata = "";
> for(split//,$data){
> if ( $#{$bbb[$aaa{$_}]} || $bbb[ $aaa{$_} ][0] ne "" ){
> $compdata .= $bbb[ $aaa{$_} ][ rand $#{$bbb[$aaa{$_}]} ];
> }else{
> $compdata .= $_;
> }
> }
0620nobodyさん
2005/04/24(日) 01:27:40ID:???my @list;
for (split //,$data){
my $comp;
if(defined $aaa{$_}){
$comp=$bbb[0]->[$aaa{$_}];
}else{
$comp=$_;
}
for (@{$bbb[1]}){
my $temp=$comp;
$comp.=$_;
for(@{$bbb[2]}){
my $temp=$comp;
$comp.=$_;
push @list, $comp;
$comp=$temp;
}
$comp=$temp;
}
$comp="";
}
for(@list){
print $_,"\n";
}
0621nobodyさん
2005/04/24(日) 01:31:30ID:???#!/usr/local/bin/perl
use strict;
my %order = (a => 0, b => 1, c => 2, d => 3);
my @data = (
[ 'ab', 'ac', 'ad' ],
[ 'be', 'bf' ],
[ 'cg' ],
[ 'dh', 'di' ],
);
my @result;
my_push(\@result, [ @data[@order{ split //, $ARGV[0] }] ]);
print join "\n", @result;
sub my_push {
my($result, $data, $i, $pre) = @_;
if ($i == $#{$data}) {
push @{$result}, map "$pre$_", @{$data->[$i]};
}
else {
my_push($result, $data, $i + 1, "$pre$_") for @{$data->[$i]};
}
}
0622619
2005/04/24(日) 02:01:01ID:???ありがとうございます。
言葉が足りずに申し訳ございません。目的のものとは違ったようです。
$dataの文字数は毎回異なります。
>>621さん
ありがとうございます。
分かりにくい表現で申し訳ございません。
入力される文字列は設定済みの文字列だけではなく、
> %order = (a => 0, b => 1, c => 2, d => 3);
ではa,b,c,dが設定済みですが、e,f,g...x,y,zのような、
未定義の値が入力されることもあり、その場合は変化しないように出来ると嬉しいです。
とはいえ、後は何とかなりそうなの気がするので頑張ってみます。
お二方、本当にありがとうございました。
書き込みしてからも色々と調べていたのですが、
my %CCC = (
'a' => ['ab','ac','ad',],
'b' => ['be','bf',],
'c' => ['cg',],
);
こんな書き方も出来るのですね。
本当にありがとうございました。
引き続き頑張ってみます。
また、分からないことがあったら宜しくお願い致します。
0623nobodyさん
2005/04/24(日) 02:16:56ID:???0624nobodyさん
2005/04/25(月) 08:46:28ID:???$var =~ m/nantoka/igo; = $var =~ /nantoka/igo;
mって使う必要ないと思うんだけど、みなさん、いつ使ってます？
0625nobodyさん
2005/04/25(月) 11:04:05ID:???'/' を正規表現に含める時。
/^([^\/]*)\/([^\/]+)\/(.*)\z/;
/^ ([^\/]*) \/ ([^\/]+) \/ (.*) \z/x;
m|^([^/]*)/([^/]+)/(.*)\z|;
m|^ ([^/]*) / ([^/]+) / (.*) \z|x;
0627nobodyさん
2005/04/25(月) 16:13:33ID:???0628nobodyさん
2005/04/25(月) 20:42:14ID:???レスありがとうございます。
なるほど、/のエスケープを省略したいときですね。
誤りたいとき使うとまた誤らなきゃですね（ｗ
どもども。
0629nobodyさん
2005/04/26(火) 12:58:40ID:???0630nobodyさん
2005/04/26(火) 14:53:35ID:???@list($h01,$h02,$h03）
$h01〜03に、例えばそれぞれ0,0,1と代入されている時
@listの中のどの変数に1と入っているかを確認するには？indexを使うんでしょうか？
if (@list==1) {・・・（以下続く）
これは間違ってる書き方ですがorz、
こんな風に『@listの中の変数のどれかが1であれば・・・』と
条件文の中に組込みたいのです。
0631nobodyさん
2005/04/26(火) 14:53:56ID:OvccyAYT0632nobodyさん
2005/04/26(火) 15:00:58ID:???http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq4.html#How_can_I_tell_whether_an_list_o
0633nobodyさん
2005/04/26(火) 17:41:53ID:???ありがとう！やってみます。
0634nobodyさん
2005/04/26(火) 18:10:21ID:6+zG2+f5$aaaが一定以上の値になった時、変動する$aaaをその値以上に固定する
というのはどう書けばいいでしょう？
if ($aaa >= 10) { $aaa != 10 ;}
何か違う・・・orz
0635nobodyさん
2005/04/26(火) 18:41:56ID:???0636nobodyさん
2005/04/26(火) 18:49:53ID:???すみません、説明が悪かったです・・・
$aaaは10以下にはならず、10以上の値には変動できる、という書き方です。
!を消すと$aaaは10、になってしまうので。。
0637nobodyさん
2005/04/26(火) 20:13:05ID:???10以下ならもう一度変動させれば？
あと「以下」と「以上」の使い方がおかしい。
10はどっちにも含まれるぞ？
0638nobodyさん
2005/04/26(火) 20:34:12ID:???乱数なのか、ユーザの入力値なのか、1ずつ減るカウンタ用の変数なのか、二次関数みたいな関数の値なのか。
$aaaに10を代入するのは何故いけないの？
$aaaに10を加算するだけでは駄目？
0639nobodyさん
2005/04/26(火) 20:37:06ID:6+zG2+f5ほ、ほんとだすみません、10未満にはならず、10以上の値には変動できる、です。
>もう一度変動させれば？
言われて気付いたんですが・・・、ここで出た結果のみで判断させたいんですorz
if ($aaa >= 10) { !($aaa <= 10) }
これだと10以上ではない、と言うだけですよねｱｰ
0640634
2005/04/26(火) 20:47:57ID:???ええと、説明下手なんですが・・・
＞ユーザーの入力値
はい、そんな感じです。
$aaaは値が１ずつ加算されて、上限（例えば100）で止まる、といった動きをします。
ゲームなどで得点が1ずつ増えていくような・・・
なので、代入や一気に加算する、といった性質の変数ではないです。
0641nobodyさん
2005/04/26(火) 22:12:18ID:???その処理をするには、3つの値(変数)が必要なんですよ。
1. 変動する値 (1ずつ加算される値)
2. 上限値 (100)
3. 保持する値 (上限値に達するまでは1と一致して、それ以降は2と一致)
文章で書くと$aaaと表現するので分かり辛いかも知れないですけど、
1.を比較等の色々の処理をした結果が3.になるわけで、これを1つの変数$aaaで表す事はできません。
0642634
2005/04/26(火) 22:41:02ID:Bt64jE3X詳説、ありがとうございます。目から鱗です。orz
変動する値の$aaaと、上限値$bbb、保持する為の変数が$ccc
$bbb=100;
#ここで$aaaを1ずつ足していく
#で、もし$aaaが10に達したら・・・
if ($aaa >= 10) {
・・・・この先がわかりません・・・
0646638
2005/04/27(水) 02:39:01ID:???比較と代入の理解が滅茶苦茶だな。
<=とか==とか<は比較をするだけで、値を変化させるわけじゃないぞ。
if($aaa > $bbb) $ccc = $bbb;
else $ccc = $aaa;
お前が本当にやりたい処理は
「$aaaが上限値（$bbb）より大きいときは、$aaaを上限値にする」じゃないか？
ちょっと落ち着いて、場合分けして考えてみるといい。
個人的には
if($aaa > $bbb) $aaa = $bbb;
でじゅうぶんな予感もする。
上限値に切り揃える前の点数のデータが不要ならば、の話だけど。
0647638
2005/04/27(水) 02:40:06ID:???>「$aaaが上限値（$bbb）より大きいときは、$aaaを上限値にする」
ちょっと誤解を招く表記だな。
「$aaaが上限値（$bbb）より大きいときは、$aaaを上限値と等しい値にする」
に訂正。
0648nobodyさん
2005/04/27(水) 02:49:37ID:???0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20...
これをどう変動させたいのだ？
0649nobodyさん
2005/04/27(水) 09:44:59ID:???他のところで何やっても10までしか上がらない
ということを希望してるのか?
それだったら、$aaa 専用のクラスを一つ作って、専用の add() メソッドを実装しろ
$aaa 専用に += や ++ 演算子をオーバーロードするのも吉
0650nobodyさん
2005/04/27(水) 11:36:43ID:???0651634
2005/04/27(水) 12:41:57ID:???＞比較と代入の理解が滅茶苦茶
はい、値を変化させるものではないのはわかっているんですが、表現が思いつかず・・・
＞プログラムの一箇所で「この変数の値は絶対を超えません」と宣言すれば
＞他のところで何やっても10までしか上がらない
はい、そんな感じです。
ただ、10までしか上がらないのではなく、10より下には下がらない、というのを希望しています。
add() メソッドは、調べてみたのですがちょっと難しくてわかりませんでした。
折角紹介してくださったのにすみません。
0652634
2005/04/27(水) 12:42:18ID:???余計何したいのかがわかりにくくなってしまいましたよね・・・・orz
下限0から始まって上限100で止まる
0から始まって、ユーザーの入力にあわせて1ずつ加算・減算されていく
（加算と減算は別のところで処理させるつもりでした）
0 1 2 3 4 5 6 7 8 9 10
10まで達したら、
11 12 13 14 15 16 17 18 19 20...
引き続き加算と減算が行われるが、一旦10以上になったら、
それ以降は減算されても値は10未満にはならず、10〜100の間で上下する
こんな動作をさせたいと思っていました・・・
■ このスレッドは過去ログ倉庫に格納されています