• [解決済み] strict pragma のもとで変数を NULL に設定するにはどうすればよいですか?

    質問 use strict; my $var = NULL; のエラーが発生します。 Bareword "NULL" not allowed while "strict subs" in use 解決方法は? PerlにはNULLはありません。しかし、変数は undef は、値が設定されていないことを意味します。 Perlで未定義の変数を取得する例をいくつか挙げてみましょ

    2022-02-04 02:43:06
  • Perlのハッシュの作成と参照入門

    構文 引用」を作成する方法と、それを使用する方法は2つだけです。 リファレンスを作成する ルール1の作成 変数の前に「/」記号を付けると、その変数への「参照」が得られます。     $aref = /@array; # $arefは@arrayへの「参照」を保持します。     $href = /%h

    2022-02-03 22:20:08
  • windows perlでフラッシュ後にスクリプトが終了しないようにする方法

    Perlの勉強を始めたばかりの頃、プログラムを書いて結果が出力されるのを待つと、ダブルクリックして一瞬画面が点滅して、その後何も表示されなくなります。出力されるのを見る機会もない。 この問題を解決するにはどうしたらいいのでしょうか?実は、あらゆる言語がこの問題を抱えているのです! 解決策は、プログラムに結果を出力させ、その後、ユーザーの出力を待ち続けることです つまり、次の2行をスクリプトの

    2022-02-02 22:06:50
  • ssh ログインの最大数を制限する perl スクリプト (ホワイトリスト対応)

    ssh limit perl スクリプトの主な目的は、以下の通りです。 1. 1人のsshユーザの最大ログイン回数をn回に制限する。nはカスタマイズ可能。 2. 2.ホワイトリスト対応、rootなど、テストログインは制限されない。 sshユーザの最大ログイン数が指定数を超えた場合、後からログインした人が先にログインした人を追い出すことで、ログイン回数を制御することができます。

    2022-02-02 21:40:36
  • perlでサブルーチンの引数を参照(渡す)する2つの方法

    以下はその一例です。 コピーコード コードは以下の通りです。 use strict; # Here are two arrays my @i =('1','2','3'); my @j =('a','b','c'); # Before we do the processing, let's print them out and see what they loo

    2022-02-02 17:29:16
  • perl変数$/の使用方法について説明します。コンテキストが行モードのとき、$/は行を区別するものを定義します。

    デフォルトでは、行を区別するために \n が使われることは明らかで、 \n は改行とも呼ばれます。 行単位で配列を読む場合は、改行文字を標準として使用します。 strawberry1.gbから読み込んだファイルは次のようになります。 LOCUS JX118024 460 bp DNA リニア PLN 25-SEP-2012 定義 Fragaria vesca subsp. america

    2022-02-02 16:58:25
  • perl AnyEventの簡単な紹介と始め方

    イベント指向プログラミング(イベントドリブンプログラミング)とは。 プログラミングにおけるすべてのプログラムは、イベントによって決定されます。ユーザーの操作(キーボード、マウス)、または他のプログラムやストリームの到着、あるいはオペレーティングシステムのイベント(ネットワークパケットの到着など)が実行のトリガーとなります。 イベント指向プログラミングは、コード(通常はプログラムの

    2022-02-02 16:23:13
  • [解決済み] ディレクトリで終わるパスに対してcatfileを使用した場合の危険性?

    質問 は File::Spec モジュールは、クロスOSの有効なパスを作成する方法を提供します。これは期待通りに動作します。 use strict; use warnings; use File::Spec; my $file = 'ghi.xml'; my $path = File::Spec->catfile(('abc', 'def'), $file); print

    2022-02-02 16:18:37
  • コンストラクタでのPerlメソッド使用法入門

    Perl言語におけるPerlメソッドの概念は理解できましたか?ここで、簡単にご紹介します。PerlクラスのPerlメソッドは、Perlのサブルーチンに他ならず、通常、メンバー関数と呼ばれます。 Perlのメソッド I. Perl メソッド入門 Perlのメソッド定義には特別な構文はありませんが、Perlのメソッドの第1引数はオブジェクトまたはそれが参照されるパッケージであること

    2022-02-02 14:34:21
  • 重複するコンテンツ(重複する行+重複するフィールドの配列)を削除するための perl スクリプトコード

    このような配列があったとします。 1 2  1 2  2 1  1 3  1 4  1 5  4 1 次のような結果を得る必要があります。 1 3  1 5  2 1  4 1 そして、以下のperlスクリプトの助けを借りて実行します。 コードI.

    2022-02-02 14:02:39
  • Perl コマンドライン引数内蔵配列 @ARGV

    Perl スクリプトが実行されるとき、コマンドラインから渡された引数は組み込み配列 @ARGV に格納されます。これは、PERL が引数を受け取るために使用するデフォルト配列です。 使い方は コピーコード コードは以下の通りです。 perl my.pl $ARGV[0] $ARGV[1] 具体的な例を見てみましょう。 例えば、ファイル1の内容。 コ

    2022-02-02 13:37:24
  • Perl 構文による Perl 演算子の使用法ガイド

    Perl 構文 Perl 演算子入門 1. Perlの演算子 1.1 算術演算子  Perl は変数やデータパラダイムが C と大きく異なりますが、演算子は C とほとんど同じです。C のパラダイム変換演算子 type、ポインタ参照演算子 *ptr とレイアウトメンバセレクタを除けば、他の C 演算子はほとんど Perl に存在し、文字処理などいくつかの新しい演算子が追加さ

    2022-02-02 12:55:13
  • Javaプログラマのための10分でわかるPerlチュートリアル

    1. 基本から始める Perlはjavaと異なり、エントリーポイントとして"main"メソッドを必要としません。簡単なPerlのプログラムを実行するには、次のようにします。 コピーコード コードは以下の通りです。 # comment starts with "#" # the name is hello.pl print "Hello Perl

    2022-02-02 11:28:53
  • perlのour-my-localスコープ宣言の紹介

    正直なところ、この本は無名なので、ちょっと投げやりな感じですが、難しくはないでしょう。 Our, "confine a name to a certain scope"は、実際にはモジュールや関数の内部で定義され、外部からもアクセス可能なグローバル変数("global variable")を明示的に宣言することで、それが既に宣言されている場合、再度 "our" で、ここでは同じ名前のプライベ

    2022-02-02 09:47:11
  • Perl で File::Lockfile を使用して、スクリプトの単一インスタンスを確保する

    私はPerlでいくつかの監視スクリプトを書き、crontabに置いて実行するようにしています。スクリプトの実行に時間がかかりすぎて、複数のインスタンスを同時に実行してしまうことがあるので、1つのインスタンスだけを実行するようにスクリプトに制御を加えることが必要です。 最もシンプルで自然なアイデアは、スクリプト内で空のロックファイルをチェックして作成し、スクリプトが終了したらそれを削除するこ

    2022-02-02 09:20:47
  • Perl 組み込み特殊変数まとめ

    [ ファイルハンドル ]。 $| 0でない場合、現在選択されているファイルに対して書き込みまたは印刷操作が行われた後、バッファを強制的にクリアします。 現在選択されているファイルハンドルの現在のページ番号 現在選択されているファイルハンドルの現在のページ長 $- 現在選択されているファイルハンドルの残りページ数 $~ 現在選択されているファイルハンドルのレポートフォーマット名

    2022-02-02 08:23:30
  • Perl AnyEvent ウォッチャーの例

    ここ数日、PerlのイベントプログラミングフレームワークであるAnyEventについて、以下の記事を中心に見てきました。 http://search.cpan.org/~mlehmann/AnyEvent-7.05/lib/AnyEvent.pm http://search.cpan.org/~mlehmann/AnyEvent-7.05/lib/AnyEvent/Intro.

    2022-02-02 06:08:30
  • 特定の塩基比を持つランダムな配列を生成するための perl コード

    方法1 (モジュールなし, by agonyr) コピーコード コードは以下の通りです。 #! /usr/bin/perl -w use strict; my @seq = ( "A", "T", "C", "G" ); my $length = 10000; undef my %hash; $hash{"A"} = int( $length * 0

    2022-02-02 05:45:40
  • ブログバックアップ用Perlスクリプトコード

    今まであまり気にしていなかったブログですが、定期的にsqlのバックアップを取ることにしたので、以下のようなちょっとしたスクリプトを書きました。 コピーコード コードは以下の通りです。 #! /usr/bin/perl use warnings; use strict; use MySQL::Backup; use Mail::Sender; open my $tmp_sql

    2022-02-02 02:56:29
  • perlの尖ったブラケット演算子(<>)について

    perlの&lt;&gt;演算子は、次のように使うことができます。 1)先の尖ったブラケット演算子で、&lt;STDIN&gt;のように先の尖ったブラケットの間にファイルハンドルがある場合、それを読み取ることができます。 2) 先頭のブラケットの真ん中が検索パターンになっている場合、先端のブラケット演算子はそのパターンにマッチするファイルのリストを返すことができます。これはグロブと呼ばれ

    2022-02-02 02:41:51