Skip to content

Instantly share code, notes, and snippets.

@Whateverable
Created December 2, 2017 21:48
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Whateverable/4d1c6d7b0251dadc11e24e37d54086e5 to your computer and use it in GitHub Desktop.
Save Whateverable/4d1c6d7b0251dadc11e24e37d54086e5 to your computer and use it in GitHub Desktop.
greppable6
File Code
TBROWDER/Geo-Ellipsoid
…/LICENSE :319:
a major archive site such as ftp.uu.net, or by allowing the
TBROWDER/Geo-Ellipsoid
…/Ellipsoid.pm6 :1108:
ftp://ftp.ngs.noaa.gov/pub/pcsoft/for_inv.3d/source/
CurtTilmes/perl6-libcurl
…/README.md :190:
ftp-skip-pasv-ip
CurtTilmes/perl6-libcurl
…/README.md :191:
ftp-use-eprt
CurtTilmes/perl6-libcurl
…/README.md :192:
ftp-use-epsv
CurtTilmes/perl6-libcurl
…/README.md :364:
ftp-entry-path
CurtTilmes/perl6-libcurl
…/Easy.pm6 :176:
ftp-skip-pasv-ip => (CURLOPT_FTP_SKIP_PASV_IP, CURLOPT_BOOL ),
CurtTilmes/perl6-libcurl
…/Easy.pm6 :177:
ftp-use-eprt => (CURLOPT_FTP_USE_EPRT, CURLOPT_BOOL ),
CurtTilmes/perl6-libcurl
…/Easy.pm6 :178:
ftp-use-epsv => (CURLOPT_FTP_USE_EPSV, CURLOPT_LONG ),
CurtTilmes/perl6-libcurl
…/Easy.pm6 :247:
ftp-entry-path => (CURLINFO_FTP_ENTRY_PATH, CURLINFO_STRING ),
CurtTilmes/perl6-libcurl
…/Test.pm6 :64:
method start-ftp
CurtTilmes/perl6-libcurl
…/Test.pm6 :70:
'--proto', 'ftp', '--ipv4', '--addr', $HOSTIP);
CurtTilmes/perl6-libcurl
…/Test.pm6 :83:
method running-ftp()
CurtTilmes/perl6-libcurl
…/Test.pm6 :112:
method stop-ftp()
CurtTilmes/perl6-libcurl
…/Test.pm6 :116:
while self.running-ftp
CurtTilmes/perl6-libcurl
…/test0079.t :15:
URL => "ftp://$HOSTIP:$HTTPPORT/we/want/that/page/79",
CurtTilmes/perl6-libcurl
…/test0079.t :26:
"GET ftp://127.0.0.1:8990/we/want/that/page/79 HTTP/1.1
CurtTilmes/perl6-libcurl
…/test0100.t :12:
$server.start-ftp;
CurtTilmes/perl6-libcurl
…/test0100.t :14:
my $curl = LibCurl::Easy.new(URL => "ftp://$HOSTIP:$FTPPORT/test-100/").perform;
CurtTilmes/perl6-libcurl
…/test0100.t :36:
PASS ftp@example.com
CurtTilmes/perl6-libcurl
…/test0101.t :12:
$server.start-ftp;
CurtTilmes/perl6-libcurl
…/test0101.t :14:
my $curl = LibCurl::Easy.new(URL => "ftp://$HOSTIP:$FTPPORT/",
CurtTilmes/perl6-libcurl
…/test0102.t :12:
$server.start-ftp;
CurtTilmes/perl6-libcurl
…/test0102.t :14:
my $curl = LibCurl::Easy.new(URL => "ftp://$HOSTIP:$FTPPORT/102").perform;
CurtTilmes/perl6-libcurl
…/test0102.t :31:
PASS ftp@example.com
FROGGS/p6-Games-BubbleBreaker
…/LICENSE :319:
a major archive site such as ftp.uu.net, or by allowing the
MARTIMM/unicode-precis
…/README.md :54:
* [Unicode Data File Format]( ftp://unicode.org/Public/3.2-Update/UnicodeData-3.2.0.html)
MARTIMM/unicode-precis
…/generate-module.pl6 :176:
# ftp://unicode.org/Public/3.2-Update/UnicodeData-3.2.0.html
perl6-all-modules/github/Net-FTP/META.info "description" : "A ftp client written in perl6",
perl6-all-modules/github/Net-FTP/README.md A simple ftp client module written in perl6.
perl6-all-modules/github/Net-FTP/README.md my $ftp = Net::FTP.new(:host<ftpserver>, :user<user>, :pass<pass>, :passive);
perl6-all-modules/github/Net-FTP/README.md if $ftp.login() {
perl6-all-modules/github/Net-FTP/README.md $ftp.cwd('/');
perl6-all-modules/github/Net-FTP/README.md for $ftp.ls() -> %info {
perl6-all-modules/github/Net-FTP/README.md if $ftp.get(~%info<name>, "./ftpfile/", :binary) {
perl6-all-modules/github/Net-FTP/README.md $ftp.quit();
Takadonet/Algorithm--Diff
…/README :55:
ftp://st.cs.uiuc.edu/pub/Smalltalk/MANCHESTER/manchester/4.0/diff.st
Takadonet/Algorithm--Diff
…/Diff.pm :1595:
ftp://st.cs.uiuc.edu/pub/Smalltalk/MANCHESTER/manchester/4.0/diff.st
Takadonet/Text--Diff
…/LICENSE :320:
a major archive site such as ftp.uu.net, or by allowing the
araraloren/Net-FTP
…/META6.json :5:
"description" : "A ftp client written in perl6",
araraloren/Net-FTP
…/README.md :7:
A simple ftp client module written in perl6.
araraloren/Net-FTP
…/README.md :15:
my $ftp = Net::FTP.new(:host<ftpserver>, :user<user>, :pass<pass>, :passive);
araraloren/Net-FTP
…/README.md :17:
if $ftp.login() {
araraloren/Net-FTP
…/README.md :19:
$ftp.cwd('/');
araraloren/Net-FTP
…/README.md :20:
for $ftp.ls() -> %info {
araraloren/Net-FTP
…/README.md :23:
if $ftp.get(~%info<name>, "./ftpfile/", :binary) {
araraloren/Net-FTP
…/README.md :28:
$ftp.quit();
araraloren/Net-FTP
…/README.md :47:
Cause perl6 can not bind a local port to a socket, it's not easy to implement a ftp client according to the standard.
araraloren/Net-FTP
…/FTP.pm6 :488:
Net::FTP - A simple ftp client
araraloren/Net-FTP
…/FTP.pm6 :494:
my $ftp = Net::FTP.new(:user<ftpt>, :pass<123456>, :host<192.168.0.101>, :debug, :passive);
araraloren/Net-FTP
…/FTP.pm6 :496:
$ftp.login();
araraloren/Net-FTP
…/FTP.pm6 :497:
$ftp.list();
araraloren/Net-FTP
…/FTP.pm6 :498:
$ftp.quit();
araraloren/Net-FTP
…/FTP.pm6 :502:
Net::FTP is a ftp client class in perl6.
araraloren/Net-FTP
…/FTP.pm6 :511:
my $ftp = Net::FTP.new(:host<192.168.0.1>);
araraloren/Net-FTP
…/FTP.pm6 :537:
You may be need a ftp username to login. If user is not given or a empty string, ftp will login as anonymous.
araraloren/Net-FTP
…/FTP.pm6 :546:
Default ftp is active mode, set to True use ftp passive mode.
araraloren/Net-FTP
…/FTP.pm6 :550:
If debug is set, print debug infomation. Generally it is [+code, msg we receive from ftp server].
araraloren/Net-FTP
…/FTP.pm6 :561:
say $ftp.code();
araraloren/Net-FTP
…/FTP.pm6 :568:
say $ftp.msg();
araraloren/Net-FTP
…/FTP.pm6 :572:
Login to remote ftp server. Some ftp server may be ask for a account.
araraloren/Net-FTP
…/FTP.pm6 :575:
$ftp.login();
araraloren/Net-FTP
…/FTP.pm6 :583:
Disconnect from ftp server.
araraloren/Net-FTP
…/FTP.pm6 :586:
$ftp.quit();
araraloren/Net-FTP
…/FTP.pm6 :597:
$ftp.cwd("/somedir");
araraloren/Net-FTP
…/FTP.pm6 :608:
$ftp.cdup();
araraloren/Net-FTP
…/FTP.pm6 :619:
$ftp.mkdir("/a");
araraloren/Net-FTP
…/FTP.pm6 :620:
$ftp.mkdir("./c");
araraloren/Net-FTP
…/FTP.pm6 :635:
$ftp.rmdir("/a");
araraloren/Net-FTP
…/FTP.pm6 :636:
$ftp.rmdir("./b");
araraloren/Net-FTP
…/FTP.pm6 :647:
$ftp.pwd();
araraloren/Net-FTP
…/FTP.pm6 :657:
$ftp.passive(); #get passive mode status
araraloren/Net-FTP
…/FTP.pm6 :658:
$ftp.passive(True); #Then next data connection will use passive mode.
araraloren/Net-FTP
…/FTP.pm6 :669:
$ftp.type(MODE::ASCII); # set ASCII mode
araraloren/Net-FTP
…/FTP.pm6 :679:
$ftp.ascii();
araraloren/Net-FTP
…/FTP.pm6 :688:
$ftp.binary();
araraloren/Net-FTP
…/FTP.pm6 :700:
$ftp.rest(100);
araraloren/Net-FTP
…/FTP.pm6 :729:
$ftp.list(); # list current directory contents
araraloren/Net-FTP
…/FTP.pm6 :730:
$ftp.list('/somedir'); # list /somedir contents
araraloren/Net-FTP
…/02-login.t :9:
##013.3vftp.com is a ftp service
araraloren/Net-FTP
…/02-login.t :10:
##mirrors.sohu.com is a anonymous ftp service
araraloren/Net-FTP
…/02-login.t :13:
my $ftp = Net::FTP.new(:host($host));
araraloren/Net-FTP
…/02-login.t :15:
ok($ftp.login() == 0, "ftp login failed");
araraloren/Net-FTP
…/02-login.t :17:
$ftp = Net::FTP.new(:host('013.3vftp.com'),
araraloren/Net-FTP
…/02-login.t :21:
ok($ftp.login() == 1, "ftp login success");
araraloren/Net-FTP
…/02-login.t :22:
ok($ftp.quit == 1, "ftp quit");
araraloren/Net-FTP
…/02-login.t :24:
$ftp = Net::FTP.new(:host('mirrors.sohu.com'));
araraloren/Net-FTP
…/02-login.t :26:
ok($ftp.login() == 1, "anonymous ftp login success");
araraloren/Net-FTP
…/02-login.t :27:
ok($ftp.quit == 1, "anonymous ftp quit");
araraloren/Net-FTP
…/03-directory.t :9:
##mirrors.sohu.com is a anonymous ftp service
araraloren/Net-FTP
…/03-directory.t :11:
my $ftp = Net::FTP.new(:host('mirrors.sohu.com'));
araraloren/Net-FTP
…/03-directory.t :13:
ok($ftp.login() == 1, "anonymous ftp login success");
araraloren/Net-FTP
…/03-directory.t :14:
isnt($ftp.pwd(), '', "get current directory.");
araraloren/Net-FTP
…/03-directory.t :15:
ok($ftp.cwd('fedora') == 1, "change current directory to fedora");
araraloren/Net-FTP
…/03-directory.t :16:
isnt($ftp.pwd(), '', "get current directory.");
araraloren/Net-FTP
…/03-directory.t :17:
ok($ftp.cdup() == 1, "change current directory to fedora");
araraloren/Net-FTP
…/03-directory.t :18:
isnt($ftp.pwd(), '', "get current directory.");
araraloren/Net-FTP
…/03-directory.t :19:
ok($ftp.quit == 1, "anonymous ftp quit");
araraloren/Net-FTP
…/04-list.t :9:
##mirrors.sohu.com is a anonymous ftp service
araraloren/Net-FTP
…/04-list.t :10:
my $ftp = Net::FTP.new(:host('mirrors.sohu.com'), :passive);
araraloren/Net-FTP
…/04-list.t :12:
$ftp.login();
araraloren/Net-FTP
…/04-list.t :13:
isnt($ftp.ls(), (), "list file success");
araraloren/Net-FTP
…/04-list.t :14:
isnt($ftp.ls('fedora'), (), "list file success");
araraloren/Net-FTP
…/04-list.t :15:
is($ftp.ls('/notexistdir'), (), "list file success");
araraloren/Net-FTP
…/04-list.t :16:
isnt($ftp.ls('./'), (), "list file success");
araraloren/Net-FTP
…/04-list.t :17:
$ftp.quit();
araraloren/Net-FTP
…/05-put-get.t :8:
my $ftp = Net::FTP.new(:host('013.3vftp.com'),:user('ftptest138'), :pass('123456'), :passive);
araraloren/Net-FTP
…/05-put-get.t :10:
$ftp.login();
araraloren/Net-FTP
…/05-put-get.t :11:
ok($ftp.get("stor.txt", "some.txt", :binary) == 1, "Get file stor.txt success");
araraloren/Net-FTP
…/05-put-get.t :12:
ok($ftp.put("some.txt") == 1, "Put file some.txt success");
araraloren/Net-FTP
…/05-put-get.t :13:
$ftp.quit();
araraloren/Net-FTP
…/06-mkdir-rmdir.t :9:
my $ftp = Net::FTP.new(:host('013.3vftp.com'),:user('ftptest138'), :pass('123456'), :passive);
araraloren/Net-FTP
…/06-mkdir-rmdir.t :11:
$ftp.login();
araraloren/Net-FTP
…/06-mkdir-rmdir.t :12:
$ftp.rmdir("/newdir"); ## make sure newdir not exist
araraloren/Net-FTP
…/06-mkdir-rmdir.t :13:
ok($ftp.mkdir("/newdir"), "Mkdir success");
araraloren/Net-FTP
…/06-mkdir-rmdir.t :14:
ok($ftp.rmdir("/newdir") == 1, "Rmdir success");
araraloren/Net-FTP
…/06-mkdir-rmdir.t :15:
$ftp.quit();
azawawi/farabi6
…/form.min.js :11:
!function(e,t,n,i){"use strict";e.fn.form=function(t,r){var o,a=e(this),s=e.extend(!0,{},e.fn.form.settings,r),l=e.extend({},e.fn.form.settings.defau…
azawawi/farabi6
…/semantic.min.js :11:
!function(e,t,n,i){e.site=e.fn.site=function(o){var a,r,s=(new Date).getTime(),c=[],l=arguments[0],u="string"==typeof l,d=[].slice.call(arguments,1),…
azawawi/farabi6
…/semantic.min.js :17:
})},bindEvents:function(){s.keyboardShortcuts&&l.on("keydown"+m,t.event.field.keydown),o.on("submit"+m,t.validate.form),l.on("blur"+m,t.event.field.b…
azawawi/perl6-gtk-scintilla
…/LexJSON.cxx :346:
context.Match("ftp://")
azawawi/perl6-net-curl
…/ftp-wildcard.c :82:
curl_easy_setopt(handle, CURLOPT_URL, "ftp://example.com/test/*");
azawawi/perl6-net-curl
…/ftpget.c :68:
"ftp://ftp.example.com/pub/www/utilities/curl/curl-7.9.2.tar.gz");
azawawi/perl6-net-curl
…/ftpgetinfo.c :43:
char ftpurl[] = "ftp://ftp.example.com/gnu/binutils/binutils-2.19.1.tar.bz2";
azawawi/perl6-net-curl
…/ftpgetinfo.c :59:
/* No header output: TODO 14.1 http-style HEAD output for ftp */
azawawi/perl6-net-curl
…/ftpgetresp.c :48:
ftpfile = fopen("ftp-list", "wb"); /* b is binary, needed on win32 */
azawawi/perl6-net-curl
…/ftpgetresp.c :51:
respfile = fopen("ftp-responses", "wb"); /* b is binary, needed on win32 */
azawawi/perl6-net-curl
…/ftpgetresp.c :56:
curl_easy_setopt(curl, CURLOPT_URL, "ftp://ftp.example.com/");
azawawi/perl6-net-curl
…/ftpsget.c :72:
"ftp://user@server/home/user/file.txt");
azawawi/perl6-net-curl
…/ftpupload.c :45:
#define REMOTE_URL "ftp://example.com/" UPLOAD_FILE_AS
azawawi/perl6-net-curl
…/ftpuploadresume.c :168:
upload(curlhandle, "ftp://user:pass@example.com/path/file", "C:\\file", 0, 3);
azawawi/perl6-net-curl
…/multi-app.c :60:
curl_easy_setopt(handles[FTP_HANDLE], CURLOPT_URL, "ftp://example.com");
azawawi/perl6-net-curl
…/multithread.c :42:
"ftp://cool.haxx.se/",
cygx/p6-image-png-inflated
…/pngcheck.c :125:
* ftp://ftp.simplesystems.org/pub/libpng/mng/
cygx/p6-image-png-inflated
…/pngcheck.c :1689:
specification in RFC 1950 (ftp://ds.internic.net/rfc/rfc1950.txt),
cygx/p6-image-rgba-text
…/pngcheck.c :125:
* ftp://ftp.simplesystems.org/pub/libpng/mng/
cygx/p6-image-rgba-text
…/pngcheck.c :1689:
specification in RFC 1950 (ftp://ds.internic.net/rfc/rfc1950.txt),
dnmfarrell/Pod-Perl5
…/Grammar.pm6 :180:
[ [ [ https?
dnmfarrell/Pod-Perl5
…/08_links.t :40:
'ftp://example.com', 'Parser extracted the url';
dnmfarrell/Pod-Perl5
…/links.pod :21:
L<Link text
gfldex/perl6-pod-to-bigpage
…/html.xhtml :21043:
say "https://perl6.org/".starts-with('ftp'); # False</pre>
hartenfels/JavaScript-SpiderMonkey
…/.travis.yml :4:
- wget http://ftp.mozilla.org/pub/js/mozjs-24.2.0.tar.bz2
jamesalbert/JSON-WebToken
…/LICENSE :326:
such as ftp.uu.net, or by allowing the Copyright Holder to include your
jonathanstowe/Audio-Playlist-JSPF
…/LICENCE :319:
a major archive site such as ftp.uu.net, or by allowing the
jonathanstowe/JSON-Infer
…/LICENCE :319:
a major archive site such as ftp.uu.net, or by allowing the
jonathanstowe/META6
…/projects.json :7688:
"description" : "A ftp client written in perl6",
palapitta/Aria
…/README.md :25:
$x.get($dir, $link) # downloads http(s), ftp, magnet, torrent, metalink to $dir directory
patch/geo-region-pm6
…/LICENSE :326:
such as ftp.uu.net, or by allowing the Copyright Holder to include your
perl6-community-modules/uri
…/DefaultPort.pm :9:
ftp => 21,
perl6-community-modules/uri
…/rfc-3986-examples.t :6:
my $u = URI.new('ftp://ftp.is.co.za/rfc/rfc1808.txt', :validating<1>);
perl6-community-modules/uri
…/rfc-3986-examples.t :7:
is($u.scheme, 'ftp', 'ftp scheme');
perl6-community-modules/uri
…/rfc-3986-examples.t :8:
is($u.host, 'ftp.is.co.za', 'ftp host');
perl6-community-modules/uri
…/rfc-3986-examples.t :9:
is($u.path, '/rfc/rfc1808.txt', 'ftp path');
perl6/doc
…/Str.pod6 :804:
say "https://perl6.org/".starts-with('ftp'); # OUTPUT: «False␤»
perl6/perl6-lwp-simple
…/parse-url.t :36:
'ftp://get.opera.com/pub/opera/win/1054/en/Opera_1054_en_Setup.exe',
perl6/perl6-lwp-simple
…/parse-url.t :37:
['ftp', 'get.opera.com', 21, '/pub/opera/win/1054/en/Opera_1054_en_Setup.exe'],
samcv/URL-Find
…/README.md :16:
By default it will match domain names that use unicode characters such as http://правительство.рф. To only match ASCII domains use the :ascii option.…
samcv/URL-Find
…/README.md :29:
Accepts a string and returns a list of URL's. Optionally you can specify a limit to the number of URL's returned, or whether you want to only match URL's with ASCII domain names: :ascii<1> Matches only http https ftp git and ssh schemes by default. To match any scheme, use :any<1>
samcv/URL-Find
…/Find.pm6 :11:
only find http, https, ftp, git and ssh schemes, but you can specify `:any<1>` to match any schemes
samcv/URL-Find
…/Find.pm6 :15:
my token protocol {:i [http
samcv/URL-Find
…/Find.pm6 :25:
#
spitsh/spitsh
…/Str.md :42:
my @urls = <github.com ftp://ftp.FreeBSD.org>;
spitsh/spitsh
…/Str.md :114:
my @urls = <http://github.com ftp://ftp.FreeBSD.org>;
spitsh/spitsh
…/Str.md :118:
when .starts-with('ftp') { say "file transfer" }
spitsh/spitsh
…/Str.sp :107:
my @urls = <http://github.com ftp://ftp.FreeBSD.org>;
spitsh/spitsh
…/Str.sp :111:
when .starts-with('ftp') { say "file transfer" }
spitsh/spitsh
…/Str.sp :124:
my @urls = <github.com ftp://ftp.FreeBSD.org>;
spitsh/spitsh
…/regex-match.t :50:
if $url.match(/^ftp/) {
spitsh/spitsh
…/regex-subst.t :28:
is $url.subst-re(rx‘^https’, 'ftp'), 'ftp://irclog.perlgeek.de/perl6/2017-03-30',
spitsh/spitsh
…/regex-subst.t :29:
'change http to ftp';
supernovus/perl6-timezone
…/README :22:
wget --retr-symlinks 'ftp://ftp.iana.org/tz/tz*-latest.tar.gz'
supernovus/perl6-timezone
…/README :62:
Look in <ftp://ftp.iana.org/tz/releases/> for updated versions of these files.
supernovus/perl6-timezone
…/asia :1149:
# ftp://ftp.cs.huji.ac.il/pub/tz/announcements/1996-1998.ramon.ps.gz
supernovus/perl6-timezone
…/asia :1155:
# ftp://ftp.cs.huji.ac.il/pub/tz/announcements/YYYY.ps.gz
supernovus/perl6-timezone
…/asia :1175:
# ftp://ftp.cs.huji.ac.il/pub/tz/announcements/2000-start.ps.gz
supernovus/perl6-timezone
…/asia :1180:
# ftp://ftp.cs.huji.ac.il/pub/tz/announcements/2000-2004.ps.gz
supernovus/perl6-timezone
…/asia :1202:
# ftp://ftp.cs.huji.ac.il/pub/tz/announcements/2005+beyond.ps
supernovus/perl6-timezone
…/asia :1206:
# <ftp://ftp.cs.huji.ac.il/pub/tz/software/dst-israel.el> (2005-02-20)
titsuki/p6-Chart-Gnuplot
…/Build.pm :70:
my $uri = 'http://ftp.cstug.cz/pub/CTAN/graphics/gnuplot/5.0.5/gnuplot-5.0.5.tar.gz';
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment