File: info.pl

package info (click to toggle)
libsystem-command-perl 1.122-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 228 kB
  • sloc: perl: 550; makefile: 2
file content (23 lines) | stat: -rwxr-xr-x 429 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!perl
use strict;
use warnings;
use Cwd qw( cwd );
use Data::Dumper;

my $input = $ENV{SYSTEM_COMMAND_INPUT} ? join( '', <> ) : '';

{
local $Data::Dumper::Sortkeys = 1;
local $Data::Dumper::Indent = 1;
print Data::Dumper->Dump(
    [   {   argv  => \@ARGV,
            env   => \%ENV,
            cwd   => cwd(),
            input => $input,
            name  => $0,
            pid   => $$,
        }
    ],
    ['info']
);
}