view release on metacpan or search on metacpan
lib/Perl/PrereqScanner/NotQuiteLite/Context.pm view on Meta::CPAN
getprotobyname => 88,
getprotobynumber => 89,
getprotoent => 90,
getpwent => 91,
getpwnam => 92,
getpwuid => 93,
getservbyname => 94,
getservbyport => 95,
getservent => 96,
getsockname => 97,
getsockopt => 98,
view release on metacpan or search on metacpan
lib/Perl/Tidy/Tokenizer.pm view on Meta::CPAN
exp fc fcntl fileno
flock for foreach formline
ge getc getgrgid getgrnam
gethostbyaddr gethostbyname getnetbyaddr getnetbyname
getpeername getpgrp getpriority getprotobyname
getprotobynumber getpwnam getpwuid getservbyname
getservbyport getsockname getsockopt glob
gmtime goto grep gt
hex if index int
ioctl join keys kill
last lc lcfirst le
view release on metacpan or search on metacpan
lib/Perl/ToPerl6/Utils.pm view on Meta::CPAN
getpeername
getpgrp
getprotobyname
getprotobynumber
getpwnam
getpwuid
getsockname
goto
keys
local
prototype
view release on metacpan or search on metacpan
lib/syslog.pl view on Meta::CPAN
$mask = $2;
}
unless ($whoami) {
($whoami = getlogin) ||
($whoami = getpwuid($<)) ||
($whoami = 'syslog');
}
$whoami .= "[$$]" if $lo_pid;
view release on metacpan or search on metacpan
share/Synopsis/S16-io.pod view on Meta::CPAN
has $gid;
has $gecos;
has $shell;
}
All the information is naturally fetched from the system via getpwuid, getpwnam, or the
like.
=head2 Group role
role Group {
view release on metacpan or search on metacpan
docs/Perl6/Spec/Functions.pod view on Meta::CPAN
=item getlogin
our Str multi OS::getlogin ()
Returns the username of the account running the program. This may
not be as secure as using C<getpwuid> on some platforms.
=item kill
our Bool multi OS::kill ( OS::Signal $signal, Bool :$group, *@pids )
our Bool multi method Conc::Proc::kill ( Conc::Proc $pid: OS::Signal $signal?, Bool :$group )
view release on metacpan or search on metacpan
gen/attr-PerlBean.pl view on Meta::CPAN
my $self = shift;
my $fh = shift;
my $m = $MON[(localtime())[4]];
my $y = (localtime())[5] + 1900;
my $p = (getpwuid($>))[6];
my $also = 'TODO';
if (defined($self->get_collection())) {
$also = '';
foreach my $pkg (sort($self->get_collection()->keys_perl_bean())) {
view release on metacpan or search on metacpan
benchmarks/app/perlfunc.pod view on Meta::CPAN
=item Fetching user and group info
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
C<endprotoent>, C<endservent>, C<gethostbyaddr>, C<gethostbyname>,
C<gethostent>, C<getnetbyaddr>, C<getnetbyname>, C<getnetent>,
benchmarks/app/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>,
benchmarks/app/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";
benchmarks/app/perlfunc.pod view on Meta::CPAN
=item getlogin
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 null,
use C<getpwuid>.
$login = getlogin || getpwuid($<) || "Kilroy";
Do not consider C<getlogin> for authentication: it is not as
secure as C<getpwuid>.
=item getpeername SOCKET
Returns the packed sockaddr address of other end of the SOCKET connection.
benchmarks/app/perlfunc.pod view on Meta::CPAN
=item getnetbyname NAME
=item getprotobyname NAME
=item getpwuid UID
=item getgrgid GID
=item getservbyname NAME,PROTO
benchmarks/app/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
lib/PerlFM.pm view on Meta::CPAN
while (defined( $datahash{reverse}[$int] )) {
my $entry=$datahash{reverse}[$int];
my $atime=localtime($datahash{names}{$entry}{atime});
my $ctime=localtime($datahash{names}{$entry}{ctime});
my $mtime=localtime($datahash{names}{$entry}{mtime});
my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell,$expire) = getpwuid($datahash{names}{$entry}{uid});
if (!defined($name)) {
$name=$datahash{names}{$entry}{uid};
}
my ($gname,$gpasswd,$ggid,$members) = getgrgid($datahash{names}{$entry}{gid});
if (!defined($gname)) {
view release on metacpan or search on metacpan
lib/Linux/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_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031010||Viu
get_regclass_nonbitmap_data|5.031010||Viu
lib/Linux/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
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
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
view release on metacpan or search on metacpan
}
# Use system mailbox if none was specified on the command line
if ( $#ARGV < 0 ) {
if ( ! ($user = getlogin)) {
@a = getpwuid($<);
$user = $a[0];
}
if ( -r "/var/spool/mail/$user" ) { # Modern systems
@ARGV = ("/var/spool/mail/$user");
}
view release on metacpan or search on metacpan
$$self[13]="INS TOP"; # status
$$self[14]=""; # status shown
$$self[15]=$params[3]; # filename
$$self[16]=""; # Kill buffer
$$self[17]=0; # Kill buffer clear toggle
($$self[15] =~/^~/) && (substr ($$self[15],0,1)=(getpwuid ($<))[7]);
bless $self;
}
sub statusbar {
my $self=shift;
}
sub readfile {
my $filename=shift;
my $text="";
($filename =~/^~/) && (substr ($filename,0,1)=(getpwuid ($<))[7]);
open (INPUT, $filename) || return (0);
foreach (<INPUT>) {
$text.=$_;
}
close INPUT;
my ($ret, $initial) = readfile ($filename);
if ($ret) {
$$self[6]=$initial."\n";
$$self[7]=0;
$$self[15]=$filename;
($$self[15] =~/^~/) && (substr ($$self[15],0,1)=(getpwuid ($<))[7]);
$self->justify(1);
$self->rfsh();
}
else {
PV::PVD::message ("Error: Couldn't open file.",30,1);
sub saveas {
my $self=shift;
my $savefile = new PV::Entryfield (2,23,52,0,"Save As:",$$self[15]);
$savefile->display; $savefile->activate;
my $filename = ($savefile->stat);
($filename =~/^~/) && (substr ($filename,0,1)=(getpwuid ($<))[7]);
undef $savefile;
move (23,0);
attron (COLOR_PAIR(7));
addstr(" <Esc>-H for Help <Esc>-X for Menu ");
refresh();
package main;
sub readfile {
my $filename=shift;
my $text="";
($filename =~/^~/) && (substr ($filename,0,1)=(getpwuid ($<))[7]);
open (INPUT, $filename) || return (0);
foreach (<INPUT>) {
$text.=$_;
}
close INPUT;
view release on metacpan or search on metacpan
lib/Perlito5/Runtime.pm view on Meta::CPAN
'getprotobyname' => 1,
'getprotobynumber' => 1,
'getprotoent' => 1,
'getpwent' => 1,
'getpwnam' => 1,
'getpwuid' => 1,
'getservbyname' => 1,
'getservbyport' => 1,
'getservent' => 1,
'getsockname' => 1,
'getsockopt' => 1,
lib/Perlito5/Runtime.pm view on Meta::CPAN
'getprotobyname' => 1,
'getprotobynumber' => 1,
'getprotoent' => 1,
'getpwent' => 1,
'getpwnam' => 1,
'getpwuid' => 1,
'getservbyname' => 1,
'getservbyport' => 1,
'getservent' => 1,
'getsockname' => 1,
'getsockopt' => 1,
lib/Perlito5/Runtime.pm view on Meta::CPAN
'CORE::getprotobyname' => '$',
'CORE::getprotobynumber' => '$',
'CORE::getprotoent' => '',
'CORE::getpwent' => '',
'CORE::getpwnam' => '$',
'CORE::getpwuid' => '$',
'CORE::getservbyname' => '$$',
'CORE::getservbyport' => '$$',
'CORE::getservent' => '',
'CORE::getsockname' => '*',
'CORE::getsockopt' => '*$$',
view release on metacpan or search on metacpan
Postgres.pm view on Meta::CPAN
sub dbconnect {
my ($class, $dbobj) = @_;
my %options = (host => $dbobj->{Host} || '',
port => $dbobj->{Port} || '5432',
);
my $username = $dbobj->{Host} || (''.getpwuid $<);
my $password = $dbobj->{Host} || '';
my $options = join (';',"dbname=$dbobj->{Database}",
grep { /=.+$/ } map { "$_=$options{$_}" } keys %options);
return undef unless $dbh = DBI->connect("dbi:Pg:$options", $username, $password);
}
view release on metacpan or search on metacpan
Pgreet/Config.pm view on Meta::CPAN
#
# Test if this parameter is an existing user ID number
#
sub {
my($s) = shift;
if ((defined($$s)) && (not getpwuid($$s))) {
return 1;
}
return undef;
}
);
view release on metacpan or search on metacpan
}
print "|:FOO:\r\n";
next;
}
if($_ eq 'username') {
print "username=|".exor(getpwuid($<))."|:FOO:\r\n";
next;
}
if($_ eq 'load') {
open(LOAD,"uptime|") or print "Couldn't open uptime: $!\r\n";
while(<LOAD>) {
view release on metacpan or search on metacpan
lib/Pick/TCL.pm view on Meta::CPAN
unless (defined($options{'USER'}))
{
# Default Pick username to remote Unix username if set
my $u = $options{'SSHUSER'};
# Otherwise local username
$u = eval { getpwuid($<); } unless defined($u);
# Handle platforms without a working getpwuid()
$u = getlogin() unless defined($u);
}
$options{'PICKBIN'} = '/usr/bin/ap' unless defined($options{'PICKBIN'});
$options{'OPTDATA'} = '-d' unless defined($options{'OPTDATA'});
$options{'OPTSILENT'} = '-s' unless defined($options{'OPTSILENT'});
view release on metacpan or search on metacpan
$fatpacked{"lib/core/only.pm"} = <<'LIB_CORE_ONLY';
package lib::core::only;use strict;use warnings FATAL=>'all';use Config;sub import {@INC=@Config{qw(privlibexp archlibexp)};return}1;
LIB_CORE_ONLY
$fatpacked{"local/lib.pm"} = <<'LOCAL_LIB';
use strict;use warnings;package local::lib;use 5.008001;use File::Spec ();use File::Path ();use Config;our$VERSION='1.008011';our@KNOWN_FLAGS=qw(--self-contained --deactivate --deactivate-all);sub DEACTIVATE_ONE () {1}sub DEACTIVATE_ALL () {2}sub I...
WHOA THERE! It looks like you've got some fancy dashes in your commandline!
These are *not* the traditional -- dashes that software recognizes. You
probably got these by copy-pasting from the perldoc for this module as
rendered by a UTF8-capable formatter. This most typically happens on an OS X
terminal, but can happen elsewhere too. Please try again after replacing the
view release on metacpan or search on metacpan
lib/Pistachio/Keywords/Perl5.pm view on Meta::CPAN
'getprotobyname' => 1,
'getprotobynumber' => 1,
'getprotoent' => 1,
'getpwent' => 1,
'getpwnam' => 1,
'getpwuid' => 1,
'getservbyname' => 1,
'getservbyport' => 1,
'getservent' => 1,
'getsockname' => 1,
'getsockopt' => 1,
view release on metacpan or search on metacpan
lib/PkgForge/Job.pm view on Meta::CPAN
traits => ['PkgForge::Serialise'],
is => 'rw',
isa => UserName,
required => 1,
coerce => 1,
default => sub { getpwuid($<) },
documentation => 'The name of the person who submitted this job',
);
has 'report' => (
traits => ['PkgForge::Serialise','Getopt','Array'],
lib/PkgForge/Job.pm view on Meta::CPAN
my $obj = $class->new_from_dir($dir);
# Submitter
my $uid = $qentry->owner;
my $owner = getpwuid($uid);
$obj->submitter( $owner || $uid );
# Submission time
$obj->subtime($qentry->timestamp);
view release on metacpan or search on metacpan
local/lib/perl5/ExtUtils/Helpers/Unix.pm view on Meta::CPAN
sub detildefy {
my $value = shift;
# tilde with optional username
for ($value) {
s{ ^ ~ (?= /|$)} [ $ENV{HOME} || (getpwuid $>)[7] ]ex or # tilde without user name
s{ ^ ~ ([^/]+) (?= /|$) } { (getpwnam $1)[7] || "~$1" }ex; # tilde with user name
}
return $value;
}
view release on metacpan or search on metacpan
share/www/dbi2http.psgi view on Meta::CPAN
use Plack::Builder;
use Plack::Util::PeriAHS qw(errpage);
use YAML::Syck ();
my $confpath = $ENV{DBI2HTTP_CONFIG_PATH} // do {
my $home = (getpwuid($>))[7]; # $ENV{HOME} is empty if via fcgi
"$home/dbi2http.conf.yaml";
};
my $conf = YAML::Syck::LoadFile($confpath);
my $fwr = File::Write::Rotate->new(
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
view release on metacpan or search on metacpan
Pod-Minicpandoc-0.16/Pod-Minicpandoc-0.16/lib/Pod/Minicpandoc.pm view on Meta::CPAN
}
sub use_minicpan {
my ( $self ) = @_;
my $rc_file = File::Spec->catfile((getpwuid $<)[7], '.minicpanrc');
return -e $rc_file;
}
sub get_minicpan_path {
my ( $self ) = @_;
my $rc_file = File::Spec->catfile((getpwuid $<)[7], '.minicpanrc');
my $minicpan_path;
my $fh;
unless(open $fh, '<', $rc_file) {
$self->aside("Unable to open '$rc_file': $!");
view release on metacpan or search on metacpan
corpus/perlfunc.pod view on Meta::CPAN
=item Fetching user and group info
X<user> X<group> X<password> X<uid> X<gid> X<passwd> X</etc/passwd>
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>
C<endprotoent>, C<endservent>, C<gethostbyaddr>, C<gethostbyname>,
corpus/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>,
corpus/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";
corpus/perlfunc.pod view on Meta::CPAN
=item getlogin
X<getlogin> X<login>
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>
corpus/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>
corpus/perlfunc.pod view on Meta::CPAN
=item getnetbyname NAME
=item getprotobyname NAME
=item getpwuid UID
=item getgrgid GID
=item getservbyname NAME,PROTO
corpus/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
inc/inc_Module-Build/Module/Build/Platform/Unix.pm view on Meta::CPAN
sub _detildefy {
my ($self, $value) = @_;
$value =~ s[^~([^/]+)?(?=/|$)] # tilde with optional username
[$1 ?
((getpwnam $1)[7] || "~$1") :
($ENV{HOME} || (getpwuid $>)[7])
]ex;
return $value;
}
1;
view release on metacpan or search on metacpan
t/perlfaq.pod view on Meta::CPAN
# make file a month younger than today, defeating reaper daemons
perl -e '$X=24*60*60; utime(time(),time() + 30 * $X,@ARGV)' *
# find first unused uid
perl -le '$i++ while getpwuid($i); print $i'
# display reasonable manpath
echo $PATH | perl -nl -072 -e '
s![^/+]*$!man!&&-d&&!$s{$_}++&&push@m,$_;END{print"@m"}'
view release on metacpan or search on metacpan
t/data/perlfaq.pod view on Meta::CPAN
# make file a month younger than today, defeating reaper daemons
perl -e '$X=24*60*60; utime(time(),time() + 30 * $X,@ARGV)' *
# find first unused uid
perl -le '$i++ while getpwuid($i); print $i'
# display reasonable manpath
echo $PATH | perl -nl -072 -e '
s![^/+]*$!man!&&-d&&!$s{$_}++&&push@m,$_;END{print"@m"}'