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