Ngôn ngữ Perl-Chương 04-Cấu trúc điều khiển

Learning Perl - Chương 4: Cấu trúc điều khiển
1. Khối câu lệnh
2. Câu lệnh if/else
3. Câu lệnh while/until
4. Câu lệnh do {} while/until
5. Câu lệnh for
6. Câu lệnh foreach
7. Bài tập
4.1 Khối câu lệnh
Khối câu lệnh là một dãy các câu lệnh, được bao trong cặp dấu ngoặc nhọn ({ và }). Nó trông
tựa như thế này:
{
cau lenh thu nhat;
cau lenh thu hai;
cau lenh thu ba;
...
cau lenh cuoi;
}
Perl thực hiện từng câu lệnh theo trình tự, từ đầu đến cuối. Về mặt cú pháp, một khối các câu
lệnh được chấp nhận ở mọi vị trí của một câu lệnh.
4.2 Câu lệnh if/unless
Độ phức tạp tiếp theo trong các câu lệnh là câu lệnh if. Kết cấu này trông rất giống kết cấu
trong C: một biểu thức điều khiển (được tính theo tính đúng đắn của nó), và hai khối. Nói cách
khác, nó trông tựa như thế này:
if (mot bỉeu thuc nao do) {
cau lenh 1 trong truong hop dung ;
cau lenh 2 trong truong hop dung ;
cau lenh 3 trong truong hop dung ;
...
} else {
cau lenh 1 trong truong hop sai ;

cau lenh 2 trong truong hop sai ;
cau lenh 3 trong truong hop sai ;
...
}
Dấu ngoặc móc { và } ở đây là cần thiết (cho dù bạn chỉ có một lệnh trong phần if hoặc else),
nếu bạn thiếu thì Perl sẽ báo lỗi cú pháp.
Trong khi thực hiện, Perl sẽ tính biểu thức điều khiển. Nếu biểu thức này là đúng thì khối thứ
nhất (các câu lệnh trong trường hợp đúng trên) sẽ được thục hiện. Nếu biểu thức là sai thì khối
thứ hai (các câu lệnh trong trường hợp sai trên) sẽ được thực hiện.
Nhưng đúng sai là như thế nào? Trong Perl, các qui tắc có đôi chút hơi huyền ảo, nhưng chúng
cho bạn kết quả như dự kiến. Biểu thức điều khiển được tính cho một giá trị xâu (nếu nó đã là
xâu, thì chẳng có thay đổi gì, nhưng nếu nó là số thì nó sẽ được chuyển thành xâu). Nếu xâu
này hoặc là xâu rỗng (chiều dài không), hoặc là một xâu có chứa một kí tự "0" (không), thì giá
trị của biểu thức là sai (False). Mọi thứ khác đều được tự động coi như là đúng (True). Tại sao
lại có cái qui tắc buồn cười này vậy? Vì điều ấy làm cho dễ dàng nhẩy theo cái rỗng so với một
xâu khác rỗng, cũng như số không so với số khác không, không cần phải tạo ra hai cách hiểu
về các giá trị đúng và sai. Sau đây là những thí dụ một số cách hiểu về đúng(True) và
sai(False):
0 # chuyển thành “0”, cho nên là sai
1-1 # chuyển thành 0, rồi chuyển thành "0", cho nên là sai
1 # chuyển thành "1", nên là đúng
"" # xâu rỗng, cho nên là sai
"1" # khong phải là "" hay "0", cho nên đúng
"00" # không phải là "" hay "0", cho nên là đúng (chú ý: trường hợp này có huyền ảo)
"0.000" # cũng đúng với cùng lí do (đồng thời bạn sẽ nhận đuợc 1 warning từ Perl)
undef # được xem là "", cho nên sai
Về mặt thực hành mà nói, cách hiểu các giá trị đúng sai thì khá trực giác. Sau đây là một thí dụ
về câu lệnh if đầy đủ:
print "Ban bao nhieu tuoi roi?"
$a = <STDIN>;

