Perl
Perlでn次ハッシュを使った時のメモ use strict; use warnings; my %hash; my @array1 = ('1','2','3'); my @array2 = ('a','b','c'); my @array3 = ('A','B','C'); foreach my $value1 (@array1) { foreach my $value2 (@array2) { foreach my $value3 (@ar…
Perlスクリプトと同ディレクトリにある自作パッケージにパスを通す方法。 use FindBin qw($Bin); use lib "$Bin"; use Mypackage;
Perlでpodを出力するときに Wide character in print at D:/xampp/perl/lib/Pod/Html.pm line 437.というエラーが出たので暫定対処でPod/Html.pmのpod2htmlメソッド内の print $fhout $output; の直前に以下の二行を追加した。 use Encode; $output = encode…
以下の様なエラーが出たら Non-ASCII character seen before =encoding in '日本語'. Assuming UTF-8日本語前にこの文字列を入れる。 =encoding utf8
需要は無いと思うけど、勝手にモジュールをインストールできない環境で一時的にでもモジュールを使いたいときはFIND::BINがある。 例えばperlスクリプトと同じディレクトリにtmplibを作り、その中にモジュールを置いた場合は以下のようになる。 use FindBin;…
CPANを使わずに、Net::Telnet::Ciscoを読み込もうとしたら以下のようなエラーが出た。 Can't locate auto/Net/Telnet/Cisco/autosplit.ix in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at C:/Perl/lib/AutoLoader.pm line 181. at C:/Perl/lib/…
Cisco機器のIOSから継続的にpingを打つことはできない。拡張pingを使った場合は、pingが正常に通じるなら一瞬で終わってしまうし、pingが通じないならCtrl+Cが効かないままエラーとなるpingを打ち続ける。そこでperlを使って1秒ごとにpingを打つプログラムを…
Windowsへperlモジュールをインストールするときにppdファイルを使う。が、以下のようなメッセージが出て失敗することがある。 > ppm install NetSNMP.ppd ppm install failed: The PPD does not provide code to install for this platformこれはppdファイ…
pearはプロキシが設定されていると使えない。そういう時はpearのconfigにプロキシのパスワードなどを設定すればよい。使うコマンドはpear config-setだ。 $ pear config-set http_proxy http://ユーザID:パスワード@プロキシ名:ポート番号こんな感じになるは…
pearのパッケージをインストールしようとして「No releases available for package」というエラーが出る場合は、キャッシュをクリアすれば成功することがある。 $ pear install phpdoc/phpDocumentor No releases available for package "pear.phpdoc.org/ph…
PerlのNet::Telnet::Ciscoモジュールを使うと、以下のエラーが出る時がある。 Last command and router error: 原因は「先頭の%」だ。例えばコマンドを間違えると以下のメッセージが出る。 % Unknown command or computer name, or unable to find computer …
perlで配列内の空白を除去して配列内の要素を詰めたい場合はgrepを使う。 @file = grep { !/^\s*$/ } @file; これは自作の設定ファイルから適切な行だけ抜き出したいときに使える。 127.0.0.1 # ローカルホスト 127.0.0.2 #127.0.0.3 127.0.0.4 127.0.0.7 例…
