Tutorial Pemrograman Perl ini adalah panduan skrip yang bagus untuk membantu Anda sepenuhnya memahami skrip Perl. Temukan contoh tutorial dan contoh pemrograman untuk menguasai pengetahuan Anda tentang scripting perl.

Menggunakan juru bahasa

Temukan penerjemah Perl

yang perl

Eksekusi implisit

CATATAN:Setiap skrip dimulai dengan peristiwa:"#!" yang tidak dibaca sebagai komentar. Baris pertama juga merupakan tempat di mana Anda menempatkan penerjemah Anda yang dalam kasus ini adalah Perl.

#!/usr/bin/perl cetak "pemrograman perl \ n";

Jadikan Perl Script dapat dieksekusi:

chmod +x perl_script.pl

Eksekusi eksplisit

cetak "pemrograman Perl \ n";

Jadikan Perl Script dapat dieksekusi:

chmod +x perl_script.pl

Skrip Perl sederhana

#!/usr/bin/perl # cetak "tutorial pemrograman perl";

Jalur saat ini ke modul Perl

Daftar semua jalur saat ini yang tersedia untuk modul Perl:

Perl -e 'Print "@inc" . "\N";'

Variabel

$ - variabel skalar % - variabel hash @ - array & - subrutines

Menggunakan variabel default perl $ _

#!/usr/bin/perl $ _ = "variabel default pemrograman perl.\ n "; cetak;

Fungsi yang ditentukan

#!/USR/BIN/Perl # DECLARE PERL SCALAR DO tetapi tidak mendefinisikan Nilai $ Perl_Scalar; #Kami dapat menggunakan operator bersyarat '?: 'untuk menguji funtion $ variabel = didefinisikan ($ perl_scalar) ? "Variabel \ $ perl_scalar didefinisikan!":" Variabel \ $ perl_scalar tidak didefinisikan!"; cetak $ variabel."\N"; # Deklarasi Perl Scalar dengan Nilai $ Perl_Scalar = "Perl"; $ variable = didefinisikan ($ perl_scalar) ? "Variabel \ $ perl_scalar didefinisikan!":" Variabel \ $ perl_scalar tidak didefinisikan!"; cetak $ variabel."\N";

Variabel skalar

#!/usr/bin/perl #Scalars Hold Just Single Data Type: String, Number atau Perl Referensi #Scalars Definisi dalam Perl $ Scalar_Number = -5; $ scalar_string1 = "Dalam perl, skalar selalu direferensikan dengan \ x24 di depan setiap nama variabel. "; $ scalar_string2 =" 5 item "; #undescore dapat digunakan untuk angka besar $ scalar_milion = 1_000_000; #print skalar nilai cetak $ scalar_number."\N"; Cetak $ scalar_string1."\N"; Cetak $ scalar_string2."\N"; Cetak $ scalar_milion."\N"; #perl skalar penambahan cetak $ scalar_number + $ scalar_milion."\N";

String satu kali kutipan

#!/USR/BIN/Perl #Single-iated Scalar Strings $ Scalar_String1 = 'Perl'; Cetak "String 1:".$ scalar_string1."\N"; $ scalar_string2 = '#!/usr/bin/perl '; Cetak "String 2:".$ scalar_string2."\N"; $ scalar_string3 = 'tutorial pemrograman Perl'; Cetak "String 3:".$ scalar_string3."\N"; $ scalar_string4 = 'perl \ n'; Cetak "String 4:".$ scalar_string4."\N"; $ scalar_string5 = '\' \ '\\'; Cetak "String 5:".$ scalar_string5."\N"; $ scalar_string6 = "; cetak" string 6: ".$ scalar_string6."\N"; $ scalar_string7 = 'i \' m membaca tutorial pemrograman Perl '; Cetak "String 7:".$ scalar_string7."\N";

String ganda-dikutip

