Perl one-liner Perl

ตัวอย่างโค้ด Perl สำหรับ Perl one-liner ที่ตอบคำขอไปยัง /pixel.gif ด้วย GIF ว่าง ซึ่งถอดรหัสเพียงครั้งเดียวตอนเริ่มทำงาน

พาธ

perl -MMIME::Base64 -e 'binmode STDOUT; print decode_base64("R0lGODlhAQABAIAAAP///wAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw==")' > pixel.gif

เรารันตัวอย่างโค้ดนี้และเทียบไบต์ที่ได้กลับมาแล้ว

เพิ่มเติมใน Perl