Perlの食えない事情
Perlの食えない事情 Perlの食えない事情 @author: KaPoKoN Perlは初心者おすすめの言語ではない 奇妙な演算子の数々 奇妙な宣言文の数々 最後に・・・ これを書くに至った経緯は、Perl言語の創始者が本来のPerlの使用目的とは 遠く離れた言語になってしまった背景。 自分がＣ、ＰＨＰ、Ｊａｖａ、ＶＢとたんたんとやってきた中で、 これほど奇怪な仕様の言語に巡り合ったのは初めてであるという事だ。 そして、パール信者は叫んでたまらない。 パールisＧＯＤ！パールisキング！・・・と。 確かに今までのウェブは、そのように進んでしまったという事実があるが、 パールは本来はウェブアプリケーションのサーバー処理をするために書かれた言語ではない。 UNIX上でデータを扱う為に作り出された言語であり、 UNIXそのものがサーバーとして作られたＯＳであるがゆえ、 ウェブでユーザーからの
GDで画像編集 / [perl] | 戯術者の日記
BMP形式はGDで操作できないので、予めpngあたりに変換しておく。 ○ トリミングする 1. 元ファイルを開く 2. あて先pngデータを作成する 3. 元ファイルから座標指定であて先pngへコピーする(トリム処理) 4. あて先pngを書き出す // 元ファイルを開く my $src = GD::Image->new($srcfilename); // あて先pngを作成 my $dst = GD::Image->new($newWidth, $newHeight); // 座標指定であて先pngへコピー $dst->copy($src, 0, 0, $srcX, $srcY, $width, $height); open W, "> $dstfile" or die "cannot open $dstfile: $!\n"; binmode W; print W $dst->png(
EclipseとEPICでPerlスクリプトコードの開発環境をそろえてみよう - おやぢたかぽんの趣味と備忘録
拡大 ここのところずっとAndroidアプリプログラミングの勉強ばかりやっててちょっとお疲れモード。何気なく机の引出を開けるとそこには紙が黄色く変色したプログラミングPerlの初版が…。なつかしいな。ということで、気分転換にperlスクリプトの開発環境でも整備してみるかな、と思い立ちました。 perlスクリプトをまともにさわるのは…10数年ぶりですね(笑)。文法もほとんど覚えてない…。軽く調べてみると、あれからperlもえらいかわってるようです。よく使っていたのはクラスの概念なんてなかった頃かな。 Windows環境なので、ActivePerlをインストールしたら開発環境の構築はおしまい、以上…。 なのですが、それじゃぁつまらないのでEclipse上でPerlスクリプトの編集、デバッグができるようにしてみます。 拡大 Eclipse上でPerlスクリプトを編集できるようにするために、EPI
sort関数 - 配列の並べ替え - Perl入門ゼミ
Perl › 関数 › here 配列を並べ替えるにはsort関数を使用します。第1引数には比較のためのコードブロックを渡します。昇順で並べ替える場合は$aを$bより先に記述し、降順で並べ替えるには$bを$aより先に記述します。比較演算子には数値として比較したい場合は<=>を使用し、辞書順で比較したい場合はcmpを使用します。コードブロックの直後にカンマがないことに注意してください。 # 昇順で並べ替え @sorted = sort { $a 演算子 $b } @array; # 降順で並べ替え @sorted = sort { $b 演算子 $a } @array; 並び替えのサンプル 数値の昇順で並べ替えるサンプルです。@numsは(2, 3, 5, 11)になります。 # 数値の昇順で並び替え my @nums = (5, 11, 3, 2); @nums = sort {$a <=
正規表現 - 2部 Perl言語仕様 - [SMART]
正規表現の概要 正規表現は、Perlの中で最も重宝する機能のひとつです。正規表現にはテキスト処理のための様々な機能があり、文字列の中から特定のパターンを見つけ出したり、置換したりすることができます。 正規表現の基本的な使用方法 たとえば、$strという変数に格納したデータの中から、「A」で始まって途中は何があるかわからないが最後が「E」という文字列を探したい場合､次のように記述することで、条件にマッチする文字列を見つけることができます。 $str =~ /A.*E/; 上記では、ドット( . )が改行以外の1文字を表し、アスタリスク( * )がその任意の文字の0回以上の繰り返しを意味します。このように、正規表現において特殊な働きを持った文字を正規表現演算子、またはメタ文字と呼びます。また、=~ はパターン結合演算子と呼ばれ、「左辺の値から右辺の値を検索する」という意味があります。 正規表現
![正規表現 - 2部 Perl言語仕様 - [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)
とほほのperl入門 ◆ 正規表現
ラリー・ウォール氏によって1987年に開発されたスクリプト言語です。 C言語、AWK、sed, sh などの影響を受けて開発され、PHP, Ruby, Python などに影響を与えました。 聖書の中の「高度な真珠」にちなんで pearl と名付けられる予定でしたが、同盟の言語がすでに存在したため Perl と名づけられました。 現在では Perl は "Practical Extraction and Report Language" の略とされています。 プログラミング言語を示すときは先頭大文字で「Perl」、処理系を表すときは先頭小文字で「perl」と表します。 2023年9月現在、5.38 が最新版です。 RHEL7系では 5.16、RHEL8系では 5.26、RHEL9系では 5.32、Ubuntu 22.04では 5.34 がインストールされます。 Windows用の実装として
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の場合，引数は配列@_を使用してサブプログラムへ渡ります．したがって，サブプログラムf0に３個のスカラ値を渡すプログラムは以下のようになります． #!/usr/bin/perl -w use strict; sub f0{ my @arr=@_; print "f0: @arr\n"; #print "f0: @_\n";でも同じ } f0(1,2,3); ３個のスカラ値を渡す上記プログラムは，３個のスカラ値からなる配列１個を渡す以下のプログラムと同じです． #!/usr/bin/perl -w use strict; sub f0{ my @arr=@_; print "f0: @arr\n"; } my @arr=(1,2,3); f0(@arr); 複数の配列を引数として渡す場合，困ったことになります．つまり，こういうプログラムです． #!/usr/bin/perl -w u
Perlにおける定数宣言(constant or Readonly or Attribute::Constant) - Unknown::Programming
正直言いますと、個人的には定数って殆ど使わないんですよね。 昔はちょこちょこ使ってたんですが、最近は定数となりうる物は基本的にYAML等外部ファイルに持たせて変更可能にすることが多いのでまったく使ってません。 ですがそれでもPerlで定数を使いたい時にはどーすんの？っていう時のために軽くここにまとめておきます。 言わずもかなPerl5.8にはconstantという定数を定義できる標準モジュールがあります。 use strict; use constant PI => 3.14; # 表示 print PI; # 3.14 # 上書きしようとすると・・・ PI = 3; # Can't modify constant item in scalar assignment とこのように上書きしようとするとエラーを吐いて死にます。 しかも実行時ではなく、コンパイル時にエラーを吐きます。 実はこのc
ミスティーネットPerl･CGI講座 ― MISTY-NET ―
$aa = 7 + 3; $aa = 7 - 3; $aa = 7 * 3; $aa = 7 / 3; $aa = 7 % 3; $aa = 7 ** 3; $aa++; ++$aa; $aa--; --$aa; $aa += 3; $aa -= 3; $aa *= 3; $aa /= 3; $aa %= 3; $aa **= 3; # 足し算 # 引き算 # 掛け算 # 割り算 # ７を３で割った余り # ７の３乗(= 343) # $aa の値に１加算する(加算前の値を返す) # $aa の値に１加算する(加算後の値を返す) # $aa の値を１減算する(減算前の値を返す) # $aa の値を１減算する(減算後の値を返す) # $aa = $aa + 3; と同義 # $aa = $aa - 3; と同義 # $aa = $aa * 3; と同義 # $aa = $aa / 3; と同
エキスパートPerl - 変態モジュール総覧
Perl の世界には、「変態モジュール」と呼ばれるモジュールがたくさん存在します。 これらは、モジュールの形態をとりながら、Perl の内部に踏み込み、蹂躙しているという恐ろしい存在です。 しかしながら、これらのモジュールは使いどころを間違えなければ非常に有用であり、あなたのプログラムに無限の可能性をもたらすことでしょう。 自分の足をどうやって撃ちぬくか、よく考えてからつかってください。 下記のモジュールたちは、それ自体が変態的なものもあれば、変態的なことをするときに使うモジュールもあります。 PadWalker PadWalker は変態モジュールの筆頭です。レキシカルスコープの変数を、レキシカルスコープの外から見たり書き換えたりできます。 peek_my peek_our peek_sub closed_over という４つの関数をサポートしています。 下記のようなありえない操作を可能
Perl の正規表現のオプション m と s
Landscape トップページ | < 前の日 2003-03-24 2003-03-25 次の日 2003-03-26 > Landscape - エンジニアのメモ 2003-03-25 Perl の正規表現のオプション m と s 当サイト内を Google 検索できます * Perl の正規表現のオプション m と sこの記事の直リンクURL: Permlink | この記事が属するカテゴリ: [Perl] パターンマッチのオプションをちょっとおさらい。 試した環境は TurboLinux 6.5 Server の perl version 5.005_03 built for i386-linux perldoc perlre も参考になる。 - m オプション: $str を複数行として扱う。m オプションを必要とするのは、文字列中に改行文字を含み、 かつ正規表現中に ^ や
Perlにおける真偽値 - Perl入門ゼミ
Perl › 構文 › here Perlにおける真偽値を解説します。Perlにおける偽値は次の五つです。 1 undef 未定義値 2 "" 空文字列 3 0 0 4 "0" 文字列の0 Perlにおける真値は上記以外すべてです。 未定義値、数値の0、空の文字列、0と等しい文字列、空のリストだけが偽値になります。 真になる値の例 # 1 1; # 文字列 "Hellow" # オブジェクト my $obj = Point->new; # 文字列の"0.0" "0.0" "0.0"は、数値としては0と等しいが、真として扱われます。 サンプルプログラム 真偽値のサンプルです。 # 真偽値のサンプル my $var; # 偽。定義した直後の変数はundef $var = undef; # 偽。 $var = 0; # 偽。 $var = 0.0 # 数値で0と等価なものは偽。 $var = 1
[Perl] my と local と our の違いについて - 竹迫の近況報告
404 Blog Not Found:perl - myとourとscopeと みんな難しく考えすぎです。 （例外については後で考えることにして）とりあえず以下の基本をおさえておけば混乱することはないと思います。 ■ our 宣言について our はグローバル変数をスマートに使用するための宣言です。our は use vars と等価と考えてください。 our $var; は use vars qw($var); と等価。 our $var = 1; は use vars qw($var); $var = 1; と同じ動きをするもの、と覚えておけばOKです。それ以上の違いは基本的にないと考えて構いません。 ひとつ実用上の違いがあるとすれば、our は Perl 5.6 以降の built-in なのに対して、use vars は vars.pm の Perlスクリプトで実装されています。し
![[Perl] my と local と our の違いについて - 竹迫の近況報告](https://cdn-ak-scissors.b.st-hatena.com/image/square/e92af714c36668a34ee1fdf7dd8464828acfcc1d/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F8454420450103834818%2F17680117126987713958%2F1551691469)
)
Perlメモ/モジュールのインストール(PPM) - Walrus, Digit.
ActivePerl+PPMによるモジュールインストール方法。 Windows、Linux等にActiveState社が提供しているPerl環境「ActivePerl」では、モジュールを「PPM」というツールでインストールできます。 このPPMについてのメモを載せていきます。 PPMに何か問題があれば、CPANも試してみてください。 CPANでは、PPMではインストールできないモジュール、より新しいモジュールをインストールできることが多々あります。 CPANについては、Perlモジュール/インストール(CPAN)にまとめてあります。 コマンドラインから、下のコマンドを叩くだけです。 ppm install パッケージ名 多くのパッケージ名には、「::」または「-」が含まれますが、これはどちらを使用しても構いません。 例えば、「CGI-Lite」と「CGI::Lite」では、どちらの書式でも
にひりずむ::しんぷる - ActivePerl - PPMを手っ取り早く使いこなす
WindowsでPerlを使っている人は大抵の場合、ActivePerlを使っていることでしょう。 ActivePerlにはPPMという高機能なPerlパッケージマネージャーが付属しています。 しかし、使い方がいまいち判り辛かったり、ほしいモジュールが全然なかったりして「価値あるの？」って感じでしたが、今ではPPMレポジトリが活性化してきたのか、適切な設定を行うことで大抵のCPANモジュールが手に入るようになりました。 Windowsには他に、CPANのモジュールを簡単に入れられるようにgccベースのStrawberryPerl(ActivePerlはVC+nmake)というのも存在しますが、実行環境を整えるのがめんどくさいのと、makeに成功するのか実際にやってみるまで分からないので、構築とかが趣味じゃない人はActivePerlを素直に使いましょう。 PPMにはバイナリ化されたモジュー
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
サービス終了のお知らせ
Perlゼミ(サンプルコードPerl入門)
Wonder-boys.net
bayashi.net
