Perl 外部のサブルーチンを実行する require, use, use lib. BEGIN (d001)
目次 - Perl Index Theme Perl について、復習を兼ねて断片的な情報を掲載して行く連載その d001 回。 Perl で、外部のファイルに記述した「 サブルーチン 」を読み込んで実行する基本的な方法を確認する。 外部のサブルーチンを利用する 前回 (d000) では、外部のファイルに記述したプログラムコードを実行する方法を確認しましたが、ファイルの記述方法によっては、外部ファイルのサブルーチンを読み込み側のプログラムファイルで自在に利用することが出来るようになります。 外部ファイルのサブルーチン 読み込みの対象となる外部ファイルのコードは次のものです。ファイル名は「 print_sub.pl 」として保存してあります。 sub hello { my $other_person = shift; print "Hello $other_person\n"; } sub a
PerlのCGIのutf8改造で文字化けしたときの処方箋
Kent Web等のCGI掲示板プログラムの文字コードを UTF-8N（UTF-8 BOMなし） に変更したところ… ・スクリプトの冒頭で use utf8; したら書き込みの内容部分が文字化けしてしまった。 ・print文のところで文字化けしてしまう（エラーが出てしまう）。 Wide character in print at ～ 云々というエラーが出る。 ・クッキーで憶えさせたはずの名前などが文字化けしてしまう。 ... そんなあなたへの処方箋 ※修正例は後半に ※use utf8 命令を使うにはPerlのバージョンが5.8以降であることが必要です 0. 序論／そもそも use utf8; は必要か 理由は1で説明しますが substr split などの文字列関数やテキストマッチングが使われていなければ、不要です。 つまり簡易な掲示板CGI程度であれば、use utf8せずに、C
Perl：正規表現を用いた文字列の検索・置換
正規表現とは、文字列の一部をパターン化して表現する方法です。文章の中からある文字列を検索する時、検索したい文字列をそのまま指定するのではなく、文字列の一部をパターン化して検索する（パターンに基づいた仮の文字列を作成して検索する）場合などに正規表現を使います。 例えばWindowsやLinuxでも、ファイルや文字列を検索するときに使用される正規表現として「*」（ワイルドカード）が知られていると思います。パターンを『app*』と表現すると、「apple」「application」などが含まれるファイル、文字列がマッチします。 Perlの場合、他の言語に比べて非常に有用な正規表現によるパターンマッチ機能が実装されており、より簡単に、かつ詳細にパターンマッチを実行することができます。 １．基本的な使い方Perlでは正規表現を「パターン」と呼ぶことが多いです。文字列に対してパターンがマッチすれば（成
Perl if文を使った条件判断～比較演算子や正規表現の活用～
Perlにも他の言語と同様if文があります。しかしPerlならではの使い方や、有名な言語と少し異なる点もあるので注意が必要です。覚えてしまえば他の言語に比べとても使いやすく感じると思います！実際にコードを確認しながら理解を深めていきましょう。 １．if文の基本的な使い方「もし〇〇である場合、△△の処理をする」といったようにある条件の時だけ特定の処理を行いたいときに使用します。 書き方は以下の通りです。 if ( 条件式 ) { 条件式を満たす（真）の時の処理 } my $a = 10; my $b = 2; if ($a % $b == 0) { print "$aは$bで割り切れます。\n"; } print "おわり"; 実行結果： 10は2で割り切れます。 おわり$b=2を$b=3に変更すると、「おわり」しか表示されません。実際にコーディングして確かめてみてください。 Perlはif
Perlって何ができるの? - Ruby, Python, PHPとの比較も - Perlゼミ|Perlの基礎をインストールからサンプルで丁寧に解説
「Perlって何ができるの?」たくさんのプログラミング言語が登場して、どのプログラミング言語を選択すればよいか、悩んでおられる方もおられると思います。Perlでどんなことができるのか、答えるコンテンツを作成しました。 検索・置換などの正規表現を使ったテキスト処理が得意 Perlは検索や置換などのテキスト処理が得意なスクリプト言語です。正規表現が言語に組み込まれており、簡単に検索や置換のプログラムを記述することができます。 # すべての「banana」を「orange」に置換 $message =~ s/banana/orange/g; テキスト処理の処理速度は高速です。処理内容によりますが、体感的には、低価格でレンタルできるLinuxサーバーで、10万行のテキストを1秒程度で処理できます。 実践で役立つPerl正規表現 Perlの正規表現は、そのオリジナリティと有用性で広く知られており、L
cpanmをインストールする色んな方法 - ノウハウブログ - カンタローCGI
perlのライブラリインストールを著しく助けてくれる cpanm の、色んなインストール方法です。いつも忘れてしまうのでメモ。 yum コマンドで cpanm インストール みなさん大好きRedhat系パッケージコマンドです。楽ちんですが、依存パッケージがたくさん入ります。 -y 引数は外しておきましたので、インストール実行前に同時に入ってしまうパッケージを確認しておくといいでしょう。
gitの共有リポジトリにpushしたらSlackとChatworkにメッセージを通知する - Qiita
追記 2017/10/02 ライブラリを HTTP::Tiny に変更しました。 2017/03/09 Slack APIの変更に追随するのとあわせて、文面を更新しました。 2014/07/21 スクリプトを全面的に書き直し、文面を追記／修正しました。 目的 以前、「gitの共有リポジトリにpushしたらChatworkにメッセージを通知する」という記事を書いたのですが、最近になって、チャットツールにSlackも使うようになったので、同じ目的でgit push時にどちらにも通知を送ることにします。 bashスクリプトをperlで書きなおした理由 SlackのAPIはPOSTパラメーターにJSONを埋め込むという形式になっています。Chatworkだけに通知を送っていた時はbashを使っていたのですが、bashではJSONの取扱いに難があったので、perlを使って全面的に書き換えることにしま
Apache Tutorial CGI による動的コンテンツ - Apache HTTP サーバ
The CGI (Common Gateway Interface) defines a way for a web server to interact with external content-generating programs, which are often referred to as CGI programs or CGI scripts. It is a simple way to put dynamic content on your web site, using whatever programming language you're most familiar with. This document will be an introduction to setting up CGI on your Apache web server, and getting s
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
https://www.aeyescan.jp/wp-content/uploads/2024/01/os-command-injection-scaled-e1706237134469.jpg
open - perl pragma to set default PerlIO layers for input and output - Perldoc Browser
How can I output UTF-8 from Perl?
GitHub - OHMORIYUSUKE/perl-mysql-apache-on-docker
4-2. Perl の危険な関数
Dockerを使ってPerl製Webアプリケーションを動かしてみる - Qiita
