perlintro - ອອນລາຍໃນຄລາວ

ໂຄງການ:

NAME

perlintro - ການແນະນໍາໂດຍຫຍໍ້ແລະສະພາບລວມຂອງ Perl

ລາຍລະອຽດ

ເອກະສານນີ້ແມ່ນມີຈຸດປະສົງເພື່ອໃຫ້ທ່ານເຫັນພາບລວມໄວຂອງພາສາການຂຽນໂປຼແກຼມ Perl,
ພ້ອມກັບຕົວຊີ້ໄປຫາເອກະສານເພີ່ມເຕີມ. ມັນມີຈຸດປະສົງເປັນຄູ່ມື "bootstrap" ສໍາລັບ
ຜູ້ທີ່ເປັນພາສາໃຫມ່, ແລະສະຫນອງຂໍ້ມູນພຽງພໍສໍາລັບທ່ານທີ່ຈະສາມາດ
ເພື່ອອ່ານ Perl ຂອງຜູ້ອື່ນແລະເຂົ້າໃຈປະມານວ່າມັນກໍາລັງເຮັດຫຍັງ, ຫຼືຂຽນຂອງທ່ານເອງ
ສະຄຣິບງ່າຍໆ.

ເອກະສານແນະນໍານີ້ບໍ່ໄດ້ມີຈຸດປະສົງເພື່ອໃຫ້ຄົບຖ້ວນສົມບູນ. ມັນບໍ່ໄດ້ເຖິງແມ່ນຈຸດປະສົງທີ່ຈະເປັນ
ຖືກ​ຕ້ອງ​ທັງ​ຫມົດ​. ໃນບາງກໍລະນີຄວາມສົມບູນໄດ້ຖືກເສຍສະລະໃນເປົ້າຫມາຍຂອງການໄດ້ຮັບ
ແນວຄວາມຄິດທົ່ວໄປໃນທົ່ວ. ເຈົ້າແມ່ນ ຢ່າງແຂງແຮງ ແນະນໍາໃຫ້ປະຕິບັດຕາມຄໍາແນະນໍານີ້ກັບເພີ່ມເຕີມ
ຂໍ້​ມູນ​ຈາກ​ຄູ່​ມື Perl ເຕັມ​, ຕາ​ຕະ​ລາງ​ຂອງ​ເນື້ອ​ໃນ​ທີ່​ສາ​ມາດ​ພົບ​ເຫັນ​ຢູ່​ໃນ​
perltoc.

ຕະຫຼອດເອກະສານນີ້ທ່ານຈະເຫັນການອ້າງອີງເຖິງພາກສ່ວນອື່ນໆຂອງເອກະສານ Perl.
ທ່ານສາມາດອ່ານເອກະສານນັ້ນໂດຍໃຊ້ຄໍາສັ່ງ "perldoc" ຫຼືວິທີການໃດກໍ່ຕາມທີ່ທ່ານໃຊ້
ໃຊ້ເພື່ອອ່ານເອກະສານນີ້.

ຕະຫຼອດເອກະສານຂອງ Perl, ທ່ານຈະພົບເຫັນຕົວຢ່າງຈໍານວນຫລາຍທີ່ມີຈຸດປະສົງເພື່ອຊ່ວຍອະທິບາຍ
ລັກສະນະທີ່ສົນທະນາ. ກະລຸນາຈື່ໄວ້ວ່າຈໍານວນຫຼາຍຂອງພວກມັນແມ່ນຊິ້ນສ່ວນລະຫັດແທນທີ່ຈະ
ກ່ວາໂຄງການທີ່ສົມບູນ.

ຕົວ​ຢ່າງ​ເຫຼົ່າ​ນີ້​ມັກ​ຈະ​ສະ​ແດງ​ໃຫ້​ເຫັນ​ຮູບ​ແບບ​ແລະ​ຄວາມ​ມັກ​ຂອງ​ຜູ້​ຂຽນ​ຂອງ​ສິ້ນ​ຂອງ​
ເອກະສານ, ແລະອາດຈະສັ້ນກວ່າເສັ້ນທີ່ສອດຄ້ອງກັນຂອງລະຫັດໃນໂຄງການທີ່ແທ້ຈິງ.
ຍົກເວັ້ນບ່ອນທີ່ບັນທຶກໄວ້ເປັນຢ່າງອື່ນ, ທ່ານຄວນສົມມຸດວ່າ "ໃຊ້ຢ່າງເຂັ້ມງວດ" ແລະ "ໃຊ້ຄໍາເຕືອນ"
ຄໍາຖະແຫຼງທີ່ປາກົດຂຶ້ນກ່ອນຫນ້ານີ້ໃນ "ໂຄງການ", ແລະວ່າຕົວແປໃດໆທີ່ໃຊ້ແລ້ວ
ປະກາດ, ເຖິງແມ່ນວ່າການປະກາດເຫຼົ່ານັ້ນໄດ້ຖືກຍົກເລີກເພື່ອເຮັດໃຫ້ຕົວຢ່າງງ່າຍຕໍ່ການອ່ານ.

ຈົ່ງສັງເກດວ່າຕົວຢ່າງໄດ້ຖືກຂຽນໂດຍຜູ້ຂຽນທີ່ແຕກຕ່າງກັນຫຼາຍໃນໄລຍະເວລາ
ຫຼາຍທົດສະວັດ. ຮູບແບບແລະເຕັກນິກຈະແຕກຕ່າງກັນ, ເຖິງແມ່ນວ່າຄວາມພະຍາຍາມບາງຢ່າງມີ
ໄດ້ຖືກສ້າງຂື້ນເພື່ອບໍ່ໃຫ້ຮູບແບບແຕກຕ່າງກັນຢ່າງກວ້າງຂວາງໃນພາກສ່ວນດຽວກັນ. ຢ່າພິຈາລະນາແບບຫນຶ່ງ
to be better than others - "ມີຫຼາຍກວ່າຫນຶ່ງວິທີທີ່ຈະເຮັດມັນ" ແມ່ນຫນຶ່ງໃນຄໍາຂວັນຂອງ Perl.
ຫຼັງຈາກທີ່ທັງຫມົດ, ໃນການເດີນທາງຂອງທ່ານໃນຖານະນັກຂຽນໂປລແກລມ, ທ່ານມີແນວໂນ້ມທີ່ຈະພົບກັບຮູບແບບທີ່ແຕກຕ່າງກັນ.

ແມ່ນ​ຫຍັງ is Perl?
Perl ແມ່ນພາສາການຂຽນໂປລແກລມທີ່ມີຈຸດປະສົງທົ່ວໄປທີ່ພັດທະນາໃນເບື້ອງຕົ້ນສໍາລັບການຈັດການຂໍ້ຄວາມ
ແລະໃນປັດຈຸບັນຖືກນໍາໃຊ້ສໍາລັບວຽກງານທີ່ກວ້າງຂວາງລວມທັງການຄຸ້ມຄອງລະບົບ, ການພັດທະນາເວັບ,
ການຂຽນໂປຼແກຼມເຄືອຂ່າຍ, ການພັດທະນາ GUI, ແລະອື່ນໆ.

