my $str = "yundream, joinc, 1974"; my @data = split(',', $str); my ($data1, $data2, $data3) = split(',', $str); my ($data1, @data2) = split(',', $str);
#!/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
#!/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 ! ! !
Copyrights © - Joinc, All Rights Reserved. Inherited From - Yundream Rebranded By - Joonphil
소개
사용법
my $str = "yundream, joinc, 1974"; my @data = split(',', $str); my ($data1, $data2, $data3) = split(',', $str); my ($data1, @data2) = split(',', $str);예제
URL 분석
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"; }Recent Posts
Archive Posts
Tags