zhangyiss/feedgnuplot
1
0
Fork 0
mirror of https://github.com/dkogan/feedgnuplot.git synced 2025-05-06 06:21:16 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Modified old-data-pruning function to use List::Util instead of

Browse Source 
List::MoreUtils. This now lets the script work with a stock install of perl
without anything extra from CPAN
This commit is contained in:
Dima Kogan 2011-02-06 15:53:53 -08:00
parent 85b33dffc7
commit 71692dd1b7
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
bin/feedGnuplot
View File

@ -4,7 +4,7 @@ use warnings;
use Getopt::Long; use Getopt::Long;
use Time::HiRes qw( usleep ); use Time::HiRes qw( usleep );
use IO::Handle; use IO::Handle;
use List::MoreUtils qw( first_index ); use List::Util qw( first );
use Text::ParseWords; use Text::ParseWords;
use threads; use threads;
use threads::shared; use threads::shared;
@ -550,11 +550,10 @@ sub pruneOldData
{ {
if( @$xy > 1 ) if( @$xy > 1 )
{ {
my $firstInWindow = first_index {$_->[0] >= $oldestx} @{$xy}[1..$#$xy]; if( my $firstInWindow = first {$xy->[$_][0] >= $oldestx} 1..$#$xy )
if($firstInWindow == -1) { splice( @$xy, 1, $firstInWindow-1 ); }
{ splice( @$xy, 1); }
else else
{ splice( @$xy, 1, $firstInWindow ); } { splice( @$xy, 1); }
} }
} }
} }