Skip to content

Instantly share code, notes, and snippets.

Avatar

Rob de la Cruz robdelacruz

View GitHub Profile
View gen_pushid.pl
#!/usr/bin/perl
use v5.14;
use POSIX;
use Time::HiRes qw/time gettimeofday usleep/;
# Usage:
# my $newId = gen_pushid();
#
# Ported from:
# https://gist.github.com/mikelehen/3596a30bd69384624c11