Hallo, dies ist ein Test.

PWD: /www/data-lst1/unixsoft/unixsoft/kaempfer/.public_html

Running in File Mode
Relative path: ././.././../../../../../bin/proc_slist
Real path: /usr/bin/proc_slist
Zurück

#!/usr/perl5/5.36/bin/perl

#
# Copyright (c) 2006, 2021, Oracle and/or its affiliates.
#

my $slist = $ARGV[0];

open(LST, "<$slist") || die "Cannot open slist";

my %hash = ();
my %hash1 = ();
my @lst = ();
my $count = 2000000;
#my $count = 1993235;
#my $count = 2400000;
my $diff = 5;
my $ucount = 0;

while (my $line=<LST>) {

chomp($line);
	my @entry = split(/ /, $line);
	my $upd = 0;

if (exists($hash{"$entry[1]"})) {
		my $pos = $hash{"$entry[1]"};
		my @lentry = split(/ /, $lst[$pos]);
		if ($ucount - $lentry[1] <= $diff) {
			$lentry[0]++;
			my $lstent = "$lentry[0] $lentry[1] $lentry[2] $lentry[3]";
#print "Updating $lstent\n";
			$lst[$pos] = $lstent;
			$upd = 1;
		}
	}
	if ($upd == 0) {
		my $lstent = "1 $ucount $line";
#print "$lstent\n";
		$#lst++;
		$lst[$#lst] = $lstent;
		$hash{"$entry[1]"} = $#lst;
		$ucount++;
	}
}
close(LST);

foreach $lstent (@lst) {
	my @lentry = split(/ /, $lstent);
#print "$lstent\n";

if (exists($hash1{"$lentry[3]"})) {
		my $hentry = $hash1{"$lentry[3]"};
#print "Got $lentry[3],$lentry[0]: $hentry->[3],$hentry->[0]\n";
		if ($lentry[0] > $hentry->[0]) {
#print "$hentry->[3] $hentry->[0] swapping to $lentry[3] $lentry[0]\n";
			$hentry->[0] = $lentry[0];
			$hentry->[1] = $lentry[1];
			$hentry->[2] = $lentry[2];
			$hentry->[3] = $lentry[3];
			$hash1{"$lentry[3]"} = $hentry;

} elsif ($lentry[0] == $hentry->[0]) {
			if ($lentry[2] > $hentry->[2]) {
				$hentry->[0] = $lentry[0];
				$hentry->[1] = $lentry[1];
				$hentry->[2] = $lentry[2];
				$hentry->[3] = $lentry[3];
				$hash1{"$lentry[3]"} = $hentry;
			}
		}
	} else {
#print "Assigning hash1{$lentry[3]} = \@lentry\n";
		$hash1{"$lentry[3]"} = \@lentry;
	}
}

if (open(PRE, "<$LIVEKIT/iso.sort.pre")) {
	while ($line=<PRE>) {
		print $line;
	}
	close(PRE);
}

my @vals = (values(%hash1));
@vals = sort({$a->[1] <=> $b->[1]} @vals);
foreach my $ventry (@vals) {
	print "$ventry->[3]\t$count\n";
	$count--;
}

print "usr\t$count\n";