Help for this page

Select Code to Download

Select or download this

sub callback {
    my ( $sftp, $data, $offset, $size ) = @_;
    use Math::Pari qw( :DEFAULT PARI pari2num );
...
    print "percent=$percent\n";
    return;
}

Select or download this

offset is a: 
now offset is a: 
offset=0
...
size is a: 
size=666974
percent=2.45646756845094