perl中chomp的使用介紹(chop和chomp函數(shù)區(qū)別)
例子:
#!/bin/perl
print "Please input an string and a number by order!\n";
$the_string=<>;
$the_numb=<>;
print "The result is \n";
print "$the_string"x"$the_numb";
結(jié)果:
The result is
my
my
my
my
my
這里的問題便是沒有使用chomp引起的。
來看加入chomp的情況:
#!/bin/perl
print "Please input an string and a number by order!\n";
chomp($the_string=<>);
chomp($the_numb=<>);
print "The result is \n";
print "$the_string"x"$the_numb";
結(jié)果:
The result is
mymymymymy
如果字符串結(jié)尾有換行符,chomp 可以去掉它。這基本上就是它能完成的所有功能,如下例:
$text = “a line of text/n”; #也可以由<STDIN>輸入
chomp($text); #去掉換行符(/n)。
它非常有用,基本上你的每一個(gè)程序都會(huì)用到它。如你將知道,這是將字符串末尾換行符去掉的最好方法?;赑erl 中的一條基本原則:在需要使用變量的地方,可以使用賦值表達(dá)式來代替。我們有更簡單的使用chomp 的方法。Perl 首先做賦值運(yùn)算,再使用這個(gè)變量。因此使用chomp 的最常用方法是:
chomp ($text = <STDIN>); #讀入,但不含換行符
$text = <STDIN>;
chomp ($text); #同上,但用兩步完成
第一眼見到時(shí),第一種組合的方法看起來復(fù)雜些。如果把上述其看成兩步操作,讀一行再chomp,那寫成兩個(gè)語句的方法
看起來自然些。如果將其看作一個(gè)操作,讀入一行但不包括換行符,那寫成一個(gè)語句的方法更恰當(dāng)。由于絕大多數(shù)Perl 程序員使用第一種寫法,你也應(yīng)該使用它。
chomp 是一個(gè)函數(shù)。作為一個(gè)函數(shù),它有一個(gè)返回值,為移除的字符的個(gè)數(shù)。這個(gè)數(shù)字基本上沒什么用:
$food = <STDIN>;
$betty = chomp $food; #得到值1
如上,在使用chomp 時(shí),可以使用或不使用括號(hào)()。這又是Perl 中的一條通用規(guī)則:除非移除它們時(shí)含義會(huì)變,否則括號(hào)是可以省略的。
如果結(jié)尾有兩個(gè)或兩個(gè)以上的換行符,chomp 僅去掉一個(gè)。如果沒有,那什么也不做,返回0。
chop和chomp函數(shù)區(qū)別
chop函數(shù)負(fù)責(zé)刪除標(biāo)量型標(biāo)量的最后一個(gè)字符或數(shù)組中每個(gè)元素的最后一個(gè)字符,并返回修改后的值。chop一般用于刪除程序接收到的輸入行末尾的換行符,這些輸入行可以來自STDIN、文件或者命令置換結(jié)果。
chomp函數(shù),負(fù)責(zé)刪除標(biāo)量型變量中的最后一個(gè)字符,或者數(shù)組中每個(gè)字的最后一個(gè)字符,并保證只有該行末字符是換行符時(shí)才進(jìn)行刪除操作。它會(huì)返回刪除后的字符數(shù)目。使用chomp函數(shù)來代替chop,能避免刪除換行符之外的其它字符。
例1:chop
#!/usr/bin/perl
$v = 'Flowers';
$r = chop($v);
print "$v (without $r)\n";
運(yùn)行結(jié)果
[root@localhost per]# ./1-16.pl
Flower (without s)
例2:chomp
#!/usr/bin/perl
print "User name: ";
$name = < STDIN >;
chomp $name;
print "Your user name is : $name\n";
運(yùn)行結(jié)果
[root@localhost per]# ./1-18.pl
User name: Bill
Your user name is : Bill
相關(guān)文章
perl 調(diào)試命令的相關(guān)知識(shí)小結(jié)
有關(guān) perl 調(diào)試命令的相關(guān)知識(shí),有需要的朋友可以參考下2013-02-02perl子程序的運(yùn)用及子程序中變量私有(my)聲明的重要性
perl中的my可以來定義私有變量,可以在很多情況下防止錯(cuò)誤的發(fā)生2013-02-02Perl中的控制結(jié)構(gòu)學(xué)習(xí)筆記
這篇文章主要介紹了Perl中的控制結(jié)構(gòu)學(xué)習(xí)筆記,本文講解了條件判斷、循環(huán)語句、單行條件等內(nèi)容,需要的朋友可以參考下2015-02-02Perl的Mail::POP3Client模塊和Gmail通信實(shí)例
這篇文章主要介紹了Perl的Mail::POP3Client模塊和Gmail通信實(shí)例,本文直接給出實(shí)現(xiàn)代碼,需要的朋友可以參考下2015-05-05Perl使用nginx FastCGI環(huán)境做WEB開發(fā)實(shí)例
這篇文章主要介紹了Perl使用nginx FastCGI環(huán)境做WEB開發(fā)實(shí)例,實(shí)現(xiàn)了路由系統(tǒng)和模板系統(tǒng),需要的朋友可以參考下2014-06-06perl實(shí)現(xiàn)檢測(cè)服務(wù)器中的服務(wù)是否正常腳本分享
這篇文章主要介紹了perl實(shí)現(xiàn)檢測(cè)服務(wù)器中的服務(wù)是否正常腳本分享,本文腳本用于檢測(cè)Linux服務(wù)器的服務(wù)是否正常,需要的朋友可以參考下2014-10-10