ID ที่สั้นและไม่ซ้ำกันใน Perl

Sqids คืออะไร?

Sqids เป็นไลบรารีโอเพนซอร์สที่ช่วยให้คุณสามารถสร้างตัวระบุที่สั้นและไม่ซ้ำกันจากตัวเลขได้ การระบุเหล่านี้ปลอดภัยสำหรับ URL สามารถเข้ารหัสตัวเลขหลายตัวและไม่มีคำหยาบที่พบบ่อย อ่านเพิ่มเติม .

นี่คือรูปแบบของพวกเขา:

https://example.com/Lqj8a0

Perl

ตัวอย่างการเข้ารหัสและถอดรหัสด่วน:

my $sqids = Sqids->new;
my $id = $sqids->encode(1, 2, 3); # "86Rf07"
my $numbers = $sqids->decode($id); # [1, 2, 3]

หาก ID สั้นเกินไปคุณสามารถเติมขยายความยาว:

my $sqids = Sqids->new( min_length => 10 );
my $id = $sqids->encode(1, 2, 3); # "86Rf07xd4z"
my $numbers = $sqids->decode($id); # [1, 2, 3]

สร้าง ID ที่ไม่ซ้ำกันโดยการสลับอักษร:

my $sqids = Sqids->new( alphabet => 'k3G7QAe51FCsPW92uEOyq4Bg6Sp8YzVTmnU0liwDdHXLajZrfxNhobJIRcMvKt' );
my $id = $sqids->encode(1, 2, 3); # "XRKUdQ"
my $numbers = $sqids->decode($id); # [1, 2, 3]

คำแนะนำแบบเต็มอยู่ที่ https://github.com/sqids/sqids-perl

Sqids Perl Watch Discuss

หากคุณกำลังมองหา Hashids Perl เวอร์ชันต้นฉบับคุณสามารถหาได้ที่นี่: https://github.com/zakame/hashids.pm