New Post

Saturday, September 15, 2012

open FILE,"etc.txt";

@user=<FILE>;

close(FILE);
open FILE,">>kid-BYG.txt";
foreach (@user){
$_=~/(.*):x:/;
print FILE $1."\n";
}
close(FILE);

Save đoạn code trên kid.pl
Tạo 1 file etc.txt copy những gì lấy dc từ etc/passwd bỏ vào .
Sau đó run : perl kid.pl . sẽ tạo ra 1 file kid-BYG.txt trong đó có danh sách user

0 nhận xét:

Post a Comment