PERL使用入门PPT

(3).使用規則: 使用”\”符號宣告參考指標.
$a=\@array; 變數a是 陣列array的參考指標.
$a=\%hash; 變數a是 HASH hash的參考指標.
2019/8/17
T.B. Chen
9
4.實例演練-1:
prirray.\n"; @a=(1,2,3); @b=(4,5,6); @c=(7,8,9);
2019/8/17
T.B. Chen
6
6.檔案I/O與參考指標
1.開啟檔案(讀入): 語法: open FILEHANDLE, “<filename”; EX: open IN, “<test.txt”; 開啟一個以IN為指標的讀入文件檔.
2019/8/17
T.B. Chen
7
2.開啟檔案(寫出):
Using PERL
1.PERL的簡介 2.PERL的資料型態 3.PERL的運算子 4.控制結構與陳述式 5.副程式 6.檔案I/O與參考指標 7.常規表示式
2019/8/17
T.B. Chen
1
1.PERL的簡介
1-1 PERL的起源及特性 1-2 安裝WINDOWS版的PERL 1-3 執行Perl script
my @tmp = split(/\s/, $raw[$i]);
$ref[$i]=\@tmp; #each line is a refence in @ref

}
print "Totl $i lines in the document.\n";
print $ref[0][1];
print "\n";
語法: open FILEHANDLE, “>filename”;
EX: open OUT, “>test.txt”;
開啟一個以OUT為指標的寫出文件檔.
2019/8/17
T.B. Chen
8
3.參考指標:
(1). PERL內建ARRAY只有1維.若需要用2 維以上陣列必需使用”參考指標”.
(2).何謂參考指標? 即:將Array或Hash用Scalar代替.
$num=$#n;
print "Total coma = $num \n";
for ($i = 0 ; $i <= $#raw1 ; $i++) {

my @tmp = split(/,/, $raw1[$i]);

print "@tmp\n";

$ref1[$i]=\@tmp; #each line is a refence in @ref1
2019/8/17
T.B. Chen
2
2.PERL的資料型態
PERL有二種資料型別: 純量(SCALAR)與串列(LIST) 純量: $ : 純量變數 串列: 1.@: 陣列 2.%: hash
2019/8/17
T.B. Chen
3
3.PERL的運算子
1.加(+),減(-),乘(*),除(/)
2.次方(**). $a=$b**6
$a1=\@a;$a2=\@b;$a3=\@c; @d=($a1,$a2,$a3);
#print @d; print $d[0][1];
2019/8/17
T.B. Chen
10
實例演練-2:
print "\nOpen a text file.\n";
open IN, "<data1.txt"; #read a text file
T.B. Chen
4
4.控制結構與陳述式
1.條件陳述式: if ,unless, for, foreach, while, until, do, continue.
2.迴圈控制 next, last, redo,goto
2019/8/17
T.B. Chen
5
5.副程式
1.副程式的宣告 2.副程式的呼叫

}
print "Totl $i lines in the document.\n";
print 'tmp='.@tmp."\n";
print 'ref1[2][0]='.$ref1[2][0]."\n";
print 'ref1[2][1]='.$ref1[2][1]."\n";
print 'ref1[2][2]='.$ref1[2][2]."\n";
3.++,+=,--,
4.logical operator: &&, ||, not,or,xor
5.逗號運算子: , =>
6.位移: >>,<< (只能用於 int 變量.)
7.關連: >,<,<=,>=,==,!= (數字)
gt,lt,le,ge,eq,ne,cmp (文字)
8.餘數: %, 重複:x 2019/8/17
2019/8/17
T.B. Chen
11
實例演練-3
print "Open a Excel CSV file.\n";
open IN1, "<dat3.csv"; #read a Excel file.csv
my @raw1=<IN1>;
#using @raw store data
chomp(@raw1);
print 'ref1[2][3]='.$ref1[2][3]."\n";
print 'ref1[2][4]='.$ref1[2][4]."\n";
print 'ref1[2][4]='.$ref1[2][5]."\n";
2019/8/17
my @raw=<IN>;
#using @raw store data
chomp(@raw);
#skip enter keys
close(IN);
print "@raw \n";
my @ref;
#make 2d array

#'$#' = length of @raw
for ($i = 0 ; $i <= $#raw ; $i++) {
#skip enter keys
close(IN1);
my @ref1;
#make 2d hash

#'$#' = length of @raw
$line1=@raw1[0];
print "The first row=$line1\n";
@n=split(/,/, $line1);