Result:
found 1037 distributions and 1810 files matching your query !
( run in 1.257 )
Text-CSV_XS
view release on metacpan or search on metacpan
examples/csvdiff view on Meta::CPAN
use Text::CSV_XS;
my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 0 });
if ($opt_h) {
binmode STDOUT, ":encoding(utf-8)";
my $name = $^O eq "MSWin32" ? Win32::LoginName () : scalar getpwuid $<;
print <<"EOH";
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
Text-Markdown-Discount
view release on metacpan or search on metacpan
discount-2.2.7d/cmake/CMakeLists.txt view on Meta::CPAN
string(TOUPPER ${_symbol} _SYMBOL)
check_symbol_exists(${_symbol} string.h HAVE_${_SYMBOL})
endforeach()
check_symbol_exists(random stdlib.h HAVE_RANDOM)
check_symbol_exists(srandom stdlib.h HAVE_SRANDOM)
check_symbol_exists(getpwuid pwd.h HAVE_GETPWUID)
check_symbol_exists(basename libgen.h HAVE_BASENAME)
check_symbol_exists(fchdir unistd.h HAVE_FCHDIR)
if(HAVE_STAT)
check_symbol_exists(S_ISCHR sys/stat.h HAVE_S_ISCHR)
check_symbol_exists(S_ISFIFO sys/stat.h HAVE_S_ISFIFO)
Text-MetaText
view release on metacpan or search on metacpan
bin/metapage view on Meta::CPAN
use File::Recurse;
my $NAME = "metapage";
my $VERSION = sprintf("%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/);
my $HOME = $ENV{ HOME } || (getpwuid($<))[7] || die "No HOME\n";
my $RCFILE = $ENV{"\U${NAME}rc"} || "$HOME/.${NAME}rc";
# configuration items
my %mppath = ();
my %mtcfg = ();
Text-Minify-XS
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_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||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
Text-Placeholder
view release on metacpan or search on metacpan
lib/Text/Placeholder/Group/OS/Unix/File/Properties.pm view on Meta::CPAN
my $PLACEHOLDERS = {
'file_mode_octal' => sub { return($_[THIS][ATR_STAT][2])},
'file_mode_rwx' => sub { return(as_rwx_string($_[THIS][ATR_STAT][2]))},
'file_owner_id' => sub { return($_[THIS][ATR_STAT][4])},
'file_owner_name' => sub { return((getpwuid($_[THIS][ATR_STAT][4]))[0])},
'file_group_id' => sub { return($_[THIS][ATR_STAT][5])},
'file_group_name' => sub { return((getgrgid($_[THIS][ATR_STAT][5]))[0])},
'file_size' => sub { return($_[THIS][ATR_STAT][7])},
'file_timestamp_creation' => sub { return(localtime($_[THIS][ATR_STAT][8]))},
'file_timestamp_modification' => sub { return(localtime($_[THIS][ATR_STAT][9]))},
Text-Quote
view release on metacpan or search on metacpan
lib/Text/Quote.pm view on Meta::CPAN
endprotoent endpwent endservent eof eq eval exec exists exit exp fcntl
fileno flock for foreach fork format formline ge getc getgrent
getgrgid getgrnam gethostbyaddr gethostbyname gethostent getlogin
getnetbyaddr getnetbyname getnetent getpeername getpgrp getppid
getpriority getprotobyname getprotobynumber getprotoent getpwent
getpwnam getpwuid getservbyname getservbyport getservent getsockname
getsockopt glob gmtime goto grep gt hex if index int ioctl join keys
kill last lc lcfirst le length link listen local localtime lock log
lstat lt m map mkdir msgctl msgget msgrcv msgsnd my ne next no not oct
open opendir or ord pack package pipe pop pos print printf prototype
push q qq qr quotemeta qw qx rand read readdir readline readlink
Text-Restructured
view release on metacpan or search on metacpan
lib/Text/Restructured/Directive/rst.st view on Meta::CPAN
endgrent endhostent endnetent endprotoent endpwent endservent eof
eq eval exec exists exit exp fcntl fileno flock for foreach fork
format formline ge getc getgrent getgrgid getgrnam gethostbyaddr
gethostbyname gethostent getlogin getnetbyaddr getnetbyname
getnetent getpeername getpgrp getppid getpriority getprotobyname
getprotobynumber getprotoent getpwent getpwnam getpwuid getservbyname
getservbyport getservent getsockname getsockopt glob gmtime goto
grep gt hex if index int ioctl join keys kill last lc lcfirst le
length link listen local localtime log lstat lt m map mkdir msgctl
msgget msgrcv msgsnd my ne new next no not oct open opendir or ord
pack package pipe pop pos print printf prototype push q qq quotemeta
Thorium
view release on metacpan or search on metacpan
lib/Thorium/Utils.pm view on Meta::CPAN
sub block_new_invocations {
my ($lock_file) = @_;
unless ($lock_file) {
my $username = getlogin || getpwuid($<) || 'unknown';
my $s = $FindBin::Script;
# clean up the filename so it's easier to read and Unix-safe
$s =~ s/[.\-]/_/g;
$s =~ s/[\{\[\(\<>)\]\}~\|\/]/_/g;
Thread-CSP
view release on metacpan or search on metacpan
src/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
src/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
Thread-Csp
view release on metacpan or search on metacpan
src/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
src/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
Thread-GoChannel
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_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||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
Tie-Hash-DBD
view release on metacpan or search on metacpan
return $dsn;
}
# We assume user "0" is illegal
my $user = $ENV{LOGNAME} || $ENV{USER};
$user ||= getpwuid $< unless $^O eq "MSWin32";
$user ||= "";
if ($type eq "Oracle") {
my @id = split m{/} => ($ENV{ORACLE_USERID} || "/"), -1;
$ENV{DBI_USER} = $id[0];
Time-Moment
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_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||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
Timeout-Queue
view release on metacpan or search on metacpan
t/spellcheck.t view on Meta::CPAN
executables
filehandle
filehandles
FILENO
fujitsu
getpwuid
getservbyname
GMP
GPL
hmac
HMAC
Tk-Enscript
view release on metacpan or search on metacpan
Enscript.pm view on Meta::CPAN
sub parse_cfg {
my $cfg_file = shift;
my @cfg_files = (Tk->findINC('enscript.cfg'));
if (!defined $cfg_file) {
my $home_dir = eval { local $SIG{__DIE__};
(getpwuid($<))[7];
} || $ENV{'HOME'} || '';
my $pers_cfg_file = "$home_dir/.enscriptrc";
if (-f $pers_cfg_file && -r $pers_cfg_file) {
$cfg_file = $pers_cfg_file;
}
Tk-IDElayout
view release on metacpan or search on metacpan
{
# retain author's favourite warnings if using gcc
$gccopt .= " -ggdb -Wall -Wno-implicit-int -Wno-comment -Wno-unused -D__USE_FIXED_PROTOTYPES__";
eval
{
if ((getpwuid($<))[6] =~ /Nick\s+Ing-Simmons/)
{
# This is the author - catch as many bugs as possible
$gccopt .= " -MMD -Werror";
@macro = ( macro => { INSTALLDIRS => 'perl' });
}
Tk-JFileDialog
view release on metacpan or search on metacpan
lib/Tk/JFileDialog.pm view on Meta::CPAN
{
$self->{'Configure'}{'-Path'} =~ s#\\#\/#g;
}
else
{
$self->{'Configure'}{'-Path'} = (getpwuid($<))[7]
unless (!$< || $self->{'Configure'}{'-Path'});
}
$self->{'Configure'}{'-Path'} ||= &cwd() || &getcwd();
if ($bummer && $self->{'Configure'}{'-Path'} =~ /^(\w\:)/)
{
Tk-LockDisplay
view release on metacpan or search on metacpan
LockDisplay.pm view on Meta::CPAN
my $user;
if (not $user = getlogin) {
if ($^O eq 'MSWin32') {
$user = $^O;
} else {
die "Can't get user name." if not $user = getpwuid($<);
}
}
$cw->{user} = $user;
$cw->{-authenticate} = delete $args->{-authenticate};
die "-authenticate callback is improper or missing." unless ref($cw->{-authenticate}) eq 'CODE';
LockDisplay.pm view on Meta::CPAN
. Allow plugin name 'none' to disable screensaver. Thanks to
Roderick Anderson!
=item Version 1.2
. getlogin() fails on HPUX, so try getpwuid() as a fallback.
Thanks to Paul Schinder for the CPAN-Testers bug report.
. Plugins can return() their own -animationinterval value
during preset.
. Add 'neko' plugin.
Tk-OS2src
view release on metacpan or search on metacpan
patches/diff_tk_os2_800_02a view on Meta::CPAN
Tcl_AppendResult(canvasPtr->interp, "%!PS-Adobe-3.0 EPSF-3.0\n",
"%%Creator: Tk Canvas Widget\n", (char *) NULL);
-#if !(defined(__WIN32__) || defined(MAC_TCL))
+#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(__EMX__))
if (!Tcl_IsSafe(interp)) {
struct passwd *pwPtr = getpwuid(getuid());
Tcl_AppendResult(canvasPtr->interp, "%%For: ",
diff -pru Tk800.0_02/pTk/mTk/generic/tkWindow.c Tk800.0_02.my/pTk/mTk/generic/tkWindow.c
--- Tk800.0_02/pTk/mTk/generic/tkWindow.c Fri Mar 6 07:58:12 1998
+++ Tk800.0_02.my/pTk/mTk/generic/tkWindow.c Sat Apr 4 01:59:24 1998
@@ -1167,7 +1167,7 @@ Tk_DestroyWindow(tkwin)
Tk-TableMatrix
view release on metacpan or search on metacpan
{
# retain author's favourite warnings if using gcc
$gccopt .= " -ggdb -Wall -Wno-implicit-int -Wno-comment -Wno-unused -D__USE_FIXED_PROTOTYPES__";
eval
{
if ((getpwuid($<))[6] =~ /Nick\s+Ing-Simmons/)
{
# This is the author - catch as many bugs as possible
$gccopt .= " -MMD -Werror";
@macro = ( macro => { INSTALLDIRS => 'perl' });
}
Tk-Zinc
view release on metacpan or search on metacpan
PostScript.c view on Meta::CPAN
if (ps_info.prolog) {
Tcl_AppendResult(wi->interp, "%!PS-Adobe-3.0 EPSF-3.0\n",
"%%Creator: Tk Zinc Widget\n", (char *) NULL);
#ifdef HAVE_PW_GECOS
if (!Tcl_IsSafe(wi->interp)) {
struct passwd *pwPtr = getpwuid(getuid()); /* INTL: Native. */
Tcl_AppendResult(wi->interp, "%%For: ",
(pwPtr != NULL) ? pwPtr->pw_gecos : "Unknown", "\n",
(char *) NULL);
endpwent();
}
Tk
view release on metacpan or search on metacpan
sub _get_homedir {
my($user) = @_;
if (!defined $user) {
eval {
local $SIG{__DIE__};
(getpwuid($<))[7];
} || $ENV{HOME} || undef; # chdir undef changes to home directory, too
} else {
eval {
local $SIG{__DIE__};
(getpwnam($user))[7];
Trash-Park
view release on metacpan or search on metacpan
lib/Trash/Park.pm view on Meta::CPAN
my($self) = @_;
return sprintf "%s %s %10s %s",
scalar format_mode($self->{mode} & 07777),
nice_time($self->{move_time}),
getpwuid($self->{uid}) || $self->{uid},
$self->{file};
}
###########################################
sub nice_time {
Tree-Lexicon
view release on metacpan or search on metacpan
t/tree-lexicon.t view on Meta::CPAN
'b' => [ 'bind', 'binmode', 'bless', 'break' ],
'c' => [ 'caller', 'chdir', 'chmod', 'chomp', 'chop', 'chown', 'chr', 'chroot', 'close', 'closedir', 'cmp', 'connect', 'continue', 'cos', 'crypt' ],
'd' => [ 'dbmclose', 'dbmopen', 'defined', 'delete', 'die', 'do', 'dump' ],
'e' => [ 'each', 'else', 'elsif', 'endgrent', 'endhostent', 'endnetent', 'endprotoent', 'endpwent', 'endservent', 'eof', 'eq', 'eval', 'exec', 'exists', 'exit', 'exp' ],
'f' => [ 'fcntl', 'fileno', 'flock', 'for', 'foreach', 'fork', 'format', 'formline' ],
'g' => [ 'ge', 'getc', 'getgrent', 'getgrgid', 'getgrnam', 'gethostbyaddr', 'gethostbyname', 'gethostent', 'getlogin', 'getnetbyaddr', 'getnetbyname', 'getnetent', 'getpeername', 'getpgrp', 'getppid', 'getpriority', 'getprotobyname', 'getprot...
'h' => [ 'hex' ],
'i' => [ 'if', 'index', 'int', 'ioctl' ],
'j' => [ 'join' ],
'k' => [ 'keys', 'kill' ],
'l' => [ 'last', 'lc', 'lcfirst', 'le', 'length', 'link', 'listen', 'local', 'localtime', 'lock', 'log', 'lstat', 'lt' ],
Tree-PseudoIncLib
view release on metacpan or search on metacpan
PseudoIncLib.pm view on Meta::CPAN
) = stat ($full_file_name);
# on this stage the sub-directory has some (fictive in my understanding) size...
$row->{size} = $size_2;
$row->{inode} = $ino;
$row->{owner} = getpwuid($uid) unless $self->{skip_owner};
$row->{group} = getgrgid($gid) unless $self->{skip_group};
if ($type eq 'd') {
# one directory might have multiple rpm-owners like:
# [slava@PBC110 slava]$ rpm -qf /usr/lib/perl5/5.6.1/i386-linux
PseudoIncLib.pm view on Meta::CPAN
unless ($self->{skip_mode}){
my $permissions = sprintf "%04o", $mode & 07777;
$lib_descr->{permissions_octal_text} = $permissions;
}
$lib_descr->{owner} = getpwuid($uid) unless $self->{skip_owner};
$lib_descr->{group} = getgrgid($gid) unless $self->{skip_group};
$lib_descr->{inode} = $ino;
$lib_descr->{child_dir_list} = $self->_dir_description (
root_dir => $dir,
Tree-RB-XS
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_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||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
Tripletail
view release on metacpan or search on metacpan
lib/Tripletail.pm view on Meta::CPAN
my $this = shift;
my $uid = $<;
my ($username, $home);
if( $^O ne 'MSWin32' )
{
$username = getpwuid($uid);
$home = (getpwuid($uid))[7];
}else
{
$username = 'anonymous';
$home = 'C:/';
}
Twiki-Upload
view release on metacpan or search on metacpan
lib/Pod/Simple/Wiki/Twiki/Upload.pm view on Meta::CPAN
$twikiweb ||= 'Main';
my %files = make_file_list;
return unless %files;
my $user = $ENV{TWIKI_USER} || prompt("What is your twiki user id?", scalar(getpwuid($<)));
chomp($user);
$user =~ s/ $//;
system("stty -echo");
my $pass = $ENV{TWIKI_PASS} || prompt("What is your twiki password?", '');
chomp($pass);
Type-Tiny-XS
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
UI-Dialog
view release on metacpan or search on metacpan
lib/UI/Dialog/Backend/Nautilus.pm view on Meta::CPAN
}
sub _get_desktop_dir {
my $self = shift();
# Figure out the user's home directory
my @user = getpwuid($>);
my $home = undef;
if (@user > 7 && -d $user[7]) {
$home = $user[7];
}
# check for XDG paths to home directory
( run in 1.257 second using v1.01-cache-2.11-cpan-47059a37de6 )