ฉันเพิ่งใช้รหัสนี้เพื่อตรวจสอบว่าสตริงว่างเปล่า:
if ($str == "")
{
// ...
}
และเช่นเดียวกันกับตัวดำเนินการ not equals ...
if ($str != "")
{
// ...
}
ดูเหมือนจะได้ผล (ฉันคิดว่า) แต่ฉันไม่แน่ใจว่าเป็นวิธีที่ถูกต้องหรือมีข้อบกพร่องที่ไม่คาดคิด มีบางอย่างไม่ถูกต้องเกี่ยวกับมัน
คำตอบ:
สำหรับการเปรียบเทียบสตริงใน Perl ให้ใช้eqหรือne:
if ($str eq "")
{
// ...
}
ตัวดำเนินการ==และ!=เป็นตัวดำเนินการเปรียบเทียบตัวเลข พวกเขาจะพยายามแปลงตัวถูกดำเนินการทั้งสองเป็นจำนวนเต็มก่อนที่จะเปรียบเทียบกัน
ดูหน้า man perlopสำหรับข้อมูลเพิ่มเติม
เนื่องจากวิธีการจัดเก็บสตริงใน Perl การรับความยาวของสตริงจึงถูกปรับให้เหมาะสม
if (length $str)เป็นวิธีที่ดีในการตรวจสอบว่าสตริงไม่ว่างเปล่า
ถ้าคุณอยู่ในสถานการณ์ที่คุณไม่ได้เตรียมพร้อมอยู่แล้วกับundefแล้วจับทั้งหมดสำหรับ "ไม่ว่าง" if (defined $str and length $str)ที่จะไม่เตือนมี
if (length($str))เป็นแนวทางที่ดีและไม่ล้มเหลวหากไม่ได้กำหนดตัวแปร
คุณอาจต้องการใช้ "eq" แทน "==" หากคุณกังวลเกี่ยวกับขอบบางกรณีคุณอาจต้องการตรวจสอบที่ไม่ได้กำหนด:
if (not defined $str) {
# this variable is undefined
}
ดังที่หลายคนกล่าวไว้แล้วว่าeqเป็นตัวดำเนินการที่เหมาะสมที่นี่
หากคุณuse warnings;อยู่ในสคริปต์ของคุณคุณจะได้รับคำเตือนเกี่ยวกับสิ่งนี้ (และสิ่งที่มีประโยชน์อื่น ๆ อีกมากมาย) ฉันขอแนะนำuse strict;เช่นกัน
use strictแต่ฉันกำลังอัปเดตโค้ดเก่าดังนั้นเมื่อฉันเพิ่มสิ่งนี้ฉันได้รับข้อผิดพลาดหลายร้อยข้อ ฉันอาจจะแก้ไขได้สักวัน
แนวคิดของวิธีที่ "เหมาะสม" ในการทำอะไรก็ตามนอกเหนือจากการใช้ CPAN นั้นไม่มีอยู่ใน Perl
อย่างไรก็ตามสิ่งเหล่านี้เป็นตัวดำเนินการตัวเลขคุณควรใช้
if($foo eq "")
หรือ
if(length($foo) == 0)
if ($foo == "")ตัวอย่างเช่นการทดสอบสตริงว่างโดยใช้มีความผิดอย่างแน่นอนเว้นแต่คุณจะตั้งใจทดสอบว่า$fooประเมินในบริบทตัวเลขมีค่าเป็น 0 หรือไม่ (ซึ่งในกรณีนี้จะยังคงเขียนได้ดีกว่าเนื่องจากif ($foo == 0)เป็นการแสดงออกที่ชัดเจนยิ่งขึ้น เจตนา).
หากต้องการตรวจสอบสตริงว่างคุณสามารถทำสิ่งต่อไปนี้ได้
if (!defined $val || $val eq '')
{
# empty
}