• 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の単一行コメントと複数行コメントの紹介

    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 で 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
  • Perl 変数の使い方を説明するための Perl 構文

    この記事とあなたはPerlの構文でPerlの変数の概念に焦点を当て、Perlの変数はスカラー変数、配列変数、連想配列変数3カテゴリに分割されます。 Perlの文法入門 1. Perl変数 1.1. Perl 構文における Perl 変数の分類 Perlの変数は、スカラ変数、配列変数、連想配列変数の3つに分類されます。Perl の変数は大文字と小文字を区別します。例えば、An、AN

    2022-01-29 08:50:38
  • perlにおけるmyとourの違いの解析

    perlにおけるourの使用法 require 5.006 バージョン番号が 5.006 未満の場合、モジュールのロードに失敗し、失敗が返されます。 つまり、何をしているかというと、モジュールの呼び出し環境のPerlのバージョンを確認しているのです。 ourは、myと同じく、変数の宣言で が、ourはパッケージのグローバル変数を宣言しています。 で、my はレキシカル変数を宣言し

    2022-01-29 08:32:10
  • Perlによるファイル操作の例

    perlで最も使われるのはファイル操作なので、以下に具体的な例を挙げてperlのファイル操作の理解を深めるために、いくつかまとめてみました。 ファイルの削除 unlink $file、unlink $file1、$file2、$file3 のような unlinke 関数を使用します。 ファイルを開く スキーマとファイル名を区別するのが非常に簡単で、perl 5.6

    2022-01-29 07:59:14
  • Perl の Getopt::Long モジュールを使用して、ユーザーのコマンドライン引数を受け取ります。

    Linux ではプログラムに引数を追加する必要があることが多いので、引数を制御するために Perl のモジュール Getopt::Long を見ておくと、@ARGV の配列を直接使うよりずっと強力です。Linuxでは引数には2つの形式があることはご存知だと思います。 -ヘルプ -短い引数 -h つまり、-と-の違いです。-はフルパラメータ。- は簡略化された引数の場合です。どちらもPe

    2022-01-29 07:52:34
  • Perlクラスタ構成管理システムRexコンサイスマニュアル

    RexはPuppet DSLと構文が似ているPerlで書かれたSSH連動型のクラスタ構成管理システムです。中国語版は http://rex.perl-china.com で公開されています。この記事は、私が学科wikiに書いた紹介文書に過ぎません。 共通コマンドパラメータ rexコマンドのパラメータはたくさんありますが、私たちの環境はkrb認証を受けているため、Rexfileにし

    2022-01-29 07:19:37
  • スペースがセパレータである場合の perl qw 問題の解決法

    qwは、perlで配列を作成する際に使用することができます。 しかし、20人の名前の配列を作成したい場合、それぞれの名前が "Join smith" "Harry Potter" という形式、つまりそれぞれの名前に姓と名の両方が含まれていると問題が発生します。このとき、qwは動作しません。qwはスペースをセパレータとして使用するからです。 以下にいくつかの代替策を示しますので、参考に

    2022-01-29 03:08:07
  • Windows の Thumbs.db から画像キャッシュのサムネイルを削除する Perl

    以前、他の人がやっていたプロジェクトを引き継いだところ、SVNで*.dbが無視されて処理されないため、画像のキャッシュサムネイルがコミットされてしまい、画像フォルダを開くだけでThumbs.dbが変更されていることが判明しました。 やるべきことは2つあります。 1つは、Thumbs.dbファイルが今後コミットされないようにsvnの設定を変更することです II. 指定した

    2022-01-28 23:16:28