File: Uniqueid.pm

package info (click to toggle)
ace 7.0.8%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 47,260 kB
  • sloc: cpp: 336,263; perl: 31,547; ansic: 11,648; sh: 1,911; python: 529; yacc: 511; xml: 330; lex: 158; lisp: 116; makefile: 89; csh: 20; tcl: 5
file content (28 lines) | stat: -rw-r--r-- 364 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
#! /usr/bin/perl
sub uniqueid
{
  if ($^O eq "MSWin32")
  {
    my $uid = 1;

    open (IPNUM, "ipconfig|") || die "Can't run ipconfig: $!\n";

    while (<IPNUM>)
    {
	if (/Address/)
      {
        $uid = (split (/: (\d+)\.(\d+)\.(\d+)\.(\d+)/))[4];
      }
    }

    close IPNUM;

    return $uid;
  }
  else
  {
    return getpwnam (getlogin ());
  }
}

1;