레이블이 array인 게시물을 표시합니다. 모든 게시물 표시
레이블이 array인 게시물을 표시합니다. 모든 게시물 표시

2008년 4월 3일 목요일

array concat 를 사용하다...array를 결합

<script type="text/javascript">

var arr = new Array(3);
arr[0] = "Jani";
arr[1] = "Tove";
arr[2] = "Hege";

var arr2 = new Array(3);
arr2[0] = "John";
arr2[1] = "Andy";
arr2[2] = "Wendy";

document.write(arr.concat(arr2));

</script>

json에서 사용한다면
var objJson = new object();
objJson.list = [1,2,3,4];

라고 하면 아래와 같은 구조로 만들어 질 것 같다.
objJson = { list:[1,2,3] } 이라고 가정하고

objJson.list.concat( arr2 ) 정도이면 될까?

여러개의 언어를 동시에 사용하다 보니..헛갈리네. 나참 다들 비슷해서리..

Array에 관한 테스트라고나 할까?

json을 준비 중..

<script language=javascript>
var a = new Array();
var b = new Object();
b.name = 'haha';

var c = new Object();
c.name = 'hoho';

a[0] = b;
a.push(c);

document.write( a[1].name );

</script>

test


push도 있고 slice도 있고 다 있구만, 내가 그전에도 이런걸 사용했었나?

2006년 12월 21일 목요일

Array of Hash of Array 흠...왜 이딴게 이리 아무 생각 없이 된다지..제길..

@trans_corp = (
  {
      name         => "daehan",
      confirm_url  => "vvv",
      fail_url        => "bbb",
      status        =>  0,
      confirm_str  => "택배사원집화|택배사원입고|타점발송",
      fail_str        => "검색된 결과값이 없습니다",
      userlist       => ["a","b"],
  },
  );
 
  printf "검증 시작\n";


for $href ( @trans_corp ) {
   while ( ($key, $value) = each %$href ) {
     
     if ( $key eq "userlist" )
     {        
         for $i ( 0 .. $#{ $value } ) {
              print "        $i = $href->{userlist}[$i] \n";
          }
      }
        else
        {
         print "$key=$value \n";
         }
    }
   
}

2006년 12월 8일 금요일

[tutorial] Array관련

1. Array 의 length를 알아 낼때
#!/usr/bin/perl

print "content-type: text/html \n\n"; #HTTP HEADER

@nums = (1 .. 20);
@alpha = ("a" .. "z");

# SCALAR FUNCTION
print scalar(@nums)."<br />";
print scalar(@alpha)."<br />";

# REDEFINE TO SCALAR
$nums = @nums;
$alpha = @alpha;

print "$nums<br />";
print "$alpha<br />";
print "There are $numofnums numerical elements<br />";
print "There are ".scalar(@alpha)." letters in the alphabet!";

#---------결과
20
26
20
26
There are 20 numerical elements
There are 26 letters in the alphabet!

2. Array에서 추가 삭제
#!/usr/bin/perl

print "content-type: text/html \n\n"; #HTTP HEADER

# AN ARRAY
@coins = ("Quarter","Dime","Nickel");

# ADD ELEMENTS
push(@coins, "Penny");
print "@coins";
print "<br />";
unshift(@coins, "Dollar");
print "@coins";

# REMOVE ELEMENTS
pop(@coins);
print "<br />";
print "@coins";
shift(@coins);
print "<br />";

# BACK TO HOW IT WAS
print "@coins";


3. 같은 값을 제거