Perl中的chomp函數用于刪除字符串末尾的換行符(\n)或回車符(\r)。
當從文件或用戶輸入中讀取字符串時,通常會包含一個換行符或回車符作為字符串的結尾。但有些情況下,我們希望移除這些結尾符號,以便在處理字符串時不受其影響。
chomp函數會檢查字符串的末尾字符,如果是換行符或回車符,則將其刪除。它會修改原始字符串,并返回刪除結尾符號后的結果。
以下是一個示例:
my $str = "Hello World\n";
chomp($str);
print $str; # 輸出 "Hello World"
在上面的例子中,chomp函數刪除了字符串末尾的換行符,輸出結果為"Hello World"。如果字符串末尾沒有換行符或回車符,則chomp函數不會做任何修改。
在處理用戶輸入或讀取文件時,chomp函數通常與
print "請輸入一個字符串:";
my $input = <STDIN>;
chomp($input);
print "你輸入的字符串是:$input\n";
上面的代碼中,chomp函數用于刪除用戶輸入字符串末尾的換行符。這樣,輸出字符串時就不會出現額外的換行符。