mirror of
https://github.com/stevenhowes/Cobalt-CheckCODB.git
synced 2026-05-26 15:53:26 +01:00
Steve Howes
37 lines
552 B
Perl
Executable File
37 lines
552 B
Perl
Executable File
#!/usr/bin/perl
|
|
opendir(DIR, "/usr/sausalito/codb/objects");
|
|
@FILES=readdir(DIR);
|
|
@FILESSORT = sort { $a <=> $b } @FILES;
|
|
|
|
$lastvalidoid = -100;
|
|
$i=0;
|
|
$lastdash = 0;
|
|
$oidslist = "";
|
|
foreach(@FILESSORT)
|
|
{
|
|
if ($_ =~ /^-?\d/)
|
|
{
|
|
if($FILESSORT[$i+1] == $_ + 1)
|
|
{
|
|
if($lastdash == 0)
|
|
{
|
|
$oidslist .= "$_-";
|
|
}
|
|
$lastdash = 1;
|
|
}else{
|
|
$lastdash = 0;
|
|
$oidslist .= "$_,";
|
|
}
|
|
$lastvalidoid = $_;
|
|
}
|
|
$i++;
|
|
}
|
|
if(substr($oidslist, -1, 1) == ",")
|
|
{
|
|
chop($oidslist);
|
|
}
|
|
|
|
open FILE, ">myoids" or die $!;
|
|
print FILE $oidslist;
|
|
close FILE;
|