fujiwara

use Web::Scraper;
use strict;
use Data::Dumper;
use URI;
use YAML;
use utf8;
use Encode qw/ encode_utf8 decode_utf8 /;

my $s = scraper {
    process "table.wikitable tr", "tr[]" =>

fujiwara

use Benchmark qw/:all/;
use List::Util qw/ sum /;
cmpthese(0, {
    sum  => sub { sum( 1 .. 1000 ) },
    loop => sub {
        my $x = 0;
        $x += $_ for ( 1 .. 1000 );
    },
});
__END__

fujiwara

package Filter;
use strict;
require Exporter;
our @ISA       = qw/ Exporter /;
our @EXPORT_OK = qw/ html uri replace html_line_break /;
our %EXPORT_TAGS = ( all => \@EXPORT_OK );

use overload
    '|'  => sub {
        my ($self, @args) = @_;

fujiwara

var aws = require('aws-sdk');
var fs = require('fs');
var zlib = require('zlib');

exports.handler = function(event, context) {
    console.log(JSON.stringify(event, null, 2));
    console.log(JSON.stringify(context, null, 2));

    var bucket = event.Records[0].s3.bucket.name;
    var key = event.Records[0].s3.object.key;

fujiwara

?= encoded_string q{<?xml version="1.0" encoding="utf-8"?>}

fujiwara

package Example;
use URI;
use Web::Scraper;

my $URL  = 'http://www.topicmaker.com';
my @FOO  = qw/ foo /;

sub scrape {
    scraper {
        process '//tr', 'rows[]', scraper {

fujiwara

package Example;
my @FOO = qw/ foo /;
sub nested {
    sub {
        sub {
            warn @FOO;
        }->();
    }->();
}
1;

fujiwara

my @FOO = qw/ foo /;
sub nested {
    sub {
        sub {
            warn @FOO;
        }->();
    }->();
}
nested();

fujiwara

package main

import (
	"fmt";
	"os";
	"strconv";
)

func main() {
	n, error := strconv.Atoi( os.Args[1] );

fujiwara

package main
import "fmt";

type Speaker interface {
	Speak() string;
}

type Person struct {
	name string;
}