二桁の数字からなる配列数１０個内に00がある場合、

Question

お世話になります。二桁の数字からなる配列数１０個内に00がある場合、十の位と一の位をそれぞれ取り出すようにテスト中なのですが、配列内に00がある場合、十の位と一の位の数字がコピーされてしまうようです。 #!/usr/bin/perl @Array="10<>78<>51<>78<>00<>72<>43<>82<>65<>29<>"; foreach$i(0..$#Array){ @Mtmp=split(/<>/,$Array[$i]); } foreach$i(0..$#Mtmp){ ($M_old_9,$M_old_8,$M_old_7,$M_old_6,$M_old_5,$M_old_4,$M_old_3,$M_old_2,$M_old_1,$M_old_0)=split(/<>/,$Mtmp[$i]); # if($Mtmp[$i] != ''){ $M_n = substr ("$Mtmp[$i]", -2);#■二桁のの数字 $M_t10=$M_n; $M_t1 = substr ("$M_t10", -1 , 1);#■一の位を取り出し chop$M_t10; #■十の位を取り出し $acount++; # } print "No.$i $Mtmp[$i] "; $M_yosou++; $M_old_9=$M_old_8; $M_old_8=$M_old_7; $M_old_7=$M_old_6; $M_old_6=$M_old_5; $M_old_5=$M_old_4; $M_old_4=$M_old_3; $M_old_3=$M_old_2; $M_old_2=$M_old_1; $M_old_1=$M_old_0; $M_old_0=$M_n;#■二桁のの数字 $M_old_n9_10=$M_old_n8_10; $M_old_n8_10=$M_old_n7_10; $M_old_n7_10=$M_old_n6_10; $M_old_n6_10=$M_old_n5_10; $M_old_n5_10=$M_old_n4_10; $M_old_n4_10=$M_old_n3_10; $M_old_n3_10=$M_old_n2_10; $M_old_n2_10=$M_old_n1_10; $M_old_n1_10=$M_old_n0_10; $M_old_n0_10=$M_t10;#■十の位 $M_old_n9_1=$M_old_n8_1; $M_old_n8_1=$M_old_n7_1; $M_old_n7_1=$M_old_n6_1; $M_old_n6_1=$M_old_n5_1; $M_old_n5_1=$M_old_n4_1; $M_old_n4_1=$M_old_n3_1; $M_old_n3_1=$M_old_n2_1; $M_old_n2_1=$M_old_n1_1; $M_old_n1_1=$M_old_n0_1; $M_old_n0_1=$M_t1;#■一の位 } print "\$acount=$acount
\@Mtmp=@Mtmp
\$M_n=$M_n
\$M_t10=$M_t10
\$M_t1=$M_t1
\$M_old_9=$M_old_9
\$M_old_8=$M_old_8
\$M_old_7=$M_old_7
\$M_old_6=$M_old_6
\$M_old_5=$M_old_5
\$M_old_4=$M_old_4
\$M_old_3=$M_old_3
\$M_old_2=$M_old_2
\$M_old_1=$M_old_1
\$M_old_0=$M_old_0
\$M_old_n9_10=$M_old_n9_10
\$M_old_n8_10=$M_old_n8_10
\$M_old_n7_10=$M_old_n7_10
\$M_old_n6_10=$M_old_n6_10
\$M_old_n5_10=$M_old_n5_10
\$M_old_n4_10=$M_old_n4_10
\$M_old_n3_10=$M_old_n3_10
\$M_old_n2_10=$M_old_n2_10
\$M_old_n1_10=$M_old_n1_10
\$M_old_n0_10=$M_old_n0_10
\$M_old_n9_1=$M_old_n9_1
\$M_old_n8_1=$M_old_n8_1
\$M_old_n7_1=$M_old_n7_1
\$M_old_n6_1=$M_old_n6_1
\$M_old_n5_1=$M_old_n5_1
\$M_old_n4_1=$M_old_n4_1
\$M_old_n3_1=$M_old_n3_1
\$M_old_n2_1=$M_old_n2_1
\$M_old_n1_1=$M_old_n1_1
\$M_old_n0_1=$M_old_n0_1

"; __END__; 上記の実行結果は # perl test3.cgi No.0 10 No.1 78 No.2 51 No.3 78 No.4 00 No.5 72 No.6 43 No.7 82 No.8 65 No.9 29 $acount=10
@Mtmp=10 78 51 78 00 72 43 82 65 29
$M_n=29
$M_t10=2
$M_t1=9
$M_old_9=
$M_old_8=
$M_old_7=
$M_old_6=
$M_old_5=
$M_old_4=
$M_old_3=
$M_old_2=
$M_old_1=
$M_old_0=29
$M_old_n9_10=1
$M_old_n8_10=7
$M_old_n7_10=5
$M_old_n6_10=7
$M_old_n5_10=0
$M_old_n4_10=7
$M_old_n3_10=4
$M_old_n2_10=8
$M_old_n1_10=6
$M_old_n0_10=2
$M_old_n9_1=0
$M_old_n8_1=8
$M_old_n7_1=1
$M_old_n6_1=8
$M_old_n5_1=0
$M_old_n4_1=2
$M_old_n3_1=3
$M_old_n2_1=2
$M_old_n1_1=5
$M_old_n0_1=9

なのですが、上記の00を取り出した部分がなぜか十の位と一の位どちらもコピーされてしまいます。これはなぜこのような症状がおきるのでしょうか。また00の際も十の位と一の位それぞれ0を取り出すにはどのようにすれば宜しいでしょうか。２．下記の $M_old_9= ... $M_old_0= の所が二桁の数字が順次展開されないのは何故なのでしょうか。お忙しいかとは存じますが、よろしくお願い致します。

