![C84にて「雅なPerl入門」という本を頒布します - Subvoice](https://cdn-ak-scissors.b.st-hatena.com/image/square/ce9ba973f0519c0414e97fe1db47bf8bd8005cce/height=288;version=1;width=512/http%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fk%2Fkaz_hiramatsu%2F20130807%2F20130807130256.jpg)
2013-06-29 第2回 #perl入学式in東京 に参加した話 id:papixが主催するPerl入学式in東京#2に参加した。会場は弊社。今回は標準入力とか配列、for文などカジュアルな内容だったけど、新たに知ったことが多くてびっくりした。 例えば、三項演算子は初めて書いたし、 $result = abs($ans - $input) あとfor文の課題を書いてる時に制御変数を使う使わないでサポーターの人たちが話しているのを聞いて勉強になった。 後者については、僕は最初に for(1..100){ push @array, $_; } って特殊変数を使って書いてて、隣の人と話す過程で for my $tmp (1..100){ push @array, $tmp; } に書き換えたのを見たゆーすけべーさんに「$tmp」は良くないと言われて、色々質問していたらサポーターの人たちが
この講義の目的 明日以降、Perlの言語自体にはまらない 今日、いろいろやって、なるべくはまってください 疑問があったらどんどん質問してください 目次 Perlプログラミング勘所 Perlによるオブジェクト指向プログラミング テストを書こう ヒント 課題について Perlプログラミング勘所 質問 Perlでプログラミングをしたことがありますか? はじめに 事前課題 http://github.com/hakobe/Sorter 前提 はじめてのPerl、続はじめてのPerlに目を通している 一度はPerlでオブジェクト指向プログラミングしたことがある 事前課題でやっているはず Perlの良いところ CPAN やりたいことはすでにモジュール化されてる それCPANでできるよ 表現力が高い TMTOWTDI (やりかたはいくつもあるよ!) 実際に使われてる はてな/DeNA/NHN/mixi
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
ActivePerl (Windows版) には DynaLoader が付属しているので、今日からすぐに DynaLoader::dl_install_xsub を利用したプログラミングが出来ます。 簡単なメッセージボックスを表示するPerlプログラムは以下になります。 #!/usr/bin/perl use DynaLoader; sub GetProcAddress { my ($DLL, $API) = @_; my $path = "$ENV{SystemRoot}\\system32\\$DLL"; my $libref = DynaLoader::dl_load_file($path); pack "L", DynaLoader::dl_find_symbol($libref, $API); } my $x86 = "" . "h\0\0\0\0" . "h" . pack(
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
ActivePerlでNet::Twitterモジュールを使用してWindowsのコマンドラインからTwitterを更新するPerlスクリプトです。 準備 C:\work> ppm install Net::Twitter (Net::Twitterモジュールをインストール)スクリプト(tw.pl) #!/usr/bin/perl use strict; use warnings; use Encode; use YAML::Syck; use Net::Twitter; my $yaml = 'tw.yaml'; my $conf = YAML::Syck::LoadFile($yaml) or die qq{$yaml:$!\n}; my $status = $ARGV[0] or die qq{$0 message (in $conf->{encoding})\n}; $status
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く