-#!/usr/bin/env perl -w
+#!/usr/bin/env perl
# Copyright (C) 2007-2009 Martin A. Hansen.
# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+use warnings;
use strict;
use Maasha::Biopieces;
# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-my ( $run_time_beg, $run_time_end, $options, $in, $out, $record, $key, $prefix, $i );
+my ( $options, $in, $out, $record, $key, $prefix, $i );
$options = Maasha::Biopieces::parse_options(
[
{ long => 'key', short => 'k', type => 'string', mandatory => 'no', default => 'ID', allowed => undef, disallowed => undef },
{ long => 'prefix', short => 'p', type => 'string', mandatory => 'no', default => 'ID', allowed => undef, disallowed => undef },
+ { long => 'offset', short => 'o', type => 'uint', mandatory => 'no', default => '0', allowed => undef, disallowed => undef },
]
);
$key = $options->{ "key" };
$prefix = $options->{ "prefix" };
-$i = 0;
+$i = $options->{ "offset" };
while ( $record = Maasha::Biopieces::get_record( $in ) )
{
$i++;
}
+Maasha::Biopieces::close_stream( $in );
+Maasha::Biopieces::close_stream( $out );
+
# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
BEGIN
{
- $run_time_beg = Maasha::Biopieces::run_time();
-
- Maasha::Biopieces::log_biopiece();
+ Maasha::Biopieces::status_set();
}
END
{
- Maasha::Biopieces::close_stream( $in );
- Maasha::Biopieces::close_stream( $out );
-
- $run_time_end = Maasha::Biopieces::run_time();
-
- Maasha::Biopieces::run_time_print( $run_time_beg, $run_time_end, $options );
+ Maasha::Biopieces::status_log();
}
__END__
-