ハブ君の寝言

日記のような何か

2010-01-01から1年間の記事一覧

Net::Twitter::Lite

UbuntuにNet::Twitterがインストールできなかったから人生あきらめてNet::Twitter::Liteに乗り換え Ubuntuのインストール系がまじ意味不明sudoとかめんどうなんでやめてください頭の部分 #!/usr/bin/env perl use strict; use warnings; use utf8; use Net::…

puttyでCtrl+s

以前からputtyでC+sしたときに固まってあうあうあーでしたが C+qすると直ります。はい。 - update.2010.12.12 UNIXの機能らしい http://www.sixnine.net/keyboard/control.htmlいただいたコメント通りに .bashrcに stty stop undef と書きます書きましょう。

Net::TwitterをUbuntuにinstall

結論から言うと出来ませんでした。まずここを参考 http://nabetama.com/blog/?p=158 sudo cpan -i Bundle::CPANはできた。 sudo cpan -i Net::Twitterで、 make test had returned bad status, won't install without forceとなる。もうやだ無理 sudo perl -…

配置配線

INST "XLXI_1" BEL = D6LUT; INST "XLXI_1" LOC = SLICE_X26Y77; INST "XLXI_6" BEL = D6LUT; INST "XLXI_6" LOC = SLICE_X26Y78; INST "XLXI_2" BEL = D6LUT; INST "XLXI_2" LOC = SLICE_X27Y77; INST "XLXI_4" BEL = D6LUT; INST "XLXI_4" LOC = SLICE_X27…

可変長配列

c

へぇ。実装まだー? 『プログラミング言語 C の新機能』 4. 配列 http://seclan.dll.jp/c99d/c99d04.htm試してみた。 #include<stdio.h> #define N 10 #define M 10 void foo(int n, int m){ int i,j,a[n][m]; for(i=0;i</stdio.h>

eval

perlでエラー落ちが大量にあって, trycatchさせようと必死に頑張ってたけど, eval{};を使い始めたら落ちなくなった. eval素晴らしいですね. eval{ print 1/0; };

Cygwinでコピペ

CygwinでコピペができないのかずっとイライラしていたのですがCygwinを開いたときの左上のアイコン(上のバーならどこでもいいらしい)を右クリックして プロパティを選択 簡易編集モードのチェックボックスを入れるこれだけで、Cygwin上でコピペが簡単に出…

今日のエラー

ISE

ISE PlanAheadで遊んだ ERROR:Pack:2811 - Directed packing was unable to obey the user design constraints (LOC=SLICE_X26Y78) which requires the combination of the symbols listed below to be packed into a single SLICEL component.というエラー…

配列の絶対値無限大を返す

こんな感じで、配列の最大値が返せます。 perl簡単すぎて楽しくなってきますね。 my $x = 5; my $y = 7; my $z = 3; my $aaa = (sort { $b <=> $a } ($x , $y, $z))[0]; print $aaa;

verilogでの二次元配列

verilogで二次元配列なんて書くことないと思ってたんだけどレジスタとか書くときに二次元配列すると楽なんですね。 `define BIT 32 `define ADDR 64 reg [0:`BIT-1] register [0:`ADDR-1]; integer i; initial begin for(i=0;i<`ADDR;i=i+1) begin register[…

簡単な決められた単語を発言するBOT

a.txtの内容を上から順に発言するBOT とりあえず簡単なBOTは作れるようになったこれで動いているBOT http://twitter.com/gokinyan_bot #!/usr/bin/env perl use strict; use warnings; use Net::Twitter; use utf8; # 文字列をutf8として扱う use open IO =>…

自分用OAuthメモ

OAuth認証がめんどくさい めっちゃめんどくさい やってみれば簡単だけどめんどくさい 一回で済むけどめんどくさい #!/usr/bin/env perl use strict; use warnings; use utf8; use Net::Twitter; use Win32::OLE; my $consumer_key = 'xxxxxxxxxxxxxxxxxx'; m…

ファイルのn行目だけ取る関数

c

いい感じのプログラムが書けなかった めっちゃ無駄なんだけど ヘタに考えて時間を使うより とりあえず動く物を書けという教えを忠実に守るために云々かんぬん int file_read(char *str, int n, char *data){ int i; char s[128]; FILE *fp; if ((fp = fopen(…

expand

tex

texでverbatimするとtabさん消えちゃうじゃないですかexpand -8 a.tex > b.texってすれば,tabがスペース8個になるんですよねでもexpand -8 a.tex > a.texってやると,中身全部消えるから気をつけてね☆ミ

twitterOAuth認証

http://d.hatena.ne.jp/layerzero/20090930/p1上記のサイトを参考にBOTをOAuthAPI?に書き換えました。まだ、いい感じになってないのでプログラムリストは貼りませんよそのうち、C++だけでどうにかしたい クライアント作りたいしねぇ

perlでtwitterに連続投稿するもの

これの,my $twitter_username = "user_ID"; my $twitter_password = "pasuwa-do";をいじって,perl a.pl test とかやれば無限ループで楽しいことに(期間限定) #perl2exe_include HTTP::Cookies #perl2exe_include File::Basename #perl2exe_include Getop…

parameterとかの渡し方

人に教える立場になった気がするので,まとめておく module clk( output ck ); reg ck; initial ck=1; always #10 ck= ~ck; endmodule module r #( parameter n = 1 )( input[n-1:0] d, input load,ck, output [n-1:0] q ); reg [n-1:0] qd; initial qd = 0;…

epsでグラフの出力

完全に毎回ググってることをメモするだけの日記状態gnuplotで毎回同じコマンド検索してるからメモ > plot "data_file" notitle use 1:2 with line > set terminal postscript > set output 'data.eps' > replot んで、これだとepsに出力されないっぽい? eps…

文字列配列のmalloc

c

よく使うけど、毎回間違えたりして死ぬのでメモ char **elem; int i; elem = (char**)malloc(sizeof(char*)*N); for(i=0;i

str2double

c

"123 456"って感じのデータをdoubleにする関数。書いて気づいた。小数点どうすんのって まぁいいか void str2double(char *str, double *x, double *y){ int i=0; *x = 0.0; *y = 0.0; while(str[i]!=' '){ *x = *x * 10; *x += str[i] - '0'; i++; } i++; w…

%02x

馬鹿すぎる ダチックプログラムはなるべくやめようとしてたのに…。無駄な分岐を削除して回ったので多少は処理がまともになったのかな…before if(k<16) fprintf(fd, "0%x ",k); else fprintf(fd, "%x ",k); aftar fprintf(fd, "%02x ",k); はい、馬鹿でしたね…

parity

parityのオンオフをチェックボックスで切り替えてみたしかし、 System::IO::Ports::Parity::Even; System::IO::Ports::Parity::Odd; System::IO::Ports::Parity::Mark; System::IO::Ports::Parity::Space; の選択くらいは出来るようにした方がいいのかなぁ… …

TCHARからchar

TCHAR str[10] = "aaa"; char cstr[10]; sprintf(cstr, "%s", str); 何回もググってるからいい加減ここに書いて覚えろと sprintf最強ですね。 - 2011.03.21 超絶勘違いっぽい コメントにあるとおり fprintfじゃなくてsprintfじゃね?

VBScriptでtwitterに発言

http://blogs.wankuma.com/mutaguchi/archive/2008/07/02/146863.aspxこんなに短く書けるんですね。 twitterBOTの敷居は意外と低い可能性が。

System::StringからInt32へ

色々探しても見つかりにくいところにあるので ここにも書けばきっと誰かの役に立つ int i; System::String^ str = "123"; i = Convert::ToInt32(str); 多分これでいける 以下参照URL http://msdn.microsoft.com/ja-jp/library/system.convert.toint32.aspx …

ISE11でPack I/O Registersの設定オプション

なんということでしょう…Pack I/O Registersの設定オプションがデフォルトでoffとなっていたまじ、こんな設定でつまづくとかやばい ISEを理解するのには一年じゃ無理です以下参照URL http://marsee101.blog19.fc2.com/blog-entry-1406.html http://nahitafu.…

今日のエラー

'System.InvalidOperationException' の初回例外が System.dll で発生しました。 'System.InvalidOperationException' のハンドルされていない例外が System.dll で発生しました。以下のようなプログラムで、 データの送信が終わったときに、 すぐにファイル…

serialPort->ReadByte()

シリアル通信を行う。テストとして、0x00から0xffまで送る受信側で以下のような初期化をして ... this->serialPort1->ReadBufferSize = 1024; ... serialPort1->PortName = "COM3"; //COM3 ポート使用 serialPort1->BaudRate = 460800; //460800bps serialPort…

twitterに発言するっぽいperl

- update.10.11.19 PerlをOAuth対応版に修正 OAuth認証については http://d.hatena.ne.jp/hab_kun/20101026/1288085670 を参考にしてみるとなんとかなるよなならないような - 引数を発言するプログラムを書いた CreateProcess(_T("perl"),_T("perl test.pl h…

シリアルポート

とっくに完成してたけど、書くの忘れてたボタン1を押したらポート開いてファイル開いて 受信したのをそのまま保存して 受信完了したらボタン2を押してポートとファイルを閉じる ファイルを閉じないと受信した最後のほうが消えて無くなる private: System::…