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

ໂຄງການ:

NAME

perldl - ແກະງ່າຍໆສໍາລັບ PDL (ເບິ່ງ pdl2)

ສະຫຼຸບສັງລວມ

ໃຊ້ PDL ແບບໂຕ້ຕອບ:

bash$ perldl
pdl> $a = ລໍາດັບ(10) # ຫຼືຄໍາສັ່ງ perl ຫຼື PDL ອື່ນໆ

bash$ pdl
pdl> ພິມ "ສະບາຍດີ, ໂລກ!\n";

ແລ່ນສະຄຣິບ:

bash$ cat > pdlscript
#!/usr/bin/pdl
ພິມ "ສະບາຍດີ, ໂລກ!\n";
...

ລາຍລະອຽດ

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

ຄຳສັບຄ້າຍຄືກັນ pdl ເປັນຕົວປະຕິບັດການລວບລວມທີ່ມີປະໂຫຍດເປັນຕົວແປສະຄຣິບໂດຍໃຊ້ UNIX
shebang ("#!") syntax. ນີ້ແມ່ນເປັນປະໂຫຍດສໍາລັບການສ້າງແລະ re-executing command-journal
ໄຟລ໌ຈາກ perdl.

ໄດ້ perdl shell ແລ່ນໄຟລ໌ເລີ່ມຕົ້ນເລີ່ມຕົ້ນ ("~/.perldlrc") ທີ່ສາມາດຖືກນໍາໃຊ້ເພື່ອ pre-load
ໂມດູນ perl ຫຼືຕັ້ງຄ່າສະພາບແວດລ້ອມ perl ທົ່ວໂລກ. ມັນມີລັກສະນະກົນໄກເສັ້ນທາງສໍາລັບ
autoloading perl subroutines. ມີກົນໄກປະຫວັດສາດຄໍາສັ່ງ, ແລະອື່ນໆອີກ
ຄຸນນະສົມບັດທີ່ເປັນປະໂຫຍດເຊັ່ນ: preprocessing ຄໍາສັ່ງ, ທາງລັດສໍາລັບຄໍາສັ່ງທີ່ໃຊ້ທົ່ວໄປເຊັ່ນ
ເປັນ "ພິມ", ແລະຄວາມສາມາດໃນການປະຕິບັດລະຫັດ arbitrary ທຸກຄັ້ງທີ່ prompt ຖືກພິມ.

ຂຶ້ນກັບການຕັ້ງຄ່າການຕັ້ງຄ່າຂອງທ່ານ, perdl ສາມາດຖືກຕັ້ງໃຫ້ເປັນກຽດ ຫຼື ບໍ່ສົນໃຈ ^D
(end-of-file) ຕົວ​ອັກ​ສອນ​ໃນ​ເວ​ລາ​ທີ່​ຖືກ​ສົ່ງ​ມາ​ຈາກ terminal​, ຫຼື​ພະ​ຍາ​ຍາມ​ທີ່​ຈະ​ເຮັດ​ສິ່ງ​ທີ່​ຖືກ​ຕ້ອງ​
ເມື່ອໂຄງສ້າງບລັອກທີ່ກວມເອົາຫຼາຍເສັ້ນແມ່ນພົບ.

perdl ແລະ pdl ສະ​ຫນັບ​ສະ​ຫນູນ​ທາງ​ເລືອກ​ໃນ​ບັນ​ຊີ​ຄໍາ​ສັ່ງ​ຈໍາ​ນວນ​ຫນຶ່ງ​, ເຊິ່ງ​ໄດ້​ຖືກ​ປຶກ​ສາ​ຫາ​ລື​ຢູ່​ໃກ້​ທີ່​ສຸດ​ຂອງ​
ເອກະສານນີ້.

ກະສານອ້າງອີງ ຄູ່ມື & ອອນໄລນ໌ ຊ່ວຍເຫຼືອ
ຄູ່ມືການອ້າງອິງ PDL ແລະການຊ່ວຍເຫຼືອອອນໄລນ໌ແມ່ນມີຢູ່ຈາກພາຍໃນ perdl, ການນໍາໃຊ້ ຊ່ວຍເຫຼືອ
ແລະ ປະມານ ຄໍາສັ່ງ (ຊຶ່ງອາດຈະຖືກຫຍໍ້ ? ແລະ ??.) ທ ຊ່ວຍເຫຼືອ ຄໍາສັ່ງຢ່າງດຽວ
ພິມບົດສະຫຼຸບຂອງ syntax ຊ່ວຍເຫຼືອ, ແລະ ຊ່ວຍເຫຼືອ ຈະພິມເອກະສານ POD ຈາກ
ໂມດູນທີ່ທ່ານກ່າວເຖິງ (POD ແມ່ນຮູບແບບ Perl ສໍາລັບການຝັງເອກະສານໃນ perl ຂອງທ່ານ
ລະຫັດ; ເບິ່ງ perlpod ສໍາລັບລາຍລະອຽດ).

ຖ້າທ່ານລວມເອົາເອກະສານ POD ໃນ autoload subroutines ຂອງທ່ານ (ເບິ່ງ ເສັ້ນທາງ ກົນໄກ ຂ້າງລຸ່ມນີ້),
ຫຼັງຈາກນັ້ນທັງສອງ ຊ່ວຍເຫຼືອ ແລະ ປະມານ ຈະຊອກຫາມັນແລະສາມາດຈັດຮູບແບບແລະສະແດງມັນຕາມຄວາມຕ້ອງການ.

