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 :

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
$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";
}
}
$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"; } }
$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

One thought on β€œContoh Program Deteksi Info Hardware – PERL (Linux)”

Leave a Reply