Perl 格式和字串處理） z

學習perl

推薦使用

perl ide

（功能雖然無法和

vs 2005

，eclipse 3.1

那樣功能那樣強大），但是其支援斷點處理功能，已經比直接使用命令列功能強大多了。

其他perl

軟體列表看此推薦：

格式處理

#1.format

format stdout=

@<<<<<<<<@||||||||@>>>>>> @.## @.######

$string1,$string2,$string3,$pi,$pi

.$string1="zhang";

$string2="love";

$string3="chan";

$pi="3.1415926";

write;

＃＃＃＃＃＃＃＃＃＃

$display=1;

if($display)

＃＃＃＃＃＃＃＃

$: ="";

format stdout=

name:^<<<<<<<<<<

$person

***:^<<<

$person

age:^<

$person

.$person="zhangbufengmale23";

write;

＃＃＃＃＃＃＃＃

format standformat_top=

@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

"page $%"

employees

firstnamelastnameidextension

-----------------------------------------

.format standformat=

@<<<<<<<<<<<@<<<<<<<<<<<@<<<<<<@<<<<<

$firstname$lastname$id$extension

.$firstname="

cary

";$lastname="grant";

$id="123";

$extension="x45";

open(filehandle,">>d://perlproject//page.txt") or die("can't open this file");

select filehandle;

$~=standformat;

$^=standformat_top;

$==1;

for($loop=1;$loop<10;$loop++)

perl

字串處理

熟悉其最強大的三個函式：

，

，

！

#

大小寫處理函式

lc**為小寫）

uc**為大寫）

$text="zhangbufeng";

$text2=lc $text;

$text3=uc $text;

print "$text2/n";

print "$text3/n";

#

將第一字母變為小寫（

），將第乙個字母大寫（

）

$string="zhang";

$string2=lcfirst $string;

$string3=ucfirst $string;

print "$string2/n";

print "$string3/n";

＃順序查詢string

位置（index

），逆序查詢string

位置（rindex

）

$string="zhang bu feng zhang bu feng";

$position1=index($string,"bu");

$position2=index($string,"bu",10);

$position3=rindex($string,"zhang");

$position4=rindex($string,"zhang",10);

print "$position1,$position2,$position3,$position4/n";

#

獲取子串函式

，功能非常強大，可以直接支援以乙個字串代替字串的乙個子串。

＃字串處理的

mvp

$text="zhang bufeng

愛chanchan";

$replace_to="愛";

$replace_with="

喜歡";

substr($text,index($text,$replace_to),length($replace_to),$replace_with);

print "$text/n";

#pack

和

函式用於字串的打包和解包，功能非常強大，支援多種打包格式

＃字串處理的

mvp

$decimal=17;

$newdecimal=unpack("b32",pack("n",$decimal));

print "$newdecimal/n";

$string="

張步峰愛中國

";@array1=unpack("c*",$string);

@array2=unpack("c*",$string);

print (join(",",@array1),"/n");

print (join(",",@array2),"/n");

$string1=pack("c*",@array1);

$string2=pack("c*",@array2);

print "$string1/n";

print "$string2/n";

#

列印格式

$value=1234.56789;

print sprintf "%.4f/n",$value;

#

字串比較函式

使用

cmp就好。

$string1="

步峰";

$string2="

步峰";

if($string1 eq $string2)

if($string1 ne $string2)

if( ($string1 cmp $string2)==0)

$string1="zhang";

$string2="chan";

if($string1 lt $string2)

if($string1 gt $string2)

if($string1 le $string2)

if($string1 ge $string2)

#$string="

張步峰愛中國

";@array=split(//,$string);#

這種方法無法將其進行分成"張

","步

","峰

","愛

","中

","國

"等單字

print (join(",",@array),"/n");

#

演示中文字元夾帶英文本元的反序（使用了多個函式）

print "------begin-----/n";

$string1="

中國love!

張步峰";

@array=unpack("c*",$string1);

$length=$#array;#

此陣列的最後乙個下標

for(;$length>=0;)

else

}$string2=pack("c*",@array2);

print "$string2/n";

#

$dir=dir;

print qx/$dir/;

@name=qw/zhang bu feng chan chan/;

print join(",",@name);s

perl 字串處理 1

上網一搜perl，大家都說perl的字串的處理能力很強，最近正在學習perl，我們總結下看看perl有哪些強大的字串處理能力。1，首先其靈活的變數就很方便 var 123 var 的值為123 var he is a good boy var 的內容為 he is agood boy 2，在上面我們...

perl對字串的處理

perl對字串的處理 當我們對字串其中的某部分做截出，替換，刪除 不包括搜尋 我們可以想到的用substr,unpack,regex這些方法來做。如果搜尋，那麼讓我們想到的是index,rindex.1 截出 substr str i m boy,and you?substr str,4,3 boy...

Perl字串處理函式用法集錦

perl字串處理函式 0.函式名 index 呼叫語法position index string,substring,position 解說返回子串substring在字串string中的位置，如果不存在則返回 1。引數position 是可選項，表示匹配之前跳過的字元數，或者說從該位置開始匹配。1...