Variable: tramp-perl-id

tramp-perl-id is a variable defined in tramp-sh.el.gz.

Value

"%p -e '\nuse strict;\nuse warnings;\nuse POSIX qw(getgroups);\n\nmy ( $uid, $user ) = ( $>, scalar getpwuid $> );\nmy ( $gid, $group ) = ( $), scalar getgrgid $) );\nmy @groups = map { $_ . \"(\" . getgrgid ($_) . \")\" } getgroups ();\n\nprintf \"uid=%%d(%%s) gid=%%d(%%s) groups=%%s\\n\",\n  $uid, $user, $gid, $group, join \",\", @groups;' %n"

Documentation

Perl script printing id output.

Format specifiers are replaced by tramp-expand-script, percent characters need to be doubled.

Source Code

;; Defined in /usr/src/emacs/lisp/net/tramp-sh.el.gz
(defconst tramp-perl-id "\
%p -e '
use strict;
use warnings;
use POSIX qw(getgroups);

my ( $uid, $user ) = ( $>, scalar getpwuid $> );
my ( $gid, $group ) = ( $), scalar getgrgid $) );
my @groups = map { $_ . \"(\" . getgrgid ($_) . \")\" } getgroups ();

printf \"uid=%%d(%%s) gid=%%d(%%s) groups=%%s\\n\",
  $uid, $user, $gid, $group, join \",\", @groups;' %n"
  "Perl script printing `id' output.
Format specifiers are replaced by `tramp-expand-script', percent
characters need to be doubled.")