洗濯ばさみ。
普通のと違って、ピンチの先がコムで丸くなっていて、挟んだ後が服につかない。数年前に6個入りを買って、今回10個入を買い足した。
トラスコ中山のVN型コンテナ。2段、3段に重ねて使えるコンテナ。簡単に配置替えできるのがいい。すでに1個以上所有していたが、3個買い足した。
ニトリの水切りかご。洗った食器の水切りをしておくかご。ステンレス製のものを長く使ってきたけれど、さすがに汚れてきたので買い替えた。
洗濯ばさみ。
普通のと違って、ピンチの先がコムで丸くなっていて、挟んだ後が服につかない。数年前に6個入りを買って、今回10個入を買い足した。
トラスコ中山のVN型コンテナ。2段、3段に重ねて使えるコンテナ。簡単に配置替えできるのがいい。すでに1個以上所有していたが、3個買い足した。
ニトリの水切りかご。洗った食器の水切りをしておくかご。ステンレス製のものを長く使ってきたけれど、さすがに汚れてきたので買い替えた。
#!/usr/bin/env perl
use strict;
use warnings;
use AnyEvent::HTTP;
my $cv = AnyEvent->condvar;
sub done {
print $_[1]->{server}, "\n";
$cv->end;
}
my @url = ("http://www.microsoft.com/","http://www.apple.com/","http://www.google.co.jp/");
$cv->begin; http_get($url[0], \&done);
$cv->begin; http_get($url[1], \&done);
$cv->begin; http_get($url[2], \&done);
$cv->recv;
Apache/2.2.3 (Oracle)
gws
Microsoft-IIS/7.5
.
|-- 1.csv
|-- 1.pl
|-- 1.rb
|-- dir_a
| |-- 1.csv
| `-- 1.pl
`-- dir_b
`-- 1.pl
2 directories, 6 files
$ ack 'perl' .
1.pl
1:#!/usr/bin/perl
dir_b/1.pl
1:#!/usr/bin/perl
dir_a/1.pl
1:#!/usr/bin/perl
$ ack -a perl .
1.pl
1:#!/usr/bin/perl
1.csv
1:perl,ruby,bash
dir_b/1.pl
1:#!/usr/bin/perl
dir_a/1.pl
1:#!/usr/bin/perl
dir_a/1.csv
1:perl,ruby,bash
$ ack --type=ruby usr .
1.rb
1:#!/usr/bin/ruby
$ ack --type=noruby usr
1.pl
1:#!/usr/bin/perl
dir_b/1.pl
1:#!/usr/bin/perl
dir_a/1.pl
1:#!/usr/bin/perl
$ ack -G _a perl .
dir_a/1.pl
1:#!/usr/bin/perl
$ ack -l perl .
1.pl
dir_b/1.pl
dir_a/1.pl
$ ack -L perl .
1.rb
ack -l --print0 perl . | xargs -0 rm -rf {}
Fooパッケージにないbaz()メソッドを呼ぶと、代わりにAUTOLOAD()が呼ばれる。AUTOLOAD()ではメソッド名は$AUTOLOADで参照できる。
#!/usr/bin/env perl
use strict;
use warnings;
use 5.012;
package Foo;
use Data::Dumper ;
sub new {
my $class = shift;
bless {@_}, $class;
}
sub foo {
my $self = shift;
say "foo()";
}
sub AUTOLOAD {
my (@arg) = @_;
our $AUTOLOAD;
say 'METHOD: ' . $AUTOLOAD;
say 'ARGS: ' . Dumper \@arg;
}
package main;
my $f = Foo->new;
$f->foo();
$f->baz(1,2,3);
↑を実行すると、結果は↓。
foo()
METHOD: Foo::baz
ARGS: $VAR1 = [
bless( {}, 'Foo' ),
1,
2,
3
];
METHOD: Foo::DESTROY
ARGS: $VAR1 = [
bless( {}, 'Foo' )
];
$ svn propset svn:ignore 'README.txt' .
$ svn st
M .
M 1.txt
? 2.txt
M A/3.txt
$ svn commit --depth empty . -m 'Set svn:ignore property'
$ svn st
M 1.txt
? 2.txt
M A/3.txt
stackoverflow.com/questions/2224814/commit-only-property-changes-on-root-of-repo-not-files
ドン・キホーテ
ずーっと前から計画していて、少し作業しては長く休み、思い出したらまた少しやってから休み、を繰り返してたんだけど、もうこれでいい。
[php]
.
|– 1.csv
|– 1.pl
|– 1.rb
|– dir_a
| |– 1.csv
| -- 1.pl
— dir_b
`– 1.pl
2 directories, 6 files
[/php]
$ ack 'perl' .
1.pl
1:#!/usr/bin/perl
dir_b/1.pl
1:#!/usr/bin/perl
dir_a/1.pl
1:#!/usr/bin/perl
$ ack -a perl .
1.pl
1:#!/usr/bin/perl
1.csv
1:perl,ruby,bash
dir_b/1.pl
1:#!/usr/bin/perl
dir_a/1.pl
1:#!/usr/bin/perl
dir_a/1.csv
1:perl,ruby,bash
$ ack --type=ruby usr .
1.rb
1:#!/usr/bin/ruby
$ ack --type=noruby usr
1.pl
1:#!/usr/bin/perl
dir_b/1.pl
1:#!/usr/bin/perl
dir_a/1.pl
1:#!/usr/bin/perl
$ ack -G _a perl .
dir_a/1.pl
1:#!/usr/bin/perl
$ ack -l perl .
1.pl
dir_b/1.pl
dir_a/1.pl
$ ack -L perl .
1.rb
ack -l --print0 perl . | xargs -0 rm -rf {}