Notice
Recent Posts
Recent Comments
준호씨의 블로그
perl - string trim, ltrim, rtrim 본문
반응형
perl 에서는 기본함수로 trim 함수를 제공하고 있지 않아서 좀 아쉽습니다.
정규 표현식을 이용하여 만든 trim, ltrim, rtrim 함수 입니다.
sub trim {
my $s = shift;
$s =~ s/^\s+|\s+$//g;
return $s;
};
sub ltrim {
my $s = shift;
$s =~ s/^\s+//;
return $s;
};
sub rtrim {
my $s = shift;
$s =~ s/\s+$//;
return $s;
};
다음은 사용예제 입니다.
my $some_str = " hello world ";
print "===$some_str===\n"; # === hello world ===
my $trimmed_str = trim($some_str);
print "===$trimmed_str===\n"; # ===hello world===
my $ltrimmed_str = ltrim($some_str);
print "===$ltrimmed_str===\n"; # ===hello world ===
my $rtrimmed_str = rtrim($some_str);
print "===$rtrimmed_str===\n"; # === hello world===
반응형
'개발이야기' 카테고리의 다른 글
Apache Tomcat 버전과 Servlet 버전 (0) | 2019.08.20 |
---|---|
OSX - brew install mariadb 설치 했는데 발생하는 여러 오류들. Access denied for user 'root'@'localhost' (3) | 2019.08.19 |
ansible 로 hiredis 라이브러리 설치 하기 (0) | 2019.08.05 |
IntelliJ tomcat 라이브러리 설정하기. tomcat-dbcp 추가하기 (0) | 2019.08.02 |
Kotlin In Action 책을 읽자 (0) | 2019.07.13 |
Comments