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

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