chop($a);
if ($a < 18) {
print "Nay, bạn chua du tuoi bau cu dau nhe!\n";
} else {
print "Du tuoi roi! Hay binh than! Vay di bau cu di!\n";
$votes++; # den so phieu
}
Bạn có thể cắt bỏ khối else như trong:
print "Ban bao nhieu tuoi roi?"
$a = <STDIN>;
chop($a);
if ($a < 18) {
print "Nay, bạn chua du tuoi bau cu dau nhe!\n";
}
Đôi khi, bạn muốn bỏ đi phần if mà chỉ có phần else, vì sẽ tự nhiên hơn để nói "hãy làm điều
đó nếu điều này sai" so với "làm điều đó nếu điều không điều này là đúng". Perl giải quyết
điều này với biến thể unless:
print "Ban bao nhieu tuoi roi?"
$a = <STDIN>;
chop($a);
unless ($a < 18) {
print "Du tuoi roi! Hay binh than! Vay di bau cu di!\n";
$votes++; # den so phieu
}
Việc thay thế if bằng unless là có hiệu quả khi nói "Nếu biểu thức điều khiển là không đúng thì
hãy làm..." (một unless cũng có thể có một else, như if).
Nếu bạn có nhiều hơn hai chọn lựa thì bạn có thể thêm một nhánh elsif vào câu lệnh if, giống
như:
if (bieu thuc so 1) {
cau lenh 1 trong truong hop dung 1;

cau lenh 2 trong truong hop dung 1;
cau lenh 3 trong truong hop dung 1;
...
} elsif (bieu thuc so 2) {
cau lenh 1 trong truong hop dung 2;
cau lenh 2 trong truong hop dung 2;
cau lenh 3 trong truong hop dung 2;
...
} elsif (bieu thuc so 3) {
cau lenh 1 trong truong hop dung 3;
cau lenh 2 trong truong hop dung 3;
cau lenh 3 trong truong hop dung 3;
...
} else {
cau lenh 1 trong truong hop sai tat ca;
cau lenh 2 trong truong hop sai tat ca;
cau lenh 3 trong truong hop sai tat ca;
...
}
Mỗi biểu thức (ở đây, bieu thuc so 1, bieu thuc so 2, và bieu thuc so 3) đều được tính lần lượt.
Nếu một biểu thức là đúng thì nhánh tương ứng sẽ được thực hiện, và tất cả phần còn lại của
biểu thức điều khiển cũng các nhánh câu lệnh sẽ bị bỏ qua. Nếu tất cả các biểu thức này đều sai
thì nhánh else sẽ được thực hiện (nếu có). Bạn có thể có nhiều nhánh else-if (elsif) tuỳ ý.
4.3 Câu lệnh while/until
Không một ngôn ngữ thuật toán nào lại hoàn chỉnh mà không có một dạng lặp nào đó (thực
hiện lặp lại một khối các câu lệnh). Perl có thể lặp bằng việc dùng câu lệnh while:
while (bieu thuc) {
cau lenh 1;
cau lenh 2;
cau lenh 3;

...
}
Để thực hiện câu lệnh while này, Perl tính biểu thức điều khiển. Nếu giá trị này là đúng (bằng
việc dùng ý tưởng về cái đúng của câu lệnh if), thì thân của câu lệnh while sẽ được tính một
lần. Điều này được lặp lại cho tới khi biểu thức điều khiển trở thành sai, tại điểm đó Perl
chuyển sang câu lệnh tiếp sau while. Chẳng hạn:
print "Ban bao nhieu tuoi roi?"
$a = <STDIN>;
chop($a);
whileless ($a > 0) {
print "Vao luc nay ban moi $a tuoi.\n";
$a--;
}
Đôi khi nói "hãy làm việc đó trong khi điều này sai" lại dễ hơn là nói "hãy làm việc đó trong
khi không điều này là đúng”. Một lần nữa, Perl lại có câu trả lời. Thay cho while là until, cũng
cho kết quả mong muốn:
until (bieu thuc) {
cau lenh 1;
cau lenh 2;
cau lenh 3;
...
}
Chú ý rằng trong cả hai dạng while và until, các câu lệnh thân sẽ bị bỏ qua hoàn toàn nếu biểu
thức điều khiển là giá trị kết thúc ngay từ lúc bắt đầu. Chẳng hạn, nếu người dùng đưa vào một
độ tuổi bé hơn 0 cho đoạn chương trình trên (chương trình while) thì Perl sẽ bỏ qua thân chu
trình.
Có thể là biểu thức điều khiển sẽ chẳng bao giờ để cho chu trình thoá ra được. Điều này hoàn
toàn hợp pháp, và đôi khi cũng là mong muốn nữa, và do vậy không bị coi như một lỗi. Chẳng
hạn, bạn có thể muốn một chu trình cứ lặp lại mãi chừng nào bạn còn chưa phạm phải lỗi, và
rồi có một đoạn trình giải quyết lỗi đi theo sau chu trình.

