Perl



"Would you tell me, please, which way I ought to go from here?"
"That depends a good deal on where you want to get to," said the Cat.

Komentar

Posting Komentar

Popular Posts

Cara Meningkatkan Daya Ingat

Para ahli setuju banyak diantara kita dapat memelihara daya ingat saat usia bertambah dan lebih mudah ketika Anda menerapkan teori dalam praktek, itu lebih baik. Sehingga berhentilah mengkuatirkan sesuatu dan cobalah beberapa tips berikut ini untuk mendapatkan daya ingat lebih baik. Olah raga . Kegiatan fisik membuat jantung memompa dan otot bergerak-bahkan hanya dengan jalan kaki sehari-hari akan meningkatkan supply darah dan nutrisi ke otak. Tidur yang cukup . Keletihan akan menggangu informasi yang telah kita simpan, begitu juga kemampuan Anda untuk mempelajari sesuatu yang baru. Tetapi tidur yang cukup di malam hari akan membantu daya ingat Anda berfungsi. Hati-hati dengan suplemen . Banyak klaim dibuat tentang kehebatan vitamin C, E suplemen herbal ginkgo biloba untuk meningkatkan daya ingat, tetapi para ilmuwan tidak dengan suara bulat mengakui khasiat suplemen tersebut. Alih-alih, dapatkan vitamin yang Anda perlukan melalui cara makan yang sehat dan konsultasi ke ahli diet atau ...
Read more »

Satu form dengan beberapa submit

Sudah beberapa hari ini aku cuma di pusingkan masalah form dan preview. Namun sedikit tip dan trik kalo punya satu form dengan beberapa tombol submit adalah sebagai berikut : <script type="text/javascript" src="/tiny/tiny_mce/tiny_mce.js"></script> //--Fungsi untuk send data-- function check_send() { page_form.action = "./send.cgi"; }// --Fungsi untuk preview dengan menampilkan window baru-- function check_preview() { page_form.action = "./preview.cgi"; page_form.target = "_blank"; } //--Editor tinyMCE <!-- tinyMCE.init( { mode : "exact" , elements : "ta" , width : "100%" } ); //--> <form name=page_form method=post> Username <input type="text" name="username"> Password <input type="password" name="password"> <textarea id="ta" name="body"></textarea> <input type="submit" value="Previ...
Read more »

Modul Recursive Directory

Dulu sebelum nemuin modul ini, untuk baca atau pengecekan suatu file yang ada dalam sub-sub direktory aku menggunakan fungsi recursive yang lumayan agak panjang. Tapi untung nya setelah nemuin nih modul, untuk baca file yang ada didalam sub-sub direktory terasa begitu mudah. Berikur contoh scriptnya : #!/usr/bin/perl use strict; #--Modul Recursive Directory-- use File::Find; my($Group, $Text) = @ARGV; my $Spool = "/var/spool"; # or wherever your newsspool lives $| = 1; # so we can see it run find(\&Kibo, "$Spool/$Group"); sub Kibo { -d and print "$_\n"; -f and /^\d+$/ or return; print "$_\r"; open(ARTICLE, $_) or return; my @lines = (); for my $line (@lines) { $line =~ /$Text/o and print $line; } } .."..Blogging : Programing.."..
Read more »