คุณสมบัติที่ซ่อนของ Perl?

อะไรคือคุณสมบัติภาษาที่มีประโยชน์จริงๆ แต่ลึกลับใน Perl ที่คุณสามารถใช้เพื่อทำงานที่เป็นประโยชน์ได้จริง?

แนวทาง:

• พยายาม จำกัด คำตอบสำหรับแกน Perl ไม่ใช่ CPAN
• โปรดยกตัวอย่างและคำอธิบายสั้น ๆ

คุณสมบัติที่ซ่อนอยู่ยังพบในคุณสมบัติที่ซ่อนอยู่ของภาษาอื่น:

(ทั้งหมดนี้มาจากคำตอบของ Corion )

• ค
  • อุปกรณ์ของดัฟฟ์
  • พกพาและมาตรฐาน
• ค#
  • คำพูดสำหรับรายการและสตริงที่คั่นด้วยช่องว่าง
  • เนมสเปซที่ใช้นามแฝงได้
• ชวา
  • Initalizers คงที่
• JavaScript
  • ฟังก์ชั่นเป็นพลเมืองชั้นหนึ่ง
  • บล็อกขอบเขตและการปิด
  • วิธีการเรียกและ accessors ทางอ้อมผ่านตัวแปร
• ทับทิม
  • การกำหนดวิธีการผ่านรหัส
• PHP
  • เอกสารออนไลน์ที่แพร่หลาย
  • วิธีเวทย์มนตร์
  • การอ้างอิงสัญลักษณ์
• หลาม
  • การสลับค่าหนึ่งบรรทัด
  • ความสามารถในการแทนที่ฟังก์ชั่นหลักด้วยฟังก์ชันของคุณเอง

คุณสมบัติที่ซ่อนอื่น ๆ :

ผู้ประกอบการ:

• ผู้ประกอบการเสมือนบูล
• ผู้ประกอบการปัดพลิก
  • ยังใช้สำหรับการก่อสร้างรายการ
• ตัว++ดำเนินการและ unary -ทำงานกับสตริง
• ผู้ประกอบการซ้ำซ้อน
• ผู้ประกอบการยานอวกาศ
• | | | โอเปอเรเตอร์ (และโอเปอเรเตอร์) เพื่อเลือกจากชุดตัวเลือก
• ผู้ประกอบการเพชร
• กรณีพิเศษของm//ผู้ประกอบการ
• tilde-tilde "โอเปอเรเตอร์"

โครงสร้างการอ้างอิง:

• ตัวดำเนินการ qw
• ตัวอักษรสามารถใช้เป็นตัวคั่นเครื่องหมายคำพูดใน q {} - เช่นการสร้าง
• กลไกการอ้างอิง

ไวยากรณ์และชื่อ:

• อาจมีช่องว่างหลังจาก sigil
• คุณสามารถตั้งชื่อตัวเลขให้กับการอ้างอิงเชิงสัญลักษณ์ได้
• จุลภาคตามกฎหมาย
• ตัวอักษรจำนวนเต็มของกลุ่ม
• ชิ้นกัญชา
• การเติมคีย์ของแฮชจากอาร์เรย์

โมดูลตัวเลือก Pragmas และตัวเลือกบรรทัดคำสั่ง:

• ใช้คำเตือนที่เข้มงวดและใช้คำเตือน
• การตรวจสอบมัวหมอง
• การใช้งานที่ลึกลับของ -n และ -p
• CPAN
• overload::constant
• IO :: จัดการกับโมดูล
• ช่องเก็บของที่ปลอดภัย
• คุณลักษณะ

ตัวแปร:

