start ignoring a_inode and fifo by default
This commit is contained in:
parent
8bed192457
commit
bcb983630a
|
@ -17,13 +17,15 @@ sub help{
|
|||
-v Print the version info.
|
||||
--version Print the version info.
|
||||
|
||||
-a Do show a_inodes.
|
||||
-d Do not dedup.
|
||||
-f Do show FIFOs.
|
||||
-n Do not resolve PTR addresses.
|
||||
--nc Disable color.
|
||||
-p Do not show pipes.
|
||||
-r Do not show show VREG / files.
|
||||
-t Do not show shared libraries.
|
||||
-u Do not show unix sockets.
|
||||
-p Do show pipes.
|
||||
-r Do show show VREG / files.
|
||||
-t Do show shared libraries.
|
||||
-u Do show unix sockets.
|
||||
';
|
||||
}
|
||||
|
||||
|
@ -37,6 +39,8 @@ my $vregroot=0;
|
|||
my $dont_dedup=0;
|
||||
my $dont_resolv=0;
|
||||
my $no_color=0;
|
||||
my $a_inode=0;
|
||||
my $fifo=0;
|
||||
|
||||
# get the commandline options
|
||||
Getopt::Long::Configure ('no_ignore_case');
|
||||
|
@ -53,6 +57,8 @@ GetOptions(
|
|||
'd' => \$dont_dedup,
|
||||
'n' => \$dont_resolv,
|
||||
'nc' => \$no_color,
|
||||
'f' => \$fifo,
|
||||
'a' => \$a_inode,
|
||||
);
|
||||
|
||||
# print the version info if requested
|
||||
|
@ -119,6 +125,8 @@ my $ppp=Proc::ProcessTable::piddler->new(
|
|||
txt=>$txt,
|
||||
unix=>$unix,
|
||||
pipe=>$pipe,
|
||||
a_inode=>$a_inode,
|
||||
fifo=>$fifo,
|
||||
vregroot=>$vregroot,
|
||||
dont_dedup=>$dont_dedup,
|
||||
dont_resolv=>$dont_resolv,
|
||||
|
|
|
@ -179,11 +179,14 @@ sub new{
|
|||
vregroot=>0,
|
||||
dont_dedup=>0,
|
||||
dont_resolv=>0,
|
||||
fifo=>0,
|
||||
a_inode=>0,
|
||||
};
|
||||
bless $self;
|
||||
|
||||
my @arg_feed=(
|
||||
'txt', 'pipe', 'unix', 'vregroot', 'dont_dedup', 'dont_resolv'
|
||||
'txt', 'pipe', 'unix', 'vregroot', 'dont_dedup', 'dont_resolv',
|
||||
'fifo', 'a_inore'
|
||||
);
|
||||
|
||||
foreach my $feed ( @arg_feed ){
|
||||
|
@ -522,6 +525,16 @@ sub run{
|
|||
( $line_split[3] =~ /^[Uu][Nn][Ii][Xx]$/ ) &&
|
||||
( ! $self->{unix} )
|
||||
) ||
|
||||
# fifo... spammy with elasticsearch and the like... only print if asked...
|
||||
(
|
||||
( $line_split[3] =~ /^[Ff][Ii][Ff][Oo]$/ ) &&
|
||||
( ! $self->{fifo} )
|
||||
) ||
|
||||
# a_inode... spammy with elasticsearch and the like... only print if asked...
|
||||
(
|
||||
( $line_split[3] =~ /^a\_inode$/ ) &&
|
||||
( ! $self->{a_inode} )
|
||||
) ||
|
||||
# vreg /....can by spammy with somethings like firefox
|
||||
(
|
||||
( $line_split[3] =~ /^[Vv][Rr][Ee][Gg]$/ ) &&
|
||||
|
|
Loading…
Reference in New Issue