ichigotake

http://www.4shared.com/web/account/settings#overview
https://500px.com/settings
https://9gag.com/member/delete
http://abload.de/settings.php
https://about.me/account
https://learn.adobe.com/wiki/display/wel/Delete+your+account
https://www.airbnb.com/users/settings
http://www.albumreminder.com/usercenter/deleteaccount/
https://www.amazon.com/gp/help/customer/contact-us/ref=cu_cf_email?ie=UTF8&mode=email#a
http://www.animalcrossingcommunity.com/help_main.asp?HelpSectionID=5#Topic201

ichigotake

package Yancha::Plugin::SalvageDarkHistory;
use strict;
use warnings;

sub setup {
    my ($class, $sys) = @_;$sys->register_hook( 'before_send_post', sub {
      my $int = int rand 100; #数字が低いほど高確率
      return if $int;
      
      my $pid = fork;

ichigotake

=encoding utf8

=head1 NAME

Yancha::Plugin::WebPageSample - WEBページを作成するYanchaプラグインの例

=head1 CONFIG

    ### add config.pl, and you can access with web browser!
    #

ichigotake

package Yancha::Plugin::PluginAutoloader;

use strict;
use warnings;

sub setup {
    my ($class, $sys) = @_;

    my %config;
    for my$plugin( @{$sys->config->{ plugins }} ) {

ichigotake

#!/usr/bin/env perl

# CAM::PDF - search.cpan.org
# http://search.cpan.org/~cdolan/CAM-PDF-1.58/lib/CAM/PDF.pm

use strict;
use warnings;
use CAM::PDF;

# 結合するPDFのファイル名を指定してインスタンス生成

ichigotake

#!/bin/env perl

use strict;
use warnings;
use Calendar::Japanese::Holiday;
use Time::Local qw/timelocal/;
use Encode qw/encode/;

my (undef,undef,undef, undef,$now_mon,$now_year) = localtime(time);
my $year = $ARGV[0] || ($now_year+1900);

ichigotake

# 出力例
#(*>ヮ<)っ:~ $ 

PS1="(*>ヮ<)っ:\W\$ "

ichigotake

<?php


// Define path to application directory
defined('APPLICATION_PATH')
    || define('APPLICATION_PATH', realpath(dirname(__FILE__) . '/../application'));

// Define application environment
defined('APPLICATION_ENV')
    || define('APPLICATION_ENV', (getenv('APPLICATION_ENV') ? getenv('APPLICATION_ENV') : 'production'));

ichigotake

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Encode qw/encode_utf8/;
use URL::Encode qw/url_encode_utf8/;
use JSON qw/encode_json decode_json/;
use HTTP::Request::Common qw/POST/;
use LWP::UserAgent;

ichigotake

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Encode qw/encode_utf8/;
use HTTP::Request::Common;
use LWP::UserAgent;
use Data::Dumper;