Contoh Program Deteksi Info Hardware – PERL (Linux)

Selamat siang semua 🙂
Kali ini saya ingin share mengenai bagaimana kita membuat program yang bisa menampilkan properties / detil singkat dari hardware PC/Noteboook kita, dan program ini dibuat menggunakan Bahasa Pemrograman PERL.
Contoh program ini saya gunakan di Ubuntu. Ini merupakan salah satu jawaban dari Soal Praktikum Sistem Operasi saya :mrgreen:

Source codenya adalah sebagai berikut :

$q = "y";
while($q=="y"){
print "\n++++++++++ Program Identifikasi Hardware ++++++++++\n";
print "1). LAN CARD\n";
print "2). DVD/CD RW\n";
print "3). PROCESSOR\n";
print "4). MOTHERBOARD\n";
print "5). HARDDISK\n";
print "6). CHIPSET\n";
print "7). AUDIO\n";
print "Pilih no ? ";
$pilihan = <STDIN>;
if($pilihan==1){
print "LAN CARD : ";
system("lspci | grep \"Ethernet controller:\" | cut -c 30-98");
}elsif($pilihan==2){
print "DVD/CD RW : ";
system("cat /proc/sys/dev/cdrom/info | sed ':a;N;$!ba;s/\n/ /g' | cut -c 1-60");
}elsif($pilihan==3){
print "PROCESSOR : ";
system("lshw -short -class processor | sed ':a;N;$!ba;s/\n/ /g' | cut -c 163-200");
}elsif($pilihan==4){
print "MOTHERBOARD : ";
system("dmidecode --type 2 | sed ':a;N;$!ba;s/\n/ /g;s/ / /' | cut -c 97-140 | sed 's/\t/ /'");
}elsif($pilihan==5){
print "HARDDISK : ";
system("lshw -short -class disk | sed ':a;N;$!ba;s/\n/ /g' | cut -c 163-200");
}elsif($pilihan==6){
print "CHIPSET : ";
system("dmidecode --type 2 | sed ':a;N;$!ba;s/\n/ /g;s/ / /' | cut -c 100-140 | sed 's/\t/ /'");
}elsif($pilihan==7){
print "AUDIO : ";
system("lspci | grep Audio | cut -c 23-90");
}else{
print "Apakah Anda mau mengulang ? (y/n) ";
$q = <STDIN>;
print "\n";
}
}

Mohon maaf jika coding nya agak aneh, maklum masih newbie di PERL 😀
Semoga bermanfaat