FTP: Difference between revisions

Content added Content deleted

Inline

@@ Line 601: / Line 601: @@
 <lang perl6>use Net::FTP;
+my $host = 'speedtest.tele2.net';
-my $ftp = Net::FTP.new(:host('mirrors.sohu.com'), :passive);
+my $user = 'anonymous';
+my $password = '';
+my $ftp = Net::FTP.new( host => $host, :passive );
-$ftp.login();
+$ftp.login( user => $user, pass => $password );
-say $_<name>for $ftp.ls();
+say $_<name> for $ftp.ls;
-$ftp.get( 'index.html', :binary );</lang>
+$ftp.get( '5MB.zip', :binary );</lang>
 {{out}}
-<pre>
+<pre>1000GB.zip
+GB.zip
-CPAN
+KB.zip
-FOOTER.html
+MB.zip
-FreeBSD
+GB.zip
-HEADER.html
+MB.zip
-OpenBSD
+GB.zip
-anthon
+KB.zip
-apache
+MB.zip
-archlinux
+MB.zip
-centos
+MB.zip
-cygwin
+MB.zip
-dag
+MB.zip
-debian
+MB.zip
-debian-backports
+MB.zip
-debian-cd
+KB.zip
-debian-multimedia
+MB.zip
-debian-security
+upload</pre>
-deepin
-deepin-cd
-fedora
-fedora-epel
-gentoo
-help
-images
-index.html
-mysql
-nginx
-opensuse
-php
-python
-qt-all
-raspbian
-rsync
-ubuntu
-ubuntu-cn
-ubuntu-releases
-</pre>
 =={{header|PicoLisp}}==