2012/12/24

[Perl]全垢r4sしてみた。

,
 いちいち手動でr4sするのもめんどくさくなってきた時に、「Perlなら捗るよ」という魔の一言を聞いたので、やってみた。

1)開発環境を入れる。

 私はWindows使いなので、Google先生のお言葉に習ってActivePerlというのを入れました。インストールは次へをひたすら連打するゲームです。
 
 次に、インストールされたらTwitterを扱うライブラリらしい、Net::Twitterというのを入れます。インストールフォルダ/binでコマンドラインからcpan.bat→cpan>ってなったらinstall Net::Twitter。しばらくうにょうにょしてるので、必要に応じてyesって入れてれば終わります。

2)コード書く

 まず、呟くのからやってみました。PerlでTwitter投稿(Net::Twitter) - KWの徒然Blog。。。 さんのコードをコピペ…

『Can't locate Net/Twitter.pm in @INC (@INC contains: [インストールフォルダ]/Perl/site/lib [インストールフォルダ]/Perl/lib
 .) at ***.pl line 2.
BEGIN failed--compilation aborted at ***.pl line 2.』
と言ったエラーが出る場合は、そのライブラリのuse文の前に、
lib use '[Net::Twitterのインストール先(...\Perl\cpan\build\Net-Twitter-3.18004-fC4xoV\libとか)]'
という一文を追加しましょう。

次に、access_tokenとかを取得します、Perl + Net::Twitter + OAuth で自分のリスト内の人を別アカウントで全部followしちゃうよ - XXXannexさんを参考にしました。

で、コード書きます。こんな感じ。

use lib '[インストール先]/Perl/cpan/build/Net-Twitter-3.18004-fC4xoV/lib';
use Net::Twitter;

use utf8;
use strict;
use warnings;
use Encode qw/decode/;

#必要に応じて変えてください
my $consumer_key = "[ここにconsumer keyいれる]";
my $consumer_secret = "[ここにconsumer secretいれる]";

my $token_ref = [ ["[ここに1つめのアカウントのaccess tokenいれる]"],
     ["[ここに1つめのアカウントのaccess token secretいれる]"],
     ["[ここに2つめのアカウントのaccess tokenいれる]"],
     ["[ここに2つめのアカウントのaccess token secretいれる]"],
     ["[ここに3つめのアカウントのaccess tokenいれる]"],
     ["[ここに3つめのアカウントのaccess token secretいれる]"]];

my $nt = Net::Twitter->new(
  consumer_key => $consumer_key,
  consumer_secret => $consumer_secret,
  #access_token => $token,
  #access_token_secret => $token_secret,
  ssl => 1,
);

#コマンドラインから引数を取得、Shift-JISから内部エンコードのUTF-8に変える。
my $screen_name = decode('Shift_JIS', $ARGV[0]);

#スクリーンネームからidを取得、原理上つぶやき0がこれだとスパム出来ない
my $target_id = "";

eval {
  my $statuses = $nt->user_timeline({id  => $screen_name});
  for my $status ( @$statuses ) {
    $target_id = $status->{user}{id};
    last;
  }
};

print "spam target : $target_id\n";

#連スパム
foreach my $arre (@{$token_ref}){
 $nt->access_token($arre->[0]);
 $nt->access_token_secret($arre->[1]);
 my $result = $nt->report_spam($target_id);
}
でもってコマンドラインから
perl [このスクリプトのファイル名].pl [スパムしたい相手のスクリーンネーム]
と入力します。一応確かめてみたらスパム報告できてるみたいです。
Read more →

2012/12/22

[C++]goo.glを使ってみた。

,
この概要は表示できません。投稿を閲覧するには ここをクリック してください。
Read more →

[旅行記]美濃赤坂・名古屋

,
こうなったら写真のまとめ全部作っちまえ!ということで、夏に行った名古屋の写真。ながらで行って、その日に帰るという強行軍。

ムーンライトながらで大垣へ。そこから(ゲーセンに行くには早すぎたので)美濃赤坂とかいうところへ。
美濃赤坂駅。ホームが1面で駅舎は木造。でもjkとか、乗る人は結構いた。

貨物駅でもあるので、だだっぴろいヤードが


駅前はふつーの住宅街。ここからちょっと行くと赤坂本陣跡があるみたい(行ってはいない)

お茶屋敷跡というところに来てみました。

良い感じの建物すなあ

その季節になったら牡丹が咲き乱れるであろう牡丹園…なのだけど、生憎夏なので…

こんな感じの園内でした。堀とかあって暇つぶしには良かった

美濃赤坂から大垣を経て、名古屋に戻ります。新快速長いって…
大都会名古屋駅
 金山コムテで踏んでました。
その後栄などを周り、名古屋駅から新快速で東へ。

これは浜松駅

どうしてもその日中に帰りたくて、一部新幹線でチート。
お疲れ様でした。
Read more →

[旅行記]北アルプス(薬師、黒部五郎、雲ノ平、水晶、鷲羽、笠) その3

,
夏の北アルプス合宿も終わりに近づいて来ました…ということで、三俣蓮華→笠です。
5日も天気は快晴!青空の下、小屋から三俣蓮華岳まで登っていきます。

三俣峠まで来ました。この名前、地図には乗ってなかったんですけど…
ここで、双六までの巻き道と分岐します。

稜線沿いにはまだ雪が残ってた。

この一番上が三俣蓮華岳ですね。意外とゴツゴツした山容。

頂上につきました。ここは富山、長野、岐阜の3県にまたがる県境なのです。因みに昔はこっちが鷲羽岳だったそうですよ?

三等三角点。

2日目に登った黒部五郎が顔を見せています。

外界は見えないけど、遠くまでの展望良好。それにしても綺麗な青空ですね!

双六まで来ました。これは山頂の二等三角点。

実は双六は双耳峰で、あっちに見えるのが双六南峰。踏み跡がついてるんですが、立入禁止のロープと注意書きが貼られていました… ハイマツ帯なので踏んだりすると植生が荒れるとかそういうのでしょうか…行ってみたい…

槍を見ながら、砂礫帯みたいなだだっぴろいところを行きます。この地形面白いと思った。

双六小屋、めっちゃ大きい、人も多い。

裏側に立つ富山大の診療所

小屋の裏手には双六池もあります。いったいどうやってこの水が溜まってるのか…
この湖畔(?)がキャンプ場になってます。

悪名高きトリカブト、多分。でも花は綺麗なんですよ?

ここから笠への長い道を行きます。途中、山稜の割には広いところに水が溜まってたりとか。逆に、左側が谷間でスパっと落ちてるところも数知れず。

弓折乗越の近くからみた鏡平。あの池を見ながら小屋でゆっくりコーヒーを飲んでみたいものです。

初めてこんな間近で野鳥みたよ。何の鳥だかは分からないが… 場所は大ノマ乗越への下り。

見えたぞ!笠だ!手前が抜戸岩ですかねー、本当に岩の真ん中通るんですよ
わざわざ解説じゃなくこっちに書きますけど、双六~笠への道はかなり長く、間に幾つかピークと鞍部を挟むので、それなりに疲れるコースでした。大ノマ乗越では、急に下ったかと思えばまた同じ分登り、秩父平からは結構急だし。
 
 あと、大ノマ乗越から登る途中である中年の方から、ガイドブックの地図を指し示しながら「笠新道への分岐はどこですか?」って聞かれました。どうやら双六から来たみたいなんですが、笠新道分岐(南のほう)に行くはずが、どうやら北の方に途中で歩くようになってしまったみたい…?(あまり想像できない) まあいずれにせよそのガイドブックの地図がかなりアバウトな奴なので、心配になりました… その時間から笠振動分岐まで行って麓まで降りるのはかなり大変ですし。ちゃんと遭難せずに帰れたんでしょうか…

テン場の水場。冷たい… 因みに多分落し物したらそのまま谷まで行く感じの

