Perlの食えない事情 - 演算子編 - アリ
Perlの食えない事情 より おっと、そうです、Perlには演算子が多すぎるのでした。せっかくの機会なので、Perlの演算子を紹介します。 ビーナス演算子: 0+, +0 数値として評価してくれます。意外とよく見かけますね。 なぜこの演算子を使う必要があるのかというと、Perlは文字列と数値を明確に区別できないからです。scalarを文字列として解釈するならば文字列として、 print 0+ '10'; #=> 10 print 0+ '123b'; #=> 123 print '1.2e3' +0; #=> 1200 print [] +0; #=> 4303367864 ちなみに、文字列として評価するときにはこのようにするとかっこいいと言われています。 $obj.q(); 一見メソッド呼び出しのように見えますが $obj . ''; と等価です。 ベビーカー演算子: @{[ ]} 文字
Perlで写真のexif情報取得 - goryugo
Image::ExifToolを使う http://search.cpan.org/~exiftool/Image-ExifTool/lib/Image/ExifTool.pod exif情報を全部表示させてみる #!/usr/bin/perl use strict; use warnings; use Image::ExifTool; my $file = "./image.jpg"; my $exifTool = new Image::ExifTool; my $info = $exifTool->ImageInfo($file); foreach (sort keys %$info) { print "$_ => $$info{$_}\n"; } この辺りを使いそう my $exifTool = new Image::ExifTool; #width height取得 $info =
簡単！たった１３行のコードでHTML取得＆解析をするPerlスクリプト - DQNEO起業日記
１３行のコードで、Yahoo!Japanのトピックス一覧を取得する！ PerlでHTML取得・解析したいときはLWP::UserAgentとHTML::TreeBuilderというのを使うと簡単にできます。 LWP::UserAgentを使うと、Webページの取得ができます。 HTML::TreeBuilderを使うと、HTMLのDOM解析ができます。 この２つのモジュールを使って、Yahoo!Japanのトピックス一覧を取得してみましょう。 コメント行と空行を除くとたったの１３行です。 use strict; use warnings; use LWP::UserAgent; use HTML::TreeBuilder; # urlを指定する my $url = 'http://www.yahoo.co.jp'; # IE8のフリをする my $user_agent = "Mozilla
Unicode対応 JIS X 0208 文字コード表
Unicode対応 JIS X 0208 文字コード一覧 JIS X 0208 の区点番号、JISコード、シフトJISコード、EUCコード、Unicode(UTF-8, UTF-16)の文字コード対応一覧です。 文字コードとその文字を順に出力しているだけですので、表示される文字はフォントによって決まります。 01区～08区 JIS非漢字（各種記号、英数字、かな） 13区～13区 NEC特殊文字（機種依存） 16区～47区 JIS第1水準漢字 48区～84区 JIS第2水準漢字 文字コードについてのページや、文字コード一覧についての説明もあります。 JIS X 0208 JIS非漢字 文字コード表 区 点 JIS SJIS EUC UTF-8 UTF-16 字 01 01 2121 8140 A1A1 E38080 3000 01 02 2122 8141 A1A2 E38081 3001
WindowsのUTF-16出力で文字化けが発生する - Perl
多くの方がWindows上でPerlを使うさいにActivePerlを使用していると思います。私もその一人ですがちょっと前大きな問題に直面しました。 「UTF-16出力すると文字化けが発生する！」 そうなんです。過去の記事で日本語の扱いについて紹介しました。じつは、あれらの設定でMac OS X 等で処理しているぶんには問題ないのですがWindows上でActivePerlを使って出力すると特定の文字が化けてしまいます。 特定の文字というのは「上」等の文字コードの中に「0A」なんていうバイナリーデータを含んでいる文字です。 use utf8; binmode STDOUT, ":encoding(cp932)"; binmode STDERR, ":encoding(cp932)"; binmode STDIN, ":encoding(cp932)"; #-書込先ファイルの文字コードを指定
Win32::GuiTest で Windows の GUI アプリをハックしよう
基本的な書き方 use strict; use warnings; use utf8; # ↑ Perl ハッカーに DIS られなくなるおまじない # Win32::GuiTest を使うおまじない use Win32::GuiTest qw(:ALL); # 日本語を使えるようにするおまじない UnicodeSemantics(1); # ここで Win32::GuiTest を使う マウスを動かす use strict; use warnings; use utf8; use Win32::GuiTest qw(:ALL); # 小数点もいけちゃう sleep 関数 use Time::HiRes qw(sleep); UnicodeSemantics(1); for (my $i = 0; $i < 500; $i++) { # 10 ms 待つ sleep(0.01); # マウ
404 Blog Not Found - creativeよりuseful
2007年06月16日17:00 カテゴリArt creativeよりuseful 玉石混淆ぶりに笑いつつ、推敲してみようかなと思って改めて気がついた事。 クリエイティブになる6つの方法 | P O P * P O P いつでも紙とペンを持ち歩こう 質問しよう！ 本を読もう！ 新しいことをやってみよう！ 右脳と左脳の両方を使おう 脳内会話をしよう！ Creativityより大切なもの、それはusefulness。 誰でもcreativeになれるが、誰でもusefulになれるわけではない。そして私自身も含めて、人はusefulなものにしか代価を支払わない。「頭がいいのに成功できない」ただ一つの充分な理由が、これ。いくら頭のいい解決法でも、他者がそれを使えなければ、それは文字通り「使えない」のだ。 「クリエイティブ」に対する要求が年々高まっているのは、日本だけの話ではない。下手すると「クリエイ
標準入力をWindowsのクリップボードへ - 結城浩の日記
目次 2006年12月31日 - 年越しそば / 2006年の大晦日 / 2006年12月30日 - 本を書く / 本を書く / キリスト教の洗礼を受けた方からのメール / 2006年12月29日 - 夜中の0時ころまでIRCでおしゃべりしましょう→終了 / 実家 / 2006年12月28日 - 本を書く / 本を書く / 2006年12月27日 - 再校読み合わせの後で / 2006年12月26日 - 再校読み合わせ / 再校 / トドちゃん / 2006年12月25日 - 再校 / 日経ソフトウエアに「クッキー」の記事を書きました / よかった探しリース、新規参加は今日までです / 原稿 / 原稿 / 2006年12月24日 - 再校 / クリスマスイブ / 2006年12月23日 - 再校 / イブ礼拝 / 原稿 / ジョーク / 再校 / 原稿 / 2006年12月22日 - 再校
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
