-----Message d'origine-----
De : agharmine youssef
Envoyé : mercredi 20 août 2003 09:45
À : '[EMAIL PROTECTED]'
Objet : TR: ftp disconnect ?
-----Message d'origine-----
De : agharmine youssef
Envoyé : mercredi 20 août 2003 09:04
À : 'Stephen Patterson'; [EMAIL PROTECTED]
Objet : RE: ftp disconnect ?
..............
>pen IN, "$dirlocal$fichier" or die "**Ouverture de $fichier impossible";
>binmode IN; # absolument INDISPENSABLE sous Ouindoz !
>my $ftp = Net::FTP->new($host,Debug => $opt_d) or die "** erreur connexion
: $!";
>$ftp->login($user, $pass) or die "** erreur utilisateur/passe : $!";
>$ftp->cwd($dirhost) or die "** erreur changement de rep :$!";
>
># $ftp->ascii; # un des deux modes suivant nature du fichier
>$ftp->binary;
>
>my $datac=$ftp->stor($fichier); # récup du Dataconn (!)
>my ($buf, $lread, $lwrite);
>my $outsize=0; # taille de ce qui est déjà envoyé
>my $insize=-s IN; # taille du fichier à envoyer
># initialisation de la jauge
>print "Tansfert de vos donnees !\n";
>my $jauge=0;
>print "0% 50% 100%\n";
>print "|------------------------------|------------------------------|\n";
>my $i=0;
>while($lread = read(IN, $buf="",16*1_024))
>
> {
>
> defined $lread or die "** Erreur systeme en lecture $!\n";
>
> unless( defined($lwrite = $datac->write($buf,$lread,100000)) &&
$lwrite == $lread )
>
> {
> $datac->abort();
> die "\n** Erreur ecriture pendant transfert\n";
> }
>
> $outsize += $lwrite;
> {
> # mise à jour de la jauge ici ...
> my $j=int($outsize/$insize*63);
> print '*'x($j-$jauge);
> $jauge=$j;
>
> }
>
>}
>
>print "\n....................... balise..............\n";
>$datac->close() or die "\n** Erreur fermeture transfert\n";
>close IN;
>print "\n\n-->Fin transfert de $fichier \n";
>
>
>
>-----Message d'origine-----
De : Stephen Patterson [mailto:[EMAIL PROTECTED]
Envoyé : mercredi 20 août 2003 00:04
À : [EMAIL PROTECTED]
Objet : Re: ftp disconnect ?
On 19 Aug 03, agharmine youssef ([EMAIL PROTECTED]) wrote:
> I wrote a litle script (with net::ftp )to upload big files but at the end
of
> transfert it freeze
> and it never close the session !.
> My script works only with small files .
I can't promise anything, but without code we're stabbing in the dark.
--
Stephen Patterson http://www.lexx.uklinux.net http://patter.mine.nu
[EMAIL PROTECTED] remove SPAM to reply
Linux Counter No: 142831 GPG Public key: 252B8B37
Last one down the pub's an MCSE
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
