mattn

#!/usr/bin/perl

use strict;
use warnings;

use Web::Scraper;
use URI;
use YAML;

my $airlines_accident_scraper = scraper {

mattn

let foo = "post from gist-vim"

mattn

@echo off
if not "%SSH_AGENT_PID%" == "" goto end
for /f "eol=; tokens=1,2 delims==;" %%1 in ('ssh-agent.exe') do (
 if "%%1" == "SSH_AUTH_SOCK" set SSH_AUTH_SOCK=%%2
 if "%%1" == "SSH_AGENT_PID" set SSH_AGENT_PID=%%2
)
ssh-add
end

mattn

require 'ditz'
require 'pathname'

config = begin
  Ditz::Config.from ".ditz-config"
rescue SystemCallError => e
  Ditz::Config.new
end
issue_dir = Pathname.new(config.issue_dir || '.ditz')
project_root = Ditz::find_dir_containing(issue_dir + Ditz::FileStorage::PROJECT_FN)

mattn

#!/usr/bin/python
# -*- coding: utf-8 -*-

class Hoge:
  def __init__(self):
    print u"ほげ"

hoge = Hoge()

mattn

use strict;
use warnings;
use POSIX;

if (my $pid = fork()) {
  sleep 3;
  kill TERM => $pid;
  waitpid( $pid, 0 );
} elsif ($pid == 0) {
  sleep 10; 

mattn

#!perl
use strict;
use warnings;
use Config::Pit;
use Getopt::Long;
use WWW::Mechanize;
use Perl6::Say;

my $conf = pit_get("vim.com", require => {
  "username" => "your username on vim.org", # NOTE: do not edit this line

mattn

#!perl
use strict;
use warnings;
use Config::Pit;
use Getopt::Long;
use WWW::Mechanize;
use Perl6::Say;

my $conf = pit_get("vim.com", require => {
  "username" => "your username on vim.org", # NOTE: do not edit this line

mattn

#include <iostream>

static const int a = ( 
    std::cout << "foo" << std::endl,
    1); 

int main(int argc, char** argv) {
    std::cout << "bar" << std::endl;
    return 0;
}

mattn

#!/usr/bin/perl
use strict;
use warnings;

use Config::Pit;
use Digest::SHA1 qw(sha1_hex);
use Encode;
use Getopt::Long;
use JSON;
use LWP::UserAgent;