Belajar Perl

[azlanhussain]

lupa plak SIFU..kene execute guna command prompt..

ptt laa tak jadi2...



yg ni tak brp cerah ni SIFU...

principle scripting mcm mn tu??

contohnya terlupa pembuka penutup function, cara mana module2 Perl dipanggil, macam mana nak remark dsbnya.

Macam you punya contoh tu, I pun dapat banyak error, selalu kalau I buat, I kena faham dulu keseluruhan script apa benda yg dia cuba nak buat sebenarnya. So macam mana nak tau, dari baca script je memang susah nak tau. Ni bukan macam karangan boleh baca dari atas sampai bawah baru nampak jalan cerita...

Scripting ni selalunya susah. So biasanya apa I buat I akan execute dia dan biarkan dia beritahu apa error kat line berapa. Kemudian pi ke line tersebut dan lihat apa masaalah dia. Selalunya kesilapan2 nya berpunca dari careless kita sendiri, terlupa tutup function la, terlupa letak end coma la dsbnya.

But akan ada juga masanya kita sendiri pun tak tau apa sebenarnya masaalah satu2 line tu. Belek2 nampak ok. So di sinilah kita kena buat try & error. Biasanya I akan remark line tersebut dan execute semula. Kemudian apa error seterusnya. Macam tu ulang2 sampailah ia tak ada error lagsung. Dari situ kita kemudiannya buang remark satu2 dan execute...

simbole remark "#"


Selalunya cara ni kita akan akhirnya dapat trace dan solve the whole problem....


Macam kes u ni u nak tengok je macam mana rupanya windows GUI yg Perl boleh buat. I dah test2 dan boleh... So u guna la kaedah macam I cakap kat atas tu inshaAllah u akan dapat juga lihat dia popup GUI tu.


PS: Nak supaya Perl bagitau lebih detail error serta warning messages terhadap script kita i akan letak baris pertama sekali dalam perl tu macam ni:

#!perl -w

Kalau tak letak dia hanya akan paparkan error message sahaja. Tetapi warning tak paparkan. Warning ni bukan error tetapi benda2 yg selalunya bagus untuk kita patuhi juga. Supaya script kita jadi lebih perfect. Bila script sampai berpuluh ribu line, benda2 macam ni dah jadi semakin susah nak trace so better dari awal2 buat ikut standard yg betul.

Contoh: Dalam perl tak declare variable tu tak pe tapi tak manis elok kita kasi tau perl variable tu untuk apa personal ke global ke... selalunya sebarang variable I aakan mulakan dengan "my"

my $variable_name;

 

[g3nglepak]

Guna ppm through command line akan popup windows GUI perl package manager kan. Dah try tapi tak boleh juga ke? Apa error dia kata?

ok dah berjaya install.. sebelum ni tak berjaya sebab search pakai keyword Win32::GUI. Tadi try pakai keyword Win32-GUI baru jumpa

 

[chuki2]

TT owh TT..

Dengan script perl nie, leh baca dari winforms .NET tak?

 

[azlanhussain]

TT owh TT..

Dengan script perl nie, leh baca dari winforms .NET tak?

Perl boleh guna functions dalam winforms atau sebarang .NET framework code. Begitu juga sebaliknya, Perl module boleh dipanggil dari dalam .NET component.

Contoh you boleh guna winforms untuk buat windows GUI interface dan guna Perl untuk part lain seperti communication, security, data manipulations, dll.

 

[chuki2]

Perl boleh guna functions dalam winforms atau sebarang .NET framework code. Begitu juga sebaliknya, Perl module boleh dipanggil dari dalam .NET component.

Contoh you boleh guna winforms untuk buat windows GUI interface dan guna Perl untuk part lain seperti communication, security, data manipulations, dll.

Terbaik... den rancang nak buat security system.. huhu...

Kalau nak write dan delete, .Net leh buatkan atau sekadar read only?

 

[azlanhussain]

Terbaik... den rancang nak buat security system.. huhu...

Kalau nak write dan delete, .Net leh buatkan atau sekadar read only?

Kalau berkenanan .NET tu saya tak boleh nak jawab sebab saya tak dalami bab programming .NET. Tapi kalau bab Perl yup you boleh write + read data.

 

[chuki2]

Kalau berkenanan .NET tu saya tak boleh nak jawab sebab saya tak dalami bab programming .NET. Tapi kalau bab Perl yup you boleh write + read data.

Ok no problem.. Thanks azlan

 

[g3nglepak]

test.pl

use Win32::GUI();
$main = Win32::GUI::Window->new(
-name => 'Main',
-width => 100,
-height => 100,
);
$main->AddLabel(-text => "Hello, world");
$main->Show();
Win32::GUI:ialog();

sub Main_Terminate {
-1;
**[/COLOR]

C:\> perl test.pl

C:\>

Kenapa tak keluar apa2 pun..?

 

[g3nglepak]

****Dalam CG ni nak copy paste coding guna CODE tag ke, HTML tag ke, PHP tag ke nampaknya ada problem... di akan tukarkan right parenthesis jadi ** :-?

tu la pasal..~X(

 

[azlanhussain]

test.pl


C:\> perl test.pl

C:\>

Kenapa tak keluar apa2 pun..?

Letak ni kat baris atas script:

#!perl -w