Mengkaji ilmu duniawi daripada Al-Quran

Seorang Muslim (orang yang menganut Islam) diwajibkan untuk mengenali dan menghayati makna ayat-ayat Al-Quran, serta mengambil petunjuk daripada mukjizat yang diturunkan kepada junjungan besar Nabi Muhammad S.A.W. Ini kerana Al-Quran bukan saja diturunkan sebagai panduan (wahyu) daripada Allah S.W.T. kepada baginda, tetapi ia juga merupakan kepada petunjuk / panduan kepada seluruh umat Nabi Muhammad S.A.W. 

Maka sebagai sebuah kitab ilmu dan petunjuk daripada yang Maha Agung, Al-Quran semestinya mengandungi pelbagai ilmu, hikmah dan pengajaran yang bernilai kepada kehidupan manusia. Ilmu di dalamnya bukanlah semata-mata untuk alam akhirat, bahkan ilmu Al-Quran mencakupi kepentingan duniawi dan ukhrawi (akhirat) kerana hidup manusia memerlukan bimbingan dalam kedua-dua aspek.

Pengkajian Al-Quran bukanlah sesuatu yang baharu. Selain penulis, ramai lagi pengkaji termasuk yang bukan Islam, yang begitu ghairah membongkar rahsia Al-Quran. Namun perlu diperingatkan bahawa, dalam kita mengambil petunjuk daripada Al-Quran, beberapa prinsip harus ditekuni dan diamalkan bagi mengelakkan kita 'tersalah' dalam mempelajari ilmu daripada Al-Quran, yang dapat diringkaskan seperti berikut:

• Kita tidak boleh mentafsir sesuatu ayat dalam Al-Quran sewenang-wenangnya, apatah lagi jika hanya berdasarkan terjemahan ayatnya. Terjemahan ayat tidak sama dengan tafsiran ayat. Para pentafsir Al-Quran memerlukan ilmu agama yang mendalam, yang turut mencakupi ilmu hadis, bahasa Arab, sejarah Islam dsb. Oleh itu sebagai orang yang baru mendalami Al-Quran (termasuk penulis), jika berdasarkan terjemahan, kita cuma boleh mengamalkan apa yang jelas dinyatakan oleh ayat-ayat Al-Quran, atau berpandukan kitab tafsir Al-Quran (ayat Al-Quran yang disertakan dengan tafsiran oleh ahli tafsir), atau bersandarkan penjelasan guru yang mursyid (yang faham dan boleh mentafsir dengan baik).
• Mengelakkan fahaman Bucaillisme (Maurice Bucaille ialah doktor perubatan Perancis yang menulis tentang sains dan ayat-ayat Al-Quran, dan mendakwa kenyataan yang wujud dalam Al-Quran adalah benar secara saintifik sedangkan Bible pula sebaliknya [wiki]). Al-Quran adalah kitab suci agung yang diwahyukan oleh Allah S.W.T. kepada Nabi Muhammad S.A.W. Semua Muslim wajib mengimani bahawa ayat Al-Quran adalah benar dan mengandungi petunjuk daripada Allah. Al-Quran adalah ilmu hakikat (benar secara mutlak, meskipun belum mampu dibuktikan secara saintifik), sedangkan teori sains semasa boleh dibuktikan silap dan sentiasa diperbaiki. Sains adalah ilmu semasa yang relatif kepada pengetahuan semasa manusia. Justeru walaupun teori-teori sains menunjukkan 'bukti' kebenaran Al-Quran, secara tersiratnya fahaman Bucaillisme ini merendahkan taraf Al-Quran. Jadi dengan mengiyakan fahaman Maurice Bucaille, kita sebenarnya mengiyakan bahawa satu hari nanti ayat Al-Quran mungkin perlu diperbaiki jika dibuktikan 'silap'! (na'uzubillah). Malangnya fahaman Bucaillisme semakin banyak dianut oleh umat Islam kerana 'keindahannya' yang kononnya 'membuktikan' kebenaran Al-Quran. Hajat penulis ialah memperbaiki keadaan ini dengan membawakan pendekatan yang lebih wajar iaitu mencedok sebanyak mungkin maklumat daripada Al-Quran yang boleh diamalkan atau ditekuni untuk kehidupan duniawi (iaitu diterapkan sebagai falsafah keilmuan, termasuk sains atau kajian alam semesta) tanpa menghadkan ilmu daripada Al-Quran itu.

Tulisan ini BUKAN bertujuan membincangkan ilmu agama yang mendalam yang terkandung dalam Al-Quran, apatah lagi mentafsirkan ayat-ayat daripada Al-Quran. Penulis bukanlah seorang ulama yang mahir dalam hal-hal keagamaan. Tetapi sebagai seorang Muslim, penulis cenderung untuk membincangkan perkara-perkara dan khazanah penting yang dinyatakan SECARA JELAS dalam Al-Quran yang BOLEH DIAMBIL SEBAGAI PETUNJUK kepada memantapkan 'ilmu duniawi' (atau secara khususnya dipanggil 'sains' oleh kalangan masyarakat).

Secara khusus, penulisan ini bertujuan membincangkan satu perkara yang telah lama ditekuni oleh penulis. Sepanjang penulis mengenali (iaitu berdikit-dikit membaca, menghafal dan cuba memahami maksud ayat) Al-Quran, penulis tertarik kepada satu perkara yang banyak disebut dalam Al-Quran iaitu berkenaan dengan 'mencerap dan memerhati kejadian alam semesta'. Walaupun telah lama tertarik dengan maklumat ini, penulis masih gagal mencari cara bagaimanakah untuk mengatakan bahawa maklumat ini penting, kerana hal ini merupakan kenyataan umum dan mungkin tidak menarik minat golongan yang lebih dipengaruhi pemikiran saintifik Barat. Bahkan penulis juga sering gagal mengaitkan bagaimana fakta 'umum' ini boleh membantu dalam memperkembangkan bidang ilmu (sains) di kalangan umat Islam. (Antara contoh 'gesaan' mencerap alam: Surah Al-Baqarah - 2:26 (apakah contoh perumpamaan yang lebih kecil dari nyamuk?), 2:118 (apakah tanda-tanda yang dijelaskan oleh Allah S.W.T.?), 2:164 (pelbagai tanda kekuasaan Allah), di samping contoh-contoh lain).

Falsafah sains Barat (pendeknya dikenali sebagai 'sains'. Hakikatnya ia adalah sains yang dipengaruhi nilai dan pandangan masyarakat Barat, spt fahaman materialisitik, kapitalis, sekular dll.) amnya menekankan pendekatan saintifik. Walaupun pelbagai falsafah mendasari sains Barat, pendekatan saintifik yang sedia ada amnya dipengaruhi oleh falsafah realisme saintifik, yang menekankan bahawa suatu ilmu (fakta) mestilah berdasarkan benda yang nyata, iaitu dibuktikan berdasarkan eksperimen. Dengan kata lain, jika suatu teori gagal dibuktikan secara empirikal atau hasil eksperimen yang boleh diukur, ia bukanlah fakta yang saintifik. 

Namun tanpa penulis sedari (sehinggalah terhasilnya penulisan ini), hakikatnya terdapat satu hal lain yang jelas didokong oleh pendekatan saintifik Barat iaitu ilmu saintifik (falsafah realisme saintifik) diperolehi melalui pencerapan alam! Richard Feynmann, seorang ahli fizik terkenal Amerika berketurunan Yahudi, yang juga pemenang anugerah Nobel, berpendirian bahawa sesuatu 'kebenaran' dalam sains hanya boleh diterima jika ianya dibuktikan melalui eksperimen. Dalam satu kuliahnya, beliau mengatakan bahawa eksperimen itu mesti bermula dengan pencerapan alam, kemudian diuji dengan eksperimen dan barulah menerbitkan suatu ilmu atau fakta. Kemudian beberapa ahli sains terkenal Barat juga berpendirian bahawa sesuatu penyelidikan atau aktiviti kajian saintifik itu pada dasarnya dimulakan dengan mencerap alam sekeliling. Bahkan cara ini telah mendorong ramai ahli sains Barat yang terkenal untuk muncul dengan idea-idea dan konsep penyelidikan yang bernas yang diwarisi oleh penyelidik sains masakini!

Nah, jika dilihat daripada saranan Al-Quran (perintah Allah S.W.T.) yang menyuruh umat manusia memerhati alam sekitar sebagai amalan menggalakkan kita berfikir, bukankah konsep yang sama diterapkan sebagai asas dalam penyelidikan saintifik? Bahkan ada kalangan ahli sains yang lebih artistik yang percaya bahawa idea penyelidikan sains juga mendapat manfaat daripada peristiwa dalam mimpi atau ilham secara tak sengaja. Tetapi ironisnya, pendokong falsafah sains Barat, bahkan termasuk yang beragama Islam, tetap berpendirian sesuatu fakta saintifik hanyalah berdasarkan bukti nyata dan empirikal, sementara sumber lain tidak saintifik dan bukan ilmu/fakta! 

Pada dasarnya, konsep ilmu saintifik yang kononnya begitu hebat (hingga 'mewajarkan' manusia berfahaman sekular dan ateis menolak agama) sebenarnya mengamalkan satu konsep yang telah terkandung dan disarankan dalam Al-Quran. Maka di sini dapat dilihat satu kepentingan Al-Quran iaitu sebagai sumber rujukan yang boleh diaplikasi kepada ilmu semasa. Namun penulis berpendirian bahawa, nilai dalam konsep 'mencerap alam' yang dinyatakan dalam Al-Quran tidak sama dengan konsep 'mencerap alam' yang dianuti oleh penyelidik berfahaman sains Barat. Ini kerana matlamat mencerap pengkaji dan penyelidik sains Barat ialah untuk mendapatkan ilmu, idea, bahan dll bagi melakukan eksperimen dan jika dapat, menghasilkan ilmu baharu yang boleh dimanfaatkan untuk kehidupan manusia. Sedangkan Allah S.W.T. menyuruh manusia mencerap dan memerhatikan alam bukan hanya untuk kegunaan duniawi. Bahkan ia sebagai salah satu kaedah untuk kita mengenal Tuhan, dan melihat tanda kebesaran serta keagungan Allah S.W.T. Justeru nilai 'mencerap alam' itu melangkaui nilai dalam budaya saintifik Barat (iaitu yang hanya bermatlamatkan apa yang mereka dapat lihat semata-mata, tanpa berlandaskan ilmu wahyu).

Sebagai rumusan kepada penulisan ini (penulis berpendapat tidak ada kesimpulan kepada memahami 'konsep mencerap alam' ini kerana ianya akan berterusan, insya'Allah), ilmu sains semasa sebenarnya boleh turut dikembangkan dengan mencedok dan menghayati ilmu yang disampaikan dalam Al-Quran ul-Karim. Salah satunya ialah dengan memahami konsep 'mencerap alam' yang diajarkan dalam Al-Quran yang menyuruh manusia mencerap dan berfikir (termasuklah memikirkan ilmu akhirat, dan kebenaran ayat-ayat Al-Quran itu). Konsep ini nyata lebih syumul (universal) berbanding konsep 'mencerap' yang menjadi teras falsafah sains Barat. Maka ini memberikan kita alasan bahawa Al-Quran itu lebih releven dengan ilmu semasa. Hari ini kita dapat lihat ilmu 'mencerap alam' oleh sains Barat telah berjaya mengubah lanskap dan kehidupan manusia. Justeru bayangkanlah jika kita dapat merungkai falsafah 'mencerap alam' daripada Al-Quran yang lebih syumul, tidak mustahil hasil penyelidikan dan keilmuan pada hari ini akan jauh lebih baik pada masa akan datang.

(Sekadar muqadimah. Wallahua'lam. Sebarang komen, pendapat mahupun kritikan terhadap penulisan ini sangat dialukan.)

Masalah menggunakan Perl sebaris dlm Windows

Penggunaan Perl sebaris (one-liner) dalam Windows amnya tidaklah rumit atau bermasalah. Tetapi ada masanya masalah tertentu akan timbul disebabkan peraturan-peraturan tertentu dalam prom arahan (command-prompt) Windows.

Contohnya, baru-baru ini saya terjumpa satu kaedah yang mencadangkan penggunaan pemboleh ubah persekitaran (environment variable) dalam Perl sebaris. Bagusnya kaedah ini ialah jika Perl sebaris kita terlalu panjang (untuk kod satu baris) tetapi kerap digunakan, kita boleh mengurangkan kerja menaip (andaikan kita tidak mahu guna fail batch). Contohnya bagi Perl sebaris berikut,

perl -ne  "print if /^[+-]?([0-9]+[.]?[0-9]*|[.][0-9]+)([eE][+-]?[0-9]+)?$/" file.txt

bukan saja hendak menulis, bahkan hendak menghafalnya pun sudah rumit. Maka kita boleh gunakan pemboleh ubah persekitaran. Arahan berikut membentuk satu pemboleh ubah baru bernama format_nombor :

set format_nombor="^[+-]?([0-9]+[.]?[0-9]*|[.][0-9]+)([eE][+-]?[0-9]+)?$"

(dwi-quot diperlukan kerana jika tidak ada, arahan SET tidak berjaya. Tapi masalah lain pula timbul, dan dibincangkan di bawah) Jadi sepatutnya saya boleh gunakan interpolasi nilai pemboleh ubah ke dalam arahan Perl sebaris seperti berikut, sekaligus memudahkan penulisan arahan Perl sebaris,

perl -ne  "print if /%format_nombor%/" file.txt

Malangnya ini tidak berjaya kerana Windows merungut dengan mesej berikut,

'[.][0-9]+)' is not recognized as an internal or external command, operable program or batch file.

Apa masalahnya? Masalahnya ialah hasil interpolasi tidak seperti yang dijangka! Lihat hasil di bawah ini:

perl -ne  "print if /"^[+-]?([0-9]+[.]?[0-9]*|[.][0-9]+)([eE][+-]?[0-9]+)?$"/" file.txt

Perhatikan sepasang dwi-quot yang terhasil dalam dwi-quot. Jadi Perl sebaris yang terhasil tidak sah! 

Masalah ini sebenarnya berpunca daripada nilai dalam %format_nombor% yang sudahpun mempunyai dwi-quot (boleh dilihat dengan arahan SET %format_nombor%). Maka bila diinterpolasi, dwi-quot itu akan turut serta sebagai sebahagian nilai pemboleh ubah. 

Untuk menyelesaikan masalah ini, dwi-quot itu perlu dibuang daripada nilai %format_nombor%. Hal ini mulanya memeningkan kerana dalam arahan SET dwi-quot itu diperlukan. Setelah puas mencari, rupa-rupanya arahan SET dengan dwi-quot itu boleh ditulis dengan cara lain. Caranya ialah seperti di bawah ini (kedudukan dwi-quot bermula sebelum nama pemboleh ubah, dan bukan setakat merangkumi nilai),

set "format_nombor=^[+-]?([0-9]+[.]?[0-9]*|[.][0-9]+)([eE][+-]?[0-9]+)?$"

Selepas menggunakan cara ini, dwi-quot sudah tidak ada dalam nilai %format_nombor% (boleh dipaparkan menggunakan arahan SET %format_nombor%). Maka apabila diinterpolasi sudah tidak ada masalah.

perl -ne  "print if /%format_nombor%/" file.txt

Maka setelah berjaya menemui kaedah ini, penggunaan Perl sebaris yang agak panjang dapat dipermudahkan.

Habis cerita.

---

Notakaki: 

1. Kod Perl sebaris itu sebenarnya berfungsi mencari nombor-nombor yang sah (mengikut standard IEEE) dalam setiap baris fail input (fail.txt). Setiap nombor yang sah akan dipaparkan. Nombor hanya dikesan jika terdapat satu nombor dalam setiap baris.
2. Untuk membuang pemboleh ubah yang kita isytiharkan, gunakan arahan SET tanpa nilai, seperti berikut,

set format_nombor=

3. Selain kaedah di atas, pemboleh ubah persekitaran bagi Windows sebenarnya boleh dibentuk/disunting melalui antaramuka GUI (klik kanan pada ikon My Computer->Properties. Cari tab Environment variables dan tambah pemboleh ubah dengan nilai yang diperlukan)

Menggunakan ekspresi regular dengan Perl

Kali ini saya ingin memperkatakan tentang satu lagi kelebihan bahasa pengaturcaraan Perl iaitu penggunaan ekspresi regularnya.

Ekspresi regular (regular expression) ialah notasi yang digunakan bagi menyatakan suatu corak atau susunan am aksara atau simbol. Misalnya 'yunus' untuk perkataan 'yunus', '\d+' menyatakan corak am suatu nombor ('\d' mewakili 1 digit, '\d+' mewakili 1 atau lebih digit). Asasnya ekspresi regular sangat berguna untuk proses mencari segolongan teks tertentu dalam suatu teks spt. mengesan kehadiran perkataan 'perl' dalam teks 'bahasa pengaturcaraan perl' (secara teknikalnya disebut mencari sub-rentetan dalam suatu rentetan), atau menentusahkan format tertentu bagi suatu teks (seperti format matawang, tarikh dll).

Perl menggunakan notasi yang dikenali sebagai PCRE (Perl-compatible regular expression), iaitu notasi ekspresi regular dengan simbol-simbol khas yang diperkenalkan dalam bahasa Perl. Sesetengahnya diterapkan oleh bahasa-bahasa pengaturcaraan lain. Amnya notasi ini memadankan aksara dengan aksara. Maknanya notasi 'Yunus' akan sepadan dengan teks 'Yunus'. Selain itu terdapat juga meta-aksara seperti '.', '*', '+', '[...]' dsb. Misalnya jika kita ingin mencari suatu teks yang hanya mengandungi digit-digit, kita boleh menggunakan ekspresi regular '\d+'; atau memadankan teks berformat tarikh dengan corak am '\d\d\/\d\d\/\d{4}'.

Berikut adalah sebahagian notasi PCRE dan maksudnya (untuk maklumat lanjut boleh rujuk tutorial PerlRE),

• a-z = mewakili set huruf/simbol 'a' hingga 'z'
• \d =  mewakili digit antara 0 hingga 9
• \d+ = mewakili 1 atau lebih digit
• . = 'dot', mewakili semua aksara
• .+ = mewakili 1 atau lebih jujukan aksara selain daripada aksara penamat baris (newline)

dll.

Perl menyediakan kemudahan (dalam bentuk operator) yang membolehkan pengatur cara menggunakan ekspresi regular dalam atur cara. Operator-operator yang boleh digunakan ialah seperti berikut:

• m/corak/ - m(atch) ialah operator yang digunakan bagi memadankan (mencari) corak dalam suatu rentetan. Misalnya,

if ($teks =~ m/foo/) {
    # buat sesuatu jika corak 'foo' dijumpai dalam $teks
}

• s/corak/ganti/ - s(ubstitute) ialah operator yang digunakan bagi mencari padanan corak dan menggantikannya dengan teks gantian. Misalnya aturcara berikut akan mengubah $teks yang mengandungi rentetan 'fooyo' kepada 'ayoyo':

$teks = 'fooyo';
$teks =~ s/foo/ayo/;  # 'ayoyo'

• tr/setA/setB/ - tr(ansliterate) ialah operator yang digunakan bagi memadankan susunan 'setA' dan menggantikannya dengan 'setB'. SetA dan setB mestilah jujukan huruf atau simbol. Misalnya aturcara berikut akan mengubah $teks yang mengandungi rentetan 'contoh' kepada 'CONTOH':

$teks =~ tr/a-z/A-Z/;

Aturcara berikut akan mengubah $teks yang mengubah rentetan 'contoh' kepada suatu 'teks sulit' (encrypted text) dan 'menyahkod'nya semula kepada bentuk asal:

$teks = 'contoh';
$teks =~ tr/a-z/zyxwvutsrqponmlkjihgfedcba/;  # 'xlmgls'
$teks =~ tr/zyxwvutsrqponmlkjihgfedcba/a-z/;  # 'contoh'

Selain operator ekspresi regular, ekspresi regular juga turut/boleh digunakan pada fungsi atau operator tertentu dalam Perl, misalnya operator grep { } dan split ().

Penggunaan dan kepentingan ekspresi regular sangat luas kerana ianya masih lagi dimaju dan dipertingkatkan. Begitu juga dengan aplikasinya dalam pengaturcaraan Perl mahupun bahasa pengaturcaraan yang lain. Sebagai pengatur cara, menguasai ekspresi regular dan keupayaan menggunakannya dalam Perl mungkin dapat memberi kita kelebihan atau sekurang-kurangnya memudahkan tugas pengaturcaraan.

Bahasa Pengaturcaraan Perl

Perl (Practical Extraction and Reporting Language) ialah bahasa pengaturcaraan terjemahan. Bahasa pengaturcaraan amnya ada dua jenis - yang terkompil (misalnya C, Java dll) dan yang diterjemah (Perl, Python dll). Bahasa terkompil dan bahasa terjemahan kedua-duanya melalui proses penterjemahan (bahasa pengaturcaraan kepada bahasa mesin) sebelum boleh dilaksanakan. Bezanya ialah dari segi proses pelaksanaan program.

Semua atur cara bahasa terkompil akan dikompil kepada fail berbentuk program. Maka proses mengkompil hanya perlu berlaku sekali sahaja kerana pengkompil tidak diperlukan untuk melaksanakan program. Manakala bahasa diterjemah akan sentiasa berada dalam bentuk skrip (kod sumber atau bahasa pengaturcaraan). Setiap kali hendak dilaksakanan, ia perlu diterjemah dan dilaksanakan oleh pengkompil (penterjemah). Maka atur cara bahasa terjemahan hanya boleh dilaksanakan dengan kehadiran pengkompil. (Atur cara bahasa terjemahan biasanya dipanggil skrip.)

Perl boleh digunakan bagi tujuan memformat dan memproses data berbentuk teks. Misalnya fail HTML (muka sesawang) boleh diformat semula ke dalam bentuk teks biasa dengan cara mengekstrak kandungan data teksnya dan mencetak semula data tersebut ke dalam fail teks tanpa HTML. Perl juga boleh digunakan bagi memuat turun kandungan pangkalan data dan mencetak laporan, membina laman sesawang (Common Gateway Interface atau CGI), mengurus tadbir pelayan, dan membina antaramuka grafik (GUI) sesebuah aplikasi.

Berikut adalah contoh skrip Perl yang mudah, iaitu untuk mencari dan menyenaraikan kedudukan nama 'Mohd Yunus' yang terkandung dalam sebuah fail teks 'dokumen.txt' ('Mohd' dan 'Yunus' mesti berada dalam baris yang sama):

use strict;

my $kata = 'Mohd Yunus';        # perkataan yang dicari
my $infile = "dokumen.txt";     # nama fail input.

open(INFILE, "<$infile") or
   die("Fail input '$infile' tidak dapat dibaca. $!");

while($_ = <INFILE>) {
    if(/$kata/) {
        print "'$kata' dikesan pada baris $.\n";
    }
}
close INFILE;

Contoh 1

Pengaturcaraan Perl agak sukar bagi pengatur cara yang baru mempelajarinya. Namun jika sudah biasa, Perl sebenarnya mudah digunakan dan ada masanya sangat berguna. Ia juga (i) bahasa yang sangat fleksibel, (ii) cukup mantap untuk melakukan tugas pemprosesan yang kompleks (walaupun Perl bukan pilihan untuk program masa-nyata.), (iii) menjadi pilihan kepada pentadbir sistem dan pembangun aplikasi sesawang, (iv) mendapat sokongan peminat atur cara sumber terbuka (open-source) dan (v) mempunyai sumber pustaka yang besar dan komprehensif (CPAN.org). Namun Perl lebih dikenali kerana mula-mula memperkenalkan operator ekspresi regular (regular expression) dalam bahasa atur cara, sehinggakan notasi standard Perl-compatible regular expression sering dijadikan rujukan oleh pengkompil dan enjin-enjin ekspresi regular yang terkemudian daripadanya.

Bagi yang ingin menggunakan Perl, boleh muat turun penterjemah Perl daripada Perl.org. Penterjemah diperlukan untuk melaksana skrip Perl. Pastikan penterjemah yang dimuat turun sesuai dengan sistem pengoperasian yang anda gunakan. Bagi pengguna sistem pengoperasian Linux dan Unix, tidak perlu pasang lagi kerana Perl sudah disediakan.

Ada dua kaedah melaksanakan skrip Perl (selain digunakan sebagai aplikasi CGI). Kaedah pertama ialah dengan membina skrip Perl dalam bentuk fail (yang diberi sambungan *.pl atau *.plx). Kemudian melaksanakan program penterjemah Perl dengan fail skrip sebagai parameter. Misalnya skrip berikut ditulis dalam fail skrip 'hello.pl',

print ("Hello dari Perl\n");

Skrip ini boleh dilaksanakan dengan menggunakan arahan berikut pada prom arahan (contoh berikut untuk prom sistem Windows),

c:\perl hello.pl

yang akan menghasilkan output berikut:

Hello dari Perl

Kaedah kedua ialah dengan menggunakan Perl sebaris (one-liner). Pelaksanaan Perl sebaris tidak memerlukan kita membina fail skrip kerana boleh dilaksanakan terus pada prom arahan. Skrip di atas boleh dilaksanakan terus pada prom arahan seperti berikut (dengan penanda pilihan -e),

perl -e "print (\"Hello dari Perl\n\")"

yang memberikan output yang sama. Perl sebaris hanya digunakan bagi atur cara yang ringkas. Namun ada juga atur cara Perl yang nampak seolah kompleks tetapi boleh dipadatkan menjadi Perl sebaris. Misalnya Contoh 1 di atas sebenarnya boleh dipadatkan menjadi Perl sebaris berikut:

perl -e "print grep { /Mohd Yunus/ } <>"  dokumen.txt

Atau

perl -lne "print if /Mohd Yunus/"  dokumen.txt

(Lihat contoh-contoh lain 'Perl sebaris')

Maklumat yang dipaparkan ini hanyalah pengenalan ringkas mengenai Perl. Maklumat lanjut berkenaan Perl boleh dirujuk di Perl.org.

Perl one-liner ( untuk Perl-geek sahaja :) )

Semalam ada seorang kawan sefakulti mengemukakan satu masalah -
Bagaimanakah caranya menukar data yang terdiri daripada berbilang baris, kepada satu rentetan mengandungi data-data tersebut yang hanya diselangi dengan koma (tanpa penyuntingan)?

Seperti berikut: 

aaaaa

bbbbb
ccccc

kepada 

aaaaa,bbbbb,ccccc

Satu cara yang boleh digunakan ialah dengan menggunakan fungsi dlm MS-Excell (diperoleh daripada sumber di Youtube, terima kasih Dr. Alfian FSKTM).

Tetapi yang terlintas di fikiran saya ialah dengan menggunakan Perl one-liner. Perl one-liner ialah pembentukan skrip bahasa Perl yang ringkas dan mampu dilaksanakan secara terus menerusi prom arahan atau baris arahan sahaja (berbanding menulis di dalam fail skrip Perl, *.pl)

Skrip yang boleh digunakan adalah seperti berikut: ('multilines.txt' mengandungi data input, dan output akan disimpan dalam fail 'output.txt' tanpa mengubah kandungan 'multilines.txt')

perl -e "print(join(',', map{chomp; $_;} <>))" multilines.txt > output.txt

Skrip setara (tanpa kurungan '()'):

perl -e "print join ',', map{chomp; $_;} <>" multilines.txt > output.txt

Skrip di bawah memperoleh hasil yang sama, justeru boleh digunakan sebagai skrip alternatif (sebahagiannya telah diperbaiki oleh Dr. KA, FSKTM):

perl -e "$_ = join (',', <>); s/\n\r?//g; print" multilines.txt > output.txt

Berikut adalah contoh perlaksanaannya dalam prom arahan Windows (arahan 'more' sekadar memperlihatkan kandungan fail input, dan output yang terhasil):

C:\>more multilines.txt
xxxx
yyyy
zzzz

C:\>perl -e "print(join(',', map{chomp; $_;} <>))" multilines.txt > output.txt

C:\>more output.txt
xxxx,yyyy,zzzz

P/s: Bagi yang tidak biasa atau baru menggunakan Perl, pengguna Windows OS kena install penterjemah Perl dahulu (Unix dan Linux sudah ada versi Perl yang dipasang).


[ Kemaskini: 19 Okt 2012 ]

Semua perkataan 'Perl-liner' diubah. Istilah yang sebenar ialah 'Perl one-liner'.

[ Kemaskini: 9 Sept 2024 ]

Sebenarnya 'Perl-liner' atau 'Perl one-liner' sama saja. Saya gelar 'Perl-baris'.

Alternatif lain (penyelesaian masalah):

perl -e "print join ',', map{s/\s+$//; $_;} <>" multilines.txt > output.txt


.