sakusaker7 · Accepted Answer

何で配列を使わずに妙な番号のついた通常の変数を山盛り使ってるんでしょうか。とりあえず下二桁を逆順に出していると言うことで #!/usr/bin/perl # -*- coding: utf8 -* use strict; use warnings; use Fatal qw(:void open close); use feature ':5.10'; #use utf8; #use Encode qw/from_to decode encode/; while (my $line = ) { chomp $line; my @array = split /<>/, $line; my $itemcount = 0; foreach my $item (@array) { say "No. $itemcount $item"; $itemcount++; } say "\$itemcount=$itemcount"; my $outstring1; my $outstring2; my $outstring3; foreach my $item (reverse @array) { $outstring1 .= "
$item "; my $d1 = chop $item; my $d10 = chop $item; $itemcount--; $outstring2 .= "
M_${itemcount}_10=$d10 "; $outstring3 .= "
M_${itemcount}_1=$d1 "; } say $outstring1; say $outstring2; say $outstring3; } __END__ 10<>78<>51<>78<>00<>72<>43<>82<>65<>29<> No. 0 10 No. 1 78 No. 2 51 No. 3 78 No. 4 00 No. 5 72 No. 6 43 No. 7 82 No. 8 65 No. 9 29 $itemcount=10
29
65
82
43
72
00
78
51
78
10
M_9_10=2
M_8_10=6
M_7_10=8
M_6_10=4
M_5_10=7
M_4_10=0
M_3_10=7
M_2_10=5
M_1_10=7
M_0_10=1
M_9_1=9
M_8_1=5
M_7_1=2
M_6_1=3
M_5_1=2
M_4_1=0
M_3_1=8
M_2_1=1
M_1_1=8
M_0_1=0 あんまり短く書いてもわけわからないでしょうからとりあえずこんなところで。

pick52 · Answer

まず、変数の名前の法則が分かりません。

$M_old_9=10
$M_old_8=78
$M_old_7=51
$M_old_6=78
$M_old_5=78
$M_old_4=72
$M_old_3=43
$M_old_2=82
$M_old_1=65
$M_old_0=29

$M_old_n の n の部分は逆順ですか?
(<>で分割した一番最後の要素が $M_old_0 で一番最初の要素は
$#Mtmp に相当する?)

foreach(reverse(split(/<>/, $Mtmp[$i]))) {
push(@M_old, $_);
}

for(my $j = $#M_old; $j >= 0; $j--) {
print "\$M_old[$j] = $M_old[$j]\n";
}

こんな感じ?

$M_old_n9_10=1
$M_old_n8_10=7
$M_old_n7_10=5
$M_old_n6_10=7
$M_old_n5_10=7
$M_old_n4_10=7
$M_old_n3_10=4
$M_old_n2_10=8
$M_old_n1_10=6
$M_old_n0_10=2
$M_old_n9_1=0
$M_old_n8_1=8
$M_old_n7_1=1
$M_old_n6_1=8
$M_old_n5_1=8
$M_old_n4_1=2
$M_old_n3_1=3
$M_old_n2_1=2
$M_old_n1_1=5
$M_old_n0_1=9

ここがもっとよく分からない状態です。

$M_old_ni_n

の i と n はどういう法則ですか。

あと、条件文の

if($Mtmp[$i] != ''){

は間違っています。
文字列の比較演算子はPerlでは

if($Mtmp[$i] ne ''){

としないといけません。
(数値と文字列の比較演算子は別です)
他にも何カ所か記述を間違えているみたいですのでこのままでは
何をしたいのかよく分かりません。

pick52 · Answer

あ、ANo1の補足。

@Array="10<>78<>51<>78<>00<>72<>43<>82<>65<>29<>";

は

$Array[0]="10<>78<>51<>78<>00<>72<>43<>82<>65<>29<>";

ですよね。

foreach$i(0..$#Array){
@Mtmp=split(/<>/,$Array[$i]);
}

こうすると @Mtmp の中身は

@Mtmp = (10, 78, 51, 78, '00', 72, 43, 82, 65, 29, '');

となります。
この時点で

($M_old_9,$M_old_8,$M_old_7,$M_old_6,$M_old_5,$M_old_4,$M_old_3,$M_old_2,$M_old_1,$M_old_0)=split(/<>/,$Mtmp[$i]);

これは意味がないですよね。
(そもそも、上記のループ内で上書きしているので実際に配列数が
複数ある場合最後しか取得できません)

他にもなんかだ訳が分からない状態ですので再度見直してみてください。

pick52 · Answer

なんか、どうなって欲しいのかが分からないのでその理想の結果を書いていただけませんか。 @Array="10<>78<>51<>78<>00<>72<>43<>82<>65<>29<>"; これは配列でない(これでは配列にする意味がない)のですが実際にはちゃんと複数入れているのでしょうか。なんか上のコードは無駄が多すぎるような気がします。ループとか使ってもう少し簡略化できませんか。

二桁の数字からなる配列数１０個内に00がある場合、

何で配列を使わずに妙な番号のついた通常の変数を山盛り使ってるんでしょうか。

この回答への補足

まず、変数の名前の法則が分かりません。

この回答への補足

あ、ANo1の補足。

この回答への補足

なんか、どうなって欲しいのかが分からないのでその理想の結果を

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング