getpwuid results from the CPAN

Char-KOI8U


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-KPS9566

2 results

view release on metacpan or search on metacpan

lib/Ekps9566.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! Ekps9566::d($home)) {

view all matches for this distribution

Char-Latin1

2 results

view release on metacpan or search on metacpan

lib/Elatin1.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-Latin10

2 results

view release on metacpan or search on metacpan

lib/Elatin10.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-Latin2

2 results

view release on metacpan or search on metacpan

lib/Elatin2.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-Latin3

2 results

view release on metacpan or search on metacpan

lib/Elatin3.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-Latin4

2 results

view release on metacpan or search on metacpan

lib/Elatin4.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-Latin5

2 results

view release on metacpan or search on metacpan

lib/Elatin5.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-Latin6

2 results

view release on metacpan or search on metacpan

lib/Elatin6.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-Latin7

2 results

view release on metacpan or search on metacpan

lib/Elatin7.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-Latin8

2 results

view release on metacpan or search on metacpan

lib/Elatin8.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-Latin9

2 results

view release on metacpan or search on metacpan

lib/Elatin9.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-OldUTF8

2 results

view release on metacpan or search on metacpan

lib/Eoldutf8.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-Sjis

2 results

view release on metacpan or search on metacpan

lib/Esjis.pm view on Meta::CPAN

        };
    }

    # Desperation on any platform
    SCOPE: {
        # On some platforms getpwuid dies if called at all
        local $SIG{'__DIE__'} = '';
        my $home = CORE::eval q{ (getpwuid($<))[7] };
        return $home if $home and Esjis::d($home);
    }

    croak "Could not locate current user's home directory";
}

