Skip to content

Instantly share code, notes, and snippets.

@jonathanstowe

jonathanstowe/gist:6926c2b6093a6a2316488c1363ba6ba3

Created October 16, 2016 09:26
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 jonathanstowe/6926c2b6093a6a2316488c1363ba6ba3 to your computer and use it in GitHub Desktop.
Save jonathanstowe/6926c2b6093a6a2316488c1363ba6ba3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
#!/usr/bin/env perl6
use v6.c;
my $sock = IO::Socket::INET.new(host => 'towel.blinkenlights.nl', port => 666);
for $sock.lines -> $v {
next if $v ~~ /^('==='|<:Cc>)/;
say $v if $v;
}
$sock.close;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment