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

One thought on “Contoh Program Deteksi Info Hardware – PERL (Linux)

Mari Berdiskusi Bersama

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s