ປະ​ຫວັດ​ສາດ ກົນໄກ
ຖ້າທ່ານມີໂມດູນ perl ReadLines ແລະ ReadKeys ຕິດຕັ້ງ, ຫຼັງຈາກນັ້ນ perdl ສະ ໜັບ ສະ ໜູນ ກ
ປະຫວັດສາດແລະກົນໄກການແກ້ໄຂເສັ້ນໂດຍໃຊ້ປຸ່ມແກ້ໄຂທີ່ຄ້າຍຄືກັນກັບ emacs. 500 ສຸດທ້າຍ
ຄໍາສັ່ງຈະຖືກເກັບໄວ້ໃນໄຟລ໌ສະເຫມີ .perldl_hist ໃນ​ບັນ​ຊີ​ລາຍ​ການ​ເຮືອນ​ຂອງ​ທ່ານ​ລະ​ຫວ່າງ​
ກອງປະຊຸມ. ຕັ້ງ $PERLDL::HISTFILESIZE ເພື່ອປ່ຽນຈຳນວນແຖວທີ່ບັນທຶກໄວ້. ຄໍາສັ່ງ "l
[number]" ສະແດງໃຫ້ທ່ານເຫັນຄໍາສັ່ງ "ຈໍານວນ" ສຸດທ້າຍທີ່ທ່ານພິມບ່ອນທີ່ "ຈໍານວນ" ເລີ່ມຕົ້ນເປັນ 20.

ຕົວຢ່າງ:

bash$ perldl
ເປີດໃຊ້ສາຍອ່ານແລ້ວ
pdl> $a = rfits "foo.fits"
BITPIX = -32 ຂະຫນາດ = 88504 pixels
ກຳລັງອ່ານ 354016 bytes
BSCALE = && BZERO =

pdl> ບັນທຶກຮູບພາບ($a+400)
ສະແດງຮູບພາບ 299 x 296 ຈາກ 4.6939525604248 ຫາ 9.67116928100586 ...

ຄໍາສັ່ງ ການປະຕິບັດ
ຖ້າທ່ານໃສ່ຄໍາສັ່ງງ່າຍໆຢູ່ທີ່ perdl ເສັ້ນຄໍາສັ່ງ, ມັນຖືກປະຕິບັດທັນທີໃນ a
Perl "eval()". ສະພາບແວດລ້ອມແມ່ນເກືອບຄືກັນກັບວ່າພາຍໃນສະຄິບ perl, ກັບ
ບາງຂໍ້ຍົກເວັ້ນທີ່ສໍາຄັນ:

· $_ ບໍ່ໄດ້ຖືກເກັບຮັກສາໄວ້ໃນທົ່ວສາຍ

$_ ຖືກນໍາໃຊ້ເພື່ອຖືເສັ້ນຄໍາສັ່ງສໍາລັບການປຸງແຕ່ງເບື້ອງຕົ້ນ, ດັ່ງນັ້ນໃນຕອນຕົ້ນຂອງ
ການປະມວນຜົນຂອງແຕ່ລະແຖວຄໍາສັ່ງ, $_ ມີຄໍາສັ່ງຂອງມັນເອງ. ໃຊ້ຕົວແປອື່ນໆ
ຫຼາຍກວ່າ $_ ເພື່ອເກັບຄ່າຂ້າມແຖວ.

· ຂອບເຂດບໍ່ໄດ້ຖືກຮັກສາໄວ້ໃນທົ່ວສາຍ

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

ຫມາຍເຫດ: pdl2 ຮັກສາຂອບເຂດ lexical ລະຫວ່າງເສັ້ນ.

· ການ​ປະ​ຕິ​ບັດ​ແມ່ນ​ທັນ​ທີ​ທັນ​ໃດ​

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

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

ພິມຄໍາວ່າ "ສະບາຍດີໂລກ" ໃນ Perl, ແຕ່ (ພາຍໃຕ້ສະຖານະການສ່ວນໃຫຍ່) "ສະບາຍດີ" ໃນ
perdl.

· ການ​ປະ​ຕິ​ບັດ​ຫຼາຍ​ເສັ້ນ​

ໃນ​ຮູບ​ແບບ​ຫຼາຍ​ເສັ້ນ (ທີ່​ຖືກ​ເປີດ​ໃຊ້​ງານ​ໂດຍ​ຄ່າ​ເລີ່ມ​ຕົ້ນ​, ເບິ່ງ​ Shell ຕົວແປ, ຂ້າງ​ລຸ່ມ​ນີ້​) perdl
ຄົ້ນ​ຫາ​ສໍາ​ລັບ​ການ​ຄົ້ນ​ຫາ​ສໍາ​ລັບ​ການ​ກໍ່​ສ້າງ​ຄ້າຍ​ຄື blocks ກັບ curly braces​, ວົງ​ເລັບ​, quotes​,
ແລະຕົວຂັ້ນທີ່ກ່ຽວຂ້ອງ. ຖ້າ​ເຈົ້າ​ປ່ອຍ​ການ​ກໍ່​ສ້າງ​ດັ່ງ​ກ່າວ​ເປີດ, perdl ຍອມຮັບສາຍຫຼາຍ
ຂອງການປ້ອນຂໍ້ມູນຈົນກວ່າທ່ານຈະປິດການກໍ່ສ້າງ ຫຼືສິ້ນສຸດການສະແດງອອກຫຼາຍແຖວຢ່າງຈະແຈ້ງ
^D. ປະຕິບັດຕາມຕົວຢ່າງຂ້າງເທິງ, ປະໂຫຍກ

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

ຈະພິມ "ສະບາຍດີໂລກ" ຈາກ Perl ຫຼື (ໃນຮູບແບບຫຼາຍແຖວ) perdl.

ການ​ເຕືອນ​ໄພ: ການວິເຄາະຫຼາຍແຖວໃຊ້ຂໍ້ຄວາມຂອງ Damian Conway ::ໂມດູນສົມດຸນ, ເຊິ່ງ
ມີຂໍ້ບົກພ່ອງບາງຢ່າງ - ດັ່ງນັ້ນມັນສາມາດຫຼອກລວງໄດ້ໂດຍຕົວປະຕິບັດການທີ່ຄ້າຍຄືຄໍາເວົ້າເຊັ່ນ "q/.../",
ລວມເອົາເອກະສານ POD, ຫຼາຍແຖວ "<<" quotes, ແລະບາງອັນທີ່ແປກປະຫຼາດໂດຍສະເພາະ.
ການຈັບຄູ່ "m/.../" ແລະ "s/.../.../" ທີ່ຖືກຕ້ອງ. ໃນກໍລະນີດັ່ງກ່າວ, ໃຊ້ ^D ເພື່ອປິດ
ອອກ​ຈາກ​ການ​ກໍ່​ສ້າງ​ຫຼາຍ​ເສັ້ນ​ແລະ​ບັງ​ຄັບ​ໃຫ້​ການ​ສັງ​ລວມ​ແລະ​ການ​ປະ​ຕິ​ບັດ​.

