ดาวน์โหลด CGI remote_addr - CGI remote_addr ซอร์สโค้ดดาวน์โหลดดาวน์โหลด

CGI remote_addr

หมวดหมู่อื่นๆ

1.0.0

ดาวน์โหลด

ชื่อ

CGI :: Remote_addr - เวอร์ชันที่ปรับปรุงแล้วของ "Remote_addr ()" ของ CGI.pm ของ "remote_addr ()"

เรื่องย่อ

 use CGI;
use CGI::remote_addr;

my $cgi  = CGI -> new();
my $addr = $cgi -> remote_addr();

คำอธิบาย

CGI::remote_addr ใช้วิธีการที่ได้รับการปรับปรุงของวิธีการ remote_addr() ที่จัดทำโดย CGI.pm ซึ่งพยายามส่งคืนที่อยู่ IP ดั้งเดิมที่การเชื่อมต่อเกิดจาก (ซึ่งไม่จำเป็นต้องเป็นที่อยู่ IP ที่เราได้รับการเชื่อมต่อ)

เพียงแค่โหลด CGI::remote_addr ทำให้มันใช้วิธี remote_addr() ที่มีอยู่มากเกินไป อย่างไรก็ตามโปรดทราบว่านี่เป็นสิ่งที่อยู่ทั่วโลก หากคุณใช้งานภายใต้ mod_perl คุณเพิ่งใช้มันมากเกินไปสำหรับแอปพลิเคชัน ทั้งหมด ของคุณ

ความแตกต่างจาก cgi.pm

เราตรวจสอบไม่เพียง แต่ $ENV{REMOTE_ADDR} เพื่อค้นหาที่อยู่ IP แต่ยังดูที่ $ENV{HTTP_X_FORWARDED_FOR} เพื่อค้นหาที่อยู่ IP ถ้า $ENV{HTTP_X_FORWARDED_FOR} ถูกกำหนดเราจะลองก่อน
เฉพาะที่อยู่ IP ที่ถูกต้องเท่านั้นที่จะถูกส่งคืนโดยไม่คำนึงถึงสิ่งที่มีอยู่ใน $ENV{REMOTE_ADDR} หรือ $ENV{HTTP_X_FORWARDED_FOR} ฉันเคยเห็นหลายกรณีที่ค่าสำหรับ $ENV{HTTP_X_FORWARDED_FOR} ถูกยัดไส้ด้วยขยะและเราตรวจสอบให้แน่ใจว่าคุณได้รับ IP จริงกลับมาเท่านั้น
เราส่งคืน IPS ทั้งในสเกลาร์และบริบทรายการ ในบริบทสเกลาร์คุณจะได้รับที่อยู่ IP (ต้นกำเนิด) ครั้งแรก ในบริบทของรายการคุณจะได้รับรายการที่ไม่ซ้ำกันของ IPS ทั้งหมดที่ได้รับการเชื่อมต่อผ่าน
ในกรณีที่เราไม่พบที่อยู่ IP ที่ถูกต้องวิธีนี้จะส่งคืน undef ไม่ใช่ 127.0.0.1 (เช่น CGI.pm ทำ)