perl array
ÃÑ ÆäÀÌÁö ¼ö : 3224

Àüü ÇÔ¼ö/¿ë¾î»çÀü
Facebook Joinc ±×·ì   Joinc QA »çÀÌÆ®



joinc´Â Firefox¿Í chrome¿¡¼­ Å×½ºÆ® Çß½À´Ï´Ù. IE¿¡¼­´Â Å×À̺íÀÌ ±úÁö°Å³ª À̹ÌÁö°¡ º¸ÀÌÁö ¾ÊÀ» ¼ö ÀÖ½À´Ï´Ù. ƯÈ÷ ±¸±Û DocsÀ̹ÌÁöÀÇ °æ¿ì ¿¢¹Úó¸®µÉ ¼ö ÀÖ½À´Ï´Ù.

perl ¹è¿­

perlÀÇ ¹è¿­Àº º¯¼ö¸í¾Õ¿¡ '$' ´ë½Å '@'¸¦ ºÙ¿©¼­ ¼±¾ðÇÑ´Ù.
#!/usr/bin/perl 
 
@city=("seoul", "pusan", "kwang-ju"); 
 
print "@city"; 
print @city; 
 
print ÇÒ¶§ ½Öµû¿òÇ¥¸¦ ºÙ¿©ÁÖ¸é °¢ ¿ø¼ÒµéÀÌ °ø¹é¹®ÀÚ·Î ±¸ºÐÀÌ µÈ´Ù. ±×·¸Áö ¾ÊÀ»°æ¿ì ±¸ºÐÀÌ µÇÁö ¾Ê´Â´Ù. ¹è¿­ÀÇ ³»¿ëÀ» °£´ÜÈ÷ È®ÀÎÇϱâ À§ÇÑ ¸ñÀûÀ̶ó¸é ½Öµû¿òÇ¥¸¦ ºÙ¿©¼­ Ãâ·ÂÇÏ´Â°Ô ÁÁÀ» °ÍÀÌ´Ù.

÷ÀÚ¸¦ ÀÌ¿ëÇÑ Á¢±Ù

´Ù¸¥ ´ëºÎºÐÀÇ ¾ð¾îµé°ú ¸¶Âù°¡Áö·Î perl ¿ª½Ã ÷ÀÚ¸¦ ÀÌ¿ëÇØ¼­ ¹è¿­¿ø¼Ò¿¡ Á¢±ÙÇÒ ¼ö ÀÖµµ·Ï Çϰí ÀÖ´Ù. ÷ÀÚ´Â 0ºÎÅÍ ½ÃÀÛÇÑ´Ù.
#!/usr/bin/perl 
 
@city=("seoul", "pusan", "kwang-ju"); 
 
print "city 0 :",$city[0],"\n"; 
print "city 1 :",$city[1],"\n"; 
print "city 2 :",$city[2],"\n"; 
 
ÀϹÝÀûÀ¸·Î ÷ÀÚ´Â ¾çÀÇÁ¤¼ö¸¦ °¡ÁöÁöÁö¸¸ À½ÀÇÁ¤¼ö¸¦ °¡Áú ¼ö ÀÖ´Ù. ÷ÀÚ°¡ À½ÀÇ Á¤¼öÀϰæ¿ì ±âÁØÀ§Ä¡´Â ¹è¿­ÀÇ ¸¶Áö¸·ÀÌ µÈ´Ù. ´Ü 0ÀÌ ¾Æ´Ñ -1 ºÎÅÍ ½ÃÀÛÇÑ´Ù. ¾à°£ Çê°¥¸®±ä ÇÏÁö¸¸ -0 À̶ó´Â ¼ýÀÚ´Â ¾ø±â ¶§¹®ÀÌ´Ù.
print $city[-1],"\n"; # kwang-ju 
 

qw ¼­ºê·çƾÀÇ È°¿ë

¹è¿­ÀÇ ¿ø¼Ò´Â ,¿Í "¸¦ »ç¿ëÇØ¼­ ±¸ºÐÇØ¼­ ÀÔ·ÂÇÑ´Ù. qw¼­ºê·çƾÀº °ø¹é¹®ÀÚ¸¦ ±âÁØÀ¸·Î ¹è¿­À» ¸¸µé¾îÁØ´Ù. qw¸¦ ÀÌ¿ëÇϸé Á»´õ °£´ÜÇÏ°Ô ¹è¿­À» »ý¼ºÇÒ ¼ö ÀÖ´Ù.
@city=qw(seoul pusan kwang-ju); 
 

¿¬¼ÓµÈ ¼ýÀÚ¸¦ ¹è¿­¿¡ ³Ö±â

´Ù¸¥¾ð¾î¿¡¼­ ¿¬¼ÓµÈ ¼ýÀÚ¸¦ ¹è¿­¿¡ Áý¾î ³ÖÀ»·Á¸é ·çÇÁ¸¦ µ¹¸®´Â ¹ø°Å·Î¿î °úÁ¤À» °ÅÃÄ¾ß ÇÑ´Ù. perlÀº ´ÙÀ½°ú °°ÀÌ °£´ÜÇÏ°Ô ¿¬¼ÓµÈ ¼ýÀÚ¸¦ ¹è¿­¿¡ ´ãÀ» ¼ö ÀÖ´Ù.
@10=(1...10); 
@100=(1...100); 
@200=(100...200); 
@a_z=(a...z); 
 

¹è¿­ÀÇ Å©±â ¾Ë¾Æ³»±â

scalar() ÇÔ¼ö¸¦ ÀÌ¿ëÇϰųª ¹è¿­À» scalar º¯¼ö¿¡ ÀçÁ¤ÀÇ ÇÏ´Â °ÍÀ¸·Î ¹è¿­ÀÇ Å©±â¸¦ ¾Ë¾Æ³¾ ¼ö ÀÖ´Ù.
@a_z=(a...z); 
print scalar(@a_z),"\n"; 
$size=@a_z; 
print $size,"\n"; 
 

¹è¿­¿ø¼Ò Ãß°¡¹× Á¦°Å

´ë°ÔÀÇ Ãֽžð¾îµéÀÌ ±×·¸µíÀÌ °£´ÜÇÏ°Ô ¹è¿­¿ä¼Ò¸¦ Á¦¾îÇÒ ¼ö ÀÖ´Â ÇÔ¼öµéÀ» Á¦°øÇÑ´Ù.
  • push() - ¹è¿­ ¸¶Áö¸·¿¡ ¿ø¼Ò Ãß°¡.
  • unshift() - ¹è¿­ óÀ½¿¡ ¿ø¼Ò Ãß°¡.
  • pop() - ¹è¿­ÀÇ ¸¶Áö¸· ¿ø¼Ò Á¦°Å.
  • shift() - ¹è¿­ÀÇ Ã³À½¿ø¼Ò Á¦°Å.
#!/usr/bin/perl 
 
# DEFINE AN ARRAY 
@a_z = (a...z); 
 
#push 
push(@a_z, 0...9); 
print "@a_z\n"; 
 
#pop 
pop(@a_z); 
print "@a_z\n"; 
 
# shift 
shift(@a_z); 
print "@a_z\n"; 
 
# unshift 
unshift(@a_z, a); 
print "@a_z\n"; 
 
EmailÀ» ±âÀÔÇϸé, ´ñ±ÛÀÌ ¸ÞÀÏ·Î Àü´ÞµË´Ï´Ù.