ふたりはララベル (Laravel PHP Framework)

PHPフレームワークのLaravelの体験記を書いていきます。こんなタイトルのブログですが萌え系アニメは一秒たりとも観たことがありません。

Perl

Perlでn次ハッシュを使った時のメモ

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スクリプトと同ディレクトリにある自作パッケージにパスを通す

Perlスクリプトと同ディレクトリにある自作パッケージにパスを通す方法。 use FindBin qw($Bin); use lib "$Bin"; use Mypackage;

PerlのpodのWide characterエラー

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…

Perlの日本語エラー

以下の様なエラーが出たら Non-ASCII character seen before =encoding in '日本語'. Assuming UTF-8日本語前にこの文字列を入れる。 =encoding utf8

PerlのFIND::BINを使ってモジュール読み込み

需要は無いと思うけど、勝手にモジュールをインストールできない環境で一時的にでもモジュールを使いたいときはFIND::BINがある。 例えばperlスクリプトと同じディレクトリにtmplibを作り、その中にモジュールを置いた場合は以下のようになる。 use FindBin;…

Perlでautosplit.ixを生成する。

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を継続的に打つ

Cisco機器のIOSから継続的にpingを打つことはできない。拡張pingを使った場合は、pingが正常に通じるなら一瞬で終わってしまうし、pingが通じないならCtrl+Cが効かないままエラーとなるpingを打ち続ける。そこでperlを使って1秒ごとにpingを打つプログラムを…

Windowsへのperlモジュールのインストールが失敗する

Windowsへperlモジュールをインストールするときにppdファイルを使う。が、以下のようなメッセージが出て失敗することがある。 > ppm install NetSNMP.ppd ppm install failed: The PPD does not provide code to install for this platformこれはppdファイ…

プロキシを越えてpearを使う

pearはプロキシが設定されていると使えない。そういう時はpearのconfigにプロキシのパスワードなどを設定すればよい。使うコマンドはpear config-setだ。 $ pear config-set http_proxy http://ユーザID:パスワード@プロキシ名:ポート番号こんな感じになるは…

pearのパッケージのインストールが失敗する

pearのパッケージをインストールしようとして「No releases available for package」というエラーが出る場合は、キャッシュをクリアすれば成功することがある。 $ pear install phpdoc/phpDocumentor No releases available for package "pear.phpdoc.org/ph…

Net::Telnet::Ciscoでエラー

PerlのNet::Telnet::Ciscoモジュールを使うと、以下のエラーが出る時がある。 Last command and router error: 原因は「先頭の%」だ。例えばコマンドを間違えると以下のメッセージが出る。 % Unknown command or computer name, or unable to find computer …

perlで配列の空白を除去する

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 例…