perlで文字を2文字ずつに区切るには以下の様に配列に入れると思うのですが、
なぜか02というものを含むときにうまくいきません。
$str = "010286FP";
@array = $str =~ /.{2}/g;
foreach (@array) {
print "$_<br>";
}
結果->
01
0
2
86
FP
となり、なぜか02が0と2で分割されてしまってます。
これは何が原因として考えられるでしょうか?
追記:
確かにこのままコピペすると正常に動作します。
実は$strはフォームのcheckboxで受け取った数字なのですが、その値を分割するとこうなります。
フォームの部分の受け取りがおかしいのでしょうか?
▼HTML
<input type="checkbox" name="data" value="01">01
<input type="checkbox" name="data" value="02">02
<input type="checkbox" name="data" value="86">86
<input type="checkbox" name="data" value="FP">FP
▼perl
&decode;
$str = $in{'data'};
@array = $str =~ /.{2}/g;
foreach (@array) {
print "$_<br>";
}
sub decode {
local($key,$val);
&ReadParse; while (($key,$val) = each %in) { if ($key !~ /^upfile/) { &jcode'convert(*val, 'sjis'); $val =~ s/<>/<>/g; $val =~ s/&/&/g; $val =~ s/"/"/g; $val =~ s/</</g; $val =~ s/>/>/g; } $in{$key} = $val; }
}
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/01/27 19:34