lopnor

#!perl
use strict;
use warnings;
use utf8;
use URI;
use Web::Scraper;
use Text::CSV_XS;

my $detail = scraper {
    process '//dl', 'data[]', sub {

lopnor

            google docsとPerlを連携させる
            google docs to work together and Perl
            谷歌docs的共同努力和Perl

lopnor

#!perl
use strict;
use warnings;
use Config::Pit;
use Getopt::Long;
use Net::Google::Spreadsheets;
use Net::Google::DocumentsList;
use DateTime;

scalar @ARGV == 2 or die 'usage: wallet.pl [--type in] note amount';

lopnor

#!perl
use strict;
use warnings;
use Config::Pit;
use Net::Google::DocumentsList;

# en: english
# zh-TW: Taiwanese

my $target = shift || 'en';

lopnor

package Doumeki::Store::Tumblr;
use Any::Moose;
use Carp;
use WWW::Mechanize;
use Web::Scraper;
use HTTP::Request::Common ();

with 'Doumeki::Store::Base';

has email => (

lopnor

package Doumeki::Store::Twitpic;
use Any::Moose;

use Carp;
use LWP::UserAgent;
use HTTP::Request::Common;

with qw(Doumeki::Store::Base);

has username => (

lopnor

#!/usr/bin/perl
use strict;
use warnings;
use Net::Google::Spreadsheets;

print "google username?: ";
my $u = <STDIN>;
chomp $u;
print "google password?: ";
my $p = <STDIN>;

lopnor

#!/bin/sh

MAIL=$1
PASS=$2
TITLE=$3
FORMAT=$4

if [ -z "$MAIL" -o -z "$PASS" -o -z "$TITLE" ] 
then
    echo "usage: $0 'your.account@gmail.com' 'your_password' 'filename' ['format']" >&2

lopnor

#!/bin/sh

MAIL=$1
PASS=$2
TITLE=$3

if [ -z "$MAIL" -o -z "$PASS" -o "$TITLE" ] 
then
    echo "usage: $0 'your.account@gmail.com' 'your_password' 'filename'"
    exit 1

lopnor

#!perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use XML::Atom::Feed;

my $ua = LWP::UserAgent->new;

my $email = 'fill.me@gmail.com';