 
|
はてなキーワード: UAとは
| Windows | 5 |
| Mac OS | 10 |
| Linux | 10 |
| 自作OS | 20 |
| ベータ版 | 20 |
| 現行版 | 10 |
| 一つ前 | 5 |
| 二つ前 | 0 |
| IE8以下 | IE9 | Firefox | Chrome/Rockmelt | Opera | Safari | w3m | lynx | wget/curl/lwp | UA無し |
| 0 | 5 | 6 | 6 | 6 | 5 | 10 | 10 | 20 | 30 |
UA無しの人はもしかするとtelnetを使ってるかもしれないので
補足
| 開発版、dev版、Minefield等アルファ版 | 20 |
| ベータ版 | 15 |
| RC版 | 10 |
| リリース版（通常） | 5 |
| リリース版-1 | 3 |
| リリース版-2 | 2 |
| 2つ以上古い | 0 |
| アルファ版 | 20 |
| ベータ版 | 15 |
| リリース版（通常） | 5 |
| 半年以上前のバージョン | 3 |
| それ以上前 | 0 |
| 固定IPアドレス | 15 |
| 動的IPアドレス | 0 |
| Direct IPv6 | 20 |
| 6to4/6rd IPv6 | 10 |
| IPv4 | 0 |
$ ping www.google.co.jp
| 151msec以上 | 0 |
| 101-150msec | 5 |
| 51-100msec | 10 |
| 31-50msec | 20 |
| 11-30msec | 25 |
| 0-10msec | 30 |
| ポイント | 称号 | ハッカーレベル |
| 121以上 | 意識も技術も高いハイレベルエンジニア | グル |
| 110-120 | 100M人に1人のホンモノエンジニア | ウィザード |
| 90-109 | 凄腕 | ハッカー |
| 70-89 | 意識の高い情報強者 | ギーク |
| 60-69 | それなりに意識の高い情報強者 | |
| 60-59 | 意識の中程な情報強者 | |
| 40-59 | 自称情強 | スクリプトキディ |
| 30-39 | 自称意識の高い人 | |
| 30未満 | 意識の低い情弱 |
掲示板を荒らすことは至高の喜び、そんなあなたに荒らしのテクニックを伝授します
対象の掲示板を観察し、荒らしに対する管理人の態度を確認します。
管理が行き届いているならば１に、放置気味であればいに遷移します。
１．プロキシを通して、Ａで書き込みを行います。荒らしではなく、質問・疑問・意見などを書き込みます。
内容はなんでも構いませんが、誰でもわかるような簡単なことか、鶏と卵のような答えのでない質問、
口調に特徴を出すと後々やりやすくなります。
２．半日～１日ほど待って、違うブラウザ・プロキシを通して、Ａ’で書き込みを行います。
Ａをバカにします。「そんなことできるわけないだろ、ばかが」というようなことです。
口調は使い分けてください。
Ａと違う特徴を出すとやりやすいです。
できるだけ時間帯も変えます。Ａは昼間、Ａ’は夕方などキャラ付けを行うとやりやすくなります。
４．話にわってはいるユーザがいない場合、違うブラウザ・プロキシを通してＡ”で仲裁します。
５．ＡとＡ’でＡ”をバカにします。
Ａ”はいちいちすべてに反応して理性的に否定し、仲裁に徹します。
８．６から２日ほど経っても誰も割り込まないようであれば諦めます。
人をバカにするような内容が効果的です。
口調に特徴をだすと後々やりやすくなります。
は．半日～１日ほど経ってもスルーされる場合は違うブラウザ・プロキシを通してＡ’でＡをバカにする内容を書き込みます。
Ａ’とは違う特徴を出すとやりやすくなります。
できるだけ時間帯も変えます。Ａは昼間、Ａ’は夕方などキャラ付けを行うとやりやすくなります。
ほ．話にわってはいるユーザがいない場合、違うブラウザ・プロキシを通してＡ”で割り込みます。
違う特徴をだしつつ、Ａ、Ａ’をバカにする内容が望ましいです。
ち．へから２日ほど経っても誰も割り込まないようであれば諦めます。
プロキシは規制、携帯は規制、生IPでも規制、ととにかく規制される掲示板ではどれだけのIPを確保できるかが問題になります。
無線LAN機能をONにして歩き回りフリーネットワークを探します。
３つ以上見つかったらそれぞれＡ、Ａ’、Ａ”と決めていろはの手順で荒らしを行います。
２ちゃんねるは流れが速いので通常手順での１日を１時間と見て行います。
掲示板はUA、IPを保存する機能がついている場合があります。
初心者ぽいキャラはIE、ヲタっぽいキャラはChromeやFFなどキャラに応じて使い分けると真実味が増します。
12月、マックがやっとスマートフォン向けに携帯クーポンを提供するようだね。でも遅くない？
クラブドンペンっていうドンキホーテがやってるクーポンサービスがあるんだけど、それもつい最近までiPhoneを403で弾いていたんだよ。
UA偽装でiPhoneでも見られた時期もあったんだけど、しばらくするとそれを弾いたわけ。最近やっと普通に利用できるようになったけど。
マックにしろドンキにしろ、クーポン提供サービスは別にスマホ専用にしなくたって弾かなければ対応できるじゃないか。
(iPhoneの場合FLASHを使えないから問題になるかも知れないけど)
それを何でわざわざ弾こうとするわけ？
Munesuti · Intanashonaru日本，今天的一男志野泽在东京拘留中心，有关死刑的一大做文章被处决死刑犯2绪方秀树的。特别是，它执行了一年的最后执行日期不说话，对任意执行死刑，以示承诺作为一个人的生命的玩具给政府，强大的责任。
这一次，两名被处死，因为人们担心，摆在执行目标，大赦国际紧急行动（UA）的被遮盖的。请收到来自世界各地寻求对这些机构入住执行。绪方贞子离开后撤回了上诉法院的裁决，而通过死刑最后审查此案。
这一次，司法部长，千叶研究小组负责检讨与死刑状况，责令有关媒体提供的东京拘留所Center的执行place coverage机会，说。然而，信息披露和死刑，就存廃进行公开辩论是正式停止执行死刑。当人们执行，而对死刑的做法是讨论用另一只手不一致，同时继续执行我们的研究有什么理由害怕死刑推动。
已经是连续第二年在2008年和2007年，在联合国大会决议，关于世界各地的暂停处决呼吁废除死刑已经通过在100多个国家的青睐。此外，在2008年10月，联合国人权委员会，“无论在调查中，考虑废除死刑的积极，必要时，告知人们废除死刑的可取性应该是“做和建议。这个执行，这打开这些声音的背后。此外，“应决定了结论的方向是不是”一个委员会，研究和不符合这些建议的建立。
近年来，事故和事件的志布志冰见，富山，和足利事件，该事件暴露了一系列虚假的指控，被迫在审讯和调查替代监狱供认，已在许多侵犯人权的报道在日本刑事司法。福冈崎事件和事故，包括饭冢也已在他的死刑案件重审事故死亡已促请检讨在日本刑事司法系统，包括死刑。正式宣布死刑缓期执行，以现在废除死刑，应是日本的刑事司法系统进行大刀阔斧的改革。
大赦国际反对没有任何例外的死刑。死刑是一种生命权，不人道和有辱人格的处罚，在最终意义上残忍的侵犯。谁犯罪受到侵犯的受害者是生命权。国家需要做的是防止这些权利受到侵犯，是保卫国家，创造一个与减少犯罪的社会，它杀死的人是不是新的。犯罪背景，在贫困和社会歧视的时候，以消除刑事事宜并非由死刑解决。
去年，全国有18个国家进行全球处决。国家，死刑继续下降，其中废除死刑的国家 - 70％的世界。这个世界，为犯罪，而不是使用死刑，犯罪受害者援助方案和监狱行政部门审查试图通过社会政策来解决贫困和歧视和解决这个问题。
作为一个对人权条约的缔约国，日本政府应重申，国际义务，建立刑事司法系统依靠死刑。日本政府审查人权的原则，尽快停止处决，就必须开始了废除死刑的讨论。
大赦国际日本
しかし、結局の所これってYahoo!のビジネス的な「いじめ」ですかねぇ。。
現実的にはWinUserに対するIE強制のような感じで、穿った考えをすると
某MS社と結託しているような気もしてしまいます(^_^;)
違うと思うな…
サポートする為にはあらゆる環境を揃える必要があって再現させなきゃならんのだけど、サポートが面倒くさいから閲覧環境をわざと制限しているだけだと思うよ。
GAOなんかも推奨環境外のブラウザ使わせない為にわざとそうしてたし。従ってマカー全滅。（なので見たい人はUAをいじってた。閲覧は無事に出来てるらしい。つまり技術的な問題ではなく、対応させる気がないんだと思う）
そう言うサービスは他にもある。
他のブラウザで閲覧しようとすると警告がものすごい。酷い所だと、そのページを閲覧するだけなのに、続けざまに8回もアラート出した所があるもん。
文句言ったら「そちらのブラウザが出してる警告ですので〜」という返事が来たけど、うちのブラウザは英語版なので日本語のアラートは出ないんだよ！いい加減なこと言うなボケ、とそのときは思ったさ。（ちなみにその直後に直されていたので、余計笑った）
まあこのyahooの場合だと、ちゃんとふぉくすけは使えるんだし、safari使えるだけで随分良心的だなとは思うけど、IT業の看板出してる所がやることではないよね…。
10/18 改訂
なお、取得した画像の著作権はグーグル他各社が保持しています。
ご利用は計画的に私的範囲でどうぞご利用ください。
#!/usr/bin/perl use strict; use warnings; use Getopt::Long; use LWP::UserAgent; use GD; my $cmdline = join(" ", $0, @ARGV); my $usage = "usage: $0 -sx=116423 -sy=51603 -ex=116426 -ey=51605 -dx=4 -dy=3 -z=17 -size=300 -get=30 -dir=cache -output=output.jpg -nodebug"; my ($sx, $sy) = (0, 0); my ($ex, $ey) = (0, 0); my ($dx, $dy) = (4, 3); my $z = 17; my $size = 300; my $get = 30; my $dir = "cache"; my $output = "output.jpg"; my $debug = 0; GetOptions("sx=i" => \$sx, "sy=i" => \$sy, "ex=i" => \$ex, "ey=i" => \$ey, "dx=i" => \$dx, "dy=i" => \$dy, "z=i" => \$z, "size=i" => \$size, "get=i" => $get, "dir=s" => \$dir, "output=s" => \$output, "debug!" => \$debug) or die "$usage\nDied"; if ($ex == 0) { $ex = $sx + $dx; } else { $ex++; $dx = $ex - $sx; } if ($ey == 0) { $ey = $sy + $dy; } else { $ey++; $dy = $ey - $sy; } $sx>0 and $dx>0 and $sy>0 and $dy>0 and $z>0 and $dir and $output or die "$usage\nBad arguments"; $dx*$dy > $size and die "Getting too large."; $debug and print "debug: mkdir $dir\n"; mkdir $dir; -d $dir or die "can't make dir $dir: $!"; my $base = sprintf("http://khm%d.google.co.jp/kh/v=46&z=%d", int(rand(4)), $z); my $ua = LWP::UserAgent->new; printf "now get %d images...\n", $dx*$dy; for (my $x=$sx; $x < $ex; $x++) { for (my $y=$sy; $y < $ey; $y++) { my $file = sprintf("%s/%02dz%06dx%06d.jpg", $dir, $z, $x, $y); $debug and print "debug: check of $file\n"; -s $file and next; --$get < 0 and last; my $req = HTTP::Request->new(GET=>+"$base&x=$x&y=$y"); $debug and print "debug: fetch from ".$req->uri."\n"; my $res = $ua->request($req); unless ($res->is_success) { print "fail fetch from $file: ", $res->status_line, "\n"; next; } if (open(my $fh, ">", $file)) { $debug and print "debug: write of $file\n"; binmode $fh; print $fh $res->content; close $fh; } else { print "fail open in $file: $!\n"; } } } $get < 0 and print "reach the getting limit, skip after all.\n"; printf "creating %dX%d image...\n", 256*$dx, 256*$dy; my $image = new GD::Image(256*$dx, 256*$dy); for (my $x=$sx; $x < $ex; $x++) { for (my $y=$sy; $y < $ey; $y++) { my $file = sprintf("%s/%02dz%06dx%06d.jpg", $dir, $z, $x, $y); $debug and print "debug: check of $file\n"; -s $file or next; $debug and print "debug: read of $file\n"; my $part = GD::Image->newFromJpeg($file); $debug and print "debug: image copy\n"; $image->copy($part, 256*($x-$sx), 256*($y-$sy), 0, 0, 256, 256); } } #$image->string(gdSmallFont, 0, 0, $cmdline, $image->colorAllocate(255, 255, 255)); open(my $fh, ">", $output) or die "fail open $output: $!"; $debug and print "debug: write of $output\n"; binmode $fh; print $fh $image->jpeg(); close $fh;
例えば秋葉原とか
perl gmwall.pl -sx=116423 -sy=51603 -ex=116427 -ey=51606
駅だけとか
perl gmwall.pl -sx=465701 -sy=206420 -ex=465705 -ey=206423 -z=19
使う数値はfirebugなどで拾ってください。
http://anond.hatelabo.jp/keyword/%E5%8D%97%E6%98%8E%E5%A5%88
http://anond.hatelabo.jp/20090430200959
http://anond.hatelabo.jp/20090729200605
http://anond.hatelabo.jp/20090909232604
http://anond.hatelabo.jp/20090910060001
http://anond.hatelabo.jp/20090918040801
ニワニュースを叩くふりしてアッキーナの評判を落とそうとする工作にしか見えない
ところで複数投票ですけど、パソコンからでもUAを携帯にしてアクセスしたら投票できたし、このリンク踏むとUA変えなくても投票できるみたいですよ
なるほど、php.iniは別におかしくなさそうだね。
だとすればhttpdがapacheだとして、DefaultCharsetが設定されてるのかもしれない。
そこがいじれるのなら、DefaultChasetは'none'にするとか、それができないなら、通常の.phpスクリプト同様に
header("Content-Type: text/html;charset=EUC-JP");
をtplを読み込む前に呼ぶか、あと、
<meta http-equiv="Content-Type" content='text/html; charset="EUC-JP"' />
スーパーpre記法がアレなまま直ってないわけで。
姉妹サイト(?)ができていたわけで。
なにやらcookieを食べようとした形跡があるわけで。
#!/usr/local/bin/perl -w use strict; use warnings; use Web::Scraper; use URI; use Perl6::Say; use MIME::Type; use HTTP::Cookies; use LWP::UserAgent; use Path::Class; use Data::Dumper;sub p { print Data::Dumper::Dumper(@_) }; # cookie_jar~A~T~_~H~P #my $cookie_file = "lwpcookies.txt"; #my $cookie_jar = HTTP::Cookies->new(file => $cookie_file, autosave => 1, ignore_discard => 1); my $page = shift || 10000; unless ( $page =~ /^\d+$/ ) { die 'perl 4u.pl [page as int]'; } my @files = dir('./img/')->children; my $cache = {}; my $end_file = { mtime => 0 , file => '' }; for my $file (@files) { if ( $file->basename =~ /^(.+)\.(.+)$/ ) { $cache->{$1} = $2; } if ( $end_file->{mtime} < $file->stat->mtime ) { $end_file->{mtime} = $file->stat->mtime; $end_file->{file} = $file; } } for my $i (1..$page) { my $url = sprintf 'http://nijigen.straightline.jp/?page=%s' , $i; # if ($i == 1){ # $url = sprintf 'http://4u.straightline.jp/nude?filter=off'; # my $ua = LWP::UserAgent->new; # $ua->cookie_jar($cookie_jar); # my $request = HTTP::Request->new(GET => $url); # my $res = $ua->request($request); # } say "request url>".$url; my $scrp = scraper { process '/html/body/div/div[2]/div[2]/div/div/div/div/div/a', 'link[]' => '@href'; process '/html/body/div/div[2]/div[2]/div/div/div/div[2]/div/div/p[2]/span/a', 'img[]' => '@href'; result 'link','img'; }; # $scrp->user_agent->cookie_jar($cookie_jar); my $tmp = $scrp->scrape(URI->new($url)); my $links = $tmp->{link}; my $imgs = $tmp->{img}; if ( ref $links ne 'ARRAY' ) { say "end program."; exit; } for my $link (@$links) { $link =~ m{/([^/]+)$}; my $sesid = $1; if ( $end_file->{file} &amp;&amp; $end_file->{file}->basename =~ /^$sesid\./ ) { say "file exsits end program >".$sesid; # exit; next; } if ( $cache->{$sesid} ) { say "file exsits next >".$sesid; next; } sleep 5; my $image_url = shift @$imgs || next; $image_url =~ s/^http:\/\/nijigen.straightline.jp\/user\/manage\/do_register\?src=//; $image_url =~ s/%3A/:/ig; $image_url =~ s/%2F/\//ig; say "get image url >".$image_url; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => $image_url); my $res = $ua->request($req); my $content = $res->content; my $content_type = $res->headers->header('content-type'); my $ext = MIME::Type->new( type => $content_type )->subType || 'bin'; if ( $ext eq 'plain' ) { say "not found image >".$image_url; # ~\家~A~T~C~O~A~L~H~A~H~A~A~_~B~I4U~A奴~B~R~]~X~A~Y~B~K~@~B my $image_url = 'http://nijigen.straightline.jp/html/found/static/upload/l/l_'.$sesid.'.jpg'; say "get 4u image url >".$image_url; my $req = HTTP::Request->new(GET => $image_url); my $res = $ua->request($req); $content = $res->content; $ext = 'jpeg'; } my $write_path = './img/'.$sesid.'.'.$ext; open my $FH, '>', $write_path; binmode $FH; print $FH $content; close $FH; say "write image >".$write_path; } }
American(AA) AA1 : (ニューヨーク)JFK - LAX(ロサンゼルス)
Air Canada(AC) AC1 : (トロント)YYZ - NRT(東京) YVR(バンクーバー)経由
Aeromexico(AM) AM1 : (メキシコシティー)MEX - MAD(マドリッド)
Continental(CO) CO1 : (ヒューストン)IAH - GUM(グアム) HNL経由
Cathey Pacific(CX) CX1 : (ホンコン)HKG - ARN(ストックホルム) DXB, BRU(ブリュッセル)経由
Delta(DL) DL1 : (オーランド)MCO - LHR(ロンドン) JFK経由
Emirates(EK) EK1 : (ドバイ)DXB - LHR(ロンドン)
Japan(JL) JL1 : (サンフランシスコ)SFO - NRT(東京)
Korean(KE) KE1 : (ソウル)ICN - LAX(ロサンゼルス) NRT経由
Lufthansa(LH) LH1 : (ハンブルク)HAM - FRA(フランクフルト)
ANA(NH) NH1 : (ワシントンDC)IAD - NRT(東京)
Northwest(NW) NW1 : (ロサンゼルス)LAX - MNL(マニラ) NRT経由
Qantas(QF) QF1 : (シドニー)SYD - LHR(ロンドン) BKK(バンコク)経由
Singapore(SQ) SQ1 : (サンフランシスコ)SFO - SIN(シンガポール) HKG経由
United(UA) UA1 : (シカゴ)ORD - HNL(ホノルル)
ブコメにUAのシャツ2万出して買ったけど、ユニクロなら幅が広がるという書き込みあったけど、
高いシャツはそれなりにポイントとして使えるんだよ。
だれもすべてセレクトショップで揃えているわけじゃない。硬軟織り交ぜて使うのが良いと思う。
ユニクロ、無印で全部揃えるのは無難にはなるかもしれないが、センス良いとはならない。
無印は値段のわりにはセンス良いと思うけど、それはうまく使わないとダサさに直結すると思う。
元増田がジャケットをUA,ビームス、バナリバで買えと言っているのは、ポイントが一点あれば
センス良いと見えるからだよ。
ファッション雑誌に載っているものは、確かに数万とかするものばかりだけど、ファッション雑誌に載っているようなものをそのまま買っている人なんているんだろうか。いや世の中にはいるんだろうけれど、私の周りでは全く見かけない。ファッション雑誌で流行や着こなしを参考にしつつ、実際の服の調達はリサイクルショップやセール品とかで安く済ませている、というのが、私の周りでは普通なのだけれど。
それはそうなのですが、ファッション初心者にはそのハードルは非常に高いのよ。
俺も買うのはもっぱらアウトレットやセール、古着屋だけど、ベーシックな使いまわし度の高い物はどうしてもシーズン初めに正規店で買ってしまう。それは、そういうベーシックなものほどアウトレットやセールでサイズが無いから。デブちんだから仕方がないんだけどさ。古着は一歩間違えると裏原系かストリート／アメカジ系しか置いていないので、結構良いお店を見つけるまでが苦労する。最近見つけたお店はAＰＣとかSHIPS/UAの古着がおいてあって重宝してるよ。このまえポールスミスのシャツを1900円で買ったし。
それはともかくとして
初心者はどういう風に合わせるかが苦手なんだよね。だから正規店でマネキンごと買ったり、お店の人に見立てて貰う方が無難だよと思う。
端末固有IDを使った認証とかしないでクッキーで認証すればいいのに・・・っていつも思う。
携帯サイトって情報が少ないんだけど、サッと調べたいときには何かと便利。
今スマートフォンしか契約してなくてそういう携帯サイトが見られない。(まぁ、UAを変更すれば見られるんだけど。)
ツタヤとかモバイル版のページなんかノキアの端末(SoftBankの705NK)の時はWAP用のブラウザ(フルブラウザではない。)で「お客様の機種は対応してません」とか表示されるし。
おー、使ってくれてる奇特な奴がいるとはうれしいねぇ。
感謝の気持ちを込めて実はアレから少しバージョンアップしてるのでそれを公開しますよ！
改善点は2点。
これを修正。これ微妙なんだよね。4u.pl動かしてる最中に画像が投稿されるとページングしたときに既に取得した画像にぶつかってしまって止まっちゃうんだよねー。
なので、最後に取得した画像にぶつかったらプログラム終了するように変更した。
元のURLの画像が削除されてしまって取得できなかった場合に、今までは.plainとかいうダミーデータが保存されてしまっていたが、それを4Uの画像を取得するように変更。
これで元画像が消えてても一応4Uから取得できるので取りこぼしが無くてヤッターって感じだねー。
でわでわコードは以下。
#!/usr/local/bin/perl -w use strict; use warnings; use Web::Scraper; use URI; use Perl6::Say; use MIME::Type; use LWP::UserAgent; use Path::Class; use Data::Dumper;sub p { print Data::Dumper::Dumper(@_) }; my $page = shift || 10000; unless ( $page =~ /^\d+$/ ) { die 'perl 4u.pl [page as int]'; } my @files = dir('./img/')->children; my $cache = {}; my $end_file = { mtime => 0 , file => '' }; for my $file (@files) { if ( $file->basename =~ /^(.+)\.(.+)$/ ) { $cache->{$1} = $2; } if ( $end_file->{mtime} < $file->stat->mtime ) { $end_file->{mtime} = $file->stat->mtime; $end_file->{file} = $file; } } for my $i (1..$page) { my $url = sprintf 'http://4u.straightline.jp/?page=%s' , $i; say "request url>".$url; my $tmp = scraper { process 'ul.entry-list>li>div.entry-body>div.entry-photo>a', 'link[]' => '@href'; process 'ul.entry-list>li>div.entry-footer>div.wrapper-entry-description>div.entry-description>p.entry-img-src', 'img[]' => 'TEXT'; result 'link','img'; }->scrape(URI->new($url)); my $links = $tmp->{link}; my $imgs = $tmp->{img}; if ( ref $links ne 'ARRAY' ) { say "end program."; exit; } for my $link (@$links) { $link =~ m{/([^/]+)$}; my $sesid = $1; if ( $end_file->{file} && $end_file->{file}->basename =~ /^$sesid\./ ) { say "file exsits end program >".$sesid; exit; } if ( $cache->{$sesid} ) { say "file exsits next >".$sesid; next; } sleep 1; my $image_url = shift @$imgs || next; $image_url = 'http://'.$image_url; say "get image url >".$image_url; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => $image_url); my $res = $ua->request($req); my $content = $res->content; my $content_type = $res->headers->header('content-type'); my $ext = MIME::Type->new( type => $content_type )->subType || 'bin'; if ( $ext eq 'plain' ) { say "not found image >".$image_url; # 本家の画像が消えてたら4Uの奴を保存する。 my $image_url = 'http://www.straightline.jp/html/found/static/upload/l/l_'.$sesid.'.jpg'; say "get 4u image url >".$image_url; my $req = HTTP::Request->new(GET => $image_url); my $res = $ua->request($req); $content = $res->content; $ext = 'jpeg'; } my $write_path = './img/'.$sesid.'.'.$ext; open my $FH, '>', $write_path; binmode $FH; print $FH $content; close $FH; say "write image >".$write_path; } }
参考：http://anond.hatelabo.jp/20080728045912
丸井ブランドで10000円前後のアイテムを買いあさる日々に飽きたら
ちなみに想定年齢は20-25くらいで、何かポパイとかメンノンとか、もしくはマルイか新宿伊勢丹かビームス（ストリートライン）な服を買ったりしていた人。「全身をスタンダードアイテムのみでまとめるべき」というわけじゃなくて、全身からとりあえず大学生臭さを消す、つまり、中身の人間が20代前半くらいまでな場合に、スタンダードじゃない（例えば）アウターとかを含めた全身をバランス良く仕上げるために便利なアイテム（＆よほどオシャレならそれでもどうにかできるんだろうけど99%の人間にとって完璧に地雷なアイテム）
もうちと具体的に書くと
・大学院生
くらい
ちょっとピンクを見せる、とかそういうこと
上の記事ではアメアパになってるけど、や、これは俺の趣味かもしれないがアメアパは発色が大学生以下っぽくないか？よく知らんけど日差しの強いLAならあの発色、みたいな話だと思う。少なくとも東京の日差しには合わない気がするんだなぁ……
数千円以下でインナーとして便利な（例えば「今年買ったお気に入りのカットソー」とかの差し色として使えるという意味）Tシャツを見つければオールシーズン着まくれる
個人的にはヘインズのビーフィー（一枚入りパック1200円）のレディース（アメリカンなので別にインナーなら全然着れる）を勧めてみる。色によっては発色が良くないがピンクは良いよ。あと正直ユニクロは縫製が悪いか横方向に捻れるように伸びるイメージがある（昔に植え付けられたトラウマなだけかも）のであまり買わないんだけど、ユニクロのプレミアムコットン（1500円）も良いんじゃないですかね
●2：上質なカットソー
誰がなんと言おうと無地。そして丸首/Vネックで一定以上に上質なもの。Uネックは、実際問題として大学生、もしくは原宿あたりにいそうな感じの人感を出さずに着るのが難しい。一枚持っていても良いだろうけど、あくまでスタンダードではない
「スタンダード」というのは、結局のところ体型依存なので「万人にお勧め」というものはない
自分の体型に合い、かつ3000円に見えない「自分用定番」を見つけることに時間を注ぐべきだし、こういう部分でセンスが良い人間は本当にセンスが良いと思う
……そう言いつつ個人的にはユナイテッドアローズのビジネスライン（なのか？これを買うためのみにUAを使っているのであまりライン構成を知らない）の長袖8400円のヤツなのであまり偉そうなことは言えないんだけど……。あとフェイクレイヤードとか変なデザインは本当にマルイなので完璧に不要。今持ってる人はヤフオクでもフリマでも弟に押しつけるでも何でも良いから早く手放してください
●3：上質なシャツ
つってもシャツは下着（シャツの下に下着を入れるのは本当にやめて欲しい）なので出せる値段に上限があるはず。1万円前後でカットがキレイで一定程度に上質、ということを考えていくと、下町などのセミオーダーシャツは候補になるはず。というか他に候補がなかなかないような。一個でよいので高いシャツ（個人的にはバレンシアガが一番シックリくるので一枚だけ持っている）を買っておくと「同じようなカッティングで」と説明しやすいのでオススメ。セミオーダーは、「これと同じ」と言えないと一度や二度は失敗するのがデフォなので、それを考えれば「最初の一枚」に3万出しても実はあまり差がない（ただ3万で買ったシャツが「最初の一枚」にならないと本当に金がもったいないので徹底的に試着しまくるべき）
あと今思い出したけど新宿伊勢丹が秋くらいから1万強でセミオーダーを始める、とか聞いた記憶がある。新宿で作れればアクセス的に便利な人が多いと思うので、いや品質とかどうなのか今は分からないが、始まったら伊勢丹覗いてみると良いかも
●4：定番的に使えるスニーカー
プーマのヨーロッパラインとかデザイナーズとか、一瞬かっこよさそうなのはNG
基本的に選択肢はナイキ/アディダス/ニューバランスくらいしかないとは思う
この中で自分のスタイルにあうもの、例えばアメトラがベースなら必然的にニューバラになるだろう。そういうものを選ぶ。全身において、普通の大学生が見てもブランドバレするアイテムはここだけにすべき。決して「高い」感を出さないアイテムなのでブランド丸わかりでも良いし、逆に丸わかりであることが「スタイル」となる（ナイキでなくアディダスを履いている、そんな俺は……という）。あと今思い出したけど、バンド・オブ・アウトサイダースだっけか、トラッドにヴァンズ合わせてるスナップは（アメリカ人だけど）ハマってた。ヴァンズも履けていればカッコいい（ただ正直よく知らない）
コンバースは、別に悪くないけど、「コンバースが合う」って結構難しいよ。ギターキッズとか何だかよく分からない洋楽を語れる人間とかがそこらへんに溢れている以上、彼らよりコンバースを履ける自信がないなら避けた方が……。女の子が特になんだけど、高校生くらいの頃って、コンバースを中身の人間の特性として問答無用に可愛く履けるじゃん。男も何だかんだ言いつつそれなりに。でもその履き方は20代じゃもうできないし、「マジに履く」ということを考えると、コンバースは実は結構難しいよ、という話。君の彼女はそれでも「可愛い」と言ってくれるかもしれないが、それは良くも悪くも色眼鏡です。そう見てくれる彼女に感謝しつつナイキでも履いて下さい
そしてここで書いていない、特にパトリックとオニツカタイガーは、履ける人いるけど決して多くないので「取り扱い注意」。もちろん履けていれば何の問題もない
あといずれにしても「○○限定色」とかショップ別注とかの変な色は避けて下さい。「それが99%の人間にハマらないから定番色になっていない」のです（だから復刻とかはこの限りではない）
●5：上質な革靴
一番金をかけるべき場所。滅多に買う物ではないので4万以上は出すべき
先が尖っててちょっと浮いてる、何か新宿伊勢丹で売ってそうなヤツは本当に絶対にNG
なるべくクラシカルで普通の革靴。革は見る人が見れば値段は即分かるのでムダなデザインは一切不要。一足買えばリペアしつつ5年以上は履けるし、スーツにもジーンズにも合うのでムダはない。個人的には銀座のヨシノヤの一番スタンダードなヤツを勧めてみる（ただ6万くらいするので、何か臨時収入でもあった時に）
スニーカーとも共通だけど、靴を買いに行く場合、良く着ている服で出かけて試着をすると思う。そして靴を履いて鏡の前に立ったとき、靴が全身の中で、（良い意味であったとしても）目立っているとしたら、それは「一瞬カッコ良さそうに見える」というだけで、「自分はその靴を履けていない」ということです
その靴が、中身の人間を含めた全体に溶け込んでおり、かつ全体をサポートしている、例えば革靴なら「全体に落ち着き（？）を与えている」みたいな、そういう状態であれば履けていますし、買うべきです。だから●4で書き忘れたけど、平均的に言って華奢で虚弱な日本人の中で、ハイカットスニーカーを履ける人間は少ない。革靴にデザインが不要というのは、例えばウイングチップではなくストレートチップを買うべきという意味でもあって、理由は同じ。20代で、例えばウイングチップとかを溶け込ませることができる人間は少ないはず
体型依存なので「これ買っておけば良い」なんてものはない
リーバイス（501？）が本命だろうけど体系とご相談を。虚弱体型一歩手前な人ならGAPのスリムジーンズ（スキニーよりちょっと太い）とかも候補になるんじゃないかなぁ
おそらくだけど
・脱オタの人からするとキツすぎ
くらいがちょうど良い。スキニーは、金余ってたら買えば良いけど基本的に不要だし、中途半端にデカいパンツは、それがどんなにラクだろうと不要
そして体系にハマるパンツなんて、たぶん10本試着して一つ見つかるか否か。基本方針として金より時間をかけるつもりで納得がいくものを探してください。リーバイスと言ってみたが、個人的にリーバイスは腰とウエストのバランス（とかも見る）が合わないので長らく履いたことがないのでよく知らない。ごめん
チノとかで良いけど、「自分が定番としているパンツ、に合うサイジングのアウター、に対するオルタナティブなサイジングのパンツ」
これはブランドなどを定番化させる必要はない（そんなに買わないし履かない）はずなので見かけたらラッキー、で
ここでスキニーを入れても良いんだけど、汎用性を考えればスキニーより先にルーズシルエットだと思う。というかオールシーズン通してスキニーがオルタナティブになる、というのは、そもそも●6のサイジングを間違っているから（スタンダードはルーズよりはスキニーに近い）。スタンダード→ルーズの次に、まぁお金があればスキニーを買っても悪くはないんじゃなかろうか
●8：ポーター以外のバッグ
ポーターをカッコよく持てるのは相当な大人（何かデザイン関係の仕事をしてる感を全身で出せるなど）だけだということに気付くべき。持っている人間の99%は大学生かフレッシュサラリーマンにしか見えない。ポーター自体は悪くないので、むしろあれは高校生の頃に一度買って、30代以降くらいのどこか（30代ではないので知りません）で再び持つべきもの。20代はポーターを持つにあたって最も危険な年齢
あとメッセンジャーか。あれって持ち方は大体二種類だと思うんだけど
・本来の持ち方。チャリ文化。20代でもイケるとは思う。ただそれは全身のスタイルの中でしか成立しない。少なくともママチャリしか乗ったことない人間の、そのクセにポパイとかで仕入れた知識で選んだブランドのメッセンジャーは地雷になっているケースが多い
・プラダがたまに、NYファッションが割とよくやる都会の戦士像（？）からの流れ。そもそもあれを20代で成立させられる人間が少ない。どうせ20代なぞ若造
なので「99%」とは言わないけどかなり難しい
バッグは非常に難しい選択になってしまうが、スタイル次第ではグレゴリーかマウンテン系、古着屋の片隅に転がっているようなビンテージ臭の漂う、しかしあまり高くないレザーバッグ、お祖母ちゃんから貰ったお下がりのヴィトン（自分で買った感がない限りにおいて）あたりがギリギリで許される。しかしバッグはあくまで荷物入れであって「ファッションの主役」とかでは決してないことを認識すべき。他の全身合計より高いバッグを持っていても頭悪そうにしか見えないし、JAS.M.B（表記違うかも、UKチックなイセタンとかエディフィスとかでよく売ってるブランド）とかバレンシアガとか、ああいう方向でのデザインコンシャスは本当に辞めるべき。いや、全身100万とかをイヤミでなく着こなせる人なら、バレンシアガくらい普通に持てるんだろうけど。「物入れ」と考えた場合、10万や20万のバッグを普通に「物入れ」として持てるようになるはずの40代くらいになれば選択に悩むこともなくなるんだろうけど知らない
●9：バックルのウザくないベルト
なんか座ったら痛そうなデカいバックルのベルトは本当にマルイなのでやめて欲しい。それこそディオールのイーグルベルト5万（もっとだっけ）とかは正気と思えない。例えば同じディオールなら、数年前の極細ベルト（極小くるみバックルのやつ）は（スタイルが合うなら）買う価値あったような気がする。ただいずれにしてもブランド名を主張するベルトは全NG（ディオールの極細はファヲタしか知らんかなと思うのでアリかなぁと）。そんな場所でブランド自慢をするな
これもやっぱり革なので値段をあまり惜しむと辛い。2万円程度以上出すか、もしくは数千円のオモチャで（ただオモチャベルトは難しいんだけど……）
●10：上質なニット
ニットは「金が余ったときに買うもの」度が高い。別に無ければ無いで古着のネルシャツとかスウェットとか着ておけば良いんだし
正直1万以下のニットでマトモなものを見た記憶がない。1000円のTシャツは普通に着れるけど1000円のニットは本当にどうやってもムリです。その分シンプルな物、例えば黒無地タートルとかであれば、よほど毎日着ない限りは全然長く着れるので、お金があるときに買えば良いんじゃないかなと。だからデザイナーズはあんまオススメしないし、買うにしてもスタンダードライン。ただ胸に妙なものがあるニット（典型的にはギャルソンプレイ）は本当に恥ずかしいのでやめて下さい。あれを着ていて唯一許されるのは、女の子が下半身とかをマジにギャルソンファーストラインで固めて（つまりギャルソン信者という意味でもある）上にギャグっぽくプレイを着ているケースです。まじまじと見たことがないので知らないが、もしあの変な物をハサミとかで外せるのであれば、持ってる人はすぐ外して下さい。外せないなら諦めてヤフオクに
一個名前出すならジョンスメなのかなぁ……。別に人それぞれなので、お金持ちならマルジェラで買ってタグ切ったりしても良いとは思うけど
繰り返すが、別に無ければ無いで全然構わない
※正直「10」にするために最後のニットを付け足したので説明不足なので補足
ここで言ってる20代は、学生終わったら即大人とかって意味ではない。どうせ20代なんざ、学生だろうと社会人だろうと社会の中では若造だし、まだ30代ファッションはどうせ似合わない。それに30代で着れるものは30代で着れば良いじゃん。20代が「ポールスミス（女ウケブランド1位だった記憶があるので書いたけど別に何でも良い）の今期ブルゾン買っちった」と言うのは、何も否定されるべきものではないと思う（それでもその「買っちった」でブランド丸出しベルトとかバッグとか買うのは辞めて下さい）。ただ、せっかく買ったそれを大学生ファッションでしか着れないという、それはもう卒業しようよ、と
ニットなんだけど、
・ニットは基本的に新品同様でないと着れない
俺は、いずれある程度着古すことを前提にしている。もちろん最初は新品で、少しすると新品同様で、そしていずれ着古される。大学生ファッションの共通欠陥の一つは、安っぽい素材で中身の人間にマッチしていない新品服による全身コーディネートなので、体に馴染んできたニットは、中身と他の服の熟成度の足りなさをカバーするアイテムとして長い期間にわたって利用できる。ただ、ニットの質という差は着古すと新品時（であっても1000円は本当にどうやっても無理）よりさらに顕著になるので、正直1万以下で着古せるニットを、俺は見た記憶がない。だから丸井ブランドで買うよりは、30代くらいの知り合いとかが買って数年着て、その後メタボったので着なくなった、元は結構高いニットとかを貰ってくるべき（そして本当に無いなら無いで別に構わない）
ただ、体に馴染んできた後での活用って、あくまで20代のカジュアル用途限定なのかもしれないので、30代以降では、ニットをシャツより高い消耗品として買うしかなくなるかもしれない（けど基本的に知らないし30代の人に聞いて下さい）
Event.add=function(_element,_name,_func){ if(_name=="load") { Event.onload.add(_func); return; } if(ua.name.indexOf("IE")>0 && _name=="keypress") _name="keydown"; if(window.addEventListener) _element.addEventListener(_name, _func, false); else if (window.attachEvent) { if(_element==window) _element=document; _element.attachEvent("on"+_name,function(){ var e=arguments[0]; e.target=e.srcElement; e.pageX=document.body.scrollLeft+e.clientX; e.pageY=document.body.scrollTop+e.clientY; _func.apply(_element,arguments); }); } };
はじめてのラッパー
4Uって知ってるかい？
”世界中の美女画像を皆でシェアするソーシャルイメージブックマークサービス”
とのことさ。それはほんともう美しい画像が満載で毎日見てても飽きないわけさ。
そこでローカルに画像を保存しようと思い、ちょっくら実装してみた。
#!/usr/local/bin/perl -w use strict; use warnings; use Web::Scraper; use LWP::UserAgent; use Perl6::Say; use MIME::Type; use URI; use Data::Dumper; sub p { print Data::Dumper::Dumper(@_) }; my $page = shift || 1000; unless ( $page =~ /^\d+$/ ) { die 'perl 4u.pl [page as int]'; } for my $i (1..$page) { my $url = sprintf 'http://4u.straightline.jp/?page=%s' , $i; say "request url>".$url; my $tmp = scraper { process 'ul.entry-list>li>div.entry-body>div.entry-photo>a', 'link[]' => '@href'; process 'ul.entry-list>li>div.entry-footer>div.wrapper-entry-description>div.entry-description>p.entry-img-src', 'img[]' => 'TEXT'; result 'link','img'; }->scrape( URI->new($url) ); my $links = $tmp->{link}; my $imgs = $tmp->{img}; if ( ref $links ne 'ARRAY' ) { say "end program."; exit; } for my $link (@$links) { $link =~ m{/([^/]+)$}; my $sesid = $1; sleep 1; my $image_url = shift @$imgs || next; $image_url = 'http://'.$image_url; say "get image url >".$image_url; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => $image_url); my $res = $ua->request($req); my $content = $res->content; my $content_type = $res->headers->header('content-type'); my $ext = MIME::Type->new( type => $content_type )->subType || 'bin'; my $write_path = './img/'.$sesid.'.'.$ext; if ( -f $write_path ) { say "file exsits end program >".$write_path; exit; } open my $FH, '>', $write_path; binmode $FH; print $FH $content; close $FH; say "write image >".$write_path; } }
貴様、うるせーんだよ。
今回俺としてはWeb::Scraper使いたかったので自力実装してみますた。
使い方を試しながらだったので製作時間2時間くらいかかたお。次からはもっと短縮できそうだ。
まーがーっと書いた後に整理してないからコード自体はかなり汚ねぇのでご了承を。ふへ。
とりあえず4u.plを叩くとカレントディレクトリのimgフォルダに取得した画像を次々書き込んでいく。
ちゃんと次のページにも遷移しながらどんどんがんがん書き込んでいくのさ。
で、以前取得したことのある画像にぶつかるとそこでプログラム終了。
ちゅーかなんつってもWeb::Scraperってばスゲエよな。俺のクリオアがびんびん反応するぜ。え？クオリアだって？うっせぇ野暮なこと言うなよ。