4.4 Câu lệnh do {} while/until
Câu lệnh while/until mà bạn vừa thấy ở trên sẽ kiểm tra điều kiện trước khi bắt đầu vào vòng
lặp của chu trình. Nếu như điều kiện sai ngay từ đầu thì phần thân của chu trình sẽ không bao
giờ được thực hiện.
Tuy nhiên thỉnh thoảng bạn không muốn điều kiện được kiểm tra ngay từ đầu. Thay vào đó
bạn muốn kiểm tra điều kiện ở cuối vòng lặp. Để đáp ứng điều này, Perl cung cấp cho bạn câu
lệnh do {} while, nó tương tự như câu lệnh while ở trên nhưng nó chỉ bắt đầu kiểm tra điều
kiện khi vòng lặp được thực hiện ít nhất 1 lần.
do {
cau lenh 1;
cau lenh 2;
cau lenh 3;
...
} while (bieu thuc);
Perl thực hiện các câu lệnh trong phần thân của do. Sau khi câu lệnh cuối cùng kết thúc, Perl sẽ
thực hiện và kiểm tra biểu thức. Nếu như biểu thức là sai, chu trình sẽ kết thúc, nếu là đúng,
chu trình sẽ tiếp tục được thực hiện lại một lần nữa và Perl lại tiếp tục kiểm tra giá trị của biểu
thức.
Tương tự như với while, bạn có thể chuyển do while thành do until. Biểu thức điều kiện vẫn
được kiểm tra ở cuối vòng lặp. Nhưng chu trình sẽ kết thúc nếu như điều kiện là đúng, còn nếu
sai vòng lặp sẽ tiếp tục (nghĩa là ngược với do while).
do {
cau lenh 1;
cau lenh 2;
cau lenh 3;
...
} until (bieu thuc);
4.5 Câu lệnh for
Một kết cấu lặp khác của Perl là câu lệnh for, mà trông giống như câu lệnh for của C, và làm
việc thì đại thể cũng giống thế. Sau đây là nó:

for (bieu thuc khoi dau; bieu thuc kiem tra; bieu thuc tang
bien dem) {
cau lenh 1;
cau lenh 2;
cau lenh 3;
....
}
Gỡ ra theo dạng ta đã thấy trước đây, điều này trở thành
bieu thuc khoi dau;
while (bieu thuc kiem tra) {
cau lenh 1;
cau lenh 2;
cau lenh 3;
....
bieu thuc tang;
}
Trong cả hai trường hợp, biểu thức khởi đầu đều được tính trước. Biểu thức này về điển hình
chỉ gán giá trị ban đầu cho một biến lặp, nhưng cũng chẳng có hạn chế nào về việc nó có thể
chứa cái gì - trong thực tế nó có thể rỗng. Rồi biểu thức kiểm tra sẽ được tính để xác định đúng
sai. Nếu giá trị tính được là đúng thì thân chu trình sẽ được thực hiện, tiếp theo đó là tính biểu
thức tăng (mà điển hình là được dùng để tăng bộ lặp). Perl tiếp đó sẽ tính lại biểu thức kiểm
tra, lặp lại khi còn cần.
Thí dụ này in ra các số từ 1 đến 10, mỗi số đều có sau nó một dấu cách:
for ($i = 1; $i <= 10; $i++)
print "$i ";
}
Ban đầu, biến $i được đặt là 1. Rồi, biến này được so sánh với 10, mà thực sự nó đang bé hơn
hay bằng. Thân của chu trình (mỗi câu lệnh print) được thực hiện, và rồi biểu thức tăng (biểu
thức tự tăng $i++) sẽ được thực hiện, thay đổi giá trị trong $i thành 2. Vì 2 vẫn còn bé hơn hay
bằng 10 nên ta lặp lại tiến trình, cho tới khi lần lặp cuối mà giá trị 10 của $i đổi thành 11. Rồi

11 không còn bé hơn hay bằng 10 nữa, cho nên chu trình thoát (với $i có giá trị 11).
4.6 Câu lệnh foreach
Vẫn còn một kết cấu lặp khác là câu lệnh foreach. Câu lệnh này rất giống như câu lệnh foreach
của C-shell: nó nhận một danh sách các giá trị và mỗi lần lại gán chúng cho một biến vô
hướng, rồi thực hiện một khối mã cùng với việc gán đó. Nó trông tựa như thế này: