perl ÇÔ¼ö : split ´ë»ó ¹®ÀÚ¿­À» ƯÁ¤ÇÑ ¹®ÀÚ¿­·Î ºÐ¸®ÇÏ¿© ¹è¿­¿¡ ÀúÀå
ÃÑ ÆäÀÌÁö ¼ö : 3224

Àüü ÇÔ¼ö/¿ë¾î»çÀü
Facebook Joinc ±×·ì   Joinc QA »çÀÌÆ®
ÇöÀçÀ§Ä¡ : ¸Þ´º¾ó>20>split



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

±×µ¿¾È split°¡ ÇÔ¼öÀÎÁÙ ¾Ë°í ÀÖ¾ú´Âµ¥, [http]ÇÔ¼ö°¡ ¾Æ´Ñ ¿¬»êÀÚ¿´´Ù°í ÇÑ´Ù. »õ·Î¿î°É ¾Ë¾Ò´Ù.

¼Ò°³

split ÇÔ¼ö´Â ÁÖ¾îÁø ´ë»ó¹®ÀÚ¿­À» ƯÁ¤ÇÑ ¹®ÀÚ¿­À» ÀÌ¿ëÇØ¼­ ºÐ¸®ÇÏ¿© ¹è¿­¿¡ ÀúÀåÇÏ´Â ÀÏÀ» ÇÑ´Ù. ºÐ¸®Çϱâ À§ÇÑ ¹®ÀÚ´Â ´ÜÀÏ ¹®ÀÚÀϼöµµ ÀÖ°í ¹®ÀÚ¿­ ÀÏ ¼öµµ ÀÖ´Ù. ¶ÇÇÑ Á¤±ÔÇ¥ÇöÀ» ÀÌ¿ëÇØ¼­ ºÐ¸®ÇÒ ¼öµµ ÀÖ´Ù.

»ç¿ë¹ý

my $str = "yundream, joinc, 1974"; 
my @data = split(',', $str); 
my ($data1, $data2, $data3) = split(',', $str); 
my ($data1, @data2) = split(',', $str); 
 

¿¹Á¦

URL ºÐ¼®

URL ÁÖ¼Ò¸¦ ºÐ¼®Çؼ­, protocol, Domain À̸§ ±×¸®°í URI Page Á¤º¸¸¦ ¾ò¾î¿À´Â °£´ÜÇÑ ÇÁ·Î±×·¥ÀÌ´Ù. °£´ÜÇÑ Á¤±ÔÇ¥Çö½ÄÀ» ÀÌ¿ëÇß´Ù.
#!/usr/bin/perl 
 
$url = "http://www.joinc.co.kr/wiki.php/mypage"; 
my ($protocol, $domain, @page) = split ":*\/+", $url; 
$uri_page = join "/", @page; 
 
print "Protocol : $protocol\n"; 
print "Domain : $domain\n"; 
print "Page : $uri_page\n"; 
 
Ãâ·Â°á°ú´Â ´ÙÀ½°ú °°´Ù.
Protocol : http 
Domain : www.joinc.co.kr 
Page : wiki.php/mypage 
 

undefined value ¸¦ ÀÌ¿ëÇÑ ¹®ÀÚ¿­ ÀÚ¸£±â

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
my $data = 'hello world\n'; 
my @values = split(undef, $data); 
 
foreach my $val(@values) 
{ 
    print $val,"\n"; 
} 
 
½ÇÇà°á°ú´Â ´ÙÀ½°ú °°´Ù.
h 
e 
l 
l 
o 
 
w 
o 
r 
l 
d 
! 
! 
! 
 
EmailÀ» ±âÀÔÇϸé, ´ñ±ÛÀÌ ¸ÞÀÏ·Î Àü´ÞµË´Ï´Ù.