初歩の初歩～プログミング～@ ウィキ

Action Script

2009-10-11T08:41:07+09:00

#contents *インストール -[[ここ>http://clockmaker.jp/blog/2009/07/tutorial-install-flashdevelop-flex-sdk/]] -[[ここ>http://d.hatena.ne.jp/nacookan/20090603/1244091560]] *リファレンス [[ここ>http://livedocs.adobe.com/flash/9.0_jp/ActionScriptLangRefV3/]] *参考 [[ここ>http://www.project-nya.jp/modules/weblog/details.php?blog_id=541]]がすごい！！

メニュー

2009-10-05T10:49:16+09:00

**メニュー -[[Perl>http://www28.atwiki.jp/syohonosyoho/pages/18.html]] -[[Action Script]] -[[C++]] -[[コマンドプロンプト]] -[[メモ]] ---- **リンク -[[@wiki>>http://atwiki.jp]] -[[@wikiご利用ガイド>>http://atwiki.jp/guide/]] **他のサービス -[[無料ホームページ作成>>http://atpages.jp]] -[[無料ブログ作成>>http://atword.jp]] -[[2ch型掲示板レンタル>>http://atchs.jp]] -[[無料掲示板レンタル>>http://atbbs.jp]] -[[お絵かきレンタル>>http://atpaint.jp/]] -[[無料ソーシャルプロフ>>http://sns.atfb.jp/]] // リンクを張るには "[" 2つで文字列を括ります。 // ">" の左側に文字、右側にURLを記述するとリンクになります //**更新履歴 //#recent(20) &link_editmenu(text=ここを編集)

Perl

2009-10-05T00:38:41+09:00

#areaedit() &bold(){&size(16){perl}} #contents *install **install-PAR- exeファイルを作りたいので「perl exe」で検索 [[参考>http://supee.blog121.fc2.com/blog-entry-187.html]] の通り行うとuse Encodeもつかえた。（＾＾） [[ActivePerlの各Ver>http://downloads.activestate.com/ActivePerl/Windows/5.8/]] [[PARのVer>http://search.cpan.org/~smueller/PAR-0.992/]] 以下は試行錯誤の残骸 #region() -[[ここ>http://hamachiya.com/junk/memo_PAR.html]]と[[ここ>http://oldbar-takaki.seesaa.net/article/6245435.html]]をみてinstall --%%[[ここ>http://nabe.blog.abk.nu/par510]]はうまくいかない。PAR実行時にperl510.dllがなんたら%%どうやらuse Encode使うと出るエラーのよう -追記:なんだかWin32::GUIモジュールを使ったスクリプトがexe化した後実行エラーになる。（他のモジュールもいくつかアウト）そこでActivePerl5.10に乗り換え。なんか色々ごちゃごちゃして何やったか憶えてないけど、とりあえずWin32::GUIは動いた（しかしmixi_exportはperl510.dllがないと言われる） --やったこと ---MinGWをインストール。PATHにC:\MinGW\bin;追加。再起動。 ---PPM(GUI)でCompress::Raw::Zlibをupdate(pp実行時にCant loadと言われたので) ---PARは[[http://downloads.activestate.com/ActivePerl/Windows/]]をみて、Active Perlのverにあったものを --use Encodeが使えないのは不便なのでActivePerl再インストール。そしたらpp使えなくなった（涙 5.8.9入れたら使えた。でもuse Encodeは使えない #endregion() ***ppmでno missing error([[参考>http://miau.s9.xrea.com/blog/?itemid=1056]]) ppm search xxxx で出てきた数字を ppm install 数字 ***exe化コマンド（ｐｐ） >pp -o hoge.exe hoge.pl --cui非表示 >pp --gui -o hoge.exe hoge.pl --注意：exe化する際packegeをrequireするときは条件文の中ではしない　　　　するとlibに含まれない。ならuseにしてしまえばいいとも思う。 ***GUI [[ここ>http://oldbar-takaki.seesaa.net/article/6245435.html]]の通り行う。 THE GUI LOFTのページリンクだけ[[ここ>http://www.darserman.com/Perl/Loft/]]に変更 [[GUI TEST>http://perl-users.jp/articles/advent-calendar/2008/13.html#article-1]] #areaedit(end) *メモ #areaedit() ***とりあえず [[とほほのperl入門>http://www.tohoho-web.com/wwwperl.htm]] [[Perl基礎入門>http://www.kent-web.com/perl/]] [[Perl講座>http://www.rfs.jp/sb/perl/index.html]] ***日本語表示（[[参考>http://homepage2.nifty.com/ttoyoshima/Perl/Perl.htm]]）文頭で use utf8; binmode STDIN, ":encoding(cp932)"; binmode STDOUT, ":encoding(cp932)"; %%※binmodeはPARで作ったEXEがうまく動かない%% %%追記:useEncodeを行うとPARで出来たexeが動かない%% ただしＧＵＩ上ではこれはうまく動かないＧＵＩ -Labelは use utf8;を使わない。 -ListBoxでは decode('charaset',$string);　　　※入力時 print encode('charaset',$string); ※出力時 charasetはwin上ではcp932が多いように思う。が[[コマンドプロンプト]]でchcpで確認する。 [[ここ>http://d.hatena.ne.jp/h3x/20081119/1227027535]]の方がわかりやすいかも ****utf-8フラグについて [[ここ>http://www.yawaraya.net/wiki/index.php?Perl%20Encode]] ***split-第二引数に@は使えない。使うと要素数を返す。 @var=split(/nanika/,$list[i]) ***wait key $wait=;#STDINは省略可能 ***配列の要素数([[参考>http://www2u.biglobe.ne.jp/~MAS/perl/waza/anum.html]] # 最後の添字を取得(この場合は2。配列が空の場合は-1) $num = $#hoge; # 要素数を取得(この場合は3。配列が空の場合は0) $num = @hoge; ***print --変数の中身を出力するときは””（ダブルクォーテーション）で囲む print "@hoge" ----@hoge=(1,2)なら12と出力 --変数の要素数を出力するときは’’（シングルクォーテーション）で囲む print '@hoge' ----@hoge=(1,2)なら2と出力 --文字列を連結する時は「.」を使う print "$a"."$b" ***36進数＜＝＞１０進数　（[[参考>http://oshiete1.goo.ne.jp/qa4171320.html]]） #region() use strict; my $base_str = "0123456789abcdefghijklmnopqrstuvwxyz"; my $base_36 = convert_36(1234567); print "$base_36\n"; my $base_10 = convert_10($base_36); print "$base_10\n"; sub convert_36 { my $number = shift; my @work; while ($number > 0) { unshift @work, substr($base_str, $number % 36, 1); $number = int($number / 36); } return join('', @work); } sub convert_10 { my @work = reverse split //, shift; my $number; foreach my $idx (0 .. $#work) { $number += index($base_str, $work[$idx]) * (36 ** $idx); } return $number; } #endregion() ***コメントアウト（複数行）[[参考>http://www.site-cooler.com/tips/perl_comments.htm]] print "ここは実行されます。\n"; =pod ここはコメント行になります。ここもコメント行になります。 =cut print "ここも実行されます。\n"; ***論理演算子ストリングの比較に==は使えない。eqを使う。 ***ENDサブルーチン（スクリプト終了時に実行）[[参考>http://www.rfs.jp/sb/perl/04/01.html]] END { print "END!"; } ***useとrequireの違い [[ココ>http://tech.bayashi.net/pdmemo/use-require.html]] メモリの使用量が～とかあるけど、気にしないなら全部useでいいんじゃないだろうか？ ***重複値の削除 [[ここ>http://www2u.biglobe.ne.jp/~MAS/perl/waza/unique.html]] 簡単なのは my @data = qw(aa dd bb cc dd cc bb aa); my %uniq = map {$_ => 1} @data;　　※配列の要素をkeyとしてkeyの要素 my @data2_1 = keys %uniq;　　　　　を１とする（同じkeyは上書き？されて消える） ***マッチングー正規表現ー [[ここ>http://www.komonet.ne.jp/~perl/chap7.htm]]とか -数字のみの文字列抜き出し =~ m/^[0-9]+$/ **ファイル操作 -ファイルの日本語読み込み([[参考>http://osksn2.hep.sci.osaka-u.ac.jp/~taku/osx/perl/perl_utf.html]]) --読み込むファイルがUTF-8で書かれているなら、次のようにopenで指定する。 open(FH, "<:utf8", $filename); --読み込むファイルがshift-jisなど、UTF-8以外のコードで書かれているなら、次のようにencodingをopenで用いて指定する。 pen(FH, "<:encoding(shiftjis)", $filename); --行数を数えるファイル読み込み後$.に格納されている([[参考>http://dqn.sakusakutto.jp/2008/03/perl-3.html]]の中から最後のを参照。） open(FILE, 'hoge') or die; print $. . '行\n'; close(FILE) #areaedit(end) #areaedit(end) #areaedit() **GUI ***入門 -[[ここ>http://www.link.gr.jp/win32-gui-tips.html]]をみながら色々と -[[リファレンス1>http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=reference-packages]]　[[2>http://search.cpan.org/~robertmay/Win32-GUI-1.03/]]　[[3>http://cpansearch.perl.org/src/ACALPINI/Win32-GUI-0.0.490/docs/methods.html#BrowseForFolder_OPTIONS_]] -デモ（sample）-これが一番参考になるかも --コマンドプロンプトで~/Perl/site/lib/Win32/GUI/demosに移動（デフォルトの場合）　以下実行 >win32-gui-demos ***メモ nameを大文字から始めるとボタンのCheckが参照できずうまくいかない ***ファイルを開くダイアログ([[参考>http://aspn.activestate.com/ASPN/Mail/Message/276990]]) #region() use strict; use warnings; use utf8; use Win32::GUI(); my $file = "\0" . " " x 256; my $ret = Win32::GUI::GetOpenFileName( -title => "Win32::GUI::GetOpenFileName test", -file => "\0" . " " x 256, -filter => [ "Text documents (*.txt)" => "*.txt", "Perl stuff (*.pl, *.pm)" => "*.pl;*.pm", "All files", "*.*", ], ); if($ret) { print "GetOpenFileName returned: '$ret'\n"; } else { if(GUI::CommDlgExtendedError()) { print "ERROR. CommDlgExtendedError is: ", GUI::CommDlgExtendedError(), "\n"; } else { print "You cancelled.\n"; } } #endregion() ***Textfield -GetStringは使えず、Text()でGet＆Setができる #areaedit(end) #areaedit() **XML -XML::Simple:とりあえず[[ココ>http://www.ibm.com/developerworks/jp/xml/library/x-xmlperl1.html]]とか[[ココ>http://www.geocities.co.jp/SiliconValley-PaloAlto/2514/perlxml.html]]とか -XML::treePP:[[ココ>http://www.kawa.net/works/perl/treepp/treepp.html#usage-setget]] **デバッグモード -コマンドプロンプトで以下実行（[[参考>http://homepage3.nifty.com/hippo2000/perltips/perldbg.htm]]) >perl -d hoge.pl **Mechanize [[参考>http://oshiete1.goo.ne.jp/qa5218652.html]] ***文字化け対策 [[ここ>http://blog.livedoor.jp/sasata299/archives/51171092.html]] #areaedit(end)

C++

2009-09-22T13:47:00+09:00

#contents *install *GUI～はじめ～ [[ここ>http://brain.cc.kogakuin.ac.jp/~kanamaru/lecture/prog1/03-intro01_express.html]] **open file [[ここ>http://ameblo.jp/nana-2007-july/theme-10003711481.html]]

メモ

2009-09-18T14:00:11+09:00

メモ ***フォント変更メイリオがみやすい[[解説>http://jalusa.idns.jp/movie_db/xp_meiryo.html]]

XX

2009-09-18T13:53:50+09:00

#areaedit() &bold(){&size(16){perl}} #contents *install exeファイルを作りたいので「perl exe」で検索 [[ここ>http://hamachiya.com/junk/memo_PAR.html]]と[[ここ>http://oldbar-takaki.seesaa.net/article/6245435.html]]をみてinstall [[ここ>http://nabe.blog.abk.nu/par510]]はうまくいかない。PAR実行時にperl510.dllがなんたら追記:なんだかWin32::GUIモジュールを使ったスクリプトがexe化した後実行エラーになる。（他のモジュールもいくつかアウト）そこでActivePerl5.10に乗り換え。なんか色々ごちゃごちゃして何やったか憶えてないけど、とりあえずWin32::GUIは動いた（しかしmixi_exportはperl510.dllがないと言われる） --やったこと ---MinGWをインストール。PATHにC:\MinGW\bin;追加。再起動。 ---PPM(GUI)でCompress::Raw::Zlibをupdate(pp実行時にCant loadと言われたので) ***ppmでno missing error([[参考>http://miau.s9.xrea.com/blog/?itemid=1056]]) ppm search xxxx で出てきた数字を ppm install 数字 ***exe化コマンド（ｐｐ） >pp -o hoge.exe hoge.pl --cui非表示 >pp --gui -o hoge.exe hoge.pl　 ***GUI [[ここ>http://oldbar-takaki.seesaa.net/article/6245435.html]]の通り行う。 THE GUI LOFTのページリンクだけ[[ここ>http://www.darserman.com/Perl/Loft/]]に変更 [[GUI TEST>http://perl-users.jp/articles/advent-calendar/2008/13.html#article-1]] *メモ ***とりあえず [[とほほのperl入門>http://www.tohoho-web.com/wwwperl.htm]] [[Perl基礎入門>http://www.kent-web.com/perl/]] [[Perl講座>http://www.rfs.jp/sb/perl/index.html]] ***日本語表示（[[参考>http://homepage2.nifty.com/ttoyoshima/Perl/Perl.htm]]）文頭で use utf8; binmode STDIN, ":encoding(cp932)"; binmode STDOUT, ":encoding(cp932)"; ※binmodeはPARで作ったEXEがうまく動かない追記：use Encodeを行うとPARで出来たexeが動かない。 ***split-第二引数に@は使えない。使うと要素数を返す。 @var=split(/nanika/,$list[i]) ***wait key $wait=;#STDINは省略可能 ***配列の要素数([[参考>http://www2u.biglobe.ne.jp/~MAS/perl/waza/anum.html]] # 最後の添字を取得(この場合は2。配列が空の場合は-1) $num = $#hoge; # 要素数を取得(この場合は3。配列が空の場合は0) $num = @hoge; ***print --変数の中身を出力するときは””（ダブルクォーテーション）で囲む print "@hoge" ----@hoge=(1,2)なら12と出力 --変数の要素数を出力するときは’’（シングルクォーテーション）で囲む print '@hoge' ----@hoge=(1,2)なら2と出力 --文字列を連結する時は「.」を使う print "$a"."$b" ***36進数＜＝＞１０進数　（[[参考>http://oshiete1.goo.ne.jp/qa4171320.html]]） #region() use strict; my $base_str = "0123456789abcdefghijklmnopqrstuvwxyz"; my $base_36 = convert_36(1234567); print "$base_36\n"; my $base_10 = convert_10($base_36); print "$base_10\n"; sub convert_36 { my $number = shift; my @work; while ($number > 0) { unshift @work, substr($base_str, $number % 36, 1); $number = int($number / 36); } return join('', @work); } sub convert_10 { my @work = reverse split //, shift; my $number; foreach my $idx (0 .. $#work) { $number += index($base_str, $work[$idx]) * (36 ** $idx); } return $number; } #endregion() ***コメントアウト（複数行）[[参考>http://www.site-cooler.com/tips/perl_comments.htm]] print "ここは実行されます。\n"; =pod ここはコメント行になります。ここもコメント行になります。 =cut print "ここも実行されます。\n"; ***論理演算子ストリングの比較に==は使えない。eqを使う。 ***ENDサブルーチン（スクリプト終了時に実行）[[参考>http://www.rfs.jp/sb/perl/04/01.html]] END { print "END!"; } **ファイル操作 -ファイルの日本語読み込み([[参考>http://osksn2.hep.sci.osaka-u.ac.jp/~taku/osx/perl/perl_utf.html]]) --読み込むファイルがUTF-8で書かれているなら、次のようにopenで指定する。 open(FH, "<:utf8", $filename); --読み込むファイルがshift-jisなど、UTF-8以外のコードで書かれているなら、次のようにencodingをopenで用いて指定する。 pen(FH, "<:encoding(shiftjis)", $filename); --行数を数えるファイル読み込み後$.に格納されている([[参考>http://dqn.sakusakutto.jp/2008/03/perl-3.html]]の中から最後のを参照。） open(FILE, 'hoge') or die; print $. . '行\n'; close(FILE) **GUI ***入門 -[[ここ>http://www.link.gr.jp/win32-gui-tips.html]]をみながら色々と -[[リファレンス>http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=reference-packages]] -デモ（sample）-これが一番参考になるかも --コマンドプロンプトで~/Perl/site/lib/Win32/GUI/demosに移動（デフォルトの場合）　以下実行 >win32-gui-demos ***ファイルを開くダイアログ([[参考>http://aspn.activestate.com/ASPN/Mail/Message/276990]]) #region() use strict; use warnings; use utf8; use Win32::GUI(); my $file = "\0" . " " x 256; my $ret = Win32::GUI::GetOpenFileName( -title => "Win32::GUI::GetOpenFileName test", -file => "\0" . " " x 256, -filter => [ "Text documents (*.txt)" => "*.txt", "Perl stuff (*.pl, *.pm)" => "*.pl;*.pm", "All files", "*.*", ], ); if($ret) { print "GetOpenFileName returned: '$ret'\n"; } else { if(GUI::CommDlgExtendedError()) { print "ERROR. CommDlgExtendedError is: ", GUI::CommDlgExtendedError(), "\n"; } else { print "You cancelled.\n"; } } #endregion() **デバッグモード -コマンドプロンプトで以下実行（[[参考>http://homepage3.nifty.com/hippo2000/perltips/perldbg.htm]]) >perl -d hoge.pl #areaedit(end)

コマンドプロンプト

2009-09-18T10:29:14+09:00

**コマンド一覧 [[ここ>http://hisa-net.ddo.jp/php/dos/dos_command.php]] **batファイル [[とりあえず>http://www.ne.jp/asahi/hishidama/home/tech/windows/bat.html]] **デフォルトのカレントディレクトリ変更 -ショートカット作成→右クリック作業フォルダにディレクトリパス記入

test

2009-09-14T17:05:18+09:00

[[aats>strst]]

トップページ

2009-09-14T16:07:32+09:00

#contents

プラグイン/コメント

2009-09-14T15:48:06+09:00

* コメントプラグイン @wikiのwikiモードでは #comment() と入力することでコメントフォームを簡単に作成することができます。詳しくはこちらをご覧ください。＝＞http://atwiki.jp/guide/17_60_ja.html ----- たとえば、#comment() と入力すると以下のように表示されます。 #comment