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
replacecjkfonts，cjkps2pdf (旧replacejfonts, jps2pdf, replacekochi)
gs-cjkの成果が取り込まれたgnu-gs-7.0xや，より新しいafpl-gs-8.xxでは， CIDフォントを埋め込んだpdfを生成することができます．欧文も含め，未だに 処理するpsによってはビットマップフォントになってしまう場合もありますが， かなり`綺麗な'pdfを作れるようになったことは確かです． 後はAcrobat Readerが代替可能なフォントを埋め込まないようにすることがで きればよいのですが，gsを直接修正するのは大変なので，とりあえず一旦埋め 込まれたCIDフォントを置き換えることで実現しようというのが，このページ の目的です． 以前に公開していたスクリプトでは，日本語のみに対応した処理になっていま したが，gs-cjkプロジェクトの山田さんがCJKに対応した replacecjkfonts.plというスクリプトを提供してくださいました．これに伴い， 各スクリプト
cperl-modeにanythingを使った補完機能を追加するperl-completion.elをcodereposにコミットしました - IMAKADO::BLOG
これはなに？ cperl-mode向けのマイナーモードです。 useしているメソッド、インストールされているモジュール、組み込み変数,関数、他のperlバッファの関数,変数、バッファのdabbrev候補などを補完したりperldocを引いたりする動作をanythingのUIで実行することができます。 インストール 以下から最新版をダウンロードできます。 http://svn.coderepos.org/share/lang/elisp/perl-completion/trunk/perl-completion.el ロードパスが通った場所に置いてcperl-modeのhookでマイナーモードをonにしてください、以下、設定サンプルです。 (add-hook 'cperl-mode-hook (lambda () (require 'perl-completion) (perl-comple
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サイトには世界中のプログラマが作ったモ
![モジュールのインストール(UNIX版) - 8部 インストールと設定 - [SMART]](https://cdn-ak-scissors.b.st-hatena.com/image/square/efeb6493234f33406d242c048873a805fca99c63/height=288;version=1;width=512/https%3A%2F%2Frfs.jp%2Fwp-content%2Fthemes%2Fsmart%2Fogpimage.png)
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 のよう に後ろに
★★★CGI-Perl 基礎編 (その八) 正規表現、マッチパターン、置換演算子、変換演算子 - SAK Streets
CGI-Perl 基礎編 (その八) 正規表現、マッチパターン、置換演算子、変換演算子 ■正規表現 ・過去扱ってきた言語に正規表現などと言うものは存在しなかった。 上手く使うと非常に便利である。(パターンマッチ、パターンマッチング) 以下、簡単にまとめておく。 ■マッチパターン演算子 i 大文字、小文字の区別なし s 単一行として処理 (^、$ は、\n を無視) m 複数行として処理 (^、$ は、行先頭、行末尾) x 空白を無視、# をコメント処理 ■メタ文字 . 改行を除く任意の 1 文字 * 0 回以上のパターン繰り返し + 1 回以上のパターン繰り返し ? 0 または 1 回のパターン ^ 先頭から $ 末尾から \ メタ文字クォート | パターン論理和 () パターングループ [] 文字クラス {} 量指定子 \n 改行 文字クラスでも指定可 \r キャリッジリターン 文字クラ
Ｐｅｒｌで２進数＜－＞１６進数の相互変換
[上に] [前に] [次に] やま [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($_) =
ちょっとだけ役に立った裏技
仕事に関連して、質問を受けたり、自分で悩んだりしたネタを放り込んであります。 きっと、どなたでも御存知の情報なんでしょうけど... ホントかどうかは...御自分で勉強してください ^_^; 達人の方々の御指南をいただけると有難いです。 noboshemon 目次へ HDL 符号付き乗算はどう記述するの ? (2006-12-28) SystemVerilog や VHDL では、符号付きの乗算は、 乗数に signed を指定しておけば適当にやってくれる...と思う。 しかし、そうも行かない世界で仕事をすることが多いもので、 毎度、符号付き乗算器をどう記述したものか悩んでしまう。 1990 年代には、乗算器は論理合成で作るものではなかったので、 こんな悩みはあまり無かったのだが、 -- マクロ乗算器のシミュレーションモデルがあれば...
The Comprehensive Perl Archive Network - www.cpan.org
Stop reinventing wheels, start building space rockets Welcome to CPAN The Comprehensive Perl Archive Network (CPAN) currently has 218,657 Perl modules in 45,018 distributions, written by 14,468 authors, mirrored on 1 servers. The archive has been online since October 1995 and is constantly growing. Search CPAN via metacpan.org
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
移転しました
JoeのWebページ
Perlで予約語プログラミング
Perlでディレクトリの絶対パスを取得する方法は？…