punytan

package AnyEvent::HTTP::Simple;
use strict;
use AnyEvent::HTTP ();
use HTTP::Request::Common ();
use HTTP::Request;
use HTTP::Response;
use HTTP::Cookies;
use Any::Moose;

our $VERSION = '0.02';

punytan

#!/usr/bin/perl

use strict;
use utf8;
use Encode;

open (my $in, '<', 'source.csv') or die $!;
my @csv = <$in>;
close $in or die $!;

punytan

。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜
｡｢｣､･ｦｧｨｩｪｫｬｭｮｯｰｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝﾞﾟ
ヴガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ
ｳﾞｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ
ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
０１２３４５６７８９
0123456789
　！”＃＄％＆’（）＊＋，－．／：；＜＝＞？＠［￥］＾＿‘｛｜｝～
 !"#$%&'()*+,-./:;<=>?@[\]^_`{|}~

punytan

Not a GLOB reference

(F) Perl was trying to evaluate a reference to a "typeglob" (that is, a symbol table entry that looks like *foo) but found a reference to something else instead. You can use the ref function to find out what kind of ref it really was.

typeglob

Use of  a single identifier, prefixed with *. For example, *name stands for any or all of $name, @name, %name, &name, or just name. How you use it determines whether it is interpreted as all or only one of them. See "Typeglobs and Filehandles" in Chapter 2.

$fh = *STDOUT;
$fh = \*STDOUT;

punytan

/*
 * epoll_sample.c
 *
 * forked from http://d.hatena.ne.jp/odz/20070507/1178558340
 *
 * compile : gcc -O3 -o epoll_sample epoll_sample.c
 * bench   : ab -n 10000 -c 50 http://localhost:8080/
 *
 * fix me :)
 *

punytan

use strict;
use warnings;

use Plack;
use Plack::Request;

my $app = sub {
    my $env = shift;

    my $req = Plack::Request->new($env);

punytan

use strict;
use warnings;
use WWW::YouTube::Download;
use Parallel::ForkManager;

my $urls = [qw{
    JXkawnuyTn8
    bY0tgl6YLGI
    3eJsXP4HLVs
    gOUvdNjs_Cg

punytan

use strict;
use warnings;
use utf8;
use Encode;
use Email::MIME::Creator;
use Email::Sender::Simple qw/sendmail/;

sub send {
    my $email = shift;

punytan

// ==UserScript==
// @name           Google Reader with InstaReader
// @namespace      http://linknode.net
// @description    Open feed item with InstaReader in background by pressing 'v'
// @include        http*://www.google.com/reader/view/*
// ==/UserScript==

document.addEventListener('keypress', function(event) {
    if(event.which == 118) { // 118 is 'v'
        if (document.getElementById('current-entry') == null) return; // no current entry

punytan

use strict;
use warnings;
use feature qw/say switch/;
use Data::Section::Simple;
use Text::Xslate;
use Plack::Request;

my $tx = Text::Xslate->new(
    path => [ Data::Section::Simple->new->get_data_section ],
);