Site Cooler NZ | Points to Note When Shopping for a Washing Machine
Points to Note When Shopping for a Washing Machine There are different washing machines brands in New Zealand. When shopping, therefore, you need to ensure that first, you get a quality machine; a machine that will last through many years without breaking down. You check product warranties and reviews when shopping to ensure a machine is a good quality. The material of the drum can be enamel, plas
Wide character in print at ...
[Perl] Wide character in print atというエラーはUTF-8フラグが付いた文字列をprintしようとしているからである。なのでUTF-8フラグを取り外してからprintすればエラーがでなくなります。UTF-8フラグが付いているかどうかはutf8::is_utf8を使用すればよい。 #UTF8フラグが付いているかの確認 utf8::is_utf8では実際の文字列がUTF-8かどうかではなく、あくまでフラグがついているかどうかを確認します。そのため、UTF-8の文字列もフラグが付いていなければ上記の出力はno flagとなります。またutf8::is_utf8はuseしなくても使用できる。useすると全然違う意味あいになるので注意。 UTF-8フラグが付いていたら、encodeを使用してフラグをはずします。以下の例では$stringをutf-8に変換して出力します
Perl Tips | Perl で、ssh でリモートのサーバにアクセスしてファイルをアップロード（SCP）する方法 (Net::SSH2)
バックアップのためにリモートのサーバにファイルをコピー（アップロード）したい。 そんな欲求が私の中に生まれた。Linux ではファイルを ssh でコピーするのに scp というコマンドがあるので、早速試してみたのは Net::SCP という Perl のモジュールなのだが、なぜかこのモジュールのメソッドにはパスワードを指定するものがない。ホスト名とユーザー名しか指定しないのだ。ではパスワードはどこにいった？ Net::SCP に書いてあるように、どうやら ssh の手動コマンドのようにユーザー名とパスワードを指定するのではなく、パスワードは ssh-keygen -t rsa または dsa として、 できた公開鍵をリモートサーバの ~/.ssh/authorized_key というところに置く ことによって、セキュリティを高めるとともにパスワードが要らない、ということらしいのだ。うーん
1秒以下の時間計測 - 似非プログラマ備忘録(凍結中)
Perlで処理時間を計測する用がありました。 で、1秒単位はtimeで出来る。が、1秒以下は？ って事で悩んだのでメモ。 Time::HiResモジュールのgettimeofdayを使えば出来る事が判明！ 以下のようにすると、秒とマイクロ秒が取得できる。 use Time::HiRes qw(gettimeofday); my ($sec, $microsec) = gettimeofday; printf "%d %d", $sec, $microsec; 一応、実行結果↓*1 1207140957 140838 で、かなり無理やりな感が否めない処理時間計測は下記。 use Time::HiRes qw(gettimeofday); my ($sec, $microsec) = gettimeofday; $microsec = sprintf("%06d", $microsec); m
EmacsでPerl開発する上で必須な設定 #2 - flymake
Emacs22から標準添付されているflymakeが超便利です。flymakeは、動的にシンタックスチェックを行ってくれるelispで、typo等によるミスが、これでかなり減ること受け合い。以下の設定には、set-perl5lib.elが必要なので、あらかじめload-pathの通った場所にインストールしておく必要があります。 http://svn.coderepos.org/share/lang/elisp/set-perl5lib/set-perl5lib.el 以下、設定。 ;; flymake (Emacs22から標準添付されている) (require 'flymake) ;; set-perl5lib ;; 開いたスクリプトのパスに応じて、@INCにlibを追加してくれる ;; 以下からダウンロードする必要あり ;; http://svn.coderepos.org/share/
僕のflymake-perl周りの設定晒し最終版（今現在） - taiyoh独言
(require 'flymake) (require 'set-perl5lib) (defadvice flymake-report-status (before flymake-quite-report-status (e-w &optional status)) (if (not e-w) (progn (flymake-mode 0) (flymake-log 0 "switched OFF Flymake mode due to unknown fatal status (maybe tramp is running)")))) (ad-activate 'flymake-report-status) ;; エラーをミニバッファに表示 ;; http://d.hatena.ne.jp/xcezx/20080314/1205475020 (defun credmp/flymake
File::Remote
NAME File::Remote - Read/write/edit remote files transparently SYNOPSIS # # Two ways to use File::Remote # # First, the function-based style. Here, we can use the # special :replace tag to overload Perl builtins! # use File::Remote qw(:replace); # special :replace tag # read from a remote file open(REMOTE, "host:/remote/file") or die $!; print while (<REMOTE>); close(REMOTE); # writing a local fil
モジュールのインストール(UNIX版) - 8部 インストールと設定 - [SMART]
簡単なCPANモジュールのインストール方法 Perl には、Perlコードをユニット単位で再利用可能にするためのモジュールという概念があります。例えば、メールを送信したりHTMLを出力するなどといった機能は何度も使いますから、そのたびに書き直したりコピーするのはめんどうですし、時間の無駄です。Perlのモジュールを利用すれば、プログラムからモジュールを呼び出すだけでメール送信機能やHTML出力機能など、そのほか様々な機能が利用できるようになっています。 モジュールは、通常は拡張子が .pm となっていて、それをコードの中から呼び出すことによりそのモジュールの機能を利用できるようになっています。モジュールを使えば、面倒な作業をショートカットでき、メール送信なんかのちょっと難しい処理も簡単にできるようになります。 自分でモジュールを製作しなくても、CPANサイトには世界中のプログラマが作ったモ
File::Remote - リモートのファイルを透過的に読み込み/書き込み/編集する - perldoc.jp
名前¶ File::Remote - リモートのファイルを透過的に読み込み/書き込み/編集する 概要¶ # # File::Remoteの2つの使い方 # # 第一に関数ベースのスタイル。ここで特別なワザを使うことが # できます : Perl組込関数を上書きするためのreplaceタグ # use File::Remote qw(:replace); # 特別なワザ :replaceタグ # リモートのファイルから読み込む open(REMOTE, "host:/remote/file") or die $!; print while (<REMOTE>); close(REMOTE); # ローカルなファイルに書き込みもうまくいきます! open(LOCAL, ">>/local/file"); print LOCAL "This is a new line.\n"; close(LO
Perlメモ
複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに
Ｐｅｒｌで２進数＜－＞１６進数の相互変換
[上に] [前に] [次に] やま [E-Mail] 1998/12/12(土) 03:39:23 しょーもないことですいません。 Ｐｅｒｌで２進数＜－＞１６進数の相互変換を行う関数はあるのでしょうか。自分なりに調べてみたのですが見あたらなかったもので。 B-Cus 1998/12/13(日) 02:39:03 例えばこんな感じ。正しく動く保証はありません。 16進←→10進はsprintfやhexで。 $num=255; $digit="11111111"; printf "%d(10) = %x(16) = %s(2)\n",$num,$num,&dec2bin($num); printf "%s(2) = %x(16) = %s(10)\n",$digit,&bin2dec($digit),&bin2dec($digit); sub dec2bin($){ local($_) =
Perl の数値変換
Last Updated: 2002/03/26 Perl で、16進文字列、10進整数、2進文字列、バイナリー文字列の相互変換を行うための、スクリプトメモです。 特に断っていない限り、Perl 5.001 以上で動作します。 目次 16進文字列からの変換 10進整数からの変換 2進文字列からの変換 バイナリー文字列からの変換 16進文字列→10進整数への変換 hex() 関数は、16進文字列を整数値に、手軽に変換できます。 $num10 = hex("4A"); # $num10 には 74 が入る $num10 = hex("FFFFFF"); # $num10 には 16777215 が入る 余談ですが、数値リテラル中では 0x に続けて 16 進数で記述することで、数値を表すことができます。 $num10 = 0x4A; # 74 $num10 = 0xFFFFFF; # 1677
Perl スクリプトでのコマンドラインオプション処理 Getopt::Long
公開 2006年8月25日、 更新 2009年1月17日 Perl でコマンドラインオプションを処理するときの覚え書き。基本的ないし実用的な事項のみで、中級以上のトピックはばっさり省いています。Perl ドキュメントをもとに作成しました。 1. 基礎知識 オプション名の大文字小文字は区別されない。 短いオプション名（例: -a）は長いオプション名（例: --all）から自動的に作られる。 オプションとして処理されなかったコマンドライン引数（ファイル名など）は @ARGV に残る。 2. GetOptions 関数 コマンドラインオプションを処理するには Getopt::Long モジュールの GetOptions 関数を使う。 use Getopt::Long; 以下のコード例では use Getopt::Long; は省略している。 2.1. 単独で指定するオプション my $opt_a
SoC digital design/verification note Work-Service-Verif-Driver/VIP
ＳoＣのデジタル設計検証、また仕事で結果を出し家庭で楽しむため、自分ができる上手いやり方を創り磨くためのメモ bit recovered_clock = 0; initial begin : recclk int unsigned div = 10; bit reverse = 0; int avarage = 10; bit simtime_update = 0; int unsigned simtime[2]; int unsigned simtime_diff; int unsigned simtime_div_half = 0; int unsigned simtime_div_half_queue[$]; int cycle; bit error = 0; forever begin cycle = 0; if (simtime_div_half != 0) begin fork
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
移転しました
JoeのWebページ
Perlで予約語プログラミング
Perlでディレクトリの絶対パスを取得する方法は？…
The Comprehensive Perl Archive Network - www.cpan.org
http://www5b.biglobe.ne.jp/~sgi/perl/reserve.html