nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Reading latest editions.

Mevan

Hi,

Is there any way that Editions can be read in reverse order through Perl code? We are now reading the entire editions and reversing it to display the latest 10 editions. I am looking for minimising the time it is taking to display. So would like to read the Edition from the latest, so that the time taken to read the entire array is minimised.

Thanks.

Find more posts tagged with

Comments

Adam Stoller

Hi,

Is there any way that Editions can be read in reverse order through Perl code? We are now reading the entire editions and reversing it to display the latest 10 editions. I am looking for minimising the time it is taking to display. So would like to read the Edition from the latest, so that the time taken to read the entire array is minimised.

Thanks.

I assume you're using iwlist to get the information - yes?
There isn't any way to get it to reverse the order it outputs the listing in, so you'd just have to do it yourself - but that should be pretty trivial and not all that expensive. If you're concerned about the performance of your code - you can always post it for critiques.

Mevan

No. We are not using iwlist. Below is the perl snippet used currently to read the editions and reverse it.

sub getEdition{
my ( $branch, $limit ) = @_; # $limit is the number of editions to be displayed(eg: 20)
my $dirName = $branch . '/EDITION';
my $hasError = 0;
my @allEditions = ();
my @tmpArray = ();
my @returnEditions = ();

opendir (FILE, $dirName) or handle_error(4, "Failed to open directory: $dirName"), $hasError++;
return ( $hasError ) if $hasError ;
@allEditions = grep(!/^\./, readdir (FILE) );
@returnEditions = reverse @allEditions;
close FILE;

if ( defined $limit && scalar(@returnEditions) > $limit )
{ $limit--;
@tmpArray = @returnEditions[0 .. $limit];
return ($hasError, \@tmpArray);
}
else {
return ($hasError, \@returnEditions);
}
}

Instead of reading all the editions and reversing it, I am looking for a way to read the last 20 editions.

ShowDetailsOnClick.rptdesign

ISCBorisB

No. We are not using iwlist. Below is the perl snippet used currently to read the editions and reverse it.

sub getEdition{
my ( $branch, $limit ) = @_; # $limit is the number of editions to be displayed(eg: 20)
my $dirName = $branch . '/EDITION';
my $hasError = 0;
my @allEditions = ();
my @tmpArray = ();
my @returnEditions = ();

opendir (FILE, $dirName) or handle_error(4, "Failed to open directory: $dirName"), $hasError++;
return ( $hasError ) if $hasError ;
@allEditions = grep(!/^\./, readdir (FILE) );
@returnEditions = reverse @allEditions;
close FILE;

if ( defined $limit && scalar(@returnEditions) > $limit )
{ $limit--;
@tmpArray = @returnEditions[0 .. $limit];
return ($hasError, \@tmpArray);
}
else {
return ($hasError, \@returnEditions);
}
}

Instead of reading all the editions and reversing it, I am looking for a way to read the last 20 editions.

If that "getEdition" sub of yours works, what stops you from using (assigning, whatever) [0..19] Array Slice?
If you need 20 oldest Editions, reverse Editions Array again or use [$scalar-19..$scalar] Slice, etc

gantt.zip

Mevan

According to the current code, @allEditions array has the complete edition list. And @returnEditions array has the complete reversed Editions list.
Finally we display the number of editions we needed(20 or 30...).

I need the same output as the one I am getting now. But the problem is, we have thousands of editions. So it takes very long time to load the output of just 20 Editions, since it is reading all the editions, reversing it and then displaying just 20. I need to minimise this time, by directly reading the latest 20 Editions, so that the complete reading and reversing of all the editions is avoided. Is there a way to do this?

Thanks.

ISCBorisB

According to the current code, @allEditions array has the complete edition list. And @returnEditions array has the complete reversed Editions list.
Finally we display the number of editions we needed(20 or 30...).

I need the same output as the one I am getting now. But the problem is, we have thousands of editions. So it takes very long time to load the output of just 20 Editions, since it is reading all the editions, reversing it and then displaying just 20. I need to minimise this time, by directly reading the latest 20 Editions, so that the complete reading and reversing of all the editions is avoided. Is there a way to do this?

Thanks.

What is your Platform? I can think of using OS Dependent Commands like dir / ls with proper parameters and then
piping out the result. It will not be portable though. To illustrate what I mean, the following is a rudimentary sample
for Windows (no piping, all Editions, youngest first)

my @editions = map {chomp $_; $_;} qx(dir /B /AD /O-D $iwmount$branch\\EDITION);

Mevan

We are using Windows XP.
Teamsite version 6.7.1 SP1.

my @editions = map {chomp $_; $_;} qx(dir /B /AD /O-D $iwmount$branch\\EDITION);

how do I specify the limit using this?

ISCBorisB

We are using Windows XP.
Teamsite version 6.7.1 SP1.

how do I specify the limit using this?

Open a Pipeline to the Command and read as many entries as you need.
Alternatively if "Get all" dir Command performance is acceptable you can simply take an Array slice

Mevan

Thanks. I will try on this.