Skip to content

Instantly share code, notes, and snippets.

View lopnor's full-sized avatar

Nobuo Danjou lopnor

78 followers · 57 following
View GitHub Profile
@lopnor
lopnor / bar.pl
Created December 19, 2010 08:52
use v6;
grammar Bar {
regex TOP { <header> [ <crlf> ** 2 <body> ]? }
token header { <pair> ** <crlf> }
regex crlf { \r?\n }
regex pair { <key=.body> ':'\s* <value=.body> }
token body { \w+ }
}
class Bar::Actions {
@lopnor
lopnor / test_map.pl
Created December 14, 2010 13:24
#!/usr/bin/env perl6
use v6;
module Foo {
my %escape;
for 0 .. 255 -> $c {
%escape{ chr($c) } = sprintf "%%%02X", $c;
}
sub bar (Int $value) {
@lopnor
lopnor / test.pl
Created December 14, 2010 03:02
#!/usr/env/bin perl6
use v6;
{
my $foo = 'Foo';
require $foo;
my $obj = $foo.new;
say $obj;
say $obj.bar;
}
@lopnor
lopnor / gist:721668
Created November 30, 2010 13:27
- Filesys::Virtual::Plain
- you don't need 'login' for Plack::App::DAV (because it's very temporal)
- mkdir tries to chown, but you don't need to do it
- Net::DAV::Server
- just confusing
- need
- prop db
- lock db
@lopnor
lopnor / test.txt
Created November 22, 2010 06:32
test
@lopnor
lopnor / check.pl
Created September 16, 2010 08:46
#!perl
use strict;
use warnings;
use Web::Scraper;
use URI;
use YAML;
my $found = sub { 1 };
$| = 1;
@lopnor
lopnor / recp.csv
Created August 19, 2010 05:55
name address
檀上伸郎 [email protected]
@lopnor
lopnor / mail.mt
Created August 19, 2010 05:55
Subject: テストメール
From: 檀上伸郎 <[email protected]>
To: <?= $_[0]->{address} ?>
<?= $_[0]->{name} ?>様、こんにちは。
このメールはテストです。
-- nd
@lopnor
lopnor / bulkmail.pl
Created August 19, 2010 05:52
#!perl
use strict;
use warnings;
use utf8;
use Getopt::Long;
use Email::Sender::Simple;
use Email::Sender::Transport::SMTP;
use Email::MIME;
use Email::MIME::Modifier;
use Text::CSV_XS;
@lopnor
lopnor / Gif.pm
Created August 3, 2010 15:36
package Gif;
use 5.12.1;
use strict;
use warnings;
use Carp;
sub new {
my ($class, $file) = @_;
my $self = bless {}, $class;
$self->{file} = $file;