Mặc dầu bạn có thể nghĩ về số và xâu như những vật rất khác nhau, nhưng Perl dùng chúng gần như là giống nhau, cho nên c húng ta sẽ nghiên c ứu c ả hai. Một giá trị vô hướng c ó thể được tác động bởi các toán tử (giống như phép c ộng hay ghép), và kết quả trả về nói chung | x_xx x_ V HHJ . XJ UL _ _xp x_x _ _ s_xx . xx else print Xin chao ban name n chao thuong thuong print Tu bi mat la gi guess STDIN chop guess while good_word name guess print Sai roi thu lai di. Tu bi mat la gi guess STDIN chop guess ket thuc cua while sub good_word my somename someguess @_ lay cac tham so somename s W. bo moi thu sau tu dau tien somename tr A-Z a-z chuyen thanh chu thuong if somename eq jenny huh Jenny khong doan nua return 1 tra ve True elsif words somename none eq someguess return 1 tra ve True else return 0 tra ve False ket thuc good_word sub init_words open WORDSLIST wordslist while name WORDSLIST chop name word WORDSLIST chop word words name word close WORDSLIST ket thuc init_words Bây giờ nó đã bắt đầu trông giống một chương trình trưởng thành hoàn toàn. Chú ý đến dòng thực hiện được đầu tiên là lời gọi tới init_words . Không có tham số nào được truyền cả cho nên chúng ta được tự do bỏ đi dấu tuy nhiên tôi không khuyên bạn làm điều này . Cũng vậy giá trị trả về tử init_words không được dùng biểu thức nào hết thì cũng là tốt vì ta đã không trả về điều gì đáng kể. Đảm bảo một lượng an toàn nhỏ thôi- nhưng an toàn vẫn hơn Xếp bạn quyết định Danh sách các từ bí mật phải thay đổi ít nhất một lần mỗi tuần . chúng ta không thể buộc danh sách này khác đi nhưng chúng ta có thể ít nhất cũng đưa ra một cảnh báo nếu danh sách từ bí mật còn chưa được thay đổi trong hơn một tuần. Nơi tốt nhất để thực hiện việc kiểm tra là bên trong chương trình con init_words. Toán tử -M cho lại tuổi tính theo ngày từ một tệp hay tước hiệu tệp đã được thay đổi từ lần trước cho nên ta chỉ cần xem liệu giá trị này có lớn hơn 7 hay không đối với tước hiệu tệp WORDSLIST sub init_words open WORDSLIST wordslist if -M WORDSLIST 7 die Rat tiec danh sach tu cu hon 7 ngay roi while name WORDSLIST chon name word WORDSLIST chop word words name word close WORDSLIST Giá trị của -M WORDSLIST được so sánh với 7 và nếu lớn hơn thế thì ta vi phạm điều lệ an toàn rồi Tại đây ta thấy .
