roomname.pl

来自「AnyQ服务端源代码(2004/10/28)源码」· PL 代码 · 共 18 行

#!/usr/bin/perl
#
# roomname.pl : Perl Utility to create sha1 hash for a jid
#
# Requires: Digest::SHA1
#
use Digest::SHA1  qw(sha1_hex);

my $data;
my $digest;

while(@ARGV)
{
    $data = shift @ARGV;
    $digest = sha1_hex($data);
    print "$digest <= $data\n";
}