• perl で書かれた乱数話法プログラム (rand random function)

    コピーコード コードは以下の通りです。 #! /bin/perl use strict;  use warnings;  #define variables  my $count;  my $input;  my $number;  my $sentence;  my $st

    2022-01-29 22:45:21
  • perlのsrand()とtime関数の使い方の紹介

    perlではsrand()はrand()に乱数の種を提供し、rand()は乱数発生器を生成します。 rand()を最初に呼び出す前にsrand()を呼び出さない場合、srand()が自動的に呼び出されます。 srand()をシードと同じ数値で呼び出すと、同じ乱数列が生成されます。 例を挙げると、次のようになります。 コピーコード コードは以下の通りです。 sr

    2022-01-29 21:40:18
  • Perlの正規表現入門

    AKAと著者に感謝します。 Perlの正規表現 正規表現の3つの形式 正規表現でよくあるパターン 正規表現の8原則         正規表現はPerl言語の特徴であり、Perlのプログラムでは少々難しいものですが、しっかりと理解すれば、文字列処理作業はもちろんのこと、CGIプログラミングにも簡単に利用することが

    2022-01-29 21:22:17
  • Perlのファイルハンドルの説明

    ファイルI/Oでは、ファイルからデータを読み込むために、アプリケーションはまずOSの関数を呼び出してファイル名を転送し、ファイルへのパスを選んでファイルを開きます。この関数は、開いているファイルを一意に識別するPerlのファイルハンドルと呼ばれる連番を取得します。ファイルからデータを読み込むには、アプリケーションは関数ReadFileを呼び出し、Perlのファイルハンドルのメモリ上のアドレスとコ

    2022-01-29 20:55:42
  • perl による生物学的突然変異のランダムシミュレーションコード

    プログラムファイル:test.pl コピーコード コードは以下の通りです。 #! /bin/perl # filename: test.pl use strict;  use warnings;  #A random sequence that is better recognized  my $DNA="AAAAAAAA

    2022-01-29 20:47:07
  • 2つのファイルを比較し、データをフィルタリングするスクリプトコード(perlで実装されている

    コピーコード コードは以下の通りです。 #! /usr/bin/perl my %scyjm;  open (CONTACT,"f:\\perl\\f.txt")||die("can not open the file!");   while (<CONTACT>)  {    nex

    2022-01-29 20:02:47
  • Perlの特殊な組み込み変数の詳細

    組み込み変数 $_ です。 まずは例題から。 コピーコード コードは以下の通りです。 #! /usr/bin/perl -w @array = qw(a b c d); foreach (@array) {  print $_," "; } この例で行っているのは、配列を定義して、その中の要素をプリントアウトすることです。ここで注意すべきは、

    2022-01-29 19:29:21
  • Perl バッチクエリ ip 属性メソッドコード

    私は純粋なデータベースを読み取ることの難しさは、私にとって少し大きいですし、私の現在の時間の要件は、むしろ緊急ですが、グループで尋ねるを通じて、ブラックシャドウとフーカイのおかげで、モジュールIP::QQWry::デコード、これは特別ですお勧めしますモジュールは、特にqqwry純粋なデータベースを読み取るために使用されていると非常に使いやすい。 コピーコード コードは以

    2022-01-29 18:26:21
  • Perlによるディレクトリの探索とLinuxコマンドによるログの解析 コード例共有

    コード例です。 コピーコード コードは以下の通りです。 #! /usr/bin/perl -w $path = '/root/Documents'; # Current working directory $dir = "$path/images"; # The directory to traverse $log_file = "$path/access_

    2022-01-29 17:39:44
  • Perlシェルコマンド呼び出しのメソッド概要

    I. システム perl は system を使ってシェルコマンドを呼び出すこともできます。これは awk の system と同じで、戻り値は呼び出したコマンドの終了ステータスになります。 コピーコード コードは以下の通りです。 [root@AX3sp2 ~]# cat aa.pl #! /usr/bin/perl -w $file = "wt.pl";

    2022-01-29 16:23:03
  • [解決済み] Perlで2つの文字列を比較するにはどうしたらいいですか?

    質問 Perl で 2 つの文字列を比較するにはどうすればよいですか? 私はPerlを学んでいます。この基本的な質問があり、StackOverflowで調べましたが、良い答えが見つからなかったので、私が質問しようと思いました。 どのように解決するのですか? 参照 パールドック パーロップ . 使用方法 lt , gt , eq , ne および cmp を文字列

    2022-01-29 15:06:44
  • Perlの単一行コメントと複数行コメントの紹介

    Perlのプログラムコメント:一行コメントと複数行コメント (i) 一行コメント。 で始まる行は、perlではコメントとみなされます。例外として、perlプログラムの最初の行は#で始まり、perlプログラムのインタープリタを指定します。 例えば #print 1. この方法の欠点は、一度に1行しかコメントできないことです。コメントしたいコードが長い場合、面倒なことになります。

    2022-01-29 14:28:37
  • Perl プロセスの PID ルックアップの例

    これは主に、/proc ディレクトリにある関連ファイルを見つけることによって行われます。 #! /usr/bin/perl use strict; use warnings; #usage: process_grep.pl ProcessName exit( main(@ARGV) ); sub main { my $Phash; my $ProcessName = shif

    2022-01-29 14:27:19
  • [解決済み] Perlで浮動小数点数を丸めるには?

    質問 10進数(浮動小数点)を最も近い整数に丸めるにはどうしたらよいですか? 例 1.2 = 1 1.7 = 2 解決方法は? の出力 perldoc -q round Perlにround()関数はあるのか? ceil()やfloor()は? Trig関数は? 次のことを忘れないでください。 int() に向かって切り捨てるだけです。 0 . ある

    2022-01-29 12:55:10
  • Perl で QR コード用のプレーン HTML コードを生成する例

    qrencode、Text-QRCode、HTML-QRCodeの順でインストールする必要があります。 #! /usr/bin/perl HTML::QRCodeを使用します。 my $text = 'http://jb51.net/'。 my $qrcode = HTML::QRCode->new->plot($text); print <<"HT

    2022-01-29 12:41:56
  • プロポーズ用Perlコードの書き換えについて

    コードの書き換え     #! /usr/bin/perl -w     はストリクトを使用します。          my$f= $[;my        ch=0;サブl{lengt

    2022-01-29 11:59:25
  • ファイル自動削除のためのサーバースクリプト

    マッチングパス対応 マッチングファイル名対応 長期未アクセス時の自動クリーンナップ対応 コピーコード コードは以下の通りです。 # for each system cleanup file script, filepath reg_filename fileatime #author [email protected] #date 2013-8-22

    2022-01-29 10:37:29
  • perl use vars pragma 使用のヒント

    vars in perl は perl のプラグマで、qw() リストにあるグローバル変数を事前定義するために使用され、use strict がエラーを報告しない場合でも、参照される perl ファイル全体で使用することが可能です。 コピーコード コードは以下の通りです。 use strict ; $str = "hello world!\n" ; エ

    2022-01-29 10:08:06
  • PerlによるMSSQLへのアクセスとMySQLデータベースへの移行スクリプト例

    LinuxでMSSQLにアクセスするための特定のライブラリはありませんが、MSSQLはもともとSybaseから派生したものなので、Sybaseにアクセスするためのライブラリは当然MSSQLにアクセスでき、FreeTDSはそのような実装になっています。 Perlは通常DBIを使ってデータベースにアクセスするので、FreeTDSをシステムにインストールした後は、DBIを使ってFreeTDS経由でM

    2022-01-29 09:56:26
  • perl は目的のファイルのパスを読み込み、対応するファイルを開きます。

    以下のDNA配列は、window以下のF: \data.txt に格納されています。 コピーコード コードは以下の通りです。 AAAAAAAAAAAAAAGGGGGGGTTTTCCCCCCCC  CCCCCGTCGTAGTAAAGTATGCAGTAGCVG  CCCCCCCCCCGGGGGGGGGGAAAAAAAAAAAAAAA

    2022-01-29 08:57:39