s.h.log: Net::Google::Calendarで予定一覧を取得する
CPANモジュールのNet::Google::Calendarを使うとGoogleカレンダーの情報に簡単にアクセスできる。 まずcpanでinstall Net::Google::Calendarという風にインストールする。 そしてこんな感じで、イベント一覧を最近更新された順に取得して表示できるuse strict; use warnings; use Net::Google::Calendar; my $ url = "your-google-calendar-api-url"; my $cal = Net::Google::Calendar->new( url => $url ); $cal->login('your-gmail-address@google.com', "your-password"); for ($cal->get_events()) { print $_-
CGI-Perl 基礎編 (その三) 標準ファイル I/O open、unlink、opendir、readdir - SAK Streets
CGI-Perl 基礎編 (その三) 標準ファイル I/O open、unlink、opendir、readdir ■open (ファイルオープン) $rcd = open(FILE, "path/filename"); | | |_ オープンモード省略 = シーケンシャル入力 | | ">path/filename" = シーケンシャル出力 | | "+>path/filename" = シーケンシャル入出力 | | ">>path/filename" = シーケンシャル追加出力 | |_ ファイルハンドル |_ オープン結果 1 (真) = 正常 その他 = エラー ■close (ファイルクローズ) close(FILE); |_ ファイルハンドル ■unlink (ファイル削除) $rcd = unlink("path/filename"); | |_ ファイル名 |_ 0 (偽)
【CGI・Perl】数値の値でソートする (Perl, sort)
CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー＆ペーストで使える便利集！ カテゴリー：ソート(並べ替え) リスト(配列) 数値の値でソートする (Perl, sort) 以下のようなコードを書くと、文字列として扱われてしまい、意図した結果にならない場合がある。 @array = ( 1, 2, 3, 4, 5, 10, 11, 12 ); foreach(sort @array){ print ; print "\n" } ○実行結果 1 10 11 12 2 3 4 5 これを回避するコードは次のようなものである。 @array = ( 1, 2, 3, 4, 5, 10, 11, 12 ); #-- 昇順 --# foreach(sort {$a <=> $b} @array){ print ; print "\n" } #
Perl 配列のハッシュ ハッシュの配列
５個のレコードを表すために「分類名」をkeyとするハッシュを考えます。 しかしこのハッシュは同じkeyを持つハッシュが複数存在する事になります。 この様な時に配列のハッシュを生成すると便利な場合が有ります。 以下は１行単位の各フィールドをkeyとする ハッシュへのリファレンスを返してくれる「fetchrow_hash」関数を使用した例です。 この関数はさまざまなRDB（RelationalDataBase）をPerlで使える様にするためのDBIというAPI（フリー）により提供されます。 （DBIに付いての詳細はこちら） use DBI; $dbh = DBI->connect($database, $username, $auth); $sql = "select * from animal;"; #animal テーブルの全フィールドを選択 $sth = $dbh->prepare($s
Perlについてハッシュの配列をソートしたい。
質問者 うむむ 投稿日 2004/11/28(日) 19:11:19 題名の通りなのですが、例えば @a = ( {'c' => "mixa",'time' => 1}, {'c' => "fox",'time' => 3}, {'c' => "miaa",'time' => 2} ); このようなハッシュの配列を、timeにてソートしたいのですが $a[0]{'time'} が 1 $a[1]{'time'} が 3 $a[2]{'time'} が 2 なのを $a[0]{'time'} が 1 $a[1]{'time'} が 2 $a[2]{'time'} が 3 として、c側もこれについてくる $a[0]{'c'} が mixa $a[1]{'c'} が miaa $a[2]{'c'} が fox このような結果になるソースを知りたいです。なるべくスマートに書ければ嬉しいです。 【習
daily dayflower - 半角←→全角変換，Unicode::Japanese に未公開機能が…
2008-10-21 追記 いまだに（ありがたいことですが）検索で飛んできたりブクマされたりというのがちょいちょいあるので，最新動向を書いておきます。 id:tokuhirom さんが Lingua::JA::Regular::Unicode という Pure Perl Module をリリースなさいました（→ http://d.hatena.ne.jp/tokuhirom/20081018/1224300947）。 あなたが作っているアプリで文字列まわりを Unicode::Japanese インスタンスですべて持ちたいわけでなければ（そして，たいていのばあい，持つ必要はないのですが），この Lingua::JA::Regular::Unicode を使うのがベターです。依存性もなく，とても軽量ですので。 2008-10-21 追記おわり ウェブアプリを作っていると，ユーザが入力した半角
演算子 - 2部 Perl言語仕様 - [SMART]
1.演算子の概要 演算子は、算術演算子に代表されるように、変数やリテラルなどの値に対して演算を行うための記号です。 演算子の中でも有名なのが、加算演算子や減算演算子などの算術演算子です。 Perl の組み込み演算子は、演算の対象となる値、『オペランド』の個数によって単数演算子、二項演算子、三項演算子に分類することができます。また、間値演算子か前置演算子か、数値、文字列、ファイルなど捜査対象によっても分類できます。ただし、これらの分類はプログラミングする上であまり重要ではなく、一つ一つの演算子を理解するためのものです。 用語 オペランド 演算の対象となる値。演算内容をあらわす記号は演算子と呼びます。例えば 10+X という式では、10 と X がオペランドで、+ がオペレータです。 演算子の優先順位 演算子には結合性と優先順位があります。 演算子の一覧 演算子 結合性 解説
MySQL講座 +++[smart]
サブルーチンの基本的な使い方 プログラム内で何回も同じ処理をするようなときは、その処理の部分を切り離してサブルーチンにしてしまうのがスマートなやり方です。そうすれば、何回も同じソースを書く必要がなくなるので、時間の節約にもなります。 サブルーチンの宣言 サブルーチンは sub で宣言します。 sub func; # サブルーチンの宣言 サブルーチンを宣言し、なおかつ定義するには次のようにします。サブルーチンの宣言と定義を同時に行うのが一般的です。 # サブルーチンの宣言と定義 sub func{ .... } サブルーチンを呼び出すには、アンパサンド( & ) をサブルーチン名の前につけて、以下のようにします。 &func(); サブルーチンはファイルのどの場所で宣言してもかまいませんし、呼び出し元と同じファイル内でなくても問題ありません。別ファイルにあるサブルーチンは、do、 re
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
