Re^4: Generic Data Collection

[Deep_Plaid]

Thanks for the quick reply. Your code works as you described and as I requested, but I don't think I explained what I needed very well. Your code creates each series as an element in the array (each line of data is an element), but I need to be able to separate out the PID data in order to work with it. I need the user to log what user was involved, and I need the time to be able to sort the list and choose the 10 "oldest" PIDS for the day. To illustrate, here's the same data:

user1 192.168.1.1 machine1 (v1.1) (flexlmserver/27000 1009), start Sat
+ 3/30 12:53
user2 192.168.1.2 machine2 (v1.1) (flexlmserver/27000 123), start Sat 
+3/30 2:45

With your code gives me the output:

$parsed[0] = user1,1009,12:53
$parsed[1] = user2,123,2:45

When I need something like:

@row1 = (user1,1009,12:53)
$row1[0] = user1
$row1[1] = 1009
$row1[2] = 12:53
@row2 = (user2,123,2:45)
$row2[0] = user2
$row2[1] = 123
$row2[2] = 2:45

So perhaps what I really need is a multidimensional array or a way to split up the file into a grid? My end goal is to take the oldest PIDs so I can run a command on those PID numbers. Therefore I need to associate the time with the PIDs so I can identify the ones I need. You are correct the I am not asking for the correct data construct. Any further suggestions would be greatly appreciated.

[Anonymous Monk]

Just push the array ref instead of a string, then you can sort.

while ( <DATA> ) {
  my @wanted = ( split )[ 0, 5, 9 ];
  $wanted[1] =~ s/\D//g;
  $wanted[2] = sprintf "%05s",$wanted[2]; 
  push @parsed, \@wanted;
}

print "@$_\n" for sort { $a->[2] cmp $b->[2] } @parsed;

poj

[Deep_Plaid]

Excellent, POJ. This works well. I need to piece through your code to understand exactly what is doing, but I wondered if you could expand on this approach to help me in my next step. I need to identify the ten oldest PIDS and then them through another command. For simplicity, I'll just select the 2 oldest for this example. Once I identify those PIDS, I need to run the command:

lmutil lmremove -h $PRODUCT $flexlmserver 27000 $PID[x]

Where $PIDx would be the two oldest (or whatever # I want to select) PIDS. I'm sure this can be done using your approach, but I have no idea of the syntax. Thanks so much for your time.

[poj]

This simple example assumes you don't want to capture the output of the command or check for success

while ( <DATA> ) {
  my @wanted = ( split )[ 0, 5, 9 ];
  $wanted[1] =~ s/\D//g;
  $wanted[2] = sprintf "%05s",$wanted[2]; 
  push @parsed, \@wanted;
}

my @sorted_by_time = sort { $a->[2] cmp $b->[2] } @parsed;

# oldest
my $LIMIT = 2;
my $count = 0;
for (@sorted_by_time){
  my $PID = $_->[1];
  system("lmutil lmremove -h $PRODUCT $flexlmserver 27000 $PID");
  last if ++$count >= $LIMIT 
}

poj