Perl/펄] 배열 사이즈/크기 (요소 개수) 구하기, 달러+샤프 기호로; Array Size, Dollar Sharp

#!/usr/bin/perl
use strict; use warnings;

  my @a = ( "AAA", "BBB", "CCC", "DDD" );


  ## 달러+샤프 기호로 배열 요소 개수 출력
  print $#a + 1, "\n";
  ## 출력 결과: 4


  ## 또는 배열을 변수에 대입함으로써, 개수를 구할 수도 있음
  my $num = @a;
  print $num, "\n";
  ## 출력 결과: 4


  ## 배열 @a 를 출력 ($#a 를 사용하여)
  for (my $i = 0; $i <= $#a; $i++) {
    print "\$a[$i] = $a[$i]\n";
  }
=pod
출력 결과:

$a[0] = AAA
$a[1] = BBB
$a[2] = CCC
$a[3] = DDD

=cut




  ###############################################
  ## 디폴트 배열인 @_ 의 경우에는
  ## $#_ 이렇게 표현합니다.

  @_ = qw( 자장면 탕수육 짬뽕 칼국수 쫄면 );

  print $#_ + 1, "\n";
  ## 출력 결과 (배열 크기): 5


  for (my $i = 0; $i <= $#_; $i++) {
    print "\$_[$i] = $_[$i]\n";
  }
=pod
출력 결과:

$_[0] = 자장면
$_[1] = 탕수육
$_[2] = 짬뽕
$_[3] = 칼국수
$_[4] = 쫄면

=cut