以下は Perl 5.8.8 のソースを元に記述しました。Perl 5.10 でもそう変わってはいないと思いますが，結構内部が変更されているので違うかもしれません。大まかには同じだと思います。 イントロダクション Perl でのファイルハンドルは内部的には [http://search.cpan.org/perldoc?IO::Handle:title=IO::Handle] オブジェクトとして保持されています。そのような記述は perl5004delta くらいでしか見つかりませんでした。ラクダ本にもなかったような。 Internal change: FileHandle class based on IO::* classes File handles are now stored internally as type IO::Handle. The FileHandle module
Landscape トップページ | < 前の日 2002-10-24 2002-11-01 次の日 2002-11-06 > Landscape - エンジニアのメモ 2002-11-01 my 宣言とレキシカル (lexical) 変数 当サイト内を Google 検索できます * my 宣言とレキシカル (lexical) 変数この記事の直リンクURL: Permlink | この記事が属するカテゴリ: [Perl] おさらい。my は ブレース { } で囲まれたブロックに、変数のスコープを限定する。ただし、ブロック内で呼び出したサブルーチンはスコープ外。ブロック内で呼び出したサブルーチン内もスコープに入れたければ、local を使う。 以下のコードを実行すると、スコープの外なので何も表示されない。 use strict; すると、$str の所属パッケージ名が必要、というエラーが
作業内容 ルンバみたいな自動で送られてくる棚に商品をバーコードでスキャンして入れるだけ ノルマは１日3000件 拘束時間11時間(勤務時間10時間プラス休憩1時間) 時給1050円 なんj民にオススメ
YouTube API利用コードをPerlモジュール化してみた 「ゆーすけべー日記: Perl から YouTube の新API を使って動画をアップロードする」で公開されていたコードをほとんどそのまま利用させてもらってモジュールを作ってみた。 OO化してもあまり意味無さそうなので単にモジュール化しただけ。 個人的事情で IO::All を使っていた部分は IO::File を使うようにダサ方向に変更させてもらいました。すんません。 オリジナルのコードにライセンスは明記されていなかったのだけど、このコードはオリジナルのコードに準じるという事にします。 追記: 時間を置いてトラックバックpingを2回送ってみたが、反映されないみたい package Net_YouTube; use strict; use warnings; use LWP::UserAgent; use HTTP::Req
The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending. use strict; use warnings; package pQuery; our $VERSION = '0.24'; use pQuery::DOM; use Carp; use HTML::TreeBuilder(); use base 'Exporter'; our $document; *pQuery = \$document; our @EXPORT = qw(pQuery $pQuery PQUERY); my $my = {}; my $lwp_user_agent; my $quick
Now, next, and beyond: Tracking need-to-know trends at the intersection of business and technology AI/ML Few technologies have the potential to change the nature of work and how we live as artificial intelligence (AI) and machine learning (ML). Future of the Firm Everything from new organizational structures and payment schemes to new expectations, skills, and tools will shape the future of the fi
2008/02/20 Linuxの標準化を推進するLinuxファウンデーションは2月18日、標準仕様の最新版「Linux Standard Base 3.2」（LSB3.2）を発表した。LSB3.2では新たに、PerlやPythonといったスクリプト言語を含むほか、プリントシステムやマルチメディア関連のプロジェクトを取り入れている。 Linuxではディストリビューションごとに、インストールされているコマンドやライブラリ、ディレクトリ構造、デスクトップ環境が異なる。このためISVにとって自社開発のアプリケーションを多くのディストリビューションに対応させることは難しい。LSBは、こうした違いのあるLinux同士で互換性を向上する標準仕様を定めるもので、これまでにDebian GNU/Linux、Mandriva Linux、Novell SUSE Linux、Red Hat Linux、Ubu
use utf8している時のlengthは文字数を数えてしまうけど、それ以外のときは、バイト数を数えるそうだ。ところで、以下のようにしたらutf8のバイト数が取れるんじゃないかと思うんだけど、あまりutf8文字列のバイト数に需要がないのか、ググっても例が出てこない。 何か見おとしているのかもしれないな。 use utf8; my $bytes = length unpack('a*',$utf8_str); use utf8での文字列のバイト数 これ、僕も昔取得方法わかんなくて困ったことがある。 ってことで啓蒙活動しとく。 bytes::lengthを使います。 use utf8; require bytes; my $bytes = bytes::length $utf8_str; 「require bytes」が大事ね「require bytes」が。もし「use bytes」しちゃっ
一行目がキーで、それ以降がデータのファイルを想定！ このコードがかっこいい。id:hideden に教えてもらった。 Thanks! @row{ @fields } = split("\t" , $line ); サンプル use strict; use warnings; use Data::Dumper; my $tab = "\t"; my $DATA =<<__TAB__; id${tab}message${tab}status 1${tab}test1${tab}disable 2${tab}test2${tab}enable 3${tab}test3${tab}disable __TAB__ my $is_first_line = 1; my @fields = (); my @data = split("\n" , $DATA ); my @nice_format_data
Web::Scraperを使って、物件一覧をGoogle Mapsにマッピング : cotalog の記事ですが、住所を取得するところはかなりあやしいというか、てきとーな正規表現でごまかしていました。 はてブのコメントでjmalaさんに教えてもらった、 住所抽出モジュールをCodeReposにもってきた - Yappo::Hatena::Diaryを早速チェックアウトして利用してみることに。 2006/10/20 Shibuya.pm tech talk #7 Geography::AddressExtract::Japan - Yappoも合わせて読んでみたのですが、凄いですよこのモジュールは。 try.pl #!/usr/local/bin/perl use strict; use Geography::AddressExtract::Japan; use encoding "utf8
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く