笠ヶ岳山荘す

山荘前から見たテン場。意外と距離あります。

山上価格!

笠までの道を行きます。ロックロックレボリューションです。

山頂近くの祠

着きました!
ちなみにここから雷鳥岩の方に降りる道もあるんですが、どうも取り付き部がわからなかった…というかそっちがわかなり急だし…

今日は帰るだけです。朝焼けに照らされる槍穂高、焼岳(真ん中)と乗鞍(右奥)を見ながら、笠新道をどんどん下っていきます。
おまけ:小淵沢駅前。乗り換え駅(小海線と中央本線)で特急も停まるから大きい駅かとおもいきや、意外と駅出ても何もないよね(失礼)。

小淵沢駅。八ヶ岳は雲の中…
これで一応まとめは終わりです!お付き合いして下さった皆様(多分いないであろう)、ありがとうございました
Read more →

[旅行記]北アルプス(薬師、黒部五郎、雲ノ平、水晶、鷲羽、笠) その2

,
北アルプス山行3日目
この日は雲ノ平と高天原温泉。
朝早くにキャンプ場を出て、薬師沢小屋を目指します。途中こんな感じの橋を渡ったりも。

薬師沢小屋。電波通じなくてもTVはちゃんと映ってました。

小屋手前の薬師沢に架かる吊り橋。意外と怖い。

この流れが黒部川になるんですね

梯子だッ!!!!(大東新道と分岐してすぐのとこ)

雲ノ平に着きました。雲ノ平は幾つかのアラスカ、奥日本と言った庭園が点在しています。
いったい何が違うんだか…
雲ノ平山荘とかを眺める

こんな感じのところ。因みに山荘近くは枯れた沢にそって登山道が敷かれてた。

雲ノ平山荘。とても新しくて、綺麗な建物でした。
高天原峠に下る途中にある梯子♡

高天原峠の分岐。看板ひしゃげちゃってる…


高天原。なるほどこれは別天地だわ。秘境だわ。鬱蒼とした森の中に広がる草原ってのは凄い。

池塘がそこかしこに点在してる

高天原小屋。小さいけど居心地良さそう

高天原温泉(女湯)。男湯と源泉(混浴)は少しだけ上の方にあります。最高でした。
この日の寝床、雲ノ平キャンプ場です。山荘から10分~20分くらい歩きます。
テン場は結構斜めってたり岩があったりで、早く行って場所取っておきたい感じ。
後、テン場から祖父岳への道は封鎖されてる。

淡い紫のきれいな花。ハクサンフウロ?

祖父岳に来ました。水晶と鷲羽を間近に望むことがでる、大パノラマな山頂です。ただ登りがきつい…

槍穂高も雲が邪魔することなくくっきりと見えててぐっどです

上から行くの大変そうで、すぐ下通ったらぬかるんでて死んだ

ワリモ北分岐。

水晶小屋まではなだらかな稜線歩きです。天気がいいと気分よく歩けますね。
ところでこれは二重山稜なんでしょうか…

黒部湖が顔を出してくれました。よきかなよきかな。
水晶小屋に行く途中の梯子♡


水晶小屋を上から。ここも立派な(ry

ワリモ岳から見た鷲羽岳への道です。意外と想像してたより急峻。

鷲羽岳の三角点。

鷲羽池という、山頂の裏側にある池です。山頂からでも透き通ってるのがよく見えました。
降りる道は無いみたいですが、こっそりいけたりするんですかね…

こんなお手製の看板が。
後ろを見れば分かる通り、山頂に登ってすぐに回りがガスに包まれてしまいました…



湯俣から上がってくる道、伊藤新道。ただし今は途中の沢に架かっている橋が落ちているらしくて、廃道になってる。でも道の後はまだ残ってるもので

山上価格。外界価格になるまでひたすら耐え続ける…

三俣山荘。中はとっても綺麗でしたよ。テン場はこのすぐ近く。水場の出が悪いのと謎の小屋があるのが
Read more →