#!/USR/BIN/Perl #Double-iated Scalar Strings $ Scalar_String1 = "Perl"; Cetak "String 1:".$ scalar_string1."\N"; $ scalar_string2 = "#!/usr/bin/perl "; cetak" string 2: ".$ scalar_string2."\N"; $ scalar_string3 = "tutorial pemrograman perl"; Cetak "String 3:".$ scalar_string3."\N"; $ scalar_string4 = "perl \ n"; Cetak "String 4:".$ scalar_string4."\N"; $ scalar_string5 = "\ '\' \\" "; cetak" string 5: ".$ scalar_string5."\N"; $ scalar_string6 = ""; Cetak "String 6:".$ scalar_string6."\N"; # menambahkan "!"Karakter ASCII dalam bentuk oktal != 041 $ scalar_string7 = "i \ 'm membaca tutorial pemrograman Perl \ 041"; Cetak "String 7:".$ scalar_string7."\N"; # tambahkan " @" karakter ASCII dalam bentuk hexadecimal @= 40 $ scalar_string8 = "Setiap umpan balik tentang ini \ uperl \ uprogramming \ ututorial ke: web \ x40 \ ll \ linuxconfig.Org \ e "; cetak" string 8: ".$ scalar_string8."\N";

Operator string

#!/usr/bin/perl #scalar string operator $ scalar_string1 = "pe"."RL"; Cetak "String 1:".$ scalar_string1."\N"; $ scalar_string2 = "tutorial pemrograman perl" x (1+1); Cetak "String 2:".$ scalar_string2."\N"; $ scalar_string3 = "3"."\ ttab" x 3; Cetak "String 3:".$ scalar_string3."\N"; $ scalar_string4 = "perl \ x20".'Pemrograman'."Tutorial"; Cetak "String 4:".$ scalar_string4."\N"; $ scalar_string5 = 9x5; Cetak "String 5:".$ scalar_string5."\N";

Bilangan bulat non-sen,

#!/usr/bin/perl #perl Binary Integer $ hash_binary_integer = 0B10000; #perl octal integer $ hash_octal_integer = 020; #perl hexadecimal integer $ hash_hexadecimal_integer1 = 0x10; $ hash_Hexadecimal_integer2 = 0x124c_78_aa; Cetak $ hash_octal_integer."\N"; Cetak $ hash_binary_integer."\N"; Cetak $ hash_Hexadecimal_integer1."\N"; Cetak $ hash_Hexadecimal_integer2."\N";

Variabel konstan skalar

#!/usr/bin/perl $ evelinary_scalar = 5; $ evelinary_scalar = 10; Cetak $ evelinary_scalar."\N"; #Perl Deklarasi Konstan *Scalar_Constant = 5; $ Scalar_constant = 10;

Operator perbandingan string dan numerik

#!/usr/bin/perl # perbandingan string if ('perl' eq 'perl') print "true \ n";  else print "false \ n";  # Perbandingan numerik jika ('2.4 ' != '2.6 ') cetak "true \ n";  else print "false \ n"; 

Daftar

#!/USR/BIN/Perl #lists definisi dalam cetak Perl ("Perl", "Programming", "Tutorial", "\ n");

Array

Buat dan Cetak Array

#!/usr/bin/perl #create an array @perl_array1 = qw (tutorial pemrograman perl); @perl_array2 = ("perl", "programing", "tutorial", "\ n"); @perl_array3 = (1 ... 3); $ perl_array4 [0] = "perl"; $ perl_array4 [1] = "pemrograman"; $ perl_array4 [2] = "tutorial"; $ perl_array4 [50] = "\ n"; #Add elemen ke array $ perl_array1 [3] = "\ n"; #Print array print @perl_array1; cetak @perl_array2; cetak @perl_array3; cetak $ perl_array1 [3]; cetak @perl_array4; # Indeks apa yang memiliki elemen terakhir dari cetak array "Elemen terakhir Perl_Array4 memiliki indeks:" . $#Perl_array4 ."\N";

Array dorong dan pop

#!/usr/bin/perl # Buat array @perl_array = (1 ... 3); # Dorong elemen baru ke dan dari array dorong (@perl_array, "\ n"); # Print array print @perl_array; # Pop Elemen Terakhir dari Array $ Perl_Scalar = Pop (@Perl_Array); cetak @perl_array; # Cetak baris baru cetak $ perl_scalar;

Tentukan panjang array

#!/usr/bin/perl #create an array @perl_array = (1 ... 3); $ number_of_elements = @perl_array; cetak "\ @perl_array memiliki:" . $ number_of_elements . "Elemen.\ n "; cetak" \ @perl_array memiliki: " . scalar (@perl_array) . "Elemen.\N";

Gabungkan dan tambahkan arrrays

#!/usr/bin/perl #create an array @perl_array1 = (".\ n "," mudah "," sangat "); @perl_array2 = (" is "," pemrograman "," perl "); @perl_array3 = ( @perl_array1, @perl_array2); # reversing elemen cetak reverse @perl_array3;

Urutkan array

#!/usr/bin/perl #create an array @perl_array = (3, 4, 1, 2); @sorted_array1 = sort @perl_array; @sorted_array2 = sort $ b $ a @perl_array; cetak "@sorted_array1 \ n"; cetak "@sorted_array2 \ n";

Hapus elemen dari array

#!/usr/bin/perl #create an array @perl_array = (1, 2, 3, 4); # Periksa apakah elemen array ada jika ada (ada ($ perl_array [2])) hapus $ perl_array [2];  else print "Elemen array adalah Mising!\ n " cetak @perl_array," \ n ";

Hash

Buat hash

#!/usr/bin/perl # create hash %perl_hash = (browser => iceweasel, # Anda juga dapat menggunakan koma alih -alih OS operator panah, linux,); # Cetak elemen hash cetak "$ perl_hash 'browser' \ n";

Tambahkan elemen ke hash

#!/usr/bin/perl # create hash %perl_hash = (browser => iceweasel, # Anda juga dapat menggunakan koma alih -alih OS operator panah, linux,); # Cetak elemen hash cetak "$ perl_hash 'browser' \ n"; # Tambahkan elemen ke hash %perl_hash = ( %perl_hash, pemrograman, perl); # Cetak semua elemen cetak gabung ("", %perl_hash). "\N";

Hash Cetak

#!/usr/bin/perl # create hash %perl_hash = qw (ssh 22 http 80 https 443 telnet 23 postgres 5432); while (($ hash_key, $ hash_value) = setiap %perl_hash) print "$ hash_key menggunakan port $ hash_value \ n"; 

Menggabungkan hash

#!/usr/bin/perl # create hash %perl_hash1 = qw (debian deb); %perl_hash2 = qw (redhat rpm); #Merge hash %perl_hash3 = ( %perl_hash1, %perl_hash2); while (($ hash_key, $ hash_value) = setiap %perl_hash3) print "$ hash_key: $ hash_value \ n"; 

Perl Ekspresi Reguler

Ekspresi reguler dan karakter khusus

Cocokkan karakter

#!/usr/bin/perl foreach (@Argv)  # regex mencocokkan huruf kecil dan karakter huruf besar "p" (mengabaikan kasus alfabet) if (m/p/i) $ p1 ++; # regex mencocokkan karakter huruf kecil "p "Only If (m/p/) $ p2 ++; # regex mencocokkan dua karakter" ex "dan abaikan kasus alfabet if (m/ex/i) $ ex ++; cetak" p1 = $ p1 \ np2 = $ p2 \ nex = $ ex \ n ";

Pengganti

File Sampel: Perl_Regex.txt

# Perl Regular Expressions # # Substitute Karakter #

#!/usr/bin/perl Open (FileHandle, $ argv [0]) || Die "Masalah Membuka File"; @file =; foreach (@file)  # pengganti " #" dengan "$" dan bekerja secara global untuk setiap instance ditemukan # note: semua metcharacters perlu melarikan diri dengan "\" seperti di # kasus ini ""$"" diloloskan ""\ $"" ke dibaca secara harfiah # karakter meta adalah: \ | [() ^ $ * + ? . s/\#/\ $/g