不是我愛寫,是因為腦袋的RAM不夠大,不寫下來馬上就忘了....
# perl trim function - remove leading and trailing whitespace sub trim($) { my $string = shift; $string =~ s/^\s+//; # 去頭 $string =~ s/\s+$//; # 去尾 return $string; }
沒有留言:
張貼留言