diff options
| author | tmu <tmu> | 2002-02-20 11:53:22 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2002-02-20 11:53:22 +0000 |
| commit | 23c8db5619060b644910754353f526ac280bf471 (patch) | |
| tree | 6b6c648c1c8837a29a1f96b35893c1b3cb4cebaa | |
| parent | ae62ae81b0699d3f8a0b238fe4cc166fddd57904 (diff) | |
| download | fml8-23c8db5619060b644910754353f526ac280bf471.tar.gz fml8-23c8db5619060b644910754353f526ac280bf471.tar.bz2 fml8-23c8db5619060b644910754353f526ac280bf471.zip | |
add function _search_max_id_from_top()
| -rw-r--r-- | fml/lib/File/Sequence.pm | 43 |
1 files changed, 42 insertions, 1 deletions
diff --git a/fml/lib/File/Sequence.pm b/fml/lib/File/Sequence.pm index 92d1ce20..e9f582af 100644 --- a/fml/lib/File/Sequence.pm +++ b/fml/lib/File/Sequence.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Sequence.pm,v 1.18 2002/02/01 12:03:58 fukachan Exp $ +# $FML: Sequence.pm,v 1.19 2002/02/17 03:13:49 fukachan Exp $ # package File::Sequence; @@ -272,6 +272,47 @@ sub _search_max_id_from_bottom } } +# Descriptions: search max id number from top +# Arguments: OBJ($self) HASH_REF($args) +# Side Effects: none +# Return Value: NUM +sub _search_max_id_from_top +{ + my ($self, $args) = @_; + my ($pebot, $k, $v); + my $unit = 50; + my $debug = 1; + + $pebot = $self->get_id(); + print STDERR "get_id ", $pebot, "\n" if $debug; + + if (defined $args->{ hash }) { + my $hash = $args->{ hash }; + + print STDERR "0. ", $pebot, "\n" if $debug; + + PEBOT_SEARCH: + while ($pebot > 0) { + last PEBOT_SEARCH if defined $hash->{ $pebot - $unit }; + $pebot -= $unit; + print STDERR "1. ", $pebot, "\n" if defined $ENV{'debug'}; + } + +# decrement by 1. + do { + $pebot--; + return 0 if($pebot <= 0); + print STDERR "2. ", $pebot, "\n" if defined $ENV{'debug'}; + } unless (defined $hash->{ $pebot - 1 }); + + return $pebot; + + } + else { + warn("no argument"); + } +} + =head1 AUTHOR |