hiroaki

use DateTime::Format::W3CDTF;

my $dt_string = $ARGV[0];

my $w3cdtf = DateTime::Format::W3CDTF->new;
my $dt = $w3cdtf->parse_datetime($dt_string);

print $dt->epoch, "\n";

hiroaki

#!/bin/sh

# This script installs "shared-mime-info" to OS X Yosemite.
# 
# Usage:
# 
#   $ sh this-script.sh [install-prefix]
# 
# There is no need for you to modify the following.

hiroaki

require 'socket'

class Util
  def self.empty_port
    s = TCPServer.open(0)
    port = s.addr[1]
    s.close
    port
  end
end

hiroaki

#!/usr/bin/env perl

use strict;
use warnings;
use Getopt::Std;

my $opts = {
  s => 'Standalone',
  h => '0.0.0.0',
  p => 5000,

hiroaki

#!/bin/sh
exec -- openssl dgst -sha1 $1

hiroaki

#!/usr/bin/env ruby

# NOTE: currently, convert "trk" only. this does not consider "wpt" and "rte" yet.

require 'json'
require 'rexml/document'
require 'time'

json_file = ARGV[0]

hiroaki

#!/usr/bin/env perl

use strict;
use warnings;
use feature ':5.10';

use Encode::Argv;
use File::Basename 'dirname';
use File::Spec;

hiroaki

#!/usr/bin/env perl

=pod

This program checks whether an image is able to be embedded by AtomicParsley.

=cut

use strict;
use warnings;

hiroaki

#!/usr/bin/env perl

=pod

A sample of streaming.
This sends dynamic contents on "Transfer-Encoding: chunked".

See also the source: t/mojolicious/longpolling_lite_app.t

=cut

hiroaki

#!/usr/bin/env perl

use 5.12.0;
use warnings;
use Geo::Gpx;
use Getopt::Std;
use Mac::PropertyList;

#-- setting
my $options = {};