view release on metacpan or search on metacpan
lib/OpenGL/Modern/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
lib/OpenGL/Modern/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 release on metacpan or search on metacpan
OpenIndex.pm view on Meta::CPAN
tagout('tr',$cfg,'align="left"');
#Permission data
tagout('td',$cfg,'',"$list->{$entry}{mode}</td>") if $cfg->{options} & SHOW_PERMS;
#Owner data
if($args->{isadmin}) {
my $pname=getpwuid($list->{$entry}{uid})||"$list->{$entry}{uid}";
tagout('td',$cfg,'',"${pname}</td>");
}
#Group data
if($args->{gid}) {
my $pname=getgrgid($list->{$entry}{gid})||"$list->{$entry}{gid}";
view release on metacpan or search on metacpan
share/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
share/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 release on metacpan or search on metacpan
examples/odfbuild view on Meta::CPAN
'generator=s' => \$generator,
'title=s' => \$title,
'subject=s' => \(my $subject = ''),
'description=s' => \$description,
'keywords=s' => \(my $keywords = ''),
'creator=s' => \(my $creator = scalar getpwuid($<)),
'source=s' => \(my $source = undef),
'tablesize=s' => \(my $tablesize = '16x8'),
'tablename=s' => \(my $tablename = undef),
'force' => \(my $force = undef),
'opendocument' => \(my $odf = undef),
view release on metacpan or search on metacpan
# heading => 0,
# prompt => 0,
);
my $user = getlogin
|| scalar getpwuid($REAL_USER_ID)
|| undef;
print STDERR "Enter Action [CREATE]: ";
chomp( my $action = <STDIN> );
$action = "create" unless $action;
view release on metacpan or search on metacpan
lib/OurNet/BBS/MailBox/Board.pm view on Meta::CPAN
my $file = "$self->{bbsroot}/$self->{board}";
$self->{folder} = $self->{mgr}->open(folder => $file);
$self->{_hash}{title} = $self->{folder}->name;
$self->{_hash}{id} = $self->{folder}->filename;
$self->{_hash}{bm} = getpwuid((stat($file))[4])
if $^O ne 'MSWin32';
}
1;
view release on metacpan or search on metacpan
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_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031010||Viu
get_regclass_nonbitmap_data|5.031010||Viu
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 release on metacpan or search on metacpan
script/par.pl view on Meta::CPAN
) {
next unless defined $path and -d $path and -w $path;
my $username;
my $pwuid;
# does not work everywhere:
eval {($pwuid) = getpwuid($>) if defined $>;};
if ( defined(&Win32::LoginName) ) {
$username = &Win32::LoginName;
}
elsif (defined $pwuid) {
view release on metacpan or search on metacpan
lib/PAR/SetupTemp.pm view on Meta::CPAN
# tries hard to find out the name of the current user
sub _find_username {
my $username;
my $pwuid;
# does not work everywhere:
eval {($pwuid) = getpwuid($>) if defined $>;};
if ( defined(&Win32::LoginName) ) {
$username = &Win32::LoginName;
}
elsif (defined $pwuid) {
view release on metacpan or search on metacpan
write-config view on Meta::CPAN
contains "secret" information.
EOF
do {
if (defined getpwuid $CFG{PAPP_UID}) {
$CFG{PAPP_UID} = getpwuid ($CFG{PAPP_UID});
}
get_value 0, "PAPP_UID", "papp user id", "0";
} until (($CFG{PAPP_UID} ne ((getpwnam $CFG{PAPP_UID})[2])
&& defined ((getpwnam $CFG{PAPP_UID})[2]))
|| ($CFG{PAPP_UID} =~ /^\d+$/));
view release on metacpan or search on metacpan
lib/PDK/Connector/Role.pm view on Meta::CPAN
default => sub {
my $self = shift;
# 获å–用户家目录（跨平å°æ–¹å¼ï¼‰
my $home = $ENV{PDK_LOG_DIR};
$home ||= $ENV{HOME} || $ENV{USERPROFILE} || (getpwuid($<))[7];
# 创建 logs 目录（如果ä¸å˜åœ¨ï¼‰
my $log_dir = "$home/logs";
mkdir $log_dir unless -d $log_dir;
view release on metacpan or search on metacpan
lib/PDL/AutoLoader.pm view on Meta::CPAN
# Expand shell '+' to CWD.
$_= $1 . ($ENV{'PWD'} || '.');
} elsif(!$2) {
# No name mentioned -- use current user.
# Ideally would use File::HomeDir->my_home() here
$_ = $1 . ( $ENV{'HOME'} || (( getpwnam( getlogin || getpwuid($<) ))[7]) ) . $_;
} else {
# Name mentioned - try to get that user's home directory.
$_ = $1 . ( (getpwnam($2))[7] ) . $_;
}
}
view release on metacpan or search on metacpan
Basic/AutoLoader.pm view on Meta::CPAN
# Expand shell '+' to CWD.
$_= $1 . ($ENV{'PWD'} || '.');
} elsif(!$2) {
# No name mentioned -- use current user.
# Ideally would use File::HomeDir->my_home() here
$_ = $1 . ( $ENV{'HOME'} || (( getpwnam( getlogin || getpwuid($<) ))[7]) ) . $_;
} else {
# Name mentioned - try to get that user's home directory.
$_ = $1 . ( (getpwnam($2))[7] ) . $_;
}
}
view release on metacpan or search on metacpan
Basic/AutoLoader.pm view on Meta::CPAN
# Expand shell '+' to CWD.
$_= $1 . ($ENV{'PWD'} || '.');
} elsif(!$2) {
# No name mentioned -- use current user.
# Ideally would use File::HomeDir->my_home() here
$_ = $1 . ( $ENV{'HOME'} || (( getpwnam( getlogin || getpwuid($<) ))[7]) ) . $_;
} else {
# Name mentioned - try to get that user's home directory.
$_ = $1 . ( (getpwnam($2))[7] ) . $_;
}
}
view release on metacpan or search on metacpan
nls/export-js.pl view on Meta::CPAN
use DBIx::Connector;
use Encode;
use JSON;
use Data::Dumper;
my $dbuser = ((getpwuid $>)[0]);
my $dbname = $dbuser;
my $dbpass = "";
my $conn;
my $fname;
my $lang;
view release on metacpan or search on metacpan
lib/PERLANCAR/File/HomeDir.pm view on Meta::CPAN
return join($ENV{HOMEDRIVE}, "\\", $ENV{HOMEPATH})
if $ENV{HOMEDRIVE} && $ENV{HOMEPATH};
} else {
return $ENV{HOME} if $ENV{HOME};
my @pw;
eval { @pw = getpwuid($>) };
return $pw[7] if @pw;
}
if ($DIE_ON_FAILURE) {
die "Can't get home directory";
lib/PERLANCAR/File/HomeDir.pm view on Meta::CPAN
if ($^O eq 'MSWin32') {
# not yet implemented
return undef;
} else {
# IF and only if we have getpwuid support, and the name of the user is
# our own, shortcut to my_home. This is needed to handle HOME
# environment settings.
if ($name eq getpwuid($<)) {
return get_my_home_dir();
}
SCOPE: {
my $home = (getpwnam($name))[7];
view release on metacpan or search on metacpan
lib/PHP/Decode/Func.pm view on Meta::CPAN
posix_mknod => {},
posix_access => {},
posix_getgrnam => {},
posix_getgrgid => {},
posix_getpwnam => {},
posix_getpwuid => {},
posix_getrlimit => {},
posix_get_last_error => {},
posix_errno => {},
posix_strerror => {},
posix_initgroups => {},
view release on metacpan or search on metacpan
basiclib/constant.pm-txt view on Meta::CPAN
use constant BUFFER_SIZE => 4096;
use constant ONE_YEAR => 365.2425 * 24 * 60 * 60;
use constant PI => 4 * atan2 1, 1;
use constant DEBUGGING => 0;
use constant ORACLE => 'oracle@cs.indiana.edu';
use constant USERNAME => scalar getpwuid($<);
use constant USERINFO => getpwuid($<);
sub deg2rad { PI * $_[0] / 180 }
print "This line does nothing" unless DEBUGGING;
view release on metacpan or search on metacpan
basiclib/constant.pm-txt view on Meta::CPAN
use constant BUFFER_SIZE => 4096;
use constant ONE_YEAR => 365.2425 * 24 * 60 * 60;
use constant PI => 4 * atan2 1, 1;
use constant DEBUGGING => 0;
use constant ORACLE => 'oracle@cs.indiana.edu';
use constant USERNAME => scalar getpwuid($<);
use constant USERINFO => getpwuid($<);
sub deg2rad { PI * $_[0] / 180 }
print "This line does nothing" unless DEBUGGING;
view release on metacpan or search on metacpan
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
L<C<endgrent>|/endgrent>, L<C<endhostent>|/endhostent>,
L<C<endnetent>|/endnetent>, L<C<endpwent>|/endpwent>, L<C<getgrent>|/getgrent>,
L<C<getgrgid>|/getgrgid GID>, L<C<getgrnam>|/getgrnam NOMBRE>,
L<C<getlogin>|/getlogin>, L<C<getpwent>|/getpwent>, L<C<getpwnam>|/getpwnam
NOMBRE>, L<C<getpwuid>|/getpwuid UID>, L<C<setgrent>|/setgrent>,
L<C<setpwent>|/setpwent>
=item Obtener información de la red
X<network> X<protocol> X<host> X<hostname> X<IP> X<address> X<service> X<red> X<protocolo> X<servidor> X<dirección> X<servicio>
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
L<C<getnetbyname>|/getnetbyname NOMBRE>, L<C<getnetent>|/getnetent>,
L<C<getppid>|/getppid>, L<C<getpgrp>|/getpgrp PID>,
L<C<getpriority>|/getpriority CUÃL,QUIÉN>,
L<C<getprotobynumber>|/getprotobynumber NÚMERO>,
L<C<getprotoent>|/getprotoent>, L<C<getpwent>|/getpwent>,
L<C<getpwnam>|/getpwnam NOMBRE>, L<C<getpwuid>|/getpwuid UID>,
L<C<getservbyport>|/getservbyport PUERTO,PROTOCOLO>,
L<C<getservent>|/getservent>, L<C<getsockopt>|/getsockopt
SOCKET,NIVEL,OPCIÓN>, L<C<glob>|/glob EXPR>, L<C<ioctl>|/ioctl
IDENTIFICADOR_ARCHIVO,FUNCIÓN,ESCALAR>, L<C<kill>|/kill SEÑAL, LISTA>,
L<C<link>|/link ARCHIVO_VIEJO,ARCHIVO_NUEVO>, L<C<lstat>|/lstat
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
que L<C<crypt>|/crypt TEXTOPLANO,SALTO> acepte.
Aquà hay un ejemplo que se asegura que quien corra el programa conoce su
contraseña:
my $pwd = (getpwuid($<))[1];
system "stty -echo";
print "Contraseña: ";
chomp(my $palabra = <STDIN>);
print "\n";
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
=for Pod::Functions return who logged in at this tty
Implementa la función de la biblioteca C del mismo nombre, que en la mayorÃa
de los sistemas devuelve el login actual desde F</etc/utmp>, si existe. Si
devuelve la cadena vacÃa, utilice L<C<getpwuid>|/getpwuid UID>.
my $login = getlogin || getpwuid($<) || "Kilroy";
No considere usar L<C<getlogin>|/getlogin> para autenticación: no es tan
seguro como L<C<getpwuid>|/getpwuid UID>.
Cuestiones de portabilidad: L<perlport/getlogin>.
=item getpeername SOCKET
X<getpeername> X<peer>
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
Cuestiones de portabilidad: L<perlport/getpriority>.
=item getpwnam NOMBRE
X<getpwnam> X<getgrnam> X<gethostbyname> X<getnetbyname> X<getprotobyname>
X<getpwuid> X<getgrgid> X<getservbyname> X<gethostbyaddr> X<getnetbyaddr>
X<getprotobynumber> X<getservbyport> X<getpwent> X<getgrent> X<gethostent>
X<getnetent> X<getprotoent> X<getservent> X<setpwent> X<setgrent> X<sethostent>
X<setnetent> X<setprotoent> X<setservent> X<endpwent> X<endgrent> X<endhostent>
X<endnetent> X<endprotoent> X<endservent>
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
=item getprotobyname NOMBRE
=for Pod::Functions get protocol record given name
=item getpwuid UID
=for Pod::Functions get passwd record given user ID
=item getgrgid GID
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
En contexto escalar, obtiene el nombre, a menos que la función fuera localizar
por nombre, en cuyo caso obtendrá la otra cosa, cualquiera que sea. (Si la
entrada no existe obtendrá el valor indefinido). Por ejemplo:
my $uid = getpwnam($nombre);
my $nombre = getpwuid($numero);
my $nombre = getpwent();
my $gid = getgrnam($nombre);
my $nombre = getgrgid($numero);
my $nombre = getgrent();
# etc.
view release on metacpan or search on metacpan
FR/perldata.pod view on Meta::CPAN
Lorsque vous utilisez le pragma C<use warnings> ou l'option de ligne de
commande B<-w> de Perl, il arrive que vous voyiez des avertissements sur un
usage inutile de constantes ou de fonctions dans un «E<nbsp>contexte
videE<nbsp>» («E<nbsp>void contextE<nbsp>», NDT). Le contexte vide signifie
juste que la valeur a été abandonnée, comme pour une instruction ne contenant
que C<"fred";> ou C<getpwuid(0);>. Il compte toujours pour un contexte
scalaire pour les fonctions qui se soucient de savoir si elles sont ou non
appelées dans un contexte scalaire.
Les sous-programmes définis par l'utilisateur peuvent se soucier d'avoir été
appelés dans un contexte vide, scalaire ou de liste. La plupart des
view release on metacpan or search on metacpan
IT/perldata.pod view on Meta::CPAN
inutile ["useless use" nel messaggio, N.d.T.] di costanti o funzioni
in "contesto void" [letteralmente "vuoto", ma si preferisce lasciare
l'originale in inglese viste anche le similitudini con il tipo I<void>
disponibile in C. N.d.T.]. Il contesto void significa semplicemente che il
valore E<egrave> stato gettato via, come in un'istruzione che contiene solo
C<"fred";> o C<getpwuid(0);>. Conta comunque come contesto scalare
per funzioni che fanno distinzione fra l'essere chiamate o meno
in contesto lista.
Le funzioni definite da utente possono scegliere di comportarsi
differentemente se sono chiamate in contesto void, scalare o lista.
view release on metacpan or search on metacpan
lib/POD2/RU/perlfunc.pod view on Meta::CPAN
=for Pod::Functions =User
C<endgrent>, C<endhostent>, C<endnetent>, C<endpwent>, C<getgrent>,
C<getgrgid>, C<getgrnam>, C<getlogin>, C<getpwent>, C<getpwnam>,
C<getpwuid>, C<setgrent>, C<setpwent>
=item Fetching network info
X<network> X<protocol> X<host> X<hostname> X<IP> X<address> X<service>
=for Pod::Functions =Network
lib/POD2/RU/perlfunc.pod view on Meta::CPAN
C<dbmclose>, C<dbmopen>, C<dump>, C<endgrent>, C<endhostent>,
C<endnetent>, C<endprotoent>, C<endpwent>, C<endservent>, C<exec>,
C<fcntl>, C<flock>, C<fork>, C<getgrent>, C<getgrgid>, C<gethostbyname>,
C<gethostent>, C<getlogin>, C<getnetbyaddr>, C<getnetbyname>, C<getnetent>,
C<getppid>, C<getpgrp>, C<getpriority>, C<getprotobynumber>,
C<getprotoent>, C<getpwent>, C<getpwnam>, C<getpwuid>,
C<getservbyport>, C<getservent>, C<getsockopt>, C<glob>, C<ioctl>,
C<kill>, C<link>, C<lstat>, C<msgctl>, C<msgget>, C<msgrcv>,
C<msgsnd>, C<open>, C<pipe>, C<readlink>, C<rename>, C<select>, C<semctl>,
C<semget>, C<semop>, C<setgrent>, C<sethostent>, C<setnetent>,
C<setpgrp>, C<setpriority>, C<setprotoent>, C<setpwent>,
lib/POD2/RU/perlfunc.pod view on Meta::CPAN
restrict what salts C<crypt()> accepts.
Here's an example that makes sure that whoever runs this program knows
their password:
$pwd = (getpwuid($<))[1];
system "stty -echo";
print "Password: ";
chomp($word = <STDIN>);
print "\n";
lib/POD2/RU/perlfunc.pod view on Meta::CPAN
=for Pod::Functions return who logged in at this tty
This implements the C library function of the same name, which on most
systems returns the current login from F</etc/utmp>, if any. If it
returns the empty string, use C<getpwuid>.
$login = getlogin || getpwuid($<) || "Kilroy";
Do not consider C<getlogin> for authentication: it is not as
secure as C<getpwuid>.
Portability issues: L<perlport/getlogin>.
=item getpeername SOCKET
X<getpeername> X<peer>
lib/POD2/RU/perlfunc.pod view on Meta::CPAN
Portability issues: L<perlport/getpriority>.
=item getpwnam NAME
X<getpwnam> X<getgrnam> X<gethostbyname> X<getnetbyname> X<getprotobyname>
X<getpwuid> X<getgrgid> X<getservbyname> X<gethostbyaddr> X<getnetbyaddr>
X<getprotobynumber> X<getservbyport> X<getpwent> X<getgrent> X<gethostent>
X<getnetent> X<getprotoent> X<getservent> X<setpwent> X<setgrent> X<sethostent>
X<setnetent> X<setprotoent> X<setservent> X<endpwent> X<endgrent> X<endhostent>
X<endnetent> X<endprotoent> X<endservent>
lib/POD2/RU/perlfunc.pod view on Meta::CPAN
=item getprotobyname NAME
=for Pod::Functions get protocol record given name
=item getpwuid UID
=for Pod::Functions get passwd record given user ID
=item getgrgid GID
lib/POD2/RU/perlfunc.pod view on Meta::CPAN
In scalar context, you get the name, unless the function was a
lookup by name, in which case you get the other thing, whatever it is.
(If the entry doesn't exist you get the undefined value.) For example:
$uid = getpwnam($name);
$name = getpwuid($num);
$name = getpwent();
$gid = getgrnam($name);
$name = getgrgid($num);
$name = getgrent();
#etc.
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use Win32;
$config{ssh}{user} = Win32::LoginName() unless Win32::IsWin95();
};
}
else {
$config{ssh}{user} = getpwuid($<);
}
my @args = @ARGV;
my $res = GetOptions ( "ssh-host=s" => \$config{ssh}{host},
view release on metacpan or search on metacpan
bin/irctor-queue view on Meta::CPAN
for ($size, $torrent_file) {
die "An argument is missing for 'inserted_new'" if !defined $_;
}
my $user = getpwuid(stat($torrent_file)->uid);
_torrentlog($ACTION, $NAME, $user, $size);
return;
}
sub _erased_torrent {
view release on metacpan or search on metacpan
lib/POE/Component/IRC.pm view on Meta::CPAN
}
# Make sure that we have reasonable defaults for all the attributes.
# The "IRC*" variables are ircII environment variables.
if (!defined $self->{nick}) {
$self->{nick} = $ENV{IRCNICK} || eval { scalar getpwuid($>) }
|| $ENV{USER} || $ENV{LOGNAME} || 'WankerBot';
}
if (!defined $self->{username}) {
$self->{username} = eval { scalar getpwuid($>) } || $ENV{USER}
|| $ENV{LOGNAME} || 'foolio';
}
if (!defined $self->{ircname}) {
$self->{ircname} = $ENV{IRCNAME} || eval { (getpwuid $>)[6] }
|| 'Just Another Perl Hacker';
}
if (!defined $self->{server} && !$spawned) {
die "No IRC server specified\n" if !$ENV{IRCSERVER};
view release on metacpan or search on metacpan
t/01-correct_object.t view on Meta::CPAN
SKIP: {
my ( $user, $pass );
eval {
local $SIG{'ALRM'} = sub { die "timeout\n"; };
alarm 10;
$user = getpwuid $EFFECTIVE_USER_ID;
$pass = read_password("Local SSH Pass for $user: ");
#ReadMode 0;
alarm 0;
};
view release on metacpan or search on metacpan
lib/POE/Devel/Top.pm view on Meta::CPAN
my $poe_api = POE::API::Peek->new;
my $now = time;
# collect general data about the current process
my @times = times;
my @pwent = getpwuid(int $>);
my $egid = (split / /, $))[0];
my @grent = getgrgid(int $egid);
my %general = (
process => {