Fitur tersembunyi dari Perl?

Apa saja fitur bahasa esoterik yang benar-benar bermanfaat di Perl yang sebenarnya bisa Anda gunakan untuk melakukan pekerjaan yang bermanfaat?

Pedoman:

• Cobalah untuk membatasi jawaban pada inti Perl dan bukan CPAN
• Tolong beri contoh dan deskripsi singkat

Fitur Tersembunyi juga ditemukan di Fitur Tersembunyi bahasa lain:

(Ini semua dari jawaban Corion )

• C
  • Perangkat Duff
  • Portabilitas dan Standar
• C #
  • Kutipan untuk daftar dan string yang dibatasi whitespace
  • Ruang nama yang dapat diubah
• Jawa
  • Peminat Statis
• JavaScript
  • Fungsinya adalah warga negara kelas satu
  • Blokir ruang lingkup dan penutupan
  • Metode panggilan dan accessor secara tidak langsung melalui variabel
• Rubi
  • Menentukan metode melalui kode
• PHP
  • Baca dokumentasi online
  • Metode ajaib
  • Referensi simbolik
• Python
  • Pertukaran nilai satu baris
  • Kemampuan untuk mengganti fungsi inti dengan fungsi Anda sendiri

Fitur Tersembunyi Lainnya:

Operator:

• Operator kuasi bool
• Operator flip-flop
  • Juga digunakan untuk konstruksi daftar
