mkdir( dirname, permissions);
Tạo ra thư mục mới với tên dirname, thư mục này có thông số permissions để xác định quyền truy nhập giống như trong hàm chmod.
Bảng sau đây liệt kê một số giá trị permissions cho thư mục
Giá trị Permission
0400 Cho phép đọc đối với người sở hữu tệp 0200 Cho phép ghi đối với người sở hữu tệp 0100 Cho phép thực thi đối với người sở hữu tệp 0040 Cho phép đọc đối với nhóm người sở hữu tệp 0020 Cho phép ghi đối với nhóm người sở hữu tệp 0010 Cho phép thực thi đối với nhóm người sở hữu tệp 0004 Cho phép đọc đối với tất cả mọi người
0002 Cho phép ghi đối với tất cả mọi người 0001 Cho phép thực thi đối với tất cả mọi người
chdir (dirname);
Đặt thư mục làm việc mặc định là dirname. opendir (dirvar, dirname);
Mở thư mục dirname để có thể đọc các tệp hay thư mục con trong đó. closedir (dirvar);
Đóng thư mục. readdir (dirvar);
Trả lại giá trị là tên thư mục hay tệp trong thư mục có biến dirvar đã được mở. Tương tự như hàm
read đối với tệp. telldir (dirvar);
Giống như hàm tell của tệp. Cho biết thư mục hiện tại. seekdir(dirvar, location);
Giống như hàm seek của tệp. Di chuyển đến thư mục chỉ định. rmdir (dirname);
Xoá thư mục.
CHƯƠNG VI: XÂU VÀ XỬ LÝ VĂN BẢN TRONG PERL
Mục đích ban đầu của Larry Wall là tạo ra Perl để hỗ trợ việc xử lý văn bản Vì thế Perl là một ngôn ngữ cực mạnh trong việc xử lý Text. Chương này sẽ tập trung minh hoạ rõ sức mạnh của Perl với các thao tác xử lý xâu và văn bản, điều mà ta phải khá vất vả khi thực hiện bằng ngôn ngữ C
Để thấy ngay lập tức đặc tính nổi bật này của Perl, ta hãy xét các thao tác sau:
Giả sử chúng ta có file ls.txt. File này là 1 file text chứa cơ sở dữ liệu từ bài báo cáo “British Educational”. Để in ra màn hình toàn bộ nội dung file trên, đơn giản chỉ cần gõ lệnh DOS sau: C:\>perl -ne "print" ls.txt | more
Bây giờ ta lại muốn in ra tất cả các dòng có từ style, thì gõ lệnh sau:
C:\>perl -ne "print if /style/" ls.txt
Các phần cụ thể dưới đây sẽ giới thiệu chi tiết các hàm xử lý xâu và văn bản của Perl.
Trước tiên chúng ta làm quen với 1 thuật ngữ Pattern(dịch tiếng Việt là Khuôn mẫu). Đó là một dãy kí tự liên tiếp dùng để tìm kiếm trong xâu. Trong Perl một khuôn mẫu được bao quanh bởi hai kí tự vạch chéo :
/abc/
1. Toán tử đối sánh
Perl định nghĩa một toán tử đặc biệt để kiểm tra có hay không khuôn mẫu riêng biệt nằm trong xâu. Toán tử =~ kiểm tra có hay không khuôn mẫu phù hợp vả trả về một trong các giá trị sau :
Khác 0, hay đúng nếu tìm thấy khuôn mẫu trong xâu. 0, hay sai nếu không tìm thấy khuôn mẫu.
Ví dụ
$kq = $xau =~ /abc/;
$kq sẽ nhận giá trị khác 0 nếu tìm thấy trong $xau có đoạn xâu abc, ngược lại nếu không tìm thấy $kq
nhận giá trị 0.
Toán tử !~ ngược lại với toán tử =~, sẽ trả lại giá trị 0 nấu tìm thấy khuôn mẫu, khác 0 nếu không tìm thấy khuôn mẫu.
Nếu tìm thấy ta có hàm pos(st) chỉ ra vị trí của khuôn mẫu được đối sánh trong xâu.
while ($st =~ /i/g) { $vitri = pos($st);
print("Tim thay o vi tri $vỉti\n"); }