split 사용법

그동안 split가 함수인줄 알고 있었는데, 함수가 아닌 연산자였다고 한다. 새로운걸 알았다. 

소개

split 함수는 주어진 대상문자열을 특정한 문자열을 이용해서 분리하여 배열에 저장하는 일을 한다. 분리하기 위한 문자는 단일 문자일수도 있고 문자열 일 수도 있다. 또한 정규표현(:12)을 이용해서 분리할 수도 있다.

사용법

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
!
!
!