ຖ້າທ່ານຕ້ອງການຮັກສາພຶດຕິກໍານີ້ຢູ່ໃນສະຄິບ (ຕົວຢ່າງການຫຼິ້ນວາລະສານຄໍາສັ່ງ
ໄຟລ໌; ເບິ່ງຂ້າງລຸ່ມນີ້ກ່ຽວກັບວິທີການສ້າງຫນຶ່ງ), ທ່ານສາມາດນໍາໃຊ້ pdl ແທນ​ທີ່ perl ເປັນນາຍພາສາ
ໃນເສັ້ນ shebang ເບື້ອງຕົ້ນຂອງ script.

ສິ້ນສຸດ "perld"
ຊ່ວງເວລາ "perldl" ສາມາດຖືກຢຸດດ້ວຍຄໍາສັ່ງໃດໆ "ອອກ", "ອອກ" ຫຼືຄໍາສັ່ງ.
shorthands "x" ຫຼື "q". ຖ້າການຈັດການ EOF ຖືກເປີດ (ຄ່າເລີ່ມຕົ້ນ) ທ່ານສາມາດພິມ ^D ໄດ້
ຢູ່ໃນຄໍາສັ່ງ.

ຖ້າການປ້ອນຄໍາສັ່ງບໍ່ແມ່ນ terminal (ຕົວຢ່າງຖ້າທ່ານກໍາລັງແລ່ນຈາກຄໍາສັ່ງ
ເອກະສານວາລະສານ), ຫຼັງຈາກນັ້ນ EOF ສະເຫມີຈະຢຸດເຊົາ perdl.

ສິ້ນສຸດ ຄໍາສັ່ງ (Ctrl-C ການຈັດການ
ຄໍາສັ່ງທີ່ປະຕິບັດພາຍໃນ "perldl" ສາມາດຖືກຍົກເລີກກ່ອນໄວອັນຄວນໂດຍໃຊ້ "Ctrl-C" (ຫຼື
ອັນໃດກໍໄດ້ຕາມລຳດັບຫຼັກທີ່ສົ່ງສັນຍານ INT ໄປຫາຂະບວນການຢູ່ໃນເຄື່ອງຂອງທ່ານ). ສະຫນອງຂອງທ່ານ
ລະຫັດ PDL ບໍ່ໄດ້ລະເລີຍ "sigint"s ນີ້ຄວນຈະຖິ້ມທ່ານກັບຄືນໄປບ່ອນຄໍາສັ່ງ "perldl".
ວ່ອງໄວ:

pdl> $result = start_lengthy_computation()

ກວດພົບ Ctrl-C

pdl>

ລັດ ແລະ alias
· shell aliases "p" ເປັນຮູບແບບສັ້ນສະດວກຂອງ "ພິມ", eg

pdl > p ones 5,3

[
[1 1 1 1 1]
[1 1 1 1 1]
[1 1 1 1 1]
]

· "q" ແລະ "x" ແມ່ນສັ້ນສໍາລັບ "ເຊົາ".

· "l" ລາຍຊື່ buffer ປະຫວັດສາດ

pdl> l # ລາຍຊື່ 20 ຄໍາສັ່ງສຸດທ້າຍ

pdl> l 40 # ບັນຊີລາຍຊື່ສຸດທ້າຍ 40 ຄໍາສັ່ງ

· "?" ເປັນນາມແຝງສໍາລັບການຊ່ວຍເຫຼືອ

pdl> ? pdl2 # ໄດ້ຮັບການຊ່ວຍເຫຼືອສໍາລັບ pdl2 shell ໃຫມ່

· "??" ເປັນນາມແຝງສໍາລັບ apropos

pdl > ?? PDL::Doc

· help, apropos, ການນໍາໃຊ້ແລະ sig: ຄໍາສັບຕ່າງໆທັງຫມົດຫຼັງຈາກຄໍາສັ່ງເຫຼົ່ານີ້ແມ່ນໃຊ້ verbatim ແລະບໍ່
ປະເມີນໂດຍ perl. ດັ່ງນັ້ນທ່ານສາມາດຂຽນ, ຕົວຢ່າງ,

pdl> ຊ່ວຍ

ແທນ​ທີ່

pdl> ຊ່ວຍ 'ຊ່ວຍ'

ເສັ້ນຄໍາສັ່ງ ທາງເລືອກໃນການ
perdl ແລະ pdl ສະຫນັບສະຫນູນທາງເລືອກແຖວຄໍາສັ່ງຫຼາຍເພື່ອປັບພຶດຕິກໍາຂອງເຊດຊັນ.
ສ່ວນໃຫຍ່ຂອງພວກເຂົາແມ່ນທຽບເທົ່າກັບຄໍາສັ່ງທີ່ສາມາດເຂົ້າໄປໃນ pdl> ດ່ວນ. ພວກ​ເຂົາ​ແມ່ນ:

- ໂກດ
ໂຫລດ OpenGL ເມື່ອເລີ່ມຕົ້ນ shell (ໂມດູນ OpenGL perl, ທີ່ມີໃຫ້ຈາກ
CPAN ຕ້ອງໄດ້ຮັບການຕິດຕັ້ງ). ອັນນີ້ເປີດໃຊ້ງານການປະມວນຜົນເຫດການການອ່ານແຖວ. ຢ່າໃຊ້ກັບ
-tk.

-tk Load Tk ເມື່ອເລີ່ມຕົ້ນ shell (ໂມດູນ perl Tk, ທີ່ມີຢູ່ໃນ CPAN ຕ້ອງ
ໄດ້​ຮັບ​ການ​ຕິດ​ຕັ້ງ). ອັນນີ້ເປີດໃຊ້ງານການປະມວນຜົນເຫດການການອ່ານແຖວ. ຢ່າໃຊ້ກັບ -glut.

-f ໄຟລ໌
ໂຫຼດໄຟລ໌ກ່ອນທີ່ຈະປະມວນຜົນຂໍ້ມູນຜູ້ໃຊ້ໃດໆ. ຄວາມ​ຜິດ​ພາດ​ໃນ​ລະ​ຫວ່າງ​ການ​ປະ​ຕິ​ບັດ​ຂອງ​
ໄຟລ໌ແມ່ນເສຍຊີວິດ.

-w ແລ່ນດ້ວຍຂໍ້ຄວາມເຕືອນ (ເຊັ່ນ: ການເຕືອນໄພ perl "-w" ປົກກະຕິ) ເປີດ.

-M ໂມດູນ
ໂຫຼດໂມດູນກ່ອນທີ່ຈະປະມວນຜົນຂໍ້ມູນຜູ້ໃຊ້ໃດໆ. ປຽບທຽບ "perl" ທີ່ສອດຄ້ອງກັນ
ສະຫຼັບ.

-m ໂມດູນ
ຖອດໂມດູນອອກກ່ອນທີ່ຈະປະມວນຜົນຂໍ້ມູນຜູ້ໃຊ້ໃດໆ.

-I directory
ເພີ່ມໄດເລກະທໍລີໃສ່ເສັ້ນທາງລວມ. (ເຊັ່ນ: @INC array) ປຽບທຽບ "perl" ທີ່ສອດຄ້ອງກັນ
ສະຫຼັບ.

-V ພິມບົດສະຫຼຸບຂອງການຕັ້ງຄ່າ PDL. ຂໍ້ມູນນີ້ຄວນຈະຖືກລວມເຂົ້າກັບແມງໄມ້ PDL ໃດໆ
ລາຍງານ. ປຽບທຽບປຸ່ມ "perl" ທີ່ສອດຄ້ອງກັນ.

ໄດ້ ເລີ່ມຕົ້ນລະບົບ ເອກະສານ ~/.perldlrc
ຖ້າໄຟລ ~/.perldlrc ພົບເຫັນວ່າມັນແມ່ນມາຈາກການເລີ່ມຕົ້ນເພື່ອໂຫລດໂມດູນເລີ່ມຕົ້ນ, ຕັ້ງ
Shell variables, ແລະອື່ນໆ. ຖ້າບໍ່ພົບໄຟລ໌ແຈກຢາຍ PDL/default.perldlrc is
ອ່ານແທນ. ນີ້ໂຫຼດໂມດູນຕ່າງໆພິຈາລະນາທີ່ເປັນປະໂຫຍດໂດຍຄ່າເລີ່ມຕົ້ນ, ແລະຮັບປະກັນ
ຄວາມເຂົ້າກັນໄດ້ກັບ v1.11. ຖ້າ​ຫາກ​ວ່າ​ທ່ານ​ບໍ່​ມັກ​ນີ້​ແລະ​ຕ້ອງ​ການ​ຊຸດ​ຂອງ​ທ່ານ​ສະ​ດວກ​ສະ​ບາຍ​ຫຼາຍ​
ໂມດູນ favorite ຂອງຕົນເອງງ່າຍດາຍສ້າງຂອງທ່ານເອງ ~/.perldlrc. ທ່ານອາດຈະຕ້ອງການເລີ່ມຕົ້ນຈາກ
ມີຢູ່ແລ້ວ PDL/default.perldlrc ເປັນແມ່ແບບເນື່ອງຈາກວ່າມັນຈະບໍ່ມີແຫຼ່ງເມື່ອທ່ານປ່ຽນແທນ
ມັນ​ກັບ​ສະ​ບັບ​ຂອງ​ທ່ານ​ເອງ​.

ເພື່ອກໍານົດຄ່າເລີ່ມຕົ້ນໃນທ້ອງຖິ່ນຫຼາຍໄຟລ໌ local.perldlrc (ໃນໄດເລກະທໍລີປະຈຸບັນ) ແມ່ນ
ທີ່​ມາ​ຖ້າ​ຫາກ​ວ່າ​ພົບ​ເຫັນ​. ນີ້ຊ່ວຍໃຫ້ທ່ານສາມາດໂຫລດໂມດູນແລະກໍານົດ subroutines ສໍາລັບໂຄງການໃນ
ໄດເລກະທໍລີປະຈຸບັນ.

ຊື່ໄດ້ຖືກເລືອກໂດຍສະເພາະເນື່ອງຈາກວ່າມັນຖືກພົບເຫັນໄຟລ໌ທີ່ເຊື່ອງໄວ້ແມ່ນບໍ່ຕ້ອງການຢູ່ໃນເຫຼົ່ານີ້
ສະຖານະການ.

ໄຟລ໌ເລີ່ມຕົ້ນປົກກະຕິຄວນປະກອບມີ "ໃຊ້ PDL::AutoLoader;", ຄືກັນກັບຫຼາຍໆອັນທີ່ງາມກວ່າ
ຄຸນສົມບັດການໂຕ້ຕອບຈະບໍ່ເຮັດວຽກໂດຍບໍ່ມີມັນ.

Shell ຕົວແປ
ຕົວແປ Shell: (ຫມາຍ​ເຫດ​: ຖ້າ​ຫາກ​ວ່າ​ທ່ານ​ບໍ່​ມັກ​ການ​ເລີ່ມ​ຕົ້ນ​ການ​ປ່ຽນ​ແປງ​ໃຫ້​ເຂົາ​ເຈົ້າ​ໃນ​ ~/.perldlrc)

· $PERLDL::ESCAPE - ຄ່າເລີ່ມຕົ້ນ '#'

ເສັ້ນໃດກໍໄດ້ທີ່ເລີ່ມຕົ້ນດ້ວຍຕົວລະຄອນນີ້ຈະຖືກຖືວ່າເປັນການຫລົບໜີຈາກເປືອກ. ຄ່າເລີ່ມຕົ້ນ
ຖືກເລືອກເພາະວ່າມັນຫນີລະຫັດຈາກນາຍພາສາ perl ມາດຕະຖານ.

· $PERLDL::HISTFILESIZE - ຄ່າເລີ່ມຕົ້ນ 500

ນີ້ແມ່ນຈໍານວນແຖວຂອງປະຫວັດຄໍາສັ່ງ perldl shell ທີ່ຈະຮັກສາ.

· $PERLDL::PAGER - ຄ່າເລີ່ມຕົ້ນ "ຫຼາຍ"

ໂຄງການພາຍນອກເພື່ອກັ່ນຕອງຜົນຜະລິດຂອງຄໍາສັ່ງ. ການນໍາໃຊ້ "ຫຼາຍ" ພິມຜົນຜະລິດຫນຶ່ງ
ຈໍສະແດງຜົນໃນເວລາ. ໃນ Unix, ການຕັ້ງຄ່າ Page(1) ແລະ $PERLDL::PAGER ກັບ "tee -a outfile"
ຈະຮັກສາບັນທຶກຂອງຜົນຜະລິດທີ່ສ້າງຂຶ້ນໂດຍຄໍາສັ່ງ perldl ຕໍ່ມາ (ໂດຍບໍ່ມີການ
ຫນ້າ).

· $PERLDL::PROMPT - ຄ່າເລີ່ມຕົ້ນ 'pdl> '

ພຽງ​ພໍ​ທີ່​ເວົ້າ​ວ່າ​ແຕ່​ຍັງ​ສາ​ມາດ​ໄດ້​ຮັບ​ການ​ຕັ້ງ​ຄ່າ​ເປັນ subroutine ກະ​ສານ​ອ້າງ​ອີງ​ເຊັ່ນ $PERLDL::PROMPT =
sub {join(':',(gmtime)[2,1,0]).'> '} ເອົາເວລາປະຈຸບັນເຂົ້າໃນການເຕືອນ.

· $PERLDL::MULTI - ຄ່າເລີ່ມຕົ້ນ 1

ຖ້າອັນນີ້ຖືກຕັ້ງເປັນຄ່າທີ່ແທ້ຈິງ, perldl ຈະວິເຄາະຫຼາຍແຖວ perl blocks: your
ການປ້ອນຂໍ້ມູນຈະບໍ່ຖືກປະຕິບັດຈົນກວ່າທ່ານຈະສໍາເລັດເສັ້ນທີ່ບໍ່ມີຕົວປະຕິບັດການກຸ່ມທີ່ຍັງຄ້າງຄາ
(ເຊັ່ນ: ວົງຢືມ, ບລັອກ, ວົງເລັບ, ຫຼືວົງເລັບ) ຍັງເຮັດວຽກຢູ່. ສາຍຕໍ່ເນື່ອງ
ມີການກະຕຸ້ນເຕືອນທີ່ແຕກຕ່າງກັນທີ່ສະແດງໃຫ້ທ່ານເຫັນວ່າຕົວຂັ້ນໃດຍັງເຮັດວຽກຢູ່.

ໃຫ້ສັງເກດວ່ານີ້ບໍ່ແມ່ນ (ຍັງ!) ເປັນ perl parser ສົມບູນ. ໂດຍສະເພາະ, ຂໍ້ຄວາມ::ສົມດຸນ
ເບິ່ງຄືວ່າສາມາດບໍ່ສົນໃຈຕົວປະຕິບັດການອ້າງອີງເຊັ່ນ "q/ ... /" ພາຍໃນເສັ້ນ, ແຕ່ບໍ່ແມ່ນ
ເພື່ອໃຫ້ສາມາດຂະຫຍາຍພວກມັນຂ້າມສາຍໄດ້. ເຊັ່ນດຽວກັນ, ບໍ່ມີການສະຫນັບສະຫນູນສໍາລັບ '<<'
ຜູ້ປະກອບການ.

ສະຕຣິງແບບທຳມະດາຫຼາຍແຖວ ແລະການຈັດກຸ່ມ {}, [], ແລະ () ໄດ້ຮັບການສະໜັບສະໜູນເປັນຢ່າງດີ.

· $PERLDL::NO_EOF - ຄ່າເລີ່ມຕົ້ນ 0 / 1 ໃນ MSWin32

ປ້ອງກັນການໃຊ້ "^D" ໂດຍບັງເອີນຈາກເຄື່ອງຈ່າຍເງິນ. ຖ້າອັນນີ້ຖືກຕັ້ງເປັນຄວາມຈິງ
ຄ່າ, ຫຼັງຈາກນັ້ນທ່ານບໍ່ສາມາດອອກຈາກ perldl ໂດຍບັງເອີນໂດຍການພິມ "^D". ຖ້າ​ເຈົ້າ​ຕັ້ງ​ມັນ​ເປັນ a
ຄ່າທີ່ໃຫຍ່ກວ່າ 1 (ແລະ PERLDL::MULTI ຖືກຕັ້ງ), ຈາກນັ້ນທ່ານບໍ່ສາມາດໃຊ້ "^D" ເພື່ອອອກໄດ້.
ຄຳສັ່ງຫຼາຍແຖວ. ຖ້າທ່ານກໍາລັງທໍ່ຄໍາສັ່ງຈາກໄຟລ໌ຫຼືທໍ່, ນີ້
ຕົວແປບໍ່ມີຜົນກະທົບ.

· $HOME

ໄດເລກະທໍລີເຮືອນຂອງຜູ້ໃຊ້

· $PERLDL::TERM

ນີ້ແມ່ນຄໍາສັບ::ReadLine object ທີ່ກ່ຽວຂ້ອງກັບ perldl shell. ມັນສາມາດຖືກນໍາໃຊ້ໂດຍ
ປົກກະຕິເອີ້ນວ່າຈາກ perldl ຖ້າຄໍາສັ່ງຂອງທ່ານແມ່ນໂຕ້ຕອບ.

· $PDL::toolongtoprint

pdls ຂະໜາດສູງສຸດທີ່ຈະພິມ (ຄ່າເລີ່ມຕົ້ນເປັນ 10,000 ອົງປະກອບ). ນີ້ບໍ່ພຽງແຕ່ເປັນ
"perldl" ຫຼື "pdl2" ຕົວແປແຕ່ວ່າມັນເປັນສິ່ງທີ່ຈໍາເປັນໃນປົກກະຕິ
ເຊດຊັນການແກ້ບັນຫາແບບໂຕ້ຕອບ.

ການປະຕິບັດ scripts ຈາກ ໄດ້ "perld" ການກະຕຸ້ນເຕືອນ
idiom ທີ່ເປັນປະໂຫຍດສໍາລັບການພັດທະນາສະຄິບ perldl ຫຼືຫນ້າທີ່ແກ້ໄຂອອນໄລນ໌ແມ່ນ

pdl> # script emacs &
-- ເພີ່ມລະຫັດ perldl ໃສ່ສະຄຣິບ ແລະບັນທຶກໄຟລ໌

pdl> ເຮັດ 'script'

-- ປ່ຽນແທນຕົວແກ້ໄຂ window-based ທີ່ທ່ານມັກສໍາລັບ 'emacs' (ທ່ານອາດຈະຕ້ອງປ່ຽນເຊັ່ນກັນ
'&' ໃນລະບົບທີ່ບໍ່ແມ່ນ Unix).

ແລ່ນ "do 'script'" ອີກເທື່ອຫນຶ່ງປັບປຸງຕົວແປແລະຄໍານິຍາມຟັງຊັນຈາກ
ສະບັບປະຈຸບັນຂອງ 'script'.

ການປະຕິບັດ perdl scripts ຈາກ ໄດ້ ຄໍາສັ່ງ ອອນໄລນ໌
ສະຄຣິບ PDL ແມ່ນພຽງແຕ່ສະຄຣິບ perl ທີ່ເກີດຂື້ນກັບການໃຊ້ PDL (ແລະອາດຈະເປັນ PDL::NiceSlice).
ແຕ່ສໍາລັບຄົນຂີ້ຄ້ານແທ້ໆ, perldl ສາມາດຖືກເອີ້ນເປັນນາຍພາສາ script. ເນື່ອງຈາກວ່າ perldl ແມ່ນ
ຕົວຂອງມັນເອງເປັນສະຄິບ perl ທີ່ຖືກຕີຄວາມຫມາຍ, unices ສ່ວນໃຫຍ່ຈະບໍ່ອະນຸຍາດໃຫ້ທ່ານເວົ້າວ່າ "#!/usr/bin/perldl"
ຢູ່ເທິງສຸດຂອງສະຄຣິບຂອງທ່ານ.

ແທນທີ່ຈະ, ເວົ້າວ່າ "#!/usr/bin/pdl" ແລະ script ຂອງທ່ານຈະຖືກປະຕິບັດຢ່າງແນ່ນອນຄືກັບວ່າທ່ານພິມມັນ,
line-by-line, ເຂົ້າໄປໃນ perldl shell.

ຄໍາສັ່ງ ການປຸງແຕ່ງກ່ອນ
ໝາຍເຫດ: ຄຸນສົມບັດນີ້ຖືກໃຊ້ໂດຍຄ່າເລີ່ມຕົ້ນໂດຍ PDL::NiceSlice. ເບິ່ງຂ້າງລຸ່ມນີ້ສໍາລັບເພີ່ມເຕີມກ່ຽວກັບ slicing
ຢູ່ທີ່ "perldl" prompt

ໃນບາງກໍລະນີ, ມັນສະດວກຕໍ່ການປະມວນຜົນຄໍາສັ່ງກ່ອນທີ່ມັນຈະຖືກສົ່ງໄປຫາ perl ສໍາລັບ
ການ​ປະ​ຕິ​ບັດ​. ຕົວຢ່າງ, ນີ້ແມ່ນກໍລະນີທີ່ແກະໄດ້ຖືກນໍາສະເຫນີຕໍ່ຄົນ
ບໍ່ຄຸ້ນເຄີຍກັບ perl ແຕ່ຜູ້ທີ່ຕ້ອງການໃຊ້ປະໂຫຍດຈາກຄໍາສັ່ງທີ່ເພີ່ມຢູ່ໃນທ້ອງຖິ່ນ (ເຊັ່ນ: ໂດຍ
quoting arguments ອັດຕະໂນມັດກັບຄໍາສັ່ງສະເພາະໃດຫນຶ່ງ).

*ຫມາຍ​ເຫດ​*: ການ​ໂຕ້​ຕອບ preprocessing ໄດ້​ມີ​ການ​ປ່ຽນ​ແປງ​ຈາກ​ສະ​ບັບ​ກ່ອນ​ຫນ້າ​ນີ້​! ວິທີການເກົ່າທີ່ໃຊ້
$PERLDL::PREPROCESS ຈະຍັງເຮັດວຽກຢູ່ແຕ່ຖືກປະຕິເສດຢ່າງແຂງແຮງ ແລະອາດຈະຫາຍໄປໃນ
ໃນອະນາຄົດ.

ທ່ານສາມາດເປີດໃຊ້ການປຸງແຕ່ງກ່ອນໂດຍການລົງທະບຽນຕົວກອງທີ່ມີຟັງຊັນ "preproc_add".
"preproc_add" ໃຊ້ເວລາຫນຶ່ງ argument ເຊິ່ງເປັນຕົວກອງທີ່ຈະຕິດຕັ້ງ. ການກັ່ນຕອງແມ່ນ Perl
ການອ້າງອິງລະຫັດ (ປົກກະຕິແລ້ວຕັ້ງຢູ່ໃນໄຟລ໌ການຕັ້ງຄ່າທ້ອງຖິ່ນ) ທີ່ຈະຖືກເອີ້ນວ່າ, ກັບ
string ຄໍາສັ່ງປະຈຸບັນເປັນ argument, ພຽງແຕ່ກ່ອນທີ່ string ຈະຖືກປະຕິບັດໂດຍ shell.
ສະຕຣິງທີ່ຖືກແກ້ໄຂຄວນຈະຖືກສົ່ງຄືນ. ໃຫ້ສັງເກດວ່າທ່ານສາມາດເຮັດ "perldl" ຢ່າງສົມບູນ
ໃຊ້ບໍ່ໄດ້ຖ້າທ່ານບໍ່ສາມາດສົ່ງຄືນສະຕຣິງທີ່ຖືກແກ້ໄຂ; ການເຊົາເປັນທາງເລືອກດຽວຂອງເຈົ້າ.

ການກັ່ນຕອງສາມາດຖືກໂຍກຍ້າຍອອກຈາກທໍ່ preprocessing ໂດຍການໂທຫາ "preproc_del" ກັບ
ການກັ່ນຕອງທີ່ຈະເອົາອອກເປັນການໂຕ້ຖຽງ. ເພື່ອຊອກຫາວ່າການກັ່ນຕອງໄດ້ຖືກຕິດຕັ້ງຢູ່ໃນ
ທໍ່ສົ່ງກ່ອນການປຸງແຕ່ງໃຊ້ "preproc_registered":

pdl> preproc_add $myfilter ເວັ້ນເສຍແຕ່ preproc_registered $myfilter;

ຮຸ່ນກ່ອນໜ້າຂອງ "perldl" ໃຊ້ຕົວແປ $PERLDL::PREPROCESS. ນີ້ຍັງຈະເຮັດວຽກ
ແຕ່ຄວນຫຼີກເວັ້ນ. ກະລຸນາປ່ຽນສະຄຣິບຂອງທ່ານເພື່ອໃຊ້ຟັງຊັນ "preproc_add" ແລະອື່ນໆ.

ລະຫັດຕໍ່ໄປນີ້ຈະກວດສອບການໂທຫາເພື່ອປະຕິບັດຫນ້າທີ່ 'mysub' ແລະການໂຕ້ຖຽງວົງເລັບກັບ
qw.

$filter = preproc_add ຍ່ອຍ {
$str = shift;
$str =~ s/^\s+//; # ຊ່ອງຊັ້ນນໍາ
ຖ້າ ($str =~ /^mysub/) {
my ($command, $arguments) = split(/\s+/,$str, 2);
$str = "$command qw($arguments)"
ຖ້າ (ກໍານົດ $arguments && $arguments !~ /^qw/);
};
# ກັບຄືນສະຕຣິງປ້ອນຂໍ້ມູນ, ແກ້ໄຂຕາມຄວາມຕ້ອງການ
ກັບຄືນ $str;
};

ນີ້ຈະເປັນການແປງ:

pdl> mysub arg1 arg2

to

pdl> mysub qw( arg1 arg2 )

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

ທ່ານສາມາດເອົາ preprocessor ນີ້ອອກໂດຍໃຊ້ຟັງຊັນ "preproc_del" ເຊິ່ງໃຊ້ເວລາຫນຶ່ງ argument
(ການກັ່ນຕອງທີ່ຈະເອົາອອກ, ມັນຕ້ອງເປັນ coderef ດຽວກັນທີ່ຖືກສົ່ງຄືນຈາກທີ່ຜ່ານມາ
"preproc_add" ໂທ​:

pdl> preproc_del $filter;

ຕົວຢ່າງຂອງການນໍາໃຊ້ຕົວຈິງສາມາດພົບໄດ້ໃນສະຄິບ "perldl". ເບິ່ງຫນ້າທີ່
"trans" ເພື່ອເບິ່ງວ່າໂປເຊດເຊີ preprocessor niceslicing ຖືກເປີດໃຊ້ / ປິດການໃຊ້ງານແນວໃດ.

"perld" ແລະ PDL::NiceSlice
PDL::NiceSlice ແນະນຳ syntax slicing ທີ່ສະດວກກວ່າສຳລັບ piddles. ໃນ​ປະ​ຈຸ​ບັນ​
ເວີຊັນຂອງ "perldl" ແລະ "pdl2" niceslicing ຖືກເປີດໃຊ້ໂດຍຄ່າເລີ່ມຕົ້ນ (ຖ້າຕ້ອງການ CPAN
ໂມດູນຖືກຕິດຕັ້ງຢູ່ໃນເຄື່ອງຂອງເຈົ້າ).

ເມື່ອເລີ່ມຕົ້ນ "perldl" ຈະແຈ້ງໃຫ້ທ່ານຮູ້ຖ້າຫາກວ່າ niceslicing ຖືກເປີດໃຊ້. ຂໍ້ຄວາມເລີ່ມຕົ້ນຈະ
ປະກອບມີຂໍ້ມູນນີ້, ບາງສິ່ງບາງຢ່າງເຊັ່ນນີ້:

perlDL shell v1.XX
PDL ມາພ້ອມກັບການຮັບປະກັນຢ່າງແທ້ຈິງ. ສໍາລັບລາຍລະອຽດ, ເບິ່ງໄຟລ໌
'ການສຳເນົາ' ໃນການແຈກຢາຍ PDL. ນີ້ແມ່ນຊອບແວຟຣີແລະທ່ານ
ຍິນດີຕ້ອນຮັບການແຈກຢາຍມັນພາຍໃຕ້ເງື່ອນໄຂສະເພາະໃດຫນຶ່ງ, ເບິ່ງ
ໄຟລ໌ດຽວກັນສໍາລັບລາຍລະອຽດ.
ReadLines, NiceSlice ເປີດໃຊ້ງານແລ້ວ
ກຳລັງອ່ານ /home/csoelle/.perldlrc...
ພິມ 'demo' ສໍາລັບການສາທິດອອນໄລນ໌
ໂຫລດ PDL v2.XX

ເມື່ອທ່ານໄດ້ຮັບຂໍ້ຄວາມດັ່ງກ່າວທີ່ຊີ້ບອກວ່າ "NiceSlice" ຖືກເປີດໃຊ້, ທ່ານສາມາດນໍາໃຊ້ການປັບປຸງ
slicing syntax:

pdl> $a = ລໍາດັບ 10;
pdl> p $a(3:8:2)

ສໍາລັບລາຍລະອຽດປຶກສາ PDL::NiceSlice.

PDL::NiceSlice ຕິດ​ຕັ້ງ​ຕົວ​ກັ່ນ​ຕອງ​ໃນ​ທໍ່​ກ່ອນ​ການ​ປຸງ​ແຕ່ງ (ເບິ່ງ​ຂ້າງ​ເທິງ​) ເພື່ອ​ເຮັດ​ໃຫ້​ສາ​ມາດ​ໃຊ້​ໄດ້​.
ປັບປຸງ syntax slicing. ທ່ານສາມາດນໍາໃຊ້ຄໍາສັ່ງຈໍານວນຫນ້ອຍໃນ "perldl" shell ເພື່ອປ່ຽນນີ້
preprocessing ເປີດ ຫຼືປິດ ແລະຍັງກວດສອບຢ່າງຊັດເຈນການທົດແທນທີ່ NiceSlice
ການກັ່ນຕອງເຮັດໃຫ້.

ທ່ານສາມາດສະຫຼັບຕົວກອງ PDL::NiceSlice ເປີດ ແລະປິດໂດຍການພິມ

pdl> trans # switch niceslicing ເປີດ

ແລະ

pdl> notrans # switching niceslicing off

ຕາມລໍາດັບ. ການກັ່ນຕອງແມ່ນເປີດໂດຍຄ່າເລີ່ມຕົ້ນ.

ເພື່ອເບິ່ງວ່າຄໍາສັ່ງຂອງທ່ານຖືກແປແນວໃດ ສະຫຼັບລາຍງານຢູ່:

pdl> ບົດລາຍງານ 1;
pdl> p $a(3:8:2)
ປຸງແຕ່ງ p $a->nslice([3,8,2])
[3 5 7]

ເຊັ່ນດຽວກັນ, ປິດການລາຍງານຕາມຄວາມຕ້ອງການ

pdl> ບົດລາຍງານ 0;
pdl> p $a(3:8:2)
[3 5 7]

ການລາຍງານຖືກປິດໄວ້ໂດຍຄ່າເລີ່ມຕົ້ນ.

ອັດຕະໂນມັດ ປະຕິບັດ ຂອງ​ທ່ານ ຂອງຕົນເອງ hooks
ຕົວແປ @PERLDL::AUTO ແມ່ນລາຍຊື່ງ່າຍໆຂອງສະຕຣິງລະຫັດ perl ແລະ/ຫຼືການອ້າງອີງລະຫັດ. ມັນ
ຖືກນໍາໃຊ້ເພື່ອກໍານົດລະຫັດທີ່ຈະຖືກປະຕິບັດໂດຍອັດຕະໂນມັດທຸກໆຄັ້ງທີ່ຜູ້ໃຊ້ເຂົ້າໄປໃນແຖວໃຫມ່.

ຕົວຢ່າງງ່າຍໆແມ່ນການພິມເວລາຂອງແຕ່ລະຄໍາສັ່ງ:

pdl> push @PERLDL::AUTO,'print scalar(gmtime),"\n"'

pdl> ພິມສູນ(3,3)
Sun May 3 04:49:05 1998

[
[0 0 0]
[0 0 0]
[0 0 0]
]

pdl> ພິມ "Boo"
Sun May 3 04:49:18 1998
Boo
pdl>

ຫຼືເພື່ອໃຫ້ແນ່ໃຈວ່າການປ່ຽນແປງໃດໆໃນໄຟລ໌ 'local.perldlrc' ຈະຖືກເກັບຂຶ້ນສະເໝີ :-

pdl> push @PERLDL::AUTO,"do 'local.perldlrc'"

ລະຫັດນີ້ສາມາດຖືກໃສ່ໃນ * 'local.perldlrc' ແນ່ນອນ, ແຕ່ລະວັງ :-) [Hint: add
"ເວັ້ນເສຍແຕ່ ($started ++)" ໄປຂ້າງເທິງເພື່ອຮັບປະກັນວ່າມັນຈະສໍາເລັດພຽງແຕ່ຄັ້ງດຽວ!]

ຄໍາຮ້ອງສະຫມັກຕົວຢ່າງອື່ນແມ່ນເປັນ hook ສໍາລັບ Autoloaders (ເຊັ່ນ: PDL::AutoLoader) ເພື່ອເພີ່ມ
ລະ​ຫັດ​ເຊັ່ນ​ດຽວ​ກັນ​ທີ່​ອະ​ນຸ​ຍາດ​ໃຫ້​ເຂົາ​ເຈົ້າ​ອັດ​ຕະ​ໂນ​ມັດ​ການ​ສະ​ແກນ​ໄຟລ​໌​ຂອງ​ເຂົາ​ເຈົ້າ​ສໍາ​ລັບ​ການ​ປ່ຽນ​ແປງ​ໃຫມ່​. ນີ້​ແມ່ນ
ສະດວກທີ່ສຸດຢູ່ໃນເສັ້ນຄໍາສັ່ງແບບໂຕ້ຕອບ. ເນື່ອງຈາກວ່າ hook ນີ້ແມ່ນພຽງແຕ່ຢູ່ໃນແກະ
ມັນບັງຄັບໃຊ້ສະຄິບ PDL ທີ່ບໍ່ມີປະສິດທິພາບ.

ສຸດທ້າຍສັງເກດວ່ານີ້ແມ່ນສິ່ງອໍານວຍຄວາມສະດວກທີ່ມີປະສິດທິພາບຫຼາຍ - ຊຶ່ງຫມາຍຄວາມວ່າມັນຄວນຈະຖືກນໍາໃຊ້ກັບ
ລະມັດລະວັງ!

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