仏像を amazon で買える
こんなのもアマゾンで買えるんだなぁ。欲しいぞ。
C:\Documents and Settings\All Users\Application Data\Titanium\mobilesdk\win32\1.7.2\android\builder.pyにある
emulator_cmd = [を
self.sdk.get_emulator(),
'-avd',
avd_name,
'-port',
'5560',
'-sdcard',
self.sdcard,
'-logcat',
'*:d,*',
'-no-boot-anim',
'-partition-size',
'128' # in between nexusone and droid
]
emulator_cmd = [に。要はダブルクォートしよう。今時半スペつきの引数でエラーってココロ・オ・レール様なレベルだよ。
self.sdk.get_emulator(),
'-avd',
avd_name,
'-port',
'5560',
'-sdcard',
'"' + self.sdcard + '"',
'-logcat',
'*:d,*',
'-no-boot-anim',
'-partition-size',
'128' # in between nexusone and droid
]
[ERROR] Failed installing com.appcelerator.titanium: pkg: /data/local/tmp/app.apkこれは、
Failure [INSTALL_FAILED_MISSING_SHARED_LIBRARY]
my $scraper = Scrappy->new;
$scraper->user_agent->name('DoCoMo/2.0 N906i');
$scraper->get($login_url);
$scraper->worker->submit_form(form_number => 1, fields => { account => 'hoge', password => 'hage' });
my $citem = { 'a' => sub {
my ( $self, $item ) = @_;
unless ($self->response->is_success) {
warn sprintf("%s %s", $self->url, $self->status_line);
}
my $url = URI->new($item->{href});
if ("URI::http" eq ref $url or "URI::https" eq ref $url) {
$self->queue->add($url->as_string);
}
}
};
my $start = $scraper->url;
$start =~ s|\?|/?|;
$scraper->crawl($start, '*' => $citem );
delegated -Fauth -a hoge:hogepass -localhost 180とかやっても、最後の expire がまったく反映されないので、しょうがなくソースみたら、 src/access.c で、0 固定になってた。なぜだろう。
plugins:とか書いとく。で、
ValidationClass:
class: Kirigamine::Validator
use Dancer::Plugin::ValidationClass;
unless (validate 'param') {validate 構文(?)が使えるようになるので、それにパラメタわたして、Validator クラスでは
my $errors = validation->errors;
debug Dumper $errors;
set_flash($errors);
return redirect '/';
}
package Kirigamine::Validator;こんなで。
use strict;
use warnings;
use Validation::Class;
field 'param' => {
required => 1,
min_length => 1,
max_length => 10,
regex => '^\d+$',
label => 'params of any dispatch',
error => 'error: params of any dispatch',
};
1;
PREREQ_PM => {書いて push。
...
'Dancer::Plugin::ValidationClass' => 0,
},
get '/epoch/:param' => sub {
my $localtime = DateTime->from_epoch('epoch' => params->{param}, 'time_zone' => 'Asia/Tokyo');
template 'epoch', { local_time => $localtime,
now => DateTime->now('time_zone' => 'Asia/Tokyo'),
config => config,
};
};
PREREQ_PM => {こんなで
'Test::More' => 0,
'YAML' => 0,
'Dancer' => 1.3040,
'DateTime' => 0,
'Plack::Request' => 0,
},
# perlbrew perl-5.12.3
# perl /usr/bin/cpanm dancer
sub calc_hist_intersection {ですが、いずれにせよ、最終行は、
my ($hist1, $hist2) = @_;
my $total;
my $ea = each_array( @$hist1, @$hist2 );
while(my ($his1, $his2) = $ea->()) {
$total += min($his1, $his2);
}
return $total / sum(@$hist1);
}
return $total / min(sum(@$hist1), sum(@$hist2));じゃないでしょうか?
sub calc_hist_intersection {
my ($hist1, $hist2) = @_;
my $total;
my $ea = each_array( @$hist1, @$hist2 );
while(my ($his1, $his2) = $ea->()) {
$total += abs($his1 - $his2);
}
return 1 - $total / max(sum(@$hist1), sum(@$hist2));
}
#!/usr/local/bin/perl
use strict;
use warnings;
use Imager;
use List::Util qw(min sum);
use List::MoreUtils qw/each_array/;
sub calc_hist_intersection {
my ($hist1, $hist2) = @_;
my $total;
my $ea = each_array( @$hist1, @$hist2 );
while(my ($his1, $his2) = $ea->()) {
$total += min($his1, $his2);
}
return $total / sum(@$hist1);
}
sub equalize_64 {
my $cc = shift;
return 32 if ($cc < 64);
return 96 if ($cc < 128);
return 160 if ($cc < 196);
return 224;
}
sub equalize_rgb_64 {
my ($cr, $cg, $cb) = @_;
return equalize_64($cr), equalize_64($cg), equalize_64($cb);
}
sub rgb_to_bin_64 {
my ($red, $green, $blue) = @_;
return 16 * int($red / 64) + 4 * int($green / 64) + int($blue / 64);
}
sub get_lazyhistgram_64 {
my $img = shift;
my $lazy_histgram = [ map { 0 } 0..64 ];
my $colors = $img->getcolorusagehash;
my @rgb;
foreach my $k (keys %{$colors||{}}) {
@rgb = unpack("C*", $k);
$lazy_histgram->[rgb_to_bin_64(equalize_rgb_64(@rgb))]++;
}
return $lazy_histgram;
}
sub compare_images {
my ($filename1, $filename2) = @_;
my $img = Imager->new or die;
$img->read(file => $filename1) or die $img->errstr;
my $hist1 = get_lazyhistgram_64($img);
$img->read(file => $filename2) or die $img->errstr;
my $hist2 = get_lazyhistgram_64($img);
return calc_hist_intersection($hist1, $hist2);
}
warn compare_images($ARGV[0], $ARGV[1]);
1;
SERVICES="cups"
for i in $SERVICES; do
[ -x /etc/init.d/"$i" ] && /etc/init.d/"$i" start >/dev/null 2>&1
done
(setq mac-option-key-is-meta nil)
(setq mac-command-key-is-meta t)
(setq mac-command-modifier 'meta)
(setq mac-option-modifier nil)