sugyan

perl -le'print$~^" !#64:"'

sugyan

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

# 変換辞書
my $dict = do {
    my $dict = {};
    # 使用する9種類の記号と改行コード(これらにシングルクォートが加わる)
    my @chars = (qw/ ^ . ( ) ~ ? ! { } /, "\x0A");

sugyan

''!~('(?{'.('?~~
{{{!
!)!~~~!)~!{?^{{{!~({
~?!
.~^.^{^?^?~.{^{~(~(~{()?(
?}}^}^{{{
(.()}{^!!~)..?)^!((){!{
..(~}.({~~.(
!^.{!!{!)^}~?)}^.(}..^~~){!.({
~.~~{

sugyan

perl -e'""!~("(?{".("?.){~{)}!~}(.}!~( ~(^!({.~???}(!~..!!"^") (!(??{{?{) (}{.~!)(.~.}!!)}~!~.{}.{"^"}}~?{!  ). ~?..!})  }()){ ~  (}({?){."^".{?)!}})} ??~ )})!..)}?!~()!)).??({^("^" ~! .){! })!!?{) ??{~~!}!? {.^~))~? ~")."})")' hoge.txt

sugyan

use strict;
use warnings;

use AnyEvent;
use AnyEvent::Twitter;
use Encode qw/decode_utf8 encode_utf8/;

# ユーザー名、パスワードを引数から取得
my ($username, $password) = @ARGV;
my $twitty = AnyEvent::Twitter->new(

sugyan

package AnyEvent::Twitter::EnableOAuth;

use strict;
use warnings;

use base qw/Object::Event/;
use AnyEvent::HTTP;
use Carp 'croak';
use Encode 'encode_utf8';
use Digest::SHA;

sugyan

use strict;
use warnings;

use Encode 'decode_utf8';
use Net::Twitter::Lite;

my $nt = Net::Twitter::Lite->new(
    consumer_key    => 'http://twitter.com/oauth_clients で登録したもの',
    consumer_secret => 'http://twitter.com/oauth_clients で登録したもの',
);

sugyan

use strict;
use warnings;

use AnyEvent;
use AnyEvent::Wassr;
use Encode 'encode_utf8';

my $wassr = AnyEvent::Wassr->new(
    username => '<your user id>',
    password => '<password>',

sugyan

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

use AnyEvent;
use AnyEvent::Twitter;
use Net::Twitter;

my %config = (
    username => 'twitter username',

sugyan

#!/opt/local/bin/perl
use strict;
use warnings;

use Config::Pit;
use Date::Parse 'str2time';
use Net::Twitter;

my $nt = Net::Twitter->new(%{pit_get(
    "twitter.com",