Program Management file dan direktori Menggunakan Bahasa Pemrograman Perl

Menggunakan Bahasa Pemrograman Perl #!/usr/local/perl $ulang='y'; while ($ulang == 'y') { print "=======Program Manajemen Directory=======\n"; print "1. Membuat File\n"; print "2. Membuat Directory\n"; print "3. Mengubah hak akses dengan metode huruf\n"; print "4. Mengubah hak akses dengan metode angka\n"; print "5. Exit\n"; print "Pilih no (1-5): "; $pilihan = ; if($pilihan==1){ print "Masukan nama file yang dibuat : "; $file = ; $a="touch $file"; system($a); } if($pilihan==2){ print "Masukan nama direktori yang dibuat : "; $directory =; $b ="mkdir $directory"; system($b); } if($pilihan==3){ print "Masukkan nama file yang akan dirubah hak aksesnya : "; $file1 = ; $c = "chmod u-w,g-r $file1"; system($c); } if($pilihan==4){ print "Masukkan nama file yang akan diubah hak aksesnya : "; $file2=; $d = "chmod 770 $file2"; system($d); } if($pilihan==5){ $e = "exit"; system($e); } print "Apakah Anda Ingin Mengulang (y/t) ? "; $ulang=; if($ulang=='t'){ system(exit); } }