makotoworld

We couldn’t find that file to show.

makotoworld

#!usr/bin/perl

use Perl6::Say;
use Data::Dumper;

my %hash = ('makoto' => 'perl',
    'nozaki' => {});

sub push_hash{
    my %hash = @_;

makotoworld

#!/usr/bin/perl

use strict;
use warnings;

use Perl6::Say;
use Data::Dumper;

use DateTime;
use LWP::UserAgent;

makotoworld

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

my $filename = shift;
my $img      = Imager->new;

$img->read( file => $filename ) or die $img->errstr;
$img->filter( type => 'contrast', intensity => 1.3 );

makotoworld

#!/usr/bin/perl

use strict;
use warnings;

use WebService::Simple;
use WebService::Simple::Parser::JSON;
use Perl6::Say;
use Data::Dumper;
use Encode;

makotoworld

#!/usr/bin/perl

use strict;
use warnings;

use Perl6::Say;
use Data::Dumper;

use LWP::UserAgent;
use XML::Simple;

makotoworld

#!/usr/bin/perl;
#DB.pm
package DB;
use DBIx::Skinny connect_info => +{
    dsn      => 'dbi:mysql:deafnews:localhost',
    username => 'root',
    password => 'password',
    connect_options => +{
        RaiseError => 1,
        PrintError => 0,

makotoworld

my $charcter = "あいうえお";
utf8::decode($charcter);
print '検証文字列: ',$charcter,"\n";
if($charcter !~ /([\x{3041}-\x{30F6}])/) {
   print 'ひらがなとカタカナが含まれていません';
}

makotoworld

#!/usr/bin/perl
# deaf_blog_yahoo_api.pl

use strict;
use warnings;

use WebService::Simple;
use WebService::Simple::Parser::JSON;
use Perl6::Say;
use Data::Dumper;

makotoworld

import datetime
from google.appengine.ext import db
from google.appengine.api import users

class Deafnewsdb(db.Model):
  keyword = db.StringProperty(required=True)
  title = db.StringProperty(required=True)
  url = db.StringProperty(required=True)
  bitly_url = db.StringProperty(required=True)
  publisher = db.StringProperty(required=True)