Skip to content

Instantly share code, notes, and snippets.

Shoichi Kaji skaji

Block or report user

Report or block skaji

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View memo.md

if we apply adjust how to check modules are installed or not, then

with perl 5.8.5

❯ perl -Ilib cpm.test install File::Spec
WARN You don't have Module::CoreList. The local-lib may result in incomplete self-contained directory.
DONE install Perl-OSType-1.010
DONE install Locale-Maketext-Simple-0.21
DONE install version-0.9924
FAIL install ExtUtils-CBuilder-0.280231
View main.go
package main
import (
"context"
"fmt"
"log"
"net/http"
"os"
"os/signal"
"sync"
@skaji
skaji / test.pl
Last active Aug 5, 2019
!!!NOTE!!!: added getaddrinfo and constants
View test.pl
#!/usr/bin/env perl
use strict;
use warnings;
use HTTP::Daemon;
use IO::Socket::IP;
use LWP::UserAgent;
use Net::HTTP;
use Socket ();
View gist:e379367257d57e46bec1a57013dd6b1e
❯ hostname
MBP2013
❯ perl -MLWP::Simple=getprint -MHTTP::Daemon -le 'my $url = HTTP::Daemon->new->url; print $url; getprint($url)'
http://mbp2013:60129/
500 Can't connect to mbp2013:60129 (nodename nor servname provided, or not known) <URL:http://mbp2013:60129/>
View gist:7a582be2336d1701626af622001b011f
❯ for ubuntu_version in 14.04 16.04; do for perl_version in 5.8 5.10 5.12 5.14 5.16 5.18 5.20 5.22 5.24 5.26 5.28 5.30; do printf "ubuntu_version %s, perl_version %4s, http_status %d\n" $ubuntu_version $perl_version $(curl -X HEAD -w '%{http_code}\n' -s https://storage.googleapis.com/travis-ci-language-archives/perl/binaries/ubuntu/$ubuntu_version/x86_64/perl-$perl_version.tar.bz2); done; done
ubuntu_version 14.04, perl_version 5.8, http_status 200
ubuntu_version 14.04, perl_version 5.10, http_status 200
ubuntu_version 14.04, perl_version 5.12, http_status 200
ubuntu_version 14.04, perl_version 5.14, http_status 200
ubuntu_version 14.04, perl_version 5.16, http_status 200
ubuntu_version 14.04, perl_version 5.18, http_status 200
ubuntu_version 14.04, perl_version 5.20, http_status 200
ubuntu_version 14.04, perl_version 5.22, http_status 200
ubuntu_version 14.04, perl_version 5.24, http_status 200
View server.go
package main
import (
"context"
"fmt"
"log"
"net/http"
"os"
"os/signal"
"syscall"
View client.go
package main
import (
"context"
"net"
"net/textproto"
"time"
)
// Client is
View golint-comment.pl
#!/usr/bin/env perl
use strict;
use warnings;
sub comment_for {
my $line = shift;
if ($line =~ /^ (type|func|var) \s+ (\(.*?\))? \s* ([A-Z]\w+) /x) {
my ($kind, $is_method, $name) = ($1, $2, $3);
if ($is_method && grep { $name ne $_ } qw(String Error)) {
# skip
View main.go
package main
import (
"context"
"fmt"
"time"
)
type event string
type message string
View perl6.md

I want to clarify what "distribution name" and "distribution version" are.

Let's say you have the following Perl6 distribution:

Changes
LICENSE
META6.json
README.md
lib/Your/Some-Module.pm6
You can’t perform that action at this time.