lopnor

#!perl
use strict;
use warnings;
use Net::Google::Calendar;
use Config::Pit;
use DateTime;
use Email::MIME;
use Data::Dumper;
use HTTP::Date ();
use FindBin;

lopnor

#!perl
use 5.14.2;
use WWW::Mechanize;
use Getopt::Long;
use Term::Prompt;
use URI;

my $username;
my $baseurl;

lopnor

#!perl
use strict;
use warnings;
use Config::Pit;
use Web::Scraper;
use WWW::Mechanize;
use Data::Dumper;

my $config = pit_get('smbc-card.com');
my $mech = WWW::Mechanize->new;

lopnor

#!perl
use strict;
use warnings;
use Config::Pit;
use Web::Scraper;
use URI;
use WWW::Mechanize;
use Data::Dumper;

my $config = pit_get('saisoncard.co.jp');

lopnor

#!/bin/sh
# see also: http://d.hatena.ne.jp/rx7/20100606/p1

source /etc/profile.d/aws-apitools-common.sh

if [ -r $HOME/.snapshotrc ]
then
    source $HOME/.snapshotrc
fi

lopnor

<li class="facebook-like">
<iframe src="http://www.facebook.com/plugins/like.php?href=http%3A%2F%2Fwww.pixiv.net%2Fmember_illust.php%3Fmode%3Dmedium%26illust_id%3D18316466&amp;layout=button_count&amp;show_faces=false" frameborder="0" allowtransparency="true" scrolling="no" style="overflow-y: hidden;height:22px;"></iframe>
</li>

lopnor

#!perl
use strict;
use warnings;
use Getopt::Long;
use Test::Httpd::Apache2;
use Path::Class;

my $port = 5000;
my $root = '.';

lopnor

#!perl6
use v6;

sub fork {
    my $pid = Q:PIR{
        .include 'sysinfo.pasm'
        .local string info, libname
        .local pmc fork, pid
        pid = new ['Integer']
        info = sysinfo .SYSINFO_PARROT_OS

lopnor

.sub test :main
    .local pmc mysql
    .local pmc client
    .local pmc dbh
    mysql = loadlib 'libmysqlclient'
    $P0 = dlfunc mysql, 'mysql_init', 'pp'
    $P1 = null
    client = $P0($P1)
    $P0 = dlfunc mysql, 'mysql_real_connect', 'ppttttiti'
    $S0 = null

lopnor

#!/usr/bin/env perl6
use v6;

my $sock = IO::Socket::INET.socket(2,1,6);
my $attr = $sock.^attributes(:local).grep({.name eq '$!PIO'})[0];
my $pio = $attr.get_value($sock);
my $addr = $pio.sockaddr('127.0.0.1', 5000);
$pio.connect($addr);
#$sock.open('127.0.0.1', 5000, :bin);
$pio.send('foobar');