• Operator ++dan unary -bekerja pada string
• Operator pengulangan
• Operator pesawat ruang angkasa
• The || operator (dan // operator) untuk memilih dari serangkaian pilihan
• Operator berlian
• Kasus khusus dari m//operator
• "Operator" tilde-tilde

Mengutip konstruk:

• Operator qw
• Surat dapat digunakan sebagai pembatas kutipan dalam konstruksi q {} - seperti
• Mekanisme mengutip

Sintaks dan Nama:

• Mungkin ada ruang setelah sigil
• Anda dapat memberikan nama numerik subs dengan referensi simbolik
• Koma jejak hukum
• Literal Integer yang Dikelompokkan
• irisan hash
• Mengisi kunci hash dari sebuah array

Modul, Pragma, dan opsi baris perintah:

• gunakan peringatan ketat dan gunakan
• Pemeriksaan noda
• Penggunaan esoterik -n dan -p
• CPAN
• overload::constant
• IO :: Menangani modul
• Kompartemen aman
• Atribut

Variabel:

• Autovivification
• The $[variabel
• dasi
• Pelingkupan Dinamis
• Swapping variabel dengan satu pernyataan

Kontrol loop dan aliran:

• Goto ajaib
• for pada satu variabel
• lanjutkan klausa
• Mode putus asa

Ekspresi reguler:

• The \Gjangkar
• (?{}) dan '(?? {}) `di regex

Fitur lainnya:

• Debugger
• Blok kode khusus seperti BEGIN, CHECK, dan END
• The DATAblok
• Operasi Blok Baru
• Filter Sumber
• Pengait Sinyal
• peta ( dua kali )
• Membungkus fungsi bawaan
• The eoffungsi
• The dbmopenfungsi
• Mengubah peringatan menjadi kesalahan

Trik lain, dan meta-jawaban:

• file cat, dekompresi gzip jika perlu
• Tips Perl

Lihat juga:

• Fitur tersembunyi dari C
• Fitur tersembunyi dari C #
• Fitur tersembunyi dari C ++
• Fitur tersembunyi Jawa
• Fitur tersembunyi dari JavaScript
• Fitur tersembunyi Ruby
• Fitur tersembunyi dari PHP
• Fitur tersembunyi dari Python
• Fitur tersembunyi Clojure

Operator flip-flop berguna untuk melewatkan iterasi pertama ketika mengulangi catatan (biasanya baris) yang dikembalikan oleh file handle, tanpa menggunakan variabel flag:

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

Jalankan perldoc perlopdan cari "flip-flop" untuk informasi dan contoh lebih lanjut.

Ada banyak fitur yang tidak jelas di Perl.

Misalnya, apakah Anda tahu bahwa ada ruang setelah sigil?

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

Atau Anda dapat memberikan nama numerik subs jika Anda menggunakan referensi simbolik?

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

Ada juga operator kuasi "bool", yang mengembalikan 1 untuk ekspresi benar dan string kosong untuk false:

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

Hal menarik lainnya: dengan use overload Anda dapat membebani string literal dan angka (dan misalnya membuatnya BigInts atau apa pun).

Banyak dari hal-hal ini sebenarnya didokumentasikan di suatu tempat, atau mengikuti secara logis dari fitur-fitur yang didokumentasikan, tetapi beberapa tidak diketahui.

Perbarui : Satu lagi yang bagus. Di bawah q{...}konstruk penawaran disebutkan, tetapi apakah Anda tahu bahwa Anda dapat menggunakan huruf sebagai pembatas?

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

Anda juga dapat menulis ekspresi reguler:

m xabcx
# same as m/abc/

Tambahkan dukungan untuk file terkompresi melalui ARGV ajaib :

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;

(kutipan sekitar $ _ diperlukan untuk menangani nama file dengan karakter meta shell di)

Sekarang <>fitur tersebut akan mendekompres semua @ARGVfile yang diakhiri dengan ".gz" atau ".Z":

while (<>) {
    print;
}

Salah satu fitur favorit saya di Perl adalah menggunakan ||operator boolean untuk memilih di antara serangkaian pilihan.

 $x = $a || $b;

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

Ini berarti seseorang dapat menulis:

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

untuk mengambil nilai sebenarnya pertama dari $a, $b, dan$c , atau default0 sebaliknya.

Di Perl 5.10, ada juga //operator, yang mengembalikan sisi kiri jika sudah ditentukan, dan sisi kanan sebaliknya. Yang ditunjuk mengikuti pertama didefinisikan nilai dari $a, $b, $c, atau0 sebaliknya:

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

Ini juga dapat digunakan dengan form tangan pendeknya, yang sangat berguna untuk menyediakan default:

$ x || = 0; # Jika $ x salah, sekarang bernilai 0.

$ x // = 0; # Jika $ x tidak terdefinisi, sekarang memiliki nilai nol.

Cheerio,

Paul

Operator ++ dan unary - tidak hanya bekerja pada angka, tetapi juga pada string.

my $_ = "a"
print -$_

cetakan -a

print ++$_

cetakan b

$_ = 'z'
print ++$_

mencetak aa

Karena Perl memiliki hampir semua bagian "esoterik" dari daftar lain, saya akan memberi tahu Anda satu hal yang tidak dapat Perl:

Satu hal yang Perl tidak dapat lakukan adalah memiliki URL sewenang-wenang dalam kode Anda, karena // operator digunakan untuk ekspresi reguler.

Untuk berjaga-jaga kalau tidak jelas bagi Anda fitur apa yang ditawarkan Perl, berikut adalah daftar pilihan entri yang mungkin tidak sepenuhnya jelas:

Perangkat Duff - dalam Perl

Portabilitas dan Standar - Kemungkinan ada lebih banyak komputer dengan Perl daripada dengan kompiler C

Kelas manipulasi file / jalur - File :: Find berfungsi bahkan pada sistem operasi yang lebih banyak daripada .Net

Kutipan untuk daftar dan string yang dibatasi whitespace - Perl memungkinkan Anda untuk memilih kutipan yang hampir sewenang-wenang untuk daftar Anda dan pembatas string

Ruang nama yang dapat diubah - Perl memiliki ini melalui penugasan glob:

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

Inisialisasi statis - Perl dapat menjalankan kode di hampir setiap fase kompilasi dan instantiasi objek, dari BEGIN(parse kode) ke CHECK(setelah parse kode) ke import(pada impor modul) ke new(instantiasi objek) ke DESTROY(objek penghancuran) ke END( penghancuran objek) ke (keluar dari program)

Fungsinya adalah warga negara kelas satu - seperti di Perl

Blok cakupan dan penutupan - Perl memiliki keduanya

Metode panggilan dan accessor secara tidak langsung melalui variabel - Perl juga melakukannya:

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

Mendefinisikan metode melalui kode - Perl juga memungkinkan :

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

Dokumentasi pervasive online - Dokumentasi Perl online dan mungkin juga ada di sistem Anda

Metode ajaib yang dipanggil setiap kali Anda memanggil fungsi "tidak ada" - Perl mengimplementasikannya dalam fungsi AUTOLOAD

Referensi simbolik - Anda disarankan untuk menjauh dari ini. Mereka akan memakan anak-anakmu. Tapi tentu saja, Perl memungkinkan Anda untuk menawarkan anak-anak Anda kepada iblis yang haus darah.

Swapping nilai satu garis - Perl memungkinkan penugasan daftar

Kemampuan untuk mengganti fungsi inti dengan fungsi Anda sendiri

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

atau

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

unlink($_) for @ARGV

Autovivification . AFAIK tidak ada bahasa lain yang memilikinya .

Sangat mudah untuk mengutip hampir semua jenis string aneh di Perl.

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

Faktanya, berbagai mekanisme penawaran dalam Perl cukup menarik. Mekanisme mengutip seperti regex Perl memungkinkan Anda untuk mengutip sesuatu, menentukan pembatas. Anda dapat menggunakan hampir semua karakter khusus seperti #, /, atau membuka / menutup karakter seperti (), [], atau {}. Contoh:

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.);

Mekanisme mengutip:

q: kutipan literal; hanya karakter yang perlu melarikan diri adalah karakter akhir. qq: kutipan yang ditafsirkan; memproses variabel dan melarikan diri karakter. Bagus untuk string yang perlu Anda kutip:

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

qx: Bekerja seperti qq, tetapi kemudian menjalankannya sebagai perintah sistem, non-interaktif. Mengembalikan semua teks yang dihasilkan dari standar keluar. (Redirection, jika didukung dalam OS, juga keluar) Juga dilakukan dengan tanda kutip kembali (karakter `).

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

qr: Mengartikan seperti qq, tetapi kemudian mengkompilasinya sebagai ekspresi reguler. Bekerja dengan berbagai opsi pada regex juga. Anda sekarang dapat melewatkan regex sebagai variabel:

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: Operator penawaran yang sangat berguna. Mengubah seperangkat kata yang dikutip dari spasi putih yang dikutip menjadi daftar. Sangat bagus untuk mengisi data dalam unit test.

   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) ]; 

Mereka bagus untuk menggunakannya kapan pun hal itu membuat lebih jelas. Untuk qx, qq, dan q, kemungkinan besar saya menggunakan operator {}. Kebiasaan paling umum orang menggunakan qw biasanya operator (), tetapi kadang-kadang Anda juga melihat qw //.

Tidak benar-benar tersembunyi, tetapi banyak programmer setiap hari Perl tidak tahu tentang CPAN . Ini terutama berlaku untuk orang-orang yang bukan pemrogram penuh waktu atau tidak memprogram dalam waktu penuh Perl.

Pernyataan "untuk" dapat digunakan dengan cara yang sama "dengan" digunakan dalam Pascal:

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

Anda dapat menerapkan urutan operasi s / / /, dll untuk variabel yang sama tanpa harus mengulangi nama variabel.

CATATAN: ruang tanpa putus di atas (& nbsp;) telah menyembunyikan Unicode di dalamnya untuk menghindari penurunan harga. Jangan menyalinnya :)

Operator kata sandi adalah salah satu hal favorit saya. Membandingkan:

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

dan

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

Jauh lebih sedikit noise, lebih mudah pada mata. Hal lain yang sangat bagus tentang Perl, yang sangat dirindukan ketika menulis SQL, adalah bahwa tanda koma adalah sah:

print 1, 2, 3, ;

Itu terlihat aneh, tetapi tidak jika Anda indentasi kode dengan cara lain:

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

Menambahkan argumen tambahan ke pemanggilan fungsi tidak mengharuskan Anda untuk mengutak-atik koma pada garis sebelumnya atau garis akhir. Perubahan garis tunggal tidak berdampak pada garis sekitarnya.

Ini membuatnya sangat menyenangkan untuk bekerja dengan fungsi variadic. Ini mungkin salah satu fitur Perl yang paling rendah.

Kemampuan untuk mem-parsing data yang langsung disisipkan ke dalam blok DATA . Tidak perlu menyimpan ke file uji untuk dibuka di program atau serupa. Sebagai contoh:

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

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

Operasi Blok Baru

Saya akan mengatakan kemampuan untuk memperluas bahasa, membuat operasi pseudo block adalah satu.

1. Anda mendeklarasikan prototipe untuk sub yang menunjukkan bahwa dibutuhkan referensi kode terlebih dahulu:

   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. Anda kemudian dapat menyebutnya di dalam tubuh seperti itu

   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::Dumperadalah permata semi-tersembunyi.) Perhatikan bagaimana Anda tidak memerlukannyasub kata kunci di depan blok, atau koma sebelum hash. Itu akhirnya tampak seperti:map { } @list

Filter Sumber

Juga, ada filter sumber. Di mana Perl akan memberikan Anda kode sehingga Anda dapat memanipulasinya. Baik ini, dan operasi blok, cukup banyak jangan-coba-ini-di rumah.

Saya telah melakukan beberapa hal yang rapi dengan filter sumber, misalnya seperti membuat bahasa yang sangat sederhana untuk memeriksa waktu, memungkinkan Perl satu kalimat pendek untuk beberapa pengambilan keputusan:

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

Lib::TL hanya akan memindai "variabel" dan konstanta, membuat mereka dan menggantikannya sesuai kebutuhan.

Sekali lagi, filter sumber bisa berantakan, tetapi sangat kuat. Tetapi mereka dapat mengacaukan hal-hal buruk - dan bahkan peringatan dapat dicetak dengan nomor baris yang salah. Saya berhenti menggunakan Damian's Switch karena debugger akan kehilangan semua kemampuan untuk memberi tahu saya di mana saya sebenarnya. Tetapi saya telah menemukan bahwa Anda dapat meminimalkan kerusakan dengan memodifikasi bagian kecil kode, menjaganya tetap pada baris yang sama.

Pengait Sinyal

Sudah cukup sering dilakukan, tetapi tidak begitu jelas. Berikut adalah pawang mati yang mendukung piggy yang lama.

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

Itu berarti setiap kali modul lain dalam kode ingin mati, mereka harus datang kepada Anda (kecuali orang lain menimpa $SIG{__DIE__} ). Dan Anda dapat diberitahu bahwa ada sesuatu yang salah pada seseorang.

Tentu saja, untuk hal-hal yang cukup Anda hanya dapat menggunakan END { }blok, jika semua yang ingin Anda lakukan adalah membersihkan.

overload::constant

Anda dapat memeriksa literal jenis tertentu dalam paket yang menyertakan modul Anda. Misalnya, jika Anda menggunakan ini di importsub Anda :

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

itu berarti bahwa setiap bilangan bulat lebih besar dari 2 miliar dalam paket panggilan akan diubah menjadi Math::BigIntobjek. (Lihat kelebihan :: konstan ).

Literal Integer yang Dikelompokkan

Sementara kita melakukannya. Perl memungkinkan Anda untuk memecah sejumlah besar menjadi kelompok tiga digit dan masih mendapatkan integer parsable dari itu. Catatan di 2_000_000_000atas untuk 2 miliar.

Biner "x" adalah operator pengulangan :

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

Ini juga berfungsi dengan daftar:

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

Pemeriksaan noda. Dengan pemeriksaan noda diaktifkan, perl akan mati (atau memperingatkan, dengan-t ) jika Anda mencoba meneruskan data tercemar (secara kasar, data dari luar program) ke fungsi yang tidak aman (membuka file, menjalankan perintah eksternal, dll.). Sangat membantu ketika menulis skrip setuid atau CGI atau apa pun di mana skrip memiliki hak istimewa yang lebih besar daripada orang yang memberinya data.

Goto ajaib. goto &submelakukan panggilan ekor yang dioptimalkan.

Debugger.

use strictdan use warnings. Ini dapat menyelamatkan Anda dari banyak kesalahan ketik.

Berdasarkan cara "-n"dan "-p"sakelar diimplementasikan di Perl 5, Anda dapat menulis program yang tampaknya salah termasuk }{:

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

yang dikonversi secara internal ke kode ini:

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

Mari kita mulai dengan Operator Ruang Angkasa .

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

Ini adalah meta-jawaban, tetapi arsip Perl Tips berisi segala macam trik menarik yang dapat dilakukan dengan Perl. Arsip tips sebelumnya adalah online untuk browsing, dan dapat berlangganan melalui milis atau feed atom.

Beberapa tips favorit saya termasuk membangun executables dengan PAR , menggunakan autodie untuk melempar pengecualian secara otomatis , dan penggunaan switch dan konstruksi smart-match di Perl 5.10.

Pengungkapan: Saya adalah salah satu penulis dan pengelola Perl Tips, jadi saya jelas sangat memikirkan mereka. ;)

map - bukan hanya karena itu membuat kode seseorang lebih ekspresif, tetapi karena itu memberi saya dorongan untuk membaca sedikit lebih banyak tentang "pemrograman fungsional" ini.

Klausa melanjutkan loop. Ini akan dieksekusi di bagian bawah setiap loop, bahkan yang berikutnya.

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

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

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

Pilihan saya akan untuk grup (? {}) Dan (?? {}) dalam ekspresi reguler Perl. Yang pertama mengeksekusi kode Perl, mengabaikan nilai kembali, kode mengeksekusi kedua, menggunakan nilai kembali sebagai ekspresi reguler.

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

jangkar \ G. Ini panas .

The m//operator memiliki beberapa kasus khusus jelas:

• Jika Anda menggunakan ? sebagai pembatas itu hanya cocok sekali kecuali Anda menelepon reset.
• Jika Anda menggunakan 'sebagai pembatas, polanya tidak diinterpolasi.
• Jika polanya kosong, ia menggunakan polanya dari pertandingan terakhir yang berhasil.

Operator berlian filehandle nol <>memiliki tempat dalam membangun alat-alat baris perintah. Kerjanya suka <FH>membaca dari pegangan, kecuali bahwa secara ajaib memilih mana yang ditemukan pertama kali: nama file baris perintah atau STDIN. Diambil dari perlop:

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

Blok kode khusus seperti BEGIN, CHECKdanEND . Mereka berasal dari Awk, tetapi bekerja secara berbeda di Perl, karena tidak berbasis catatan.

The BEGINblok dapat digunakan untuk menentukan beberapa kode untuk tahap parsing; itu juga dieksekusi ketika Anda melakukan sintaks-dan-variabel-cek perl -c. Misalnya, memuat dalam variabel konfigurasi:

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

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

mengganti nama data.txt.part menjadi data.txt tanpa harus mengulang sendiri.

Agak tidak jelas adalah "operator" tilde-tilde yang memaksa konteks skalar.

print ~~ localtime;

sama dengan

print scalar localtime;

dan berbeda dari

print localtime;

dasi, antarmuka ikatan variabel.

"Mode putus asa" dari konstruksi kontrol loop Perl yang menyebabkan mereka mencari tumpukan untuk menemukan label yang cocok memungkinkan beberapa perilaku aneh yang diuji :: Lebih mengambil manfaat, baik atau buruk.

SKIP: {
    skip() if $something;

    print "Never printed";
}

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

Ada file .pmc yang sedikit diketahui. "use Foo" akan mencari Foo.pmc di @INC sebelum Foo.pm. Ini dimaksudkan untuk memungkinkan bytecode yang dikompilasi dimuat terlebih dahulu, tetapi Module :: Compile mengambil keuntungan dari ini untuk cache modul yang disaring sumber untuk waktu muat yang lebih cepat dan lebih mudah untuk debugging.

Kemampuan untuk mengubah peringatan menjadi kesalahan.

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

Itulah yang bisa saya pikirkan dari atas kepala saya yang belum disebutkan.

Operator kambing *:

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

atau

sub foo {
    return @_;
}

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

Ini berfungsi karena penugasan daftar dalam konteks skalar menghasilkan jumlah elemen dalam daftar yang ditugaskan.

* Catatan, bukan benar-benar operator