perl

perl trim

sub trim {
    my($string)=$_[0];
    if(exists $_[1]){$reg=$_[1];}else{$reg='\s';}
    for ($string) {
        s/^$reg+//;
        s/$reg+$//;
    }
    return $string;
}
 
# Example trim($text);
# Example trim($text,"\|");
VN:D [1.9.22_1171]
Rating: 10.0/10 (1 vote cast)
VN:D [1.9.22_1171]
Rating: +1 (from 1 vote)

Login

Рубрики

Праздники

Армейские праздники

Счетчики

Яндекс.Метрика