Hata's Perl Hut: 小数の四捨五入・切り捨てに関する都市伝説を斬る！
10 年以上、Perl を使っていますが、浮動小数点数を int() で整数にすれば、必ず小数点以下は切り捨てられるのかと思って、いつもそうしてきました。 しかし、これ、間違いでした…… orz 真相発覚の顛末 CPAN の方に、ごく少数のモジュールを公開しているのですが、テストのエラー報告を見ていると、どうもおかしい。 # Failed test 'daily quote' # at t/Quote.t line 69. # got: '2001-01-12 340 340 340 340 7800' # expected: '2001-01-12 340 341 340 340 7800' # Failed test 'daily quote' # at t/Quote.t line 69. # got: '2001-03-23 395 395 390 390 6240' # expe
よく使う関数 / 11 pack/unpack
よく使う関数 1.pack 2.unpack １１. pack (パック) / unpack (8 進→10 進) Perl の関数について説明します。 1.pack 配列またはリストの値をバイナリ構造にパックし、その構造を含んだ文字列を返します。 記述 例 pack(型1,.. ,文字1,...) 型は、値の順番と型を以下のように与えます。 後に数字をつけて繰り返し回数を指定できます。 A 空白がつめられたアスキ文字列 a ヌルがつめられたアスキ文字列 c signed char 型の値 C unsigned char 型の値 s signed short 型の値 S unsigned short 型の値 i signed int 型の値 I unsigned int 型の値 l signed long 型の値 L unsigned long 型の値 n "network" オーダーの
ラズベリーパイ2とperlを使って、LEDをランダムな時間間隔でチカチカさせる - Qiita
プログラムを作成 GPIOのvalueを 0<->1 と切り替えるだけの簡単なプログラムです。 切り替えはechoで、引数で指定したgpioのvlaueに書き込むことで対応。 あとはスリープの時間(切り替え時の待機時間)をランダムにしてやればOKです。 #!/user/local/bin/perl use strict; use warnings; use utf8; use Time::HiRes 'sleep'; use Math::Round; # # メイン処理 # sub main { # Lチカに利用するPIN番号が引数に指定されていない if (@ARGV == 0) { print "invalid argument. please assign gpio num.(ex. 18)"; return 1; } my $gpio = $ARGV[0]; # PIN設定 exe
｢Perl入学式の教科書｣を公開しました! : Perl入学式 公式ブログ
Perl入学式 公式ブログ プログラミング未経験者／Perl初心者を対象としたワークショップ『Perl入学式』のブログです。 一緒にプログラミングの楽しさを体感しましょう！ みなさまこんにちは, Perl入学式校長のpapixです. いきなりですが, Perl入学式は今年で4年目となりました. ここまでの3年間, 多くの方と一緒にPerlを学ぶことができていて, とても嬉しく思っています. その中で, Perl入学式の卒業生からよく頂く意見の1つが, ｢卒業後に使えるカリキュラムが欲しい｣というものです. Perl入学式で扱う内容は, プログラミングを学ぶために不可欠な環境構築からスタートし, Perlという言語を通して｢プログラミングに必要な考え方｣を学んでいくという, まさに｢基礎中の基礎｣といえる内容になっています. 最終回でMojoliciousを利用したWebアプリケーションの開
PerlでニコニコAPIを叩いてマイリストの動画をすべて保存 - せかいろぐ
PerlのLWP::UserAgentでニコニコAPIを叩いてみる。 2014-08-26 : 修正 ログインする https://secure.nicovideo.jp/secure/login?site=niconicoにメールアドレス・パスワードをPOSTします。以下必要なPOSTパラメータ。 mail_tel ログインに用いるメールアドレス password ログインに用いるパスワード マイリストから動画IDを取得 http://www.nicovideo.jp/mylist/<マイリストID>?rss=2.0にGETします。XML(RSS)が返ってくるので、パースして動画IDを取得します。XML::Simpleなんかを使うとカンタン。 動画情報を取得 http://ext.nicovideo.jp/api/getthumbinfo/<動画ID>にGETして動画情報(タイトルとかサ
Twitterでフォローしてる人全員をリストに追加するPerlスクリプト - tk4168の日記
を書いた。コンシューマーキーとかは各自で取得してください（適当） #!/usr/bin/perl # フォローしてる人全員を「all」という名前のリストに追加する # 事前に「all」リストを作成しておく必要あり use utf8; use strict; use warnings; use Net::Twitter; binmode STDOUT, ":encoding(cp932)"; #Windows環境 #use Data::Dumper; my $nt = Net::Twitter->new( traits => [qw/AutoCursor API::RESTv1_1 RetryOnError OAuth/], consumer_key => "", consumer_secret => "", ); my($access_token, $access_token_secret
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
XML::Simpleについて - Shogo Computing Laboratory
XML::Simple使ったらcould not find ParserDetails.iniエラー - masahilog