1、perl字串中length取串長(字元數量）
#!/usr/bin/perl
$str="abcd99e";
$strlen=length($str);
print $strlen,"\n";
[macg@localhostperltest]$./tip.pl
72、substr串，位置，長度-------取子串，注意從0開始數字置
#!/usr/bin/perl
$str="abcdefg1234567";
$a=substr$str,0,5;
print $a,"\n";
[macg@localhostperltest]$./tip.pl
abcde
$a=substr$str,-4,2;
從倒數第4個開始，取兩個字元
[macg@localhostperltest]$./tip.pl
453、index在字串中找尋某一子字串的起始位置
#!/usr/bin/perl
$str="abcdefg1234567";
$a="12";
$pos=index($str,$a);
print $pos,"\n";
[macg@localhostperltest]$./tip.pl
74、@陣列=split（pattern,串）將perl字串用某模式分成多個單詞
#!/usr/bin/perl
$str="abcdeifg12i34567";
@array=split(//,$str);按空格分
foreach(@array)
[macg@localhostperltest]$./tip.pl
abcdei
fg12i
3456
7@array=split(/+/,$line);當一行中各單詞間的空格多於乙個時
5、空格和tab混雜情況下的split
[macg@localhostperltest]$vitip.pl
#!/usr/bin/perl
$str="abcdeifg12i34567";
@array=split(/\t/,$str);
foreach(@array)
[macg@localhostperltest]$./tip.pl
abcdeifg12i
34567
只分了兩份，為什麼？
因為同時滿足tab和空格的只有一處
所以必須加
@array=split(/[\t]/,$str);現在才是真正的按空格和tab分
[macg@localhostperltest]$./tip.pl
abcdei
fg12i
3456
7但還是有缺陷，tab和空格相連時，tab被認為是空格劃分的子串，或者空格被認為是tab劃分的子串
6、用join定義perl字串陣列格式符號（預設是,）必須與qw()合用
語法：join($string,@array)
@array=qw(onetwothree);
$total="one，two，three";
@array=qw(onetwothree);
$total=join("：",@array);
$total="one：two：three";
陣列內grep
@array=("one","on","in");
$count=grep(/on/,@array);
查詢結果賦值給單變數
@array=("one","on","in");
@result=grep(/on/,@array);
查詢結果賦值給陣列
2one
on
Perl字串基本操作詳解
本文和大家重點討論一下 perl字串的一些基本操作，比如 perl字串陣列元素賦值 tmp qw aaabbbkkk9000 相當於 tmp aaa bbb kkk 9000 至於其他操作請看本文詳細介紹。perl字串操作 perl字串陣列元素賦值 tmp qw aaabbbkkk9000 相當於 ...
perl 字串操作
字串陣列元素賦值 tmp qw aaa bbb kkk 9000 相當於 tmp aaa bbb kkk 9000 字串比較，絕不能用 要用eq macg localhost perltest vi tip.pl usr bin perl print input while chomp input ...
Perl讀寫檔案 字串操作
perl中讀寫檔案的方法非常簡單，可以使用open或sysopen函式來開啟檔案，linux下執行perl指令碼只需 xx.pl 或 perl xx.pl。讀檔案 open 檔案控制代碼,檔名 或者 open 檔案控制代碼,檔名 如 open in,test.txt while close in 寫...