Perl - อินพุต / เอาท์พุตพื้นฐาน

Perl - อินพุตและเอาต์พุตมาตรฐาน

Perl อนุญาตให้คุณเขียนไปยังเอาต์พุตมาตรฐานที่เรียกว่า STDOUT และอ่านอินพุตมาตรฐาน (STDIN) คำอธิบายสองตัวนี้จัดทำโดยระบบปฏิบัติการอนุญาตให้อ่านคีย์บอร์ดและการแสดงข้อมูลบนหน้าจอ ในความเป็นจริง Perl ขึ้นอยู่กับระบบ UNIX ซึ่ง input-output ถือว่าเป็นไฟล์

ตัวอย่างเช่นบนเว็บเซิร์ฟเวอร์ที่ใช้สคริปต์ CGI อินพุตมาตรฐานคือคำขอ HTTP และเอาต์พุตมาตรฐานที่ตอบสนอง HTTP

อ่านอินพุตมาตรฐาน

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

 $ var = 

นอกจากนี้ยังเป็นไปได้ที่จะใช้ตัวแปรอาเรย์ที่เราจะต่อกันแต่ละบรรทัด:

 @var = 

ด้วยวิธีนี้ผ่านการวนซ้ำคุณสามารถกู้คืนบรรทัดทั้งหมดของอินพุตมาตรฐาน เมื่อไม่มีบรรทัดอีกต่อไปในอินพุตมาตรฐานมันจะส่งคืนค่า "undef" ซึ่งหมายความว่าไม่มีการตั้งค่าและลูปจะสิ้นสุดลง ตัวอย่างของการวนรอบ:

 ในขณะที่ ($ var =) {// คำแนะนำ} 

เขียนถึง stdout

หากต้องการเขียนไปยังเอาต์พุตมาตรฐานให้ใช้ฟังก์ชัน print ():

 $ var = 'Hello'; พิมพ์ ($ var. 'world'); 

คำแนะนำเหล่านี้มีผลต่อการส่งสตริง "Hello World" ไปยังเอาต์พุตมาตรฐาน ที่นี่ตัวดำเนินการเรียงต่อกัน (".") ถูกใช้เพื่อเข้าร่วมสองสตริง นอกจากนี้ยังเป็นไปได้ที่จะใช้เครื่องหมายคำพูดคู่เพื่อสอดแทรกตัวแปร $ var กล่าวคือแทนที่เนื้อหา:

 $ var = 'hello'; พิมพ์ ("$ var world"); 

ฟังก์ชั่นนี้ยังสามารถใช้ในรูปแบบที่แตกต่างกันอย่างสิ้นเชิงทำให้บทบาทของเอาต์พุตมาตรฐาน (STDOUT) ชัดเจนยิ่งขึ้น:

 $ var = 'Hello'; พิมพ์ STDOUT $ var; 

ในความเป็นจริง STDOUT เป็นเอาต์พุต " มาตรฐาน " (โดยค่าเริ่มต้น) วิธีที่ง่ายที่สุดในการเขียนโค้ดนี้คือ:

 $ var = 'bonjour'; พิมพ์ $ var; 

นอกจากนี้ยังสามารถใช้ printf () (จากภาษา C) เพื่อส่งข้อมูลไปยังเอาต์พุตมาตรฐาน

เอาต์พุตข้อผิดพลาดมาตรฐาน

Perl จัดเตรียม descriptor มาตรฐานที่สามเพื่อส่งข้อผิดพลาดไปยังเอาต์พุตเฉพาะโดยอัตโนมัติตามที่กำหนดโดยผู้ดูแลระบบ ตัวอธิบายนี้เรียกว่า STDERR

เอกสารต้นฉบับที่เผยแพร่ใน CommentCaMarche.net