• Autovivification
• $[ตัวแปร
• ผูก
• การกำหนดขอบเขตแบบไดนามิก
• การสลับตัวแปรด้วยคำสั่งเดียว

ลูปและการควบคุมการไหล:

• Magic goto
• for บนตัวแปรเดียว
• ประโยคต่อไป
• โหมดสิ้นคิด

นิพจน์ทั่วไป:

• เรื่องของ\Gสมอ
• (?{}) และ '(?? {}) `ใน regexes

คุณสมบัติอื่น ๆ :

• ตัวดีบัก
• บล็อคโค้ดพิเศษเช่น BEGIN, CHECK และ END
• การDATAปิดกั้น
• ใหม่การปฏิบัติการบล็อก
• ตัวกรองแหล่งที่มา
• สัญญาณตะขอ
• แผนที่ ( สองครั้ง )
• การห่อฟังก์ชั่นในตัว
• eofฟังก์ชั่น
• dbmopenฟังก์ชั่น
• เปลี่ยนคำเตือนเป็นข้อผิดพลาด

เทคนิคอื่น ๆ และคำตอบเมตา:

• ไฟล์ cat, คลายการบีบอัดไฟล์ซิปหากจำเป็น
• เคล็ดลับ Perl

ดูสิ่งนี้ด้วย:

• คุณสมบัติที่ซ่อนอยู่ของ C
• คุณสมบัติที่ซ่อนของ C #
• คุณสมบัติที่ซ่อนอยู่ของ C ++
• คุณสมบัติที่ซ่อนของ Java
• คุณสมบัติที่ซ่อนของ JavaScript
• คุณสมบัติที่ซ่อนของ Ruby
• คุณสมบัติที่ซ่อนของ PHP
• คุณสมบัติที่ซ่อนของ Python
• คุณสมบัติที่ซ่อนของ Clojure

ตัวดำเนินการ flip-flop มีประโยชน์สำหรับการข้ามการวนซ้ำครั้งแรกเมื่อวนรอบระเบียน (โดยทั่วไปคือบรรทัด) ที่ส่งคืนโดยตัวจัดการไฟล์โดยไม่ใช้ตัวแปรแฟล็ก:

while(<$fh>)
{
  next if 1..1; # skip first record
  ...
}

เรียกใช้perldoc perlopและค้นหา "flip-flop" เพื่อดูข้อมูลและตัวอย่างเพิ่มเติม

มีคุณสมบัติที่ไม่ชัดเจนมากมายใน Perl

ตัวอย่างเช่นคุณรู้หรือไม่ว่าอาจมีช่องว่างหลังจาก sigil

 $ perl -wle 'my $x = 3; print $ x'
 3

หรือว่าคุณสามารถให้ชื่อที่เป็นตัวเลขย่อยได้ถ้าคุณใช้การอ้างอิงเชิงสัญลักษณ์?

$ perl -lwe '*4 = sub { print "yes" }; 4->()' 
yes

นอกจากนี้ยังมีตัวดำเนินการเสมือน "bool" ซึ่งส่งคืน 1 สำหรับนิพจน์จริงและสตริงว่างสำหรับเท็จ:

$ perl -wle 'print !!4'
1
$ perl -wle 'print !!"0 but true"'
1
$ perl -wle 'print !!0'
(empty line)

สิ่งที่น่าสนใจอื่น ๆ : use overloadคุณสามารถโหลดตัวอักษรและตัวเลขของสตริงได้มากเกินไป (เช่นทำให้ BigInts หรืออะไรก็ตาม)

หลายสิ่งเหล่านี้มีการบันทึกไว้ที่ใดที่หนึ่งจริง ๆ หรือทำตามเหตุผลจากคุณสมบัติที่เป็นเอกสาร แต่อย่างไรก็ตามบางอย่างก็ไม่เป็นที่รู้จัก

อัปเดต : อีกอันหนึ่งที่ดี ด้านล่างโครงสร้างการq{...}อ้างอิงถูกกล่าวถึง แต่คุณรู้หรือไม่ว่าคุณสามารถใช้ตัวอักษรเป็นตัวคั่นได้

$ perl -Mstrict  -wle 'print q bJet another perl hacker.b'
Jet another perl hacker.

ในทำนองเดียวกันคุณสามารถเขียนนิพจน์ปกติ:

m xabcx
# same as m/abc/

เพิ่มการรองรับไฟล์บีบอัดผ่านmagic ARGV :

s{ 
    ^            # make sure to get whole filename
    ( 
      [^'] +     # at least one non-quote
      \.         # extension dot
      (?:        # now either suffix
          gz
        | Z 
       )
    )
    \z           # through the end
}{gzcat '$1' |}xs for @ARGV;

(อัญประกาศประมาณ $ _ จำเป็นเพื่อจัดการชื่อไฟล์ด้วยเชลล์เมตาอักขระใน)

ตอนนี้<>คุณสมบัติจะขยาย@ARGVไฟล์ที่ลงท้ายด้วย ".gz" หรือ ".Z":

while (<>) {
    print;
}

หนึ่งในคุณสมบัติที่ฉันโปรดปรานใน Perl คือการใช้ตัว||ดำเนินการบูลีนเพื่อเลือกระหว่างชุดตัวเลือก

 $x = $a || $b;

 # $x = $a, if $a is true.
 # $x = $b, otherwise

นี่หมายความว่าเราสามารถเขียน:

 $x = $a || $b || $c || 0;

จะใช้มูลค่าที่แท้จริงเป็นครั้งแรกจาก$a, $bและ$cหรือค่าเริ่มต้นของ0อย่างอื่น

ใน Perl 5.10 ยังมี//โอเปอเรเตอร์ซึ่งจะส่งคืนทางด้านซ้ายถ้ากำหนดไว้และทางขวามือเป็นอย่างอื่น ที่เลือกต่อไปนี้เป็นครั้งแรกที่กำหนดค่าจาก$a, $b, $cหรือ0อย่างอื่น

$ x = $ a // $ b // $ c // 0;

สิ่งเหล่านี้สามารถใช้กับแบบฟอร์มระยะสั้นซึ่งมีประโยชน์มากสำหรับการให้ค่าเริ่มต้น:

$ x || = 0; # ถ้า $ x เป็นเท็จตอนนี้จะมีค่าเป็น 0

$ x // = 0; # ถ้า $ x ไม่ได้ถูกกำหนดตอนนี้ก็จะมีค่าเป็นศูนย์

ไชโย,

พอล

ตัวดำเนินการ ++ และไม่รวม - ไม่เพียงทำงานกับตัวเลข แต่ยังรวมถึงสายอักขระด้วย

my $_ = "a"
print -$_

พิมพ์-a

print ++$_

พิมพ์b

$_ = 'z'
print ++$_

พิมพ์aa

เนื่องจาก Perl มีชิ้นส่วน "ความลับ" เกือบทั้งหมดจากรายการอื่น ๆ ฉันจะบอกคุณสิ่งหนึ่งที่ Perl ไม่สามารถ:

สิ่งหนึ่งที่ Perl ไม่สามารถทำได้คือมี URL ที่ไม่เจาะจงในโค้ดของคุณเนื่องจาก//โอเปอเรเตอร์นั้นใช้สำหรับการแสดงผลปกติ

ในกรณีที่มันไม่ชัดเจนกับคุณในสิ่งที่คุณสมบัติ Perl เสนอนี่คือรายการที่เลือกของรายการอาจจะไม่ชัดเจนโดยสิ้นเชิง:

อุปกรณ์ของ Duff - ใน Perl

ความสะดวกในการพกพาและความเป็นมาตรฐาน - อาจมีคอมพิวเตอร์ที่ใช้ Perl มากกว่าคอมไพเลอร์ C

คลาสการจัดการไฟล์ / พา ธ - ไฟล์ :: Find ใช้งานได้กับระบบปฏิบัติการมากกว่า. Net

คำพูดสำหรับรายการ และสตริงที่คั่นด้วยช่องว่าง - Perl ช่วยให้คุณสามารถเลือกคำพูดที่เกือบจะสุ่มสำหรับรายการและตัวคั่นสตริงของคุณ

เนมสเปซที่มีนามแฝง - Perl มีการมอบหมายผ่าน glob:

*My::Namespace:: = \%Your::Namespace

initializers คงที่ - Perl สามารถเรียกใช้รหัสในเกือบทุกขั้นตอนของการรวบรวมและ instantiation วัตถุทุกจากBEGIN(รหัสแจง) ไปCHECK(หลังจากแยกรหัส) ไปimport(ที่นำเข้าโมดูล) ไปnew(วัตถุ instantiation) ไปDESTROY(ทำลายวัตถุ) ไปEND(โปรแกรมออก)

ฟังก์ชั่นเป็นพลเมืองชั้นหนึ่ง - เหมือนกับใน Perl

ขอบเขตบล็อกและการปิด - Perl มีทั้ง

การเรียกใช้เมธอดและตัวเข้าถึงโดยอ้อมผ่านตัวแปร - Perl ก็ทำเช่นนั้นเช่นกัน:

my $method = 'foo';
my $obj = My::Class->new();
$obj->$method( 'baz' ); # calls $obj->foo( 'baz' )

การกำหนดเมธอดผ่านโค้ด - Perl อนุญาตให้ทำได้เช่นกัน:

*foo = sub { print "Hello world" };

เอกสารออนไลน์ที่แพร่หลาย - เอกสารPerl นั้นออนไลน์และมีแนวโน้มที่ระบบของคุณด้วย

วิธีเวทย์มนตร์ที่ถูกเรียกเมื่อใดก็ตามที่คุณเรียกใช้ฟังก์ชั่น "nonexisting" - Perl ใช้ในฟังก์ชัน AUTOLOAD

การอ้างอิงสัญลักษณ์ - คุณควรหลีกเลี่ยงสิ่งเหล่านี้ พวกเขาจะกินลูกของคุณ แต่แน่นอน Perl ช่วยให้คุณสามารถให้ลูกของคุณกับปีศาจกระหายเลือด

การสลับค่าหนึ่งบรรทัด - Perl อนุญาตให้กำหนดรายการ

ความสามารถในการแทนที่ฟังก์ชั่นหลักด้วยฟังก์ชันของคุณเอง

use subs 'unlink'; 
sub unlink { print 'No.' }

หรือ

BEGIN{
    *CORE::GLOBAL::unlink = sub {print 'no'}
};

unlink($_) for @ARGV

การปรับปรุงอัตโนมัติ AFAIK ไม่มีภาษาอื่น ๆ ที่มีมัน

มันง่ายที่จะพูดสตริงแปลก ๆ เกือบทุกชนิดใน Perl

my $url = q{http://my.url.com/any/arbitrary/path/in/the/url.html};

ในความเป็นจริงกลไกการอ้างอิงต่างๆใน Perl นั้นน่าสนใจทีเดียว กลไกการอ้างอิงแบบ regex เหมือน Perl อนุญาตให้คุณพูดอะไรก็ได้โดยระบุตัวคั่น คุณสามารถใช้อักขระพิเศษเกือบทุกตัวเช่น #, / หรือตัวอักษรเปิด / ปิดเช่น (), [] หรือ {} ตัวอย่าง:

my $var  = q#some string where the pound is the final escape.#;
my $var2 = q{A more pleasant way of escaping.};
my $var3 = q(Others prefer parens as the quote mechanism.);

กลไกการอ้างอิง:

q: คำพูดตามตัวอักษร; เฉพาะอักขระที่ต้องหลบหนีคือตัวละครสุดท้าย qq: คำพูดที่ตีความ; ประมวลผลตัวแปรและอักขระยกเว้น ยอดเยี่ยมสำหรับสตริงที่คุณต้องอ้างถึง:

my $var4 = qq{This "$mechanism" is broken.  Please inform "$user" at "$email" about it.};

qx: ทำงานเหมือน qq แต่จากนั้นเรียกใช้งานมันเป็นคำสั่งระบบไม่ใช่แบบโต้ตอบ ส่งคืนข้อความทั้งหมดที่สร้างจากมาตรฐาน (การเปลี่ยนเส้นทางหากได้รับการสนับสนุนในระบบปฏิบัติการก็จะออกมา) นอกจากนี้ยังมีเครื่องหมายคำพูดย้อนกลับ (อักขระ `)

my $output  = qx{type "$path"};      # get just the output
my $moreout = qx{type "$path" 2>&1}; # get stuff on stderr too

qr: การตีความเช่น qq แต่จากนั้นรวบรวมเป็นนิพจน์ปกติ ทำงานร่วมกับตัวเลือกต่าง ๆ ใน regex เช่นกัน ตอนนี้คุณสามารถส่ง regex ไปรอบ ๆ เป็นตัวแปร:

sub MyRegexCheck {
    my ($string, $regex) = @_;
    if ($string)
    {
       return ($string =~ $regex);
    }
    return; # returns 'null' or 'empty' in every context
}

my $regex = qr{http://[\w]\.com/([\w]+/)+};
@results = MyRegexCheck(q{http://myurl.com/subpath1/subpath2/}, $regex);

qw: โอเปอเรเตอร์การเสนอราคาที่มีประโยชน์มาก เปลี่ยนชุดคำที่คั่นด้วยช่องว่างที่ยกมาเป็นรายการ เหมาะสำหรับการกรอกข้อมูลในการทดสอบหน่วย

   my @allowed = qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z { });
   my @badwords = qw(WORD1 word2 word3 word4);
   my @numbers = qw(one two three four 5 six seven); # works with numbers too
   my @list = ('string with space', qw(eight nine), "a $var"); # works in other lists
   my $arrayref = [ qw(and it works in arrays too) ]; 

พวกเขายอดเยี่ยมที่จะใช้พวกเขาเมื่อใดก็ตามที่ทำให้สิ่งต่าง ๆ ชัดเจนขึ้น สำหรับ qx, qq และ q ฉันมักจะใช้ตัวดำเนินการ {} นิสัยที่พบบ่อยที่สุดของคนที่ใช้ qw มักจะเป็นตัวดำเนินการ () แต่บางครั้งคุณก็เห็น qw //

ไม่ซ่อนจริงๆ แต่ส่วนมากทุกวันโปรแกรมเมอร์ Perl ไม่ทราบเกี่ยวกับCPAN โดยเฉพาะอย่างยิ่งนี้ใช้กับผู้ที่ไม่ได้โปรแกรมเมอร์เต็มเวลาหรือไม่เขียนโปรแกรมในแบบเต็มเวลา Perl

สามารถใช้คำสั่ง "for" ในลักษณะเดียวกับ "with" ใน Pascal:

for ($item)
{
    s/&‎nbsp;/ /g;
    s/<.*?>/ /g;
    $_ = join(" ", split(" ", $_));
}

คุณสามารถใช้ลำดับของการดำเนินการ s /// ฯลฯ กับตัวแปรเดียวกันโดยไม่ต้องทำซ้ำชื่อตัวแปร

หมายเหตุ: พื้นที่ที่ไม่ทำลายด้านบน (& nbsp;) ได้ซ่อน Unicode ไว้ในนั้นเพื่อหลีกเลี่ยง Markdown อย่าคัดลอกวาง :)

ผู้ดำเนินการคำพูดเป็นหนึ่งในสิ่งที่ฉันโปรดปราน เปรียบเทียบ:

my @list = ('abc', 'def', 'ghi', 'jkl');

และ

my @list = qw(abc def ghi jkl);

เสียงรบกวนน้อยลงง่ายขึ้นในสายตา อีกสิ่งที่ดีมากเกี่ยวกับ Perl ที่พลาดไปเมื่อเขียน SQL ก็คือเครื่องหมายจุลภาคต่อท้ายนั้นถูกกฎหมาย:

print 1, 2, 3, ;

ดูเหมือนแปลก แต่ไม่ใช่ถ้าคุณเยื้องรหัสด้วยวิธีอื่น:

print
    results_of_foo(),
    results_of_xyzzy(),
    results_of_quux(),
    ;

การเพิ่มอาร์กิวเมนต์เพิ่มเติมให้กับการเรียกใช้ฟังก์ชั่นไม่จำเป็นต้องให้คุณคลานไปรอบ ๆ ด้วยเครื่องหมายจุลภาคในบรรทัดก่อนหน้าหรือต่อท้ายบรรทัด การเปลี่ยนแปลงบรรทัดเดียวไม่มีผลกระทบกับบรรทัดโดยรอบ

สิ่งนี้ทำให้การทำงานกับฟังก์ชัน Variadic เป็นที่พอใจ นี่อาจเป็นหนึ่งในคุณสมบัติที่ไม่ได้รับการจัดอันดับมากที่สุดของ Perl

ความสามารถในการแยกวิเคราะห์ข้อมูลวางโดยตรงในบล็อกข้อมูล ไม่จำเป็นต้องบันทึกลงในไฟล์ทดสอบที่จะเปิดในโปรแกรมหรือที่คล้ายกัน ตัวอย่างเช่น:

my @lines = <DATA>;
for (@lines) {
    print if /bad/;
}

__DATA__
some good data
some bad data
more good data 
more good data 

ใหม่การปฏิบัติการบล็อก

ฉันว่าความสามารถในการขยายภาษาการสร้างการดำเนินการบล็อกหลอกเป็นหนึ่ง

1. คุณประกาศต้นแบบสำหรับย่อยที่ระบุว่าใช้การอ้างอิงรหัสก่อน:

   sub do_stuff_with_a_hash (&\%) {
       my ( $block_of_code, $hash_ref ) = @_;
       while ( my ( $k, $v ) = each %$hash_ref ) { 
           $block_of_code->( $k, $v );
       }
   }

2. จากนั้นคุณสามารถเรียกมันในร่างกายเช่นนั้น

   use Data::Dumper;
   
   do_stuff_with_a_hash {
       local $Data::Dumper::Terse = 1;
       my ( $k, $v ) = @_;
       say qq(Hey, the key   is "$k"!);
       say sprintf qq(Hey, the value is "%v"!), Dumper( $v );
   
   } %stuff_for
   ;

( Data::Dumper::Dumperเป็นอัญมณีกึ่งซ่อนเร้นอีกตัว) สังเกตว่าคุณไม่จำเป็นต้องใช้subคำสำคัญหน้าบล็อกหรือเครื่องหมายจุลภาคก่อนแฮช มันจบลงด้วยการมองเช่น:map { } @list

ตัวกรองแหล่งที่มา

นอกจากนี้ยังมีตัวกรองแหล่งที่มา ที่ไหน Perl จะส่งรหัสให้คุณเพื่อให้คุณสามารถจัดการกับมัน ทั้งการดำเนินการนี้และการดำเนินการบล็อกนั้นเป็นสิ่งที่ไม่ควรลองทำที่บ้าน

ฉันได้ทำสิ่งที่เรียบร้อยด้วยตัวกรองซอร์สเช่นการสร้างภาษาที่ง่ายมากในการตรวจสอบเวลาทำให้ Perl one-liners สั้น ๆ สำหรับการตัดสินใจ:

perl -MLib::DB -MLib::TL -e 'run_expensive_database_delete() if $hour_of_day < AM_7';

Lib::TL จะสแกนทั้ง "ตัวแปร" และค่าคงที่สร้างและแทนที่ตามต้องการ

ตัวกรองแหล่งที่มาอีกครั้งอาจยุ่ง แต่มีประสิทธิภาพ แต่พวกเขาสามารถแก้ไขข้อผิดพลาดบางอย่างที่ร้ายแรง - และแม้แต่คำเตือนก็สามารถพิมพ์ด้วยหมายเลขบรรทัดผิด ฉันหยุดใช้สวิตช์ของเดเมียนเพราะดีบักเกอร์จะสูญเสียความสามารถในการบอกฉันว่าฉันอยู่ที่ไหน แต่ฉันพบว่าคุณสามารถลดความเสียหายโดยการแก้ไขส่วนเล็ก ๆ ของรหัสทำให้พวกเขาอยู่ในบรรทัดเดียวกัน

สัญญาณตะขอ

มันมักจะทำพอ แต่ก็ไม่ชัดเจน นี่คือตัวจัดการความตายที่ลูกหมูอยู่ข้างหลังตัวเก่า

my $old_die_handler = $SIG{__DIE__};
$SIG{__DIE__}       
    = sub { say q(Hey! I'm DYIN' over here!); goto &$old_die_handler; }
    ;

นั่นหมายความว่าเมื่อใดก็ตามที่บางโมดูลอื่น ๆ ในรหัสที่ต้องการที่จะตายพวกเขาต้องมาให้คุณ (ยกเว้นกรณีที่คนอื่นไม่ได้เขียนทับทำลายบน$SIG{__DIE__}) และคุณจะได้รับแจ้งว่ามีบางสิ่งที่ผิดพลาด

แน่นอนว่ามีสิ่งต่างๆมากพอที่คุณจะสามารถใช้END { }บล็อกได้หากสิ่งที่คุณต้องการทำคือทำความสะอาด

overload::constant

คุณสามารถตรวจสอบตัวอักษรบางประเภทในแพ็คเกจที่รวมถึงโมดูลของคุณ ตัวอย่างเช่นหากคุณใช้สิ่งนี้ในimportส่วนย่อยของคุณ:

overload::constant 
    integer => sub { 
        my $lit = shift;
        return $lit > 2_000_000_000 ? Math::BigInt->new( $lit ) : $lit 
    };

มันจะหมายความว่าทุกจำนวนเต็มมากกว่า 2 พันล้านในแพ็คเกจการโทรจะถูกเปลี่ยนเป็นMath::BigIntวัตถุ (ดูเกินพิกัด :: ค่าคงที่ )

ตัวอักษรจำนวนเต็มของกลุ่ม

ในขณะที่เราอยู่ที่นั้น Perl ช่วยให้คุณสามารถแบ่งตัวเลขขนาดใหญ่ออกเป็นกลุ่มตัวเลขสามหลักและยังคงได้จำนวนเต็มแยกออกจากมัน หมายเหตุ2_000_000_000ด้านบนสำหรับ 2 พันล้าน

ไบนารี "x" เป็นตัวดำเนินการซ้ำซ้อน :

print '-' x 80;     # print row of dashes

นอกจากนี้ยังทำงานกับรายการ:

print for (1, 4, 9) x 3; # print 149149149

การตรวจสอบมัวหมอง เมื่อเปิดใช้งานการตรวจสอบมลทิน Perl จะตาย (หรือเตือนด้วย-t) หากคุณพยายามส่งข้อมูลที่ปนเปื้อน (การพูดอย่างคร่าวๆข้อมูลจากนอกโปรแกรม) ไปยังฟังก์ชันที่ไม่ปลอดภัย (การเปิดไฟล์เรียกใช้คำสั่งภายนอกเป็นต้น) มันจะมีประโยชน์มากเมื่อเขียนสคริปต์ setuid หรือ CGIs หรือสิ่งใดก็ตามที่สคริปต์มีสิทธิ์มากกว่าผู้ที่ป้อนข้อมูล

Magic goto goto &subโทรหางที่ดีที่สุด

ตัวดีบัก

use strictuse warningsและ สิ่งเหล่านี้สามารถช่วยคุณประหยัดจากการพิมพ์ผิด ๆ

ขึ้นอยู่กับวิธีการ"-n"และ"-p"สวิตช์ถูกนำไปใช้ใน Perl 5 คุณสามารถเขียนโปรแกรมที่ดูเหมือนไม่ถูกต้องซึ่งรวมถึง}{:

ls |perl -lne 'print $_; }{ print "$. Files"'

ซึ่งถูกแปลงภายในเป็นรหัสนี้:

LINE: while (defined($_ = <ARGV>)) {
    print $_; }{ print "$. Files";
}

เริ่มต้นให้ง่ายกับผู้ประกอบการยานอวกาศ

$a = 5 <=> 7;  # $a is set to -1
$a = 7 <=> 5;  # $a is set to 1
$a = 6 <=> 6;  # $a is set to 0

นี่คือคำตอบเมตา แต่ที่เก็บถาวรเคล็ดลับ Perl มีเคล็ดลับที่น่าสนใจทุกประเภทที่สามารถทำได้ด้วย Perl การเก็บถาวรของเคล็ดลับก่อนหน้านี้เป็นแบบออนไลน์สำหรับการเรียกดูและสามารถสมัครผ่านทางรายชื่อผู้รับจดหมายหรือฟีด atom

บางเคล็ดลับที่ชื่นชอบรวมถึงการสร้าง executables กับ PAR , ใช้ autodie จะโยนข้อยกเว้นโดยอัตโนมัติและการใช้งานของสวิทช์และสมาร์ทการแข่งขันสร้างใน Perl 5.10

การเปิดเผยข้อมูล:ฉันเป็นหนึ่งในผู้แต่งและผู้ดูแลรักษาเคล็ดลับ Perl ดังนั้นฉันจึงคิดว่าสูงมาก ;)

map - ไม่เพียงเพราะมันทำให้โค้ดของเราแสดงออกมากขึ้น แต่เพราะมันทำให้ฉันรู้สึกอยากอ่านเพิ่มเติมเล็กน้อยเกี่ยวกับ "การเขียนโปรแกรมเชิงปฏิบัติการ"

ประโยคต่อไปบนลูป มันจะถูกดำเนินการที่ด้านล่างของทุกวงแม้กระทั่งผู้ที่อยู่ถัดไป

while( <> ){
  print "top of loop\n";
  chomp;

  next if /next/i;
  last if /last/i;

  print "bottom of loop\n";
}continue{
  print "continue\n";
}

คะแนนของฉันจะเป็นของกลุ่ม (? {}) และ (?? {}) ในการแสดงออกปกติของ Perl ตัวแรกรันโค้ด Perl โดยไม่สนใจค่าส่งคืนส่วนที่สองเรียกใช้โค้ดโดยใช้ค่าส่งคืนเป็นนิพจน์ทั่วไป

while(/\G(\b\w*\b)/g) {
     print "$1\n";
}

ผู้ยึด \ G มันร้อน

m//ผู้ประกอบการที่มีบางกรณีพิเศษปิดบัง:

• ถ้าคุณใช้ ?resetเป็นตัวคั่นเพียงครั้งเดียวตรงจนกว่าคุณจะเรียก
• ถ้าคุณใช้ 'เป็นตัวคั่นรูปแบบจะไม่ถูกสอดแทรก
• หากรูปแบบว่างเปล่ามันจะใช้รูปแบบจากการแข่งขันที่ประสบความสำเร็จครั้งล่าสุด

ตัวดำเนินการ null filehandle diamond <>มีตำแหน่งในการสร้างเครื่องมือบรรทัดคำสั่ง มันทำหน้าที่เหมือน<FH>การอ่านจากที่จับยกเว้นว่ามันจะเลือกสิ่งที่พบได้อย่างน่าอัศจรรย์: ชื่อไฟล์บรรทัดคำสั่งหรือ STDIN นำมาจาก perlop:

while (<>) {
...         # code for each line
}

รหัสบล็อกพิเศษเช่นBEGIN, และCHECK ENDพวกเขามาจาก Awk แต่ทำงานแตกต่างกันใน Perl เพราะมันไม่ได้เป็นฐานข้อมูล

BEGINบล็อกสามารถนำมาใช้เพื่อระบุรหัสบางอย่างสำหรับขั้นตอนการแยก; perl -cมันจะถูกดำเนินการเมื่อคุณทำไวยากรณ์และตัวแปรการตรวจสอบ ตัวอย่างเช่นการโหลดตัวแปรการกำหนดค่า:

BEGIN {
    eval {
        require 'config.local.pl';
    };
    if ($@) {
        require 'config.default.pl';
    }
}

rename("$_.part", $_) for "data.txt";

เปลี่ยนชื่อ data.txt.part เป็น data.txt โดยไม่ต้องทำซ้ำตัวเอง

สิ่งที่คลุมเครือเล็กน้อยคือ "โอเปอเรเตอร์" tilde-tilde ซึ่งบังคับให้บริบทสเกลาร์

print ~~ localtime;

เป็นเช่นเดียวกับ

print scalar localtime;

และแตกต่างจาก

print localtime;

tie, อินเตอร์เฟสการคาดเดาตัวแปร

"โหมดการหมดหวัง" ของการควบคุมลูปของ Perl ซึ่งทำให้พวกเขาค้นหาสแต็กเพื่อค้นหาเลเบลที่ตรงกันช่วยให้พฤติกรรมที่อยากรู้อยากเห็นซึ่ง Test :: More ใช้ประโยชน์จากดีกว่าหรือแย่กว่านั้น

SKIP: {
    skip() if $something;

    print "Never printed";
}

sub skip {
    no warnings "exiting";
    last SKIP;
}

มีไฟล์. pmc ที่รู้จักกันน้อย "use Foo" จะค้นหา Foo.pmc ใน @INC ก่อน Foo.pm สิ่งนี้มีจุดประสงค์เพื่อให้สามารถโหลด bytecode ที่คอมไพล์ได้ก่อน แต่Module :: Compileใช้ประโยชน์จากสิ่งนี้เพื่อแคชโมดูลที่ถูกกรองซอร์สสำหรับเวลาโหลดเร็วขึ้นและการดีบักง่ายขึ้น

ความสามารถในการเปลี่ยนคำเตือนเป็นข้อผิดพลาด

local $SIG{__WARN__} = sub { die @_ };
$num = "two";
$sum = 1 + $num;
print "Never reached";

นั่นคือสิ่งที่ฉันสามารถนึกได้จากส่วนบนของหัวที่ไม่ได้กล่าวถึง

ผู้ประกอบการแพะ*:

$_ = "foo bar";
my $count =()= /[aeiou]/g; #3

หรือ

sub foo {
    return @_;
}

$count =()= foo(qw/a b c d/); #4

มันใช้งานได้เนื่องจากการกำหนดรายการในบริบทสเกลาร์ทำให้จำนวนองค์ประกอบในรายการที่ได้รับมอบหมาย

* หมายเหตุไม่ใช่ผู้ประกอบการจริงๆ