Skip to content
Snippets Groups Projects
Commit ef335932 authored by Patrick Meidl's avatar Patrick Meidl
Browse files

linux-compatible ps options

parent 24e6e956
No related branches found
No related tags found
No related merge requests found
......@@ -237,7 +237,7 @@ foreach my $object ($big_chr, $small_chr) {
print STDERR join(",", map { $num{$gene_types{$_}} || 0 }
sort keys %gene_types);
print STDERR " | ";
print STDERR "Mem: " . `ps $$ -o vsz |tail -1`;
print STDERR "Mem: " . `ps -p $$ -o vsz |tail -1`;
}
......
......@@ -730,7 +730,7 @@ sub finish_log {
sub date_and_mem {
my $date = strftime "%Y-%m-%d %T", localtime;
my $mem = `ps $$ -o vsz |tail -1`;
my $mem = `ps -p $$ -o vsz |tail -1`;
chomp $mem;
return "[$date, mem $mem]";
}
......@@ -761,7 +761,7 @@ sub date {
=cut
sub mem {
my $mem = `ps $$ -o vsz |tail -1`;
my $mem = `ps -p $$ -o vsz |tail -1`;
chomp $mem;
return $mem;
}
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment