Google
    
<< TOPページ 掲示板TOP 記事データ お知らせメール ▼レス(2) >>

Perl : 配列の個数がうまく展開されない書き方

 ( メビウスリング日記 )
- アクセス(132) - いいね!(1)

あうら☆マスター ★管理者


my @array = (,,,,);

なんていう書き方だと、Perlがエラー ( syntax error ) を出してくれます。


しかし配列先の頭が定義されていると、エラーを吐かずに実行されるようです。

my @array = ("Number1",,,,,"Number2");

と書くと、Number1 と Number2 の間は無視されます。
配列の個数としても認識されません。

──────────────────────────────

#!/usr/bin/perl

use strict;

# 配列を定義
my @array = ("Number1",,,,,"Number2",,,,"Number3",,,,,undef,,,,,,);

# HTML用
print "Content-type:text/plain\n\n";

# 配列を展開
foreach(@array){
print "array [ $_ ] is here.\n";
}

# 実行結果を表示
my $array_num = @array;
print "and array num is $array_num .\n";

exit;

──────────────────────────────

実行結果:

array [ Number1 ] is here.
array [ Number2 ] is here.
array [ Number3 ] is here.
array [ ] is here.
and array num is 4 .

──────────────────────────────


ちなみに上記の例にもあるとおり、 undef は配列の要素として認識されるようです。

6年前 No.0
ページ: 1


 
 

ゆーりえ@夕張メロン@az0913 ★IcA6AKkVyT_sH0

削除されたら、相手の方はどうなるんですか?

ペナルティとして3日くらいかきこめないんですか?

6年前 No.1

ブルーマニア@aotomizu ★AU=TFfSDwKh1C

こっちは言ってることはわかりましたが、何のことかはわからなかった(ぁ

それと日記とは関係ありませんが、メビアドの方の更新もお疲れ様です!

6年前 No.2
ページ: 1

 
 
<< TOPページ 掲示板TOP 記事データ お知らせメール ▲ページ上 >>
★必ず ローカルルールメビウスリングのルール をご覧ください。
 ▼スタンプ▲スタンプ
※スタンプはいちどに 3個 まで使えます  ×閉じる