ພາສາແມ່ນມີຈຸດປະສົງເພື່ອປະຕິບັດ (ໃຊ້ງ່າຍ, ມີປະສິດທິພາບ, ສົມບູນ) ແທນທີ່ຈະ
ງາມ (ຂະຫນາດນ້ອຍ, elegant, ຫນ້ອຍ). ຄຸນ​ນະ​ສົມ​ບັດ​ທີ່​ສໍາ​ຄັນ​ຂອງ​ມັນ​ແມ່ນ​ວ່າ​ມັນ​ເປັນ​ການ​ງ່າຍ​ທີ່​ຈະ​ນໍາ​ໃຊ້​,
ສະ​ຫນັບ​ສະ​ຫນູນ​ທັງ​ສອງ​ໂຄງ​ການ​ລະ​ບຽບ​ການ​ແລະ​ຈຸດ​ປະ​ສົງ (OO​)​, ມີ​ອໍາ​ນາດ​ໃນ​ຕົວ​
ສະ​ຫນັບ​ສະ​ຫນູນ​ສໍາ​ລັບ​ການ​ປຸງ​ແຕ່ງ​ຂໍ້​ຄວາມ​, ແລະ​ມີ​ຫນຶ່ງ​ໃນ​ການ​ເກັບ​ກໍາ​ທີ່​ປະ​ທັບ​ໃຈ​ທີ່​ສຸດ​ຂອງ​ໂລກ​ຂອງ​
ໂມດູນພາກສ່ວນທີສາມ.

ຄໍານິຍາມທີ່ແຕກຕ່າງກັນຂອງ Perl ແມ່ນໃຫ້ຢູ່ໃນ perl, perlfaq1 ແລະບໍ່ສົງໃສວ່າສະຖານທີ່ອື່ນໆ. ຈາກ
ນີ້ພວກເຮົາສາມາດກໍານົດວ່າ Perl ແມ່ນສິ່ງທີ່ແຕກຕ່າງກັນກັບຄົນທີ່ແຕກຕ່າງກັນ, ແຕ່ວ່າມີຫຼາຍ
ປະຊາຊົນຄິດວ່າຢ່າງຫນ້ອຍມັນມີມູນຄ່າການຂຽນກ່ຽວກັບ.

ເຮັດວຽກ Perl ໂຄງການ
ເພື່ອດໍາເນີນການໂຄງການ Perl ຈາກເສັ້ນຄໍາສັ່ງ Unix:

perl progname.pl

ອີກທາງເລືອກ, ວາງນີ້ເປັນແຖວທຳອິດຂອງສະຄຣິບຂອງທ່ານ:

#!/usr/bin/env perl

... ແລະແລ່ນສະຄຣິບເປັນ /path/to/script.pl. ແນ່ນອນ, ມັນຈໍາເປັນຕ້ອງປະຕິບັດໄດ້
ທໍາອິດ, ດັ່ງນັ້ນ "chmod 755 script.pl" (ພາຍໃຕ້ Unix).

(ເສັ້ນເລີ່ມຕົ້ນນີ້ສົມມຸດວ່າທ່ານມີ ປະມານ ໂຄງການ. ນອກນັ້ນທ່ານຍັງສາມາດເອົາເສັ້ນທາງໂດຍກົງ
perl ຂອງທ່ານສາມາດປະຕິບັດໄດ້, ເຊັ່ນໃນ "#!/usr/bin/perl")

ສໍາລັບຂໍ້ມູນເພີ່ມເຕີມ, ລວມທັງຄໍາແນະນໍາສໍາລັບເວທີອື່ນໆເຊັ່ນ Windows ແລະ Mac
OS, ອ່ານ perlrun.

ຄວາມປອດໄພ ສຸດທິ
Perl ໂດຍຄ່າເລີ່ມຕົ້ນແມ່ນໃຫ້ອະໄພຫຼາຍ. ເພື່ອເຮັດໃຫ້ມັນແຂງແຮງຫຼາຍ, ມັນແນະນໍາໃຫ້
ເລີ່ມຕົ້ນທຸກໆໂຄງການດ້ວຍເສັ້ນຕໍ່ໄປນີ້:

#!/usr/bin/perl
ໃຊ້ຢ່າງເຄັ່ງຄັດ;
ການນໍາໃຊ້ຄໍາເຕືອນ;

ສອງສາຍເພີ່ມເຕີມຮ້ອງຂໍຈາກ perl ເພື່ອຈັບບັນຫາທົ່ວໄປຕ່າງໆໃນລະຫັດຂອງທ່ານ.
ພວກເຂົາກວດເບິ່ງສິ່ງທີ່ແຕກຕ່າງກັນດັ່ງນັ້ນທ່ານຕ້ອງການທັງສອງ. ບັນຫາທີ່ອາດຈະຖືກຈັບໂດຍ "ໃຊ້ຢ່າງເຄັ່ງຄັດ;"
ຈະເຮັດໃຫ້ລະຫັດຂອງທ່ານຢຸດເຊົາທັນທີເມື່ອມັນພົບ, ໃນຂະນະທີ່ "ໃຊ້ຄໍາເຕືອນ;"
ພຽງ​ແຕ່​ຈະ​ໃຫ້​ຄໍາ​ເຕືອນ (ເຊັ່ນ​: ສະ​ຫຼັບ​ເສັ້ນ​ຄໍາ​ສັ່ງ​ -w) ແລະໃຫ້ລະຫັດຂອງທ່ານດໍາເນີນການ. ເຖິງ
ອ່ານເພີ່ມເຕີມກ່ຽວກັບພວກເຂົາກວດເບິ່ງຫນ້າຄູ່ມືຂອງພວກເຂົາທີ່ເຄັ່ງຄັດແລະຄໍາເຕືອນ.

ພື້ນຖານ syntax ພາບລວມ
script Perl ຫຼືໂຄງການປະກອບດ້ວຍຫນຶ່ງຫຼືຫຼາຍຄໍາຖະແຫຼງການ. ຄໍາຖະແຫຼງເຫຼົ່ານີ້ແມ່ນງ່າຍດາຍ
ຂຽນໃນ script ໃນແບບກົງໄປກົງມາ. ບໍ່ຈໍາເປັນຕ້ອງມີ "main()"
ຫນ້າທີ່ຫຼືສິ່ງໃດກໍ່ຕາມ.

ຄໍາຖະແຫຼງ Perl ສິ້ນສຸດໃນເຄິ່ງຈໍ້າສອງເມັດ:

ພິມ "ສະບາຍດີ, ໂລກ";

ຄຳເຫັນເລີ່ມຕົ້ນດ້ວຍສັນຍາລັກ hash ແລະແລ່ນໄປຫາທ້າຍແຖວ

# ນີ້ແມ່ນ ຄຳ ເຫັນ

ຊ່ອງຫວ່າງບໍ່ກ່ຽວຂ້ອງ:

ພິມ
"ສະ​ບາຍ​ດີ​ຊາວ​ໂລກ"
;

... ຍົກເວັ້ນພາຍໃນສະຕຣິງທີ່ອ້າງອີງ:

# ອັນນີ້ຈະພິມດ້ວຍເສັ້ນແຖວຢູ່ກາງ
ພິມ "ສະບາຍດີ
ໂລກ";

ວົງຢືມຄູ່ ຫຼືວົງຢືມດຽວອາດຈະຖືກໃຊ້ຮອບຕົວໜັງສື:

ພິມ "ສະບາຍດີ, ໂລກ";
ພິມ 'ສະບາຍດີ, ໂລກ';

ຢ່າງໃດກໍຕາມ, ພຽງແຕ່ສອງວົງຢືມ "interpolate" ຕົວແປແລະລັກສະນະພິເສດເຊັ່ນ:
ແຖວໃໝ່ ("\n"):

ພິມ "ສະບາຍດີ, $name\n"; # ເຮັດວຽກໄດ້ດີ
ພິມ 'ສະບາຍດີ, $name\n'; # ພິມ $name\n ຕາມຕົວອັກສອນ

ຕົວເລກບໍ່ຈໍາເປັນຕ້ອງມີວົງຢືມອ້ອມຮອບພວກເຂົາ:

ພິມ 42;

ທ່ານ​ສາ​ມາດ​ນໍາ​ໃຊ້​ວົງ​ເລັບ​ສໍາ​ລັບ​ການ​ໂຕ້​ຕອບ​ຂອງ​ຫນ້າ​ທີ່​ຫຼື​ຍົກ​ເວັ້ນ​ພວກ​ເຂົາ​ຕາມ​ສ່ວນ​ບຸກ​ຄົນ​ຂອງ​ທ່ານ​
ລົດຊາດ. ພວກມັນຕ້ອງການເປັນບາງໂອກາດເທົ່ານັ້ນເພື່ອຊີ້ແຈງບັນຫາທີ່ມີລັກສະນະກ່ອນໜ້າ.

print("ສະບາຍດີ, ໂລກ\n");
ພິມ "ສະບາຍດີ, ໂລກ\n";

ຂໍ້ມູນລາຍລະອຽດເພີ່ມເຕີມກ່ຽວກັບ syntax Perl ສາມາດພົບໄດ້ໃນ perlsyn.

Perl ຕົວແປ ປະເພດ
Perl ມີສາມຕົວແປຕົ້ນຕໍ: scalar, arrays, ແລະ hashes.

Scalars
A scalar ເປັນຕົວແທນຂອງຄ່າດຽວ:

my $animal = "ອູດ";
$answer ຂອງຂ້ອຍ = 42;

ຄ່າ Scalar ສາມາດເປັນ strings, integers ຫຼື floating point, ແລະ Perl will
ປ່ຽນອັດຕະໂນມັດລະຫວ່າງພວກມັນຕາມຄວາມຕ້ອງການ. ບໍ່ຈໍາເປັນຕ້ອງປະກາດລ່ວງໜ້າຂອງທ່ານ
ປະເພດຕົວແປ, ແຕ່ທ່ານຕ້ອງປະກາດພວກມັນໂດຍໃຊ້ຄໍາ "ຂອງຂ້ອຍ" ໃນຄັ້ງທໍາອິດທີ່ທ່ານ
ໃຊ້ພວກມັນ. (ນີ້ແມ່ນຫນຶ່ງໃນຂໍ້ກໍານົດຂອງ "ການນໍາໃຊ້ທີ່ເຄັ່ງຄັດ;".)

ຄ່າ Scalar ສາມາດຖືກນໍາໃຊ້ໃນຫຼາຍວິທີ:

ພິມ $ສັດ;
ພິມ "ສັດແມ່ນ $ສັດ\n";
ພິມ "ສີ່ຫຼ່ຽມຂອງ $answer ແມ່ນ ", $answer * $answer, "\n";

ມີຈໍານວນ "magic" scalers ທີ່ມີຊື່ຄ້າຍຄືເຄື່ອງຫມາຍວັກຕອນຫຼືເສັ້ນ
ສິ່ງລົບກວນ. ຕົວແປພິເສດເຫຼົ່ານີ້ຖືກນໍາໃຊ້ສໍາລັບທຸກປະເພດຂອງຈຸດປະສົງ, ແລະຖືກບັນທຶກເປັນເອກະສານ
ໃນ perlvar. ອັນດຽວທີ່ເຈົ້າຕ້ອງຮູ້ກ່ຽວກັບຕອນນີ້ແມ່ນ $_ ເຊິ່ງເປັນ "ຄ່າເລີ່ມຕົ້ນ
variable ". ມັນຖືກນໍາໃຊ້ເປັນ argument ເລີ່ມຕົ້ນຂອງຫນ້າທີ່ຈໍານວນຫນຶ່ງໃນ Perl, ແລະ
ມັນຖືກກໍານົດໂດຍ implicitly ໂດຍການກໍ່ສ້າງ looping ທີ່ແນ່ນອນ.

ພິມ; # ພິມເນື້ອໃນຂອງ $_ ຕາມຄ່າເລີ່ມຕົ້ນ

ອາເລ
array ເປັນຕົວແທນຂອງບັນຊີລາຍຊື່ຂອງຄ່າ:

my @animals = (" camel", "llama", "owl");
my @numbers = (23, 42, 69);
my @mixed = ("ອູດ", 42, 1.23);

Arrays ຖືກດັດສະນີສູນ. ນີ້ແມ່ນວິທີທີ່ທ່ານໄດ້ຮັບອົງປະກອບໃນ array:

ພິມ $animals[0]; # ພິມ "ອູດ"
ພິມ $animals[1]; # ພິມ "ລາມາ"

ຕົວແປພິເສດ $#array ບອກທ່ານເຖິງດັດຊະນີຂອງອົງປະກອບສຸດທ້າຍຂອງ array:

ພິມ $mixed[$#mixed]; # ອົງປະກອບສຸດທ້າຍ, ພິມ 1.23

ທ່ານອາດຈະຖືກລໍ້ລວງໃຫ້ໃຊ້ "$#array + 1" ເພື່ອບອກທ່ານວ່າມີຈໍານວນລາຍການຢູ່ໃນອັນໃດ
array. ຢ່າລົບກວນ. ໃນຂະນະທີ່ມັນເກີດຂຶ້ນ, ການນໍາໃຊ້ @array ບ່ອນທີ່ Perl ຄາດວ່າຈະຊອກຫາ scalar
ຄ່າ ("ໃນ​ບໍລິ​ບົດ​ສະ​ເກັດ​ລາ") ຈະ​ໃຫ້​ທ່ານ​ຈໍາ​ນວນ​ຂອງ​ອົງ​ປະ​ກອບ​ໃນ​ອາ​ເຣ:

ຖ້າ (@animals < 5) { ... }

ອົງປະກອບທີ່ພວກເຮົາໄດ້ຮັບຈາກ array ເລີ່ມຕົ້ນດ້ວຍ "$" ເພາະວ່າພວກເຮົາໄດ້ຮັບພຽງແຕ່
ຄ່າດຽວອອກຈາກ array; ທ່ານຮ້ອງຂໍໃຫ້ມີ scalar, ທ່ານໄດ້ຮັບ scalar.

ເພື່ອໃຫ້ໄດ້ຮັບຄ່າຫຼາຍຈາກ array:

@ສັດ[0,1]; # give ("camel", "llama");
@animals[0..2]; # give (" camel", "llama", "owl" );
@animals[1..$#animals]; # ໃຫ້ທັງຫມົດຍົກເວັ້ນອົງປະກອບທໍາອິດ

ອັນນີ້ເອີ້ນວ່າ "ແຖບອາເຣ".

ທ່ານສາມາດເຮັດສິ່ງທີ່ເປັນປະໂຫຍດຕ່າງໆເພື່ອລາຍຊື່:

my @sorted = sort @animals;
my @backwards = reverse @numbers;

ມີສອງສາມ arrays ພິເສດເຊັ່ນດຽວກັນ, ເຊັ່ນ: @ARGV (ເສັ້ນຄໍາສັ່ງ arguments ກັບ
script ຂອງເຈົ້າ) ແລະ @_ (ການໂຕ້ຖຽງທີ່ຜ່ານໄປຫາລາຍການຍ່ອຍ). ເຫຼົ່ານີ້ແມ່ນເອກະສານຢູ່ໃນ
perlvar.

hashes
hash ເປັນຕົວແທນຂອງຊຸດຂອງຄູ່ຄີ / ຄ່າ:

%fruit_color = ("ແອບເປີ້ນ", "ສີແດງ", "ກ້ວຍ", "ສີເຫຼືອງ");

ທ່ານ​ສາ​ມາດ​ນໍາ​ໃຊ້​ຊ່ອງ​ຂາວ​ແລະ " =>​" ປະ​ຕິ​ບັດ​ການ​ເພື່ອ​ຈັດ​ວາງ​ໃຫ້​ເຂົາ​ເຈົ້າ​ອອກ​ງາມ​ຫຼາຍ​:

%fruit_color = (
apple => "ສີແດງ",
ກ້ວຍ => "ສີເຫຼືອງ",
);

ເພື່ອໃຫ້ໄດ້ຮັບອົງປະກອບ hash:

$fruit_color{"apple"}; #ໃຫ້ "ສີແດງ"

ທ່ານ​ສາ​ມາດ​ໄດ້​ຮັບ​ຢູ່​ໃນ​ບັນ​ຊີ​ລາຍ​ການ​ຂອງ​ກະ​ແຈ​ແລະ​ຄຸນ​ຄ່າ​ທີ່​ມີ "keys()" ແລະ "values()".

my @fruits = ກະແຈ %fruit_colors;
my @colors = ຄ່າ %fruit_colors;

Hashes ບໍ່ມີຄໍາສັ່ງພາຍໃນໂດຍສະເພາະ, ເຖິງແມ່ນວ່າທ່ານສາມາດຈັດຮຽງຄີແລະ loop
ໂດຍຜ່ານການໃຫ້ເຂົາເຈົ້າ.

ຄືກັນກັບ scalar ແລະ arrays ພິເສດ, ຍັງມີ hashes ພິເສດ. ດີທີ່ສຸດ
ທີ່ຮູ້ຈັກກັນຄື %ENV ເຊິ່ງມີຕົວແປສະພາບແວດລ້ອມ. ອ່ານທັງຫມົດກ່ຽວກັບມັນ (ແລະ
ຕົວແປພິເສດອື່ນໆ) ໃນ perlvar.

Scalars, arrays ແລະ hashes ໄດ້ຖືກບັນທຶກໄວ້ຢ່າງເຕັມທີ່ໃນ perldata.

ປະເພດຂໍ້ມູນທີ່ສັບສົນຫຼາຍສາມາດກໍ່ສ້າງໄດ້ໂດຍໃຊ້ການອ້າງອີງ, ເຊິ່ງຊ່ວຍໃຫ້ທ່ານສ້າງ
ບັນຊີລາຍຊື່ແລະ hashes ພາຍໃນລາຍການແລະ hashes.

ການອ້າງອິງແມ່ນຄ່າສະກຸນ ແລະສາມາດອ້າງອີງເຖິງປະເພດຂໍ້ມູນ Perl ອື່ນໆ. ດັ່ງນັ້ນໂດຍການເກັບຮັກສາ a
ການອ້າງອິງເປັນມູນຄ່າຂອງອົງປະກອບ array ຫຼື hash, ທ່ານສາມາດສ້າງລາຍຊື່ແລະ hash ໄດ້ຢ່າງງ່າຍດາຍ
ພາຍໃນລາຍການແລະ hashes. ຕົວຢ່າງຕໍ່ໄປນີ້ສະແດງໃຫ້ເຫັນໂຄງສ້າງ hash 2 ລະດັບ
ການນໍາໃຊ້ການອ້າງອິງ hash ທີ່ບໍ່ເປີດເຜີຍຊື່.

$variables ຂອງຂ້ອຍ = {
ຕາຕະລາງ => {
ຄໍາອະທິບາຍ => "ລາຍການດຽວ",
sigil => '$',
},
array => {
Description => "ລາຍການລາຍການທີ່ສັ່ງໄວ້",
sigil => '@',
},
hash => {
Description => "ຄູ່ຄີ/ຄ່າ",
sigil => '%',
},
};

ພິມ "Scalar ເລີ່ມຕົ້ນດ້ວຍ $variables->{'scalar'}->{'sigil'}\n";

ຂໍ້​ມູນ​ທີ່​ຫມົດ​ໄປ​ໃນ​ຫົວ​ຂໍ້​ຂອງ​ການ​ອ້າງ​ອີງ​ສາ​ມາດ​ພົບ​ເຫັນ​ຢູ່​ໃນ perlreftut​, perllol​,
perlref ແລະ perldsc.

ການປ່ຽນແປງ ຂອບເຂດ
ຕະຫຼອດພາກທີ່ຜ່ານມາ, ຕົວຢ່າງທັງຫມົດໄດ້ໃຊ້ syntax:

$var = "ຄ່າ" ຂອງຂ້ອຍ;

ຕົວຈິງແລ້ວ "ຂອງຂ້ອຍ" ແມ່ນບໍ່ຈໍາເປັນ; ທ່ານພຽງແຕ່ສາມາດນໍາໃຊ້:

$var = "ຄ່າ";

ຢ່າງໃດກໍ່ຕາມ, ການນໍາໃຊ້ຂ້າງເທິງຈະສ້າງຕົວແປທົ່ວໂລກໃນທົ່ວໂຄງການຂອງທ່ານ, ເຊິ່ງແມ່ນ
ການປະຕິບັດໂຄງການທີ່ບໍ່ດີ. "my" ສ້າງຕົວແປທີ່ກໍານົດຂອບເຂດແທນ. ຕົວແປ
ແມ່ນຂອບເຂດຕໍ່ກັບຕັນ (ເຊັ່ນ: ຊໍ່ຂອງຄໍາຖະແຫຼງທີ່ອ້ອມຮອບດ້ວຍ curly-braces) ເຊິ່ງໃນນັ້ນ.
ພວກເຂົາຖືກກໍານົດ.

$x = "foo" ຂອງຂ້ອຍ;
$some_condition ຂອງຂ້ອຍ = 1;
ຖ້າ ($some_condition) {
$y = "bar" ຂອງຂ້ອຍ;
ພິມ $x; # ພິມ "foo"
ພິມ $y; # ພິມ "ແຖບ"
}
ພິມ $x; # ພິມ "foo"
ພິມ $y; # ພິມບໍ່ມີຫຍັງ; $y ໄດ້ຫຼຸດອອກຈາກຂອບເຂດ

ການນໍາໃຊ້ "ຂອງຂ້ອຍ" ປະສົມປະສານກັບ "ໃຊ້ຢ່າງເຂັ້ມງວດ;" ຢູ່ເທິງສຸດຂອງສະຄິບ Perl ຂອງທ່ານຫມາຍຄວາມວ່າ
ນາຍພາສາຈະເລືອກເອົາຄວາມຜິດພາດການຂຽນໂປຼແກຼມທົ່ວໄປບາງຢ່າງ. ສໍາລັບຕົວຢ່າງ, ໃນ
ຕົວຢ່າງຂ້າງເທິງ, "ພິມ $y" ສຸດທ້າຍຈະເຮັດໃຫ້ເກີດຄວາມຜິດພາດໃນການລວບລວມເວລາແລະປ້ອງກັນທ່ານ
ແລ່ນໂຄງການ. ການນໍາໃຊ້ "ເຄັ່ງຄັດ" ແມ່ນແນະນໍາໃຫ້ສູງ.

ເງື່ອນໄຂ ແລະ ວົງແຫວນ ກໍ່ສ້າງ
Perl ມີສ່ວນໃຫຍ່ຂອງໂຄງສ້າງທີ່ມີເງື່ອນໄຂແລະ looping ປົກກະຕິ. ໃນຖານະເປັນຂອງ Perl 5.10, ມັນແມ້ກະທັ້ງ
ມີກໍລະນີ/ຄຳສັບປ່ຽນ (ສະກົດວ່າ "ໃຫ້"/"ເມື່ອ"). ເບິ່ງ "Switch Statements" ໃນ perlsyn
ສໍາລັບລາຍລະອຽດເພີ່ມເຕີມ.

ເງື່ອນໄຂສາມາດເປັນການສະແດງອອກ Perl ໃດ. ເບິ່ງລາຍຊື່ຜູ້ປະຕິບັດງານໃນພາກຕໍ່ໄປ
ສໍາລັບຂໍ້ມູນກ່ຽວກັບການປຽບທຽບແລະຕົວປະຕິບັດການຕາມເຫດຜົນ boolean, ເຊິ່ງຖືກນໍາໃຊ້ທົ່ວໄປໃນ
ຖະແຫຼງການຕາມເງື່ອນໄຂ.

if
ຖ້າ (ເງື່ອນໄຂ) {
...
} elsif ( ເງື່ອນໄຂອື່ນໆ ) {
...
} else {
...
}

ຍັງມີສະບັບທີ່ຖືກປະຕິເສດຂອງມັນ:

ເວັ້ນເສຍແຕ່ (ເງື່ອນໄຂ) {
...
}

ນີ້ແມ່ນສະຫນອງໃຫ້ເປັນສະບັບທີ່ອ່ານໄດ້ຫຼາຍຂອງ "ຖ້າ (!ສະພາບ)".

ໃຫ້ສັງເກດວ່າວົງເລັບແມ່ນຈໍາເປັນໃນ Perl, ເຖິງແມ່ນວ່າທ່ານພຽງແຕ່ໄດ້ຮັບເສັ້ນດຽວໃນ
ຕັນ. ຢ່າງໃດກໍຕາມ, ມີວິທີທີ່ສະຫລາດທີ່ຈະເຮັດໃຫ້ຕັນທີ່ມີເງື່ອນໄຂຫນຶ່ງເສັ້ນຂອງທ່ານຫຼາຍຂຶ້ນ
ພາສາອັງກິດເຊັ່ນ:

#ແບບດັ້ງເດີມ
ຖ້າ ($zippy) {
ພິມ "Yow!";
}

# ວິທີທາງຫຼັງສະພາບ Perlish
ພິມ "Yow!" ຖ້າ $zippy;
ພິມ "ພວກເຮົາບໍ່ມີກ້ວຍ" ເວັ້ນເສຍແຕ່ $bananas;

ໃນຂະນະທີ່
ໃນຂະນະທີ່ (ເງື່ອນໄຂ) {
...
}

ຍັງມີສະບັບທີ່ຖືກປະຕິເສດ, ສໍາລັບເຫດຜົນດຽວກັນທີ່ພວກເຮົາມີ "ເວັ້ນເສຍແຕ່":

ຈົນກ່ວາ (ເງື່ອນໄຂ) {
...
}

ທ່ານຍັງສາມາດໃຊ້ "ໃນຂະນະທີ່" ໃນເງື່ອນໄຂຫລັງ:

ພິມ "LA LA LA\n" ໃນຂະນະທີ່ 1; # ຮອບຕະຫຼອດ

ສໍາ​ລັບ​ການ​ຄ້າຍ​ຄື C​:

ສໍາລັບ ($i = 0; $i <= $max; $i++) {
...
}

ແບບ C ສໍາລັບ loop ແມ່ນບໍ່ຄ່ອຍຈໍາເປັນໃນ Perl ເນື່ອງຈາກວ່າ Perl ສະຫນອງຄວາມເປັນມິດຫຼາຍ
ບັນຊີລາຍຊື່ສະແກນ "foreach" loop.

foreach
foreach (@array) {
ພິມ "ອົງປະກອບນີ້ແມ່ນ $_\n";
}

ພິມ $list[$_] foreach 0 .. $max;

# ທ່ານບໍ່ຈຳເປັນຕ້ອງໃຊ້ຄ່າເລີ່ມຕົ້ນ $_ ທັງ...
foreach $key ຂອງຂ້ອຍ (keys %hash) {
ພິມ "ຄ່າຂອງ $key ແມ່ນ $hash{$key}\n";
}

ຄໍາວ່າ "foreach" ຕົວຈິງແລ້ວແມ່ນຄໍາສັບຄ້າຍຄື "ສໍາລັບ" ຄໍາສໍາຄັນ. ເບິ່ງ ""Foreach
Loops "ໃນ perlsyn".

ສໍາລັບລາຍລະອຽດເພີ່ມເຕີມກ່ຽວກັບການກໍ່ສ້າງ looping (ແລະບາງອັນທີ່ບໍ່ໄດ້ກ່າວເຖິງໃນພາບລວມນີ້)
ເບິ່ງ perlsyn.

ບຶງທາດຫຼວງ ຜູ້ປະກອບການ ແລະ ຫນ້າທີ່
Perl ມາພ້ອມກັບຕົວເລືອກທີ່ກວ້າງຂວາງຂອງຟັງຊັນ builtin. ບາງສ່ວນຂອງພວກເຮົາແລ້ວ
ທີ່ເຫັນປະກອບມີ "ພິມ", "ຄັດ" ແລະ "ປີ້ນກັບ". ບັນຊີລາຍຊື່ຂອງພວກເຂົາແມ່ນໃຫ້ໃນຕອນເລີ່ມຕົ້ນຂອງ
perlfunc ແລະທ່ານສາມາດອ່ານໄດ້ຢ່າງງ່າຍດາຍກ່ຽວກັບຟັງຊັນໃດນຶ່ງໂດຍການໃຊ້ "perldoc -f
ຊື່ຟັງຊັນ".

ຕົວປະຕິບັດການ Perl ໄດ້ຖືກບັນທຶກໄວ້ຢ່າງເຕັມທີ່ໃນ perlop, ແຕ່ນີ້ແມ່ນຈໍານວນຫນ້ອຍທີ່ພົບເລື້ອຍທີ່ສຸດ
ອັນ​ທີ່:

ເລກຄະນິດສາດ
+ ນອກຈາກນັ້ນ
- ການຫັກລົບ
* ຄູນ
/ ພະແນກ

ການປຽບທຽບຕົວເລກ
== ຄວາມສະເໝີພາບ
!= ຄວາມບໍ່ສະເໝີພາບ
< ໜ້ອຍກວ່າ
> ຫຼາຍ​ກ​່​ວາ​
<= ໜ້ອຍກວ່າ ຫຼື ເທົ່າກັບ
>= ໃຫຍ່ກວ່າ ຫຼື ເທົ່າກັນ

ການປຽບທຽບສະຕຣິງ
eq ຄວາມສະເຫມີພາບ
ບໍ່ສະເໝີພາບ
ມັນຫນ້ອຍກວ່າ
gt ຫຼາຍກ່ວາ
le ຫນ້ອຍກວ່າຫຼືເທົ່າກັບ
ge ຫຼາຍກ່ວາຫຼືເທົ່າທຽມກັນ

(ເປັນ​ຫຍັງ​ພວກ​ເຮົາ​ຈຶ່ງ​ມີ​ການ​ປຽບ​ທຽບ​ຕົວ​ເລກ​ແລະ​ສະ​ຕ​ຣິງ​ແຍກ​ຕ່າງ​ຫາກ​? ເພາະ​ວ່າ​ພວກ​ເຮົາ​ບໍ່​ມີ​
ປະເພດຕົວແປພິເສດ, ແລະ Perl ຕ້ອງການຮູ້ວ່າຈະຈັດລໍາດັບຕົວເລກ (ບ່ອນທີ່ 99
ໜ້ອຍກວ່າ 100) ຫຼືຕາມຕົວອັກສອນ (ບ່ອນທີ່ 100 ມາກ່ອນ 99).

ເຫດຜົນ Boolean
&& ແລະ
|| ຫຼື
! ບໍ່

("ແລະ", "ຫຼື" ແລະ "ບໍ່" ບໍ່ພຽງແຕ່ຢູ່ໃນຕາຕະລາງຂ້າງເທິງເປັນຄໍາອະທິບາຍຂອງ
ຜູ້ປະກອບການ. ພວກເຂົາເຈົ້າຍັງໄດ້ຮັບການສະຫນັບສະຫນູນເປັນຜູ້ປະກອບການໃນສິດທິຂອງເຂົາເຈົ້າເອງ. ເຂົາເຈົ້າຫຼາຍ
ສາມາດອ່ານໄດ້ຫຼາຍກວ່າຕົວປະຕິບັດການແບບ C, ແຕ່ມີຄວາມສຳຄັນທີ່ແຕກຕ່າງກັບ "&&" ແລະ
ໝູ່. ກວດເບິ່ງ perlop ສໍາລັບລາຍລະອຽດເພີ່ມເຕີມ.)

Miscellaneous
= ການມອບໝາຍ
. string concatenation
x ການຄູນສະຕຣິງ
.. range operator (ສ້າງລາຍຊື່ຂອງຕົວເລກ ຫຼື strings)

ຜູ້ປະກອບການຈໍານວນຫຼາຍສາມາດຖືກລວມເຂົ້າກັບ "=" ດັ່ງຕໍ່ໄປນີ້:

$a += 1; # ຄືກັນກັບ $a = $a + 1
$a -= 1; # ຄືກັນກັບ $a = $a - 1
$a .= "\n"; # ຄືກັນກັບ $a = $a . "\n";

ໄຟ ແລະ ຂ້າພະເຈົ້າ / O
ທ່ານ​ສາ​ມາດ​ເປີດ​ໄຟລ​໌​ສໍາ​ລັບ​ການ​ປ້ອນ​ຂໍ້​ມູນ​ຫຼື​ຜົນ​ຜະ​ລິດ​ໂດຍ​ການ​ນໍາ​ໃຊ້ "open()​" ການ​ທໍາ​ງານ​. ມັນຖືກບັນທຶກໄວ້ໃນ
ລາຍລະອຽດພິເສດໃນ perlfunc ແລະ perlopentut, ແຕ່ໃນສັ້ນ:

open($in ຂອງຂ້ອຍ, "<", "input.txt") ຫຼືຕາຍ "ບໍ່ສາມາດເປີດ input.txt: $!";
open($out ຂອງຂ້ອຍ, ">", "output.txt") ຫຼືຕາຍ "ບໍ່ສາມາດເປີດ output.txt: $!";
open(my $log,">>", "my.log") ຫຼືຕາຍ "ບໍ່ສາມາດເປີດ my.log: $!";

ທ່ານສາມາດອ່ານຈາກ filehandle ເປີດໂດຍໃຊ້ຕົວປະຕິບັດການ "<>". ໃນສະພາບການ scalar ມັນອ່ານ
ແຖວດຽວຈາກ filehandle, ແລະໃນລາຍການລາຍການມັນອ່ານໄຟລ໌ທັງໝົດໃນ,
ການມອບໝາຍແຕ່ລະແຖວໃຫ້ອົງປະກອບຂອງລາຍຊື່:

$line ຂອງຂ້ອຍ = <$in>;
@lines ຂອງຂ້ອຍ = <$in>;

ການອ່ານໃນໄຟລ໌ທັງຫມົດໃນເວລາດຽວເອີ້ນວ່າ slurping. ມັນສາມາດເປັນປະໂຫຍດແຕ່ມັນອາດຈະເປັນ
ເປັນຄວາມຊົງຈໍາ hog. ການປະມວນຜົນໄຟລ໌ຂໍ້ຄວາມສ່ວນໃຫຍ່ສາມາດເຮັດໄດ້ເປັນເສັ້ນໃນເວລາດຽວກັບ Perl ຂອງ looping
ກໍ່ສ້າງ.

ໂຕປະຕິບັດການ "<>" ມັກຈະເຫັນຢູ່ໃນວົງ "ໃນຂະນະທີ່":

ໃນຂະນະທີ່ (<$in>) { # ມອບໝາຍແຕ່ລະແຖວໃຫ້ $_
ພິມ "ພຽງແຕ່ອ່ານໃນແຖວນີ້: $_";
}

ພວກ​ເຮົາ​ໄດ້​ເຫັນ​ແລ້ວ​ວິ​ທີ​ການ​ພິມ​ອອກ​ເປັນ​ມາດ​ຕະ​ຖານ​ການ​ນໍາ​ໃຊ້ "print()​"​. ຢ່າງໃດກໍຕາມ, "ພິມ()"
ຍັງສາມາດເອົາ argument ທໍາອິດທີ່ເປັນທາງເລືອກທີ່ລະບຸວ່າ filehandle ໃດທີ່ຈະພິມໄປຫາ:

ພິມ STDERR "ນີ້ແມ່ນຄຳເຕືອນສຸດທ້າຍຂອງເຈົ້າ.\n";
ພິມ $out $record;
ພິມ $log $logmessage;

ເມື່ອທ່ານເຮັດແລ້ວກັບຕົວຈັດການໄຟລ໌ຂອງທ່ານ, ທ່ານຄວນ "ປິດ ()" ພວກມັນ (ເຖິງແມ່ນວ່າຈະຊື່ສັດ,
Perl ຈະເຮັດຄວາມສະອາດຫຼັງຈາກເຈົ້າຖ້າທ່ານລືມ):

ປິດ $in ຫຼືຕາຍ "$in: $!";

ເປັນປົກກະຕິ expressions
ການສະຫນັບສະຫນູນການສະແດງອອກເປັນປົກກະຕິຂອງ Perl ແມ່ນທັງກວ້າງແລະເລິກ, ແລະເປັນຫົວຂໍ້ຂອງຄວາມຍາວ
ເອກະສານໃນ perlrequick, perlretut, ແລະບ່ອນອື່ນໆ. ຢ່າງໃດກໍຕາມ, ໃນສັ້ນ:

ການຈັບຄູ່ແບບງ່າຍໆ
if (/foo/) { ... } # true ຖ້າ $_ ມີ "foo"
if ($a =~ /foo/) { ... } # true ຖ້າ $a ມີ "foo"

ຕົວປະຕິບັດການຈັບຄູ່ "//" ໄດ້ຖືກບັນທຶກໄວ້ໃນ perlop. ມັນເຮັດວຽກຢູ່ໃນ $_ ໂດຍຄ່າເລີ່ມຕົ້ນ, ຫຼື
ສາມາດຖືກຜູກມັດກັບຕົວແປອື່ນໂດຍໃຊ້ຕົວປະຕິບັດການຜູກມັດ "=~" (ຍັງບັນທຶກໄວ້ໃນ
perlop).

ການທົດແທນທີ່ງ່າຍດາຍ
s/foo/bar/; # ແທນ foo ດ້ວຍແຖບໃນ $_
$a =~ s/foo/bar/; # ແທນ foo ດ້ວຍແຖບໃນ $a
$a =~ s/foo/bar/g; # ແທນທີ່ Foo ທັງໝົດດ້ວຍແຖບ
# ໃນ $a

ຕົວປະຕິບັດການທົດແທນ "s///" ແມ່ນບັນທຶກໄວ້ໃນ perlop.

ການສະແດງອອກປົກກະຕິທີ່ສັບສົນຫຼາຍ
ທ່ານບໍ່ພຽງແຕ່ຕ້ອງຈັບຄູ່ໃນສາຍຄົງທີ່. ໃນຄວາມເປັນຈິງ, ທ່ານສາມາດຈັບຄູ່ພຽງແຕ່ກ່ຽວກັບ
ສິ່ງໃດກໍ່ຕາມທີ່ເຈົ້າສາມາດຝັນໄດ້ໂດຍການໃຊ້ການສະແດງອອກປົກກະຕິທີ່ສັບສົນກວ່າ. ພວກ​ນີ້​ແມ່ນ
ເອກະສານທີ່ມີຄວາມຍາວຫຼາຍໃນ perlre, ແຕ່ໃນເວລານີ້, ນີ້ແມ່ນການໂກງໄວ
ແຜ່ນ:

. ລັກສະນະດຽວ
\sa ຕົວອັກສອນຍະຫວ່າງ (ຍະຫວ່າງ, ແຖບ, ແຖວໃໝ່,
... )
\S ຕົວອັກສອນທີ່ບໍ່ແມ່ນຊ່ອງຂາວ
\da ຕົວເລກ (0-9)
\D ບໍ່ແມ່ນຕົວເລກ
\wa ຕົວອັກສອນ (az, AZ, 0-9, _)
\W ຕົວອັກສອນທີ່ບໍ່ແມ່ນຄໍາສັບ
[aeiou] ກົງກັບຕົວອັກສອນດຽວໃນຊຸດທີ່ໃຫ້
[^aeiou] ກົງກັບຕົວອັກສອນດຽວທີ່ຢູ່ນອກສິ່ງທີ່ໃຫ້
ທີ່ກໍານົດໄວ້
(foo|bar|baz) ກົງກັບທາງເລືອກໃດນຶ່ງທີ່ລະບຸໄວ້

^ ການ​ເລີ່ມ​ຕົ້ນ​ຂອງ​ສາຍ​ຕັ້ງ​
$ end of string

Quantifiers ສາມາດຖືກນໍາໃຊ້ເພື່ອກໍານົດຈໍານວນສິ່ງທີ່ຜ່ານມາທີ່ທ່ານຕ້ອງການກົງກັນ
on, ບ່ອນທີ່ "ສິ່ງ" ຫມາຍຄວາມວ່າເປັນຕົວຫນັງສື, ຫນຶ່ງໃນ metacharacters ລະບຸໄວ້
ຂ້າງເທິງ, ຫຼືກຸ່ມຂອງຕົວອັກສອນ ຫຼື metacharacters ໃນວົງເລັບ.

* ສູນຫຼືຫຼາຍກວ່າຂອງສິ່ງທີ່ຜ່ານມາ
+ ໜຶ່ງ ຫຼືຫຼາຍກວ່າສິ່ງທີ່ຜ່ານມາ
? ສູນຫຼືຫນຶ່ງໃນສິ່ງທີ່ຜ່ານມາ
{3} ກົງກັບ 3 ອັນກ່ອນໜ້ານີ້
{3,6} ກົງກັນລະຫວ່າງ 3 ແລະ 6 ຂອງສິ່ງທີ່ຜ່ານມາ
{3,} ກົງກັບ 3 ຫຼືຫຼາຍກວ່ານັ້ນຂອງອັນກ່ອນໜ້າ

ບາງຕົວຢ່າງສັ້ນໆ:

/^\d+/ ສະຕຣິງເລີ່ມຕົ້ນດ້ວຍຕົວເລກນຶ່ງໂຕ ຫຼືຫຼາຍກວ່ານັ້ນ
/^$/ ບໍ່ມີຫຍັງຢູ່ໃນສະຕຣິງ (ເລີ່ມຕົ້ນ ແລະສິ້ນສຸດແມ່ນ
ຕິດກັນ)
/(\d\s){3}/ ສາມຕົວເລກ, ແຕ່ລະອັນຕາມດ້ວຍຊ່ອງຫວ່າງ
ລັກສະນະ (ເຊັ່ນ "3 4 5")
/(a.)+/ ກົງກັບສະຕຣິງທີ່ແຕ່ລະເລກຄີກ
ຈົດຫມາຍແມ່ນ (ເຊັ່ນ "abacadaf")

# ວົງນີ້ອ່ານຈາກ STDIN, ແລະພິມເສັ້ນທີ່ບໍ່ແມ່ນຫວ່າງ:
ໃນຂະນະທີ່ (<>) {
ຕໍ່ໄປຖ້າ /^$/;
ພິມ;
}

ວົງເລັບສໍາລັບການຈັບ
ເຊັ່ນດຽວກັນກັບການຈັດກຸ່ມ, ວົງເລັບໃຫ້ບໍລິການຈຸດປະສົງທີສອງ. ພວກເຂົາສາມາດຖືກນໍາໃຊ້ເພື່ອເກັບກໍາ
ຜົນໄດ້ຮັບຂອງບາງສ່ວນຂອງການຈັບຄູ່ regexp ສໍາລັບການນໍາໃຊ້ຕໍ່ມາ. ຜົນໄດ້ຮັບສິ້ນສຸດລົງໃນ $1, $2
ແລະ​ອື່ນໆ.

# ວິທີທີ່ລາຄາຖືກແລະບໍ່ດີທີ່ຈະທໍາລາຍທີ່ຢູ່ອີເມວອອກເປັນສ່ວນຕ່າງໆ

ຖ້າ ($email =~ /([^@]+)@.+)/) {
ພິມ "ຊື່ຜູ້ໃຊ້ແມ່ນ $1\n";
ພິມ "ຊື່ເຈົ້າພາບແມ່ນ $2\n";
}

ຄຸນສົມບັດ regexp ອື່ນໆ
Perl regexps ຍັງສະຫນັບສະຫນູນ backreferences, lookaheads, ແລະທຸກປະເພດຂອງສະລັບສັບຊ້ອນອື່ນໆ
ລາຍລະອຽດ. ອ່ານທັງໝົດກ່ຽວກັບພວກມັນໃນ perlrequick, perlretut, ແລະ perlre.

ລາຍລັກອັກສອນ ປະຈຳຍ່ອຍ
ການ​ຂຽນ subroutines ແມ່ນ​ງ່າຍ​ດາຍ​:

ຜູ້ຕັດໄມ້ຍ່ອຍ {
$logmessage ຂອງຂ້ອຍ = shift;
ເປີດ $logfile ຂອງຂ້ອຍ, ">>", "my.log" ຫຼືຕາຍ "ບໍ່ສາມາດເປີດ my.log: $!";
ພິມ $logfile $logmessage;
}

ຕອນນີ້ພວກເຮົາສາມາດໃຊ້ subroutine ຄືກັບຟັງຊັນອື່ນໆທີ່ມີໃນຕົວ:

logger("ພວກ​ເຮົາ​ມີ​ການ​ເຮັດ​ວຽກ​ຍ່ອຍ​ຂອງ logger!");

"shift" ນັ້ນ​ແມ່ນ​ຫຍັງ? ດີ, ການໂຕ້ແຍ້ງກັບລາຍການຍ່ອຍແມ່ນມີໃຫ້ພວກເຮົາເປັນພິເສດ
array ເອີ້ນວ່າ @_ (ເບິ່ງ perlvar ສໍາລັບເພີ່ມເຕີມກ່ຽວກັບວ່າ). ການໂຕ້ຖຽງເລີ່ມຕົ້ນກັບ "shift"
function ພຽງແຕ່ເກີດຂຶ້ນເປັນ @_. ດັ່ງນັ້ນ "$logmessage ຂອງຂ້ອຍ = shift;" ຍ້າຍລາຍການທໍາອິດອອກ
ບັນຊີລາຍຊື່ຂອງການໂຕ້ຖຽງແລະມອບຫມາຍໃຫ້ $logmessage.

ພວກເຮົາສາມາດໝູນໃຊ້ @_ ໃນທາງອື່ນໄດ້ຄືກັນ:

my ($logmessage, $priority) = @_; # ທົ່ວໄປ
$logmessage ຂອງຂ້ອຍ = $_[0]; # ແປກ, ແລະຂີ້ຮ້າຍ

Subroutines ຍັງສາມາດສົ່ງຄືນຄ່າໄດ້:

ສີ່ຫຼ່ຽມຍ່ອຍ {
ຂອງຂ້ອຍ $num = shift;
$result ຂອງຂ້ອຍ = $num * $num;
ກັບຄືນ $result;
}

ຫຼັງຈາກນັ້ນ, ໃຊ້ມັນຄື:

$sq = ສີ່ຫລ່ຽມ(8)

ສໍາລັບຂໍ້ມູນເພີ່ມເຕີມກ່ຽວກັບການຂຽນບົດສະຫຼຸບ, ເບິ່ງ perlsub.

OO Perl
OO Perl ແມ່ນຂ້ອນຂ້າງງ່າຍດາຍແລະຖືກປະຕິບັດໂດຍໃຊ້ການອ້າງອີງທີ່ຮູ້ວ່າປະເພດໃດແດ່
ຈຸດປະສົງພວກເຂົາແມ່ນອີງໃສ່ແນວຄວາມຄິດຂອງ Perl ຂອງຊຸດ. ຢ່າງໃດກໍຕາມ, OO Perl ສ່ວນໃຫຍ່ແມ່ນເກີນ
ຂອບເຂດຂອງເອກະສານນີ້. ອ່ານ perlootut ແລະ perlobj.

ໃນຖານະເປັນນັກຂຽນໂປລແກລມ Perl ເລີ່ມຕົ້ນ, ການນໍາໃຊ້ທົ່ວໄປທີ່ສຸດຂອງ OO Perl ຂອງທ່ານຈະຢູ່ໃນການນໍາໃຊ້ທີສາມ -
ໂມດູນພັກ, ເຊິ່ງມີເອກະສານຂ້າງລຸ່ມນີ້.

ການນໍາໃຊ້ Perl ໂມດູນ
ໂມດູນ Perl ສະຫນອງລັກສະນະຕ່າງໆເພື່ອຊ່ວຍໃຫ້ທ່ານຫຼີກເວັ້ນການ reinventing ລໍ້, ແລະສາມາດ
ດາວໂຫຼດຈາກ CPAN ( http://www.cpan.org/ ). ຈໍານວນຂອງໂມດູນທີ່ນິຍົມແມ່ນ
ລວມໄປເຖິງການແຈກຢາຍ Perl ຕົວຂອງມັນເອງ.

ໝວດໝູ່ຂອງໂມດູນຕັ້ງແຕ່ການຈັດການຂໍ້ຄວາມໄປຫາໂປຣໂຕຄໍເຄືອຂ່າຍໄປຫາຖານຂໍ້ມູນ
ການ​ເຊື່ອມ​ໂຍງ​ກັບ​ຮູບ​ພາບ​. ບັນຊີລາຍຊື່ຂອງໂມດູນທີ່ຖືກຈັດປະເພດແມ່ນມີຢູ່ໃນ CPAN.

ເພື່ອຮຽນຮູ້ວິທີການຕິດຕັ້ງໂມດູນທີ່ທ່ານດາວໂຫລດຈາກ CPAN, ອ່ານ perlmodinstall.

ເພື່ອຮຽນຮູ້ວິທີການໃຊ້ໂມດູນໂດຍສະເພາະ, ໃຊ້ "perldoc ໂມດູນ::ຊື່". ໂດຍປົກກະຕິເຈົ້າຈະ
ຕ້ອງການ "ໃຊ້ ໂມດູນ::ຊື່", ເຊິ່ງຈະໃຫ້ທ່ານເຂົ້າເຖິງຫນ້າທີ່ສົ່ງອອກຫຼື OO
ການໂຕ້ຕອບກັບໂມດູນ.

perlfaq ປະກອບມີຄໍາຖາມແລະຄໍາຕອບທີ່ກ່ຽວຂ້ອງກັບວຽກງານທົ່ວໄປຫຼາຍ, ແລະມັກຈະສະຫນອງ
ຄໍາແນະນໍາສໍາລັບໂມດູນ CPAN ທີ່ດີທີ່ຈະໃຊ້.

perlmod ອະທິບາຍໂມດູນ Perl ໂດຍທົ່ວໄປ. perlmodlib ລາຍຊື່ໂມດູນທີ່ມາພ້ອມກັບ
ການ​ຕິດ​ຕັ້ງ Perl ຂອງ​ທ່ານ​.

ຖ້າທ່ານມີຄວາມຮູ້ສຶກຢາກຂຽນ Perl modules, perlnewmod ຈະໃຫ້ຄໍາແນະນໍາທີ່ດີ.

ໃຊ້ perlintro ອອນໄລນ໌ໂດຍໃຊ້ບໍລິການ onworks.net