rightgo09

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use URI;
use LWP::Simple ();
use XML::Simple;
use Web::Scraper;
use Encode qw/ encode_utf8 /;

rightgo09

use Benchmark qw(cmpthese timethese);
cmpthese(timethese(1_000_000, {
  's///' => sub {
    my $str = q!1qaz2wsx(3edc4rfv5tgb)6yhn7ujm!;
    my $del = q!4rfv5tgb)6yhn!;
    $del =~ s/([\(\)])/\\$1/g;
    $str =~ s/$del//;
  },
  'quotemeta' => sub {
    my $str = q!1qaz2wsx(3edc4rfv5tgb)6yhn7ujm!;

rightgo09

package class;
use strict;
use warnings;

sub import {
    no strict 'refs';

    my $class = caller;

rightgo09

#!/usr/bin/env perl
use File::Spec;
my $pg = shift(@ARGV);
for my $path (split /:/, $ENV{PATH}) {
        if (-x File::Spec->catfile($path, $pg)) {
                print File::Spec->catfile($path, $pg), "\n";
                last;
        }
}

rightgo09

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Encode qw/ encode_utf8 /;
use Time::HiRes qw/ sleep /;

$| = 1;
sub nagato {
	my $str = shift;

rightgo09

package Class::Unload::All;

use strict;
use warnings;
use B::Hooks::EndOfScope qw/ on_scope_end /;
use Class::Unload;
use Module::Used qw/ modules_used_in_files /;

sub import {
	my $class = caller;

rightgo09

#!/usr/bin/env perl
use strict;
use warnings;
use PDF::API2;

for my $file (@ARGV) {
  print "$file page rotation.¥n";
  my $pdf = PDF::API2->open($file);
  for my $page_number (1..$pdf->pages) {
    $pdf->openpage($page_number)

rightgo09

use strict;
use utf8;
use File::Spec;
use File::Basename;
use lib File::Spec->catdir(dirname(__FILE__), 'extlib', 'lib', 'perl5');
use lib File::Spec->catdir(dirname(__FILE__), 'lib');
use Plack::Builder;

use T::Web;
use T;

rightgo09

$ cat qr_speed.pl 
use strict;
use Benchmark qw/ cmpthese /;

my $re_string = 'a.c';
my $re_regexp = qr/a.c/;

sub match {
	my $re = shift;
	"abc" =~ /$re/;

rightgo09

$ cat qr_speed.pl 
use strict;
use Benchmark qw/ cmpthese /;

my $re_string = 'a.c';
my $re_regexp = qr/a.c/;

sub match {
	my $re = shift;
	"abc" =~ /$re/;