Perl 펄] 한 글자씩 문자열 처리, 1글자씩 접근/억세스; String, One Char at a Time

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


  # 문자열 정의
  my $s = "My Apple";


  #############################################
  ## 한 글자씩 화면에 출력, 정규식으로 분해하여
  #
  my @array = split(//, $s); # 우선, 문자열을 배열로 변환

  for (my $i = 0; $i <= $#array; $i++) {
    printf("[%s] ", $array[$i]);
  }
  # 출력 결과: [M] [y] [ ] [A] [p] [p] [l] [e]



  print "\n\n"; # 편의상 줄바꿈



  #############################################
  ## 한 글자씩 화면에 출력; unpack 으로 분리하여
  #
  @array = unpack "C*", $s; # 우선, 문자열을 배열로 변환

  for (my $i = 0; $i <= $#array; $i++) {
    print chr($array[$i]), "\n";
  }


=pod
출력 결과:

M
y

A
p
p
l
e

=cut