これも神から。もう何が何やら use strict; use warnings; use Data::Dumper; my $a = sub { (key => 'hoge') }; my $b = { (key => 'hoge') }; my $c = () = { (key => 'hoge') }; my $d = do { (key => 'hoge') }; my $e = + { (key => 'hoge') }; my $f =…
■与える・追加 ・全部 grant all privileges on DB.* to USER@localhost identified by 'PASS'; 最後に with grant optionってつけると、そのユーザは更に誰かにその権限を与えることができる grant持ってるとユーザが削除できないので注意・一部 grant sele…
http://search.cpan.org/~gaas/libwww-perl-5.812/lib/HTTP/Request.pm use HTTP::Request; use LWP::UserAgent; use strict; my $req = HTTP::Request->new(GET => 'http://example.com/'); my $ua = LWP::UserAgent->new; my $res = $ua->request($req);