lib/Esjis.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! Esjis::d($home)) {

view all matches for this distribution

Char-TIS620

2 results

view release on metacpan or search on metacpan

lib/Etis620.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-UHC

2 results

view release on metacpan or search on metacpan

lib/Euhc.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! Euhc::d($home)) {

view all matches for this distribution

Char-USASCII

2 results

view release on metacpan or search on metacpan

lib/Eusascii.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-UTF2

2 results

view release on metacpan or search on metacpan

lib/Eutf2.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-Windows1252

2 results

view release on metacpan or search on metacpan

lib/Ewindows1252.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

Char-Windows1258

2 results

view release on metacpan or search on metacpan

lib/Ewindows1258.pm view on Meta::CPAN


    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! -d($home)) {

view all matches for this distribution

CircuitLayout

1 match

view release on metacpan or search on metacpan

Examples/GDS2Tool/gds2tool view on Meta::CPAN

our $pp = 4; ## print precision
our $ppp = $pp + 1; ## print precision plus
our $G_gds2FileNameIn = '';
our $G_techContents = '';
our $G_techFilesRead = '';
our $G_user = getpwuid($<);
chomp $G_user; 
my $topCell = '';
my $privateColorMap = FALSE;
my $visibleOnly     = FALSE;

view all matches for this distribution

Cisco-Conf

2 results

view release on metacpan or search on metacpan

lib/Cisco/Conf.pm view on Meta::CPAN

	if (!exists($self->{$key})) {
	    $self->{$key} = $config->{$key};
	}
    }
    $self->{'configFile'} = $configFile;
    my($euid, $epasswd, $euser) = getpwuid($>);
    my($ruid, $rpasswd, $ruser) = getpwuid($<);
    my($user);
    foreach $user (@{$self->{'users'}}) {
	if ($user eq $euid  ||  $user eq $euser  ||
	    $user eq $ruid  ||  $user eq $ruser) {
	    return $self;

view all matches for this distribution

Class-Dot

1 match

view release on metacpan or search on metacpan

contrib/vim/syntax/perl.vim view on Meta::CPAN

syn keyword perlStatementScope		import
syn keyword perlStatementProc		alarm exec fork getpgrp getppid getpriority kill pipe setpgrp setpriority sleep system times wait waitpid
syn keyword perlStatementSocket		accept bind connect getpeername getsockname getsockopt listen recv send setsockopt shutdown socket socketpair
syn keyword perlStatementIPC		msgctl msgget msgrcv msgsnd semctl semget semop shmctl shmget shmread shmwrite
syn keyword perlStatementNetwork	endhostent endnetent endprotoent endservent gethostbyaddr gethostbyname gethostent getnetbyaddr getnetbyname getnetent getprotobyname getprotobynumber getprotoent getservbyname getservbyport getservent sethostent setn...
syn keyword perlStatementPword		getpwuid getpwnam getpwent setpwent endpwent getgrent getgrgid getlogin getgrnam setgrent endgrent
syn keyword perlStatementTime		gmtime localtime time times
syn keyword perlStatementClassDot   isa_String isa_Int isa_File isa_Code isa_Hash isa_Array isa_Object

syn keyword perlStatementMisc		warn formline reset scalar delete prototype lock
syn keyword perlStatementNew		new

view all matches for this distribution

Class-MethodMapper

1 match

view release on metacpan or search on metacpan

lib/Class/MethodMapper.pm view on Meta::CPAN

    warn "MethodMapper: couldn't save state to $file: $!";
    return 0;
  }

  my $host = Sys::Hostname::hostname;
  my $username = getpwuid($REAL_USER_ID);

  $self =~ /^(.*?)=/;
  my $class = $1;

  print $fh "#\n";

view all matches for this distribution

Class-Usul

2 results

view release on metacpan or search on metacpan

lib/Class/Usul/Functions.pm view on Meta::CPAN

sub get_user (;$) {
   my $user = shift; is_win32() and return Class::Null->new;

   defined $user and $user !~ m{ \A \d+ \z }mx and return getpwnam( $user );

   return getpwuid( $user // $UID );
}

sub hex2str (;$) {
   my @a = split m{}mx, shift // q(); my $str = q();

lib/Class/Usul/Functions.pm view on Meta::CPAN


=head2 C<get_user>

   $user_object = get_user $optional_uid_or_name;

Returns the user object from a call to either C<getpwuid> or C<getpwnam>
depending on whether an integer or a string was passed. The L<User::pwent>
package is loaded so objects are returned. On MSWin32 systems returns an
instance of L<Class::Null>.  Defaults to the current uid but will lookup the
supplied uid if provided

view all matches for this distribution

Class-XSConstructor

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu

ppport.h view on Meta::CPAN

KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu

view all matches for this distribution

ClearCase-Argv

1 match

view release on metacpan or search on metacpan

examples/cleanuplf view on Meta::CPAN

#!/usr/local/bin/perl -w

# Works only on UNIX, because of its using setview, and accessorily getpwuid
# both unimplemented on Windows

use strict;
use ClearCase::Argv;
use File::Basename;

examples/cleanuplf view on Meta::CPAN

$vob = $ct->des(['-s'], 'vob:.')->qx;
usage("The current directory is not in a vob") unless $vob;
usage("The current directory is not the vob lost+found")
  unless basename($dir) eq 'lost+found' and dirname($dir) eq $vob;
(my $owner = $ct->des([qw(-fmt %[owner]p)], 'vob:.')->qx) =~ s%^.*[/\\]%%;
usage("Not running as vob owner") unless $owner eq (getpwuid($<))[0];
$lrep = $ct->des([qw(-fmt %[replica_name]p)], 'vob:.')->qx;

while (1) {
  last if onepass;
}

view all matches for this distribution

ClearCase-Wrapper-MGi

7 results

view release on metacpan or search on metacpan

MGi.pm view on Meta::CPAN

		  \QView owner: \E(?:.*?/)(.*?)\n
	      }xs;
  if ($mkv->flagCC('stgloc')) {
    push @opts, '-stg', $mkv->flagCC('stgloc');
  } else {
    my $pwnam = (getpwuid($<))[0];
    if ($mkv->flagCC('hpath')) {
      $hpa = $mkv->flagCC('hpath');
    } else {
      my $pdir = dirname($hpa);
      if (basename($pdir) eq $own) {

view all matches for this distribution

ClearPress

2 results

view release on metacpan or search on metacpan

lib/ClearPress/util.pm view on Meta::CPAN

  $util->transactions(1);                       # re-enable transactions
  $thing->save();                               # save parent object (with commit)

=head2 username - Get/set accessor for requestor's username

  $oUtil->username((getpwuid $<)[0]);
  $oUtil->username($sw->username());

  my $sUsername = $oUtil->username();

=head2 cgi - Placeholder for a CGI object (or at least something with the same param() interface)

view all matches for this distribution

Clone

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu

ppport.h view on Meta::CPAN

KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu

view all matches for this distribution