################################################################################ # 名 称:ComLog.pm # 機 能:ログに関する機能を提供する。 # : # :○"perl bin/foo/bar.pl 1 US STOCK"から呼び出した場合のログファイルのパス # : # : 例1) ComLog::open; # : → bin/foo/log/bar_YYYYMMDD.log # : # : 例2) ComLog::open('addNames' => $ARGV[1]); # : → bin/foo/log/bar_1_YYYYMMDD.log # : # : 例3) ComLog::open( # : 'directory' => "bar/BT/log", # : 'baseName' => "hoge", # : 'addNames' => [ @ARGV, "aaa" ], # : 'reserve' => 10, # : ); # : → bin/foo/bar/BT/log/hoge_1_US_STOCK_aaa_YYYYMMDD.log # : # :○ログ出力 # : # : 例1) ComLog::write("aiueo"); # : → | YYYY/MM/DD HH:MM:SS | ------ | aiueo # : # : 例2) ComLog::write("ERROR", "kakikukeko"); # : → | YYYY/MM/DD HH:MM:SS | ERROR | kakikukeko # : # : 例3) ComLog::write("USER", { # : 'branch_no' => "Z99", # : 'account_no' => "0123456", # : 'split_name' => [ "イントラ", "太郎" ], # : 'age' => 20, # : }); # : → | YYYY/MM/DD HH:MM:SS | USER-- | { # : 'branch_no' => 'Z99', # : 'account_no' => '0123456', # : 'split_name' => [ # : 'イントラ', # : '太郎' # : ], # : 'age' => 20, # : } # : # :○定型のログ出力 # : 例1) ComLog::start("ログ処理"); # : → | YYYY/MM/DD HH:MM:SS | ------ | ▼開始▼ ----------------------------- ログ処理 # : # : 例2) ComLog::end("ログ処理"); # : → | YYYY/MM/DD HH:MM:SS | ------ | △終了△ ----------------------------- ログ処理 # : # : 例3) ComLog::startMain; # : → | YYYY/MM/DD HH:MM:SS | ------ | ■開始■ ------------------------------- 主処理 # : # : 例4) ComLog::endMain; # : → | YYYY/MM/DD HH:MM:SS | ------ | □終了□ ------------------------------- 主処理 # # ------------------------------------------------------------------------------ # 履 歴:2015/05/07 新規作成(LogOperation.pm ver1.2がベース) ################################################################################ package ComLog; use strict; use warnings; use FindBin qw($Bin); use File::Basename qw(basename); use File::Path; use POSIX qw(strftime); use Data::Dumper; my $isOpened = 0; my $defaultStat = '-' x 6; ################################################################################ # 名 称:open # 機 能:ログをオープンする。 # ------------------------------------------------------------------------------ # 引 数:下記のキーを含むハッシュ(省略可) # :directory … ログを作成するディレクトリ(default:呼び出し元スクリプトパス/log) # :baseName … ファイル名の先頭につける文字列(default:呼び出し元スクリプト名) # :addNames … baseNameに追加する文字列(default:なし。スカラー、またはリストへのリファレンス) # :reserve … 残すログの数(default:5) # 戻り値:ログパス/undef … 成功/失敗 ################################################################################ sub open(%) { my %arg = @_; my $filePath; eval { ### ログディレクトリ my $directory = $arg{'directory'}; if (defined($directory)) { # 前後トリム $directory =~ s/^\s//g; $directory =~ s/\s$//g; } # 指定なし、またはトリム後に空文字であればデフォルト if (not defined($directory) or $directory eq '') { $directory = "$Bin/log"; # 相対パスが指定された場合はカレントディレクトリを$Binに設定 } elsif ($directory =~ /^[^\/]/) { $directory = "$Bin/$directory"; } ### ファイル名の先頭文字列 my $baseName = $arg{'baseName'}; if (defined($baseName)) { # 英数字、「_」、「.」のみ有効(全角、「!"#$%&'()-=^~\|@`[]{};+:*,<>/?」は無効) $baseName =~ s/[^\w\.]//g; } $baseName = basename($0, '.pl') if (not defined($baseName) or $baseName eq ''); ### ファイル名に追加する文字列 my @addNames = (); if (defined($arg{'addNames'})) { foreach my $addName (ref($arg{'addNames'}) ? @{ $arg{'addNames'} } : $arg{'addNames'}) { $addName =~ s/[^\w\.]//g; push(@addNames, $addName) if ($addName); } } ### パスを設定 my $date = &strftime('%Y%m%d', localtime(time)); my $fileName = join('_', $baseName, @addNames); $filePath = "${directory}/${fileName}_${date}.log"; my $filePattern = "${directory}/${fileName}_????????.log"; ### ローテーション時に残すログの数 my $reserve = $arg{'reserve'}; $reserve =~ s/\D//g if ($reserve); $reserve = 5 unless ($reserve); if (-d $directory) { # ディレクトリがあったらローテーション unless (-e $filePath) { # n-1個残す(1個は今回新たに作られる) $reserve = $reserve - 1; } my $count = 0; foreach my $oldLog (sort { $b cmp $a } (glob($filePattern))) { $count++; # 古いファイルを削除 unlink($oldLog) if ($count > $reserve); } } else { # ディレクトリがなかったら作成 mkpath($directory, { 'mode' => 0755 }) or die $!; } open(STDERR, '>>', $filePath) or die $!; $isOpened = 1; # 見出し my $BT_START_TIMESTAMP = &strftime('%Y/%m/%d %H:%M:%S', localtime($^T)); warn << "__END_OF_HEADER__"; | PID $$ | UID $<(EUID $>) | GID ${(}(EGID ${)}) | Perl Version $] | Logged By $0 -------------------------------------------------------------------------------- | Datetime | Status | Processing | -------------------------------------------------------------------------------- | $BT_START_TIMESTAMP | START | Job Start | __END_OF_HEADER__ ComLog::write('CMD', "$0 " . join(' ', @ARGV)); }; if ($@) { $isOpened = -1; return undef; } else { return $filePath; } } ################################################################################ # 名 称:close # 機 能:ログをクローズする。 # ------------------------------------------------------------------------------ # 引 数:(なし) # 戻り値:1/0 … 成功/失敗 ################################################################################ sub close() { eval{ my $ts = &strftime('%Y/%m/%d %H:%M:%S', localtime(time)); warn("| $ts | END | Job End |\n"); warn(('~' x 80) . "\n"); close(STDERR) if ($isOpened > 0); $isOpened = 0; }; if ($@) { return 0; } else { return 1; } } END { ComLog::close if ($isOpened); } ################################################################################ # 名 称:write # 機 能:ログを一行書き出す。 # ------------------------------------------------------------------------------ # 引 数:stat … ステータス(省略可、default:------) # :body … 本文 # 戻り値:1/0 … 成功/失敗 ################################################################################ sub write($;$) { my ($stat, $body) = @_; eval{ # 開き忘れていたら一応警告 warn("ログファイルがopenされていません。\n") unless ($isOpened); unless (defined($body)) { $body = $stat; $stat = undef; } $stat = $defaultStat if (not defined($stat) or $stat !~ /\S/); $body = '' unless (defined($body)); if (length($stat) > 6){ $stat = $defaultStat; } $stat = $stat . (' ' x (6 - length($stat))); my $ts = &strftime('%Y/%m/%d %H:%M:%S', localtime(time)); unless (ref($body)) { warn("| $ts | $stat | $body\n"); } else { warn("| $ts | $stat | " . Data::Dumper->new([$body])->Indent(1)->Terse(1)->Sortkeys(1)->Dump); } }; if ($@) { return 0; } else { return 1; } } ################################################################################ # 名 称:start # 機 能:処理開始ログを一行書き出す。 # ------------------------------------------------------------------------------ # 引 数:proc … 処理名 # 戻り値:1/0 … 成功/失敗 ################################################################################ sub start($) { my ($proc) = @_; my $hyphenLength = (length($proc) < 37) ? (37 - length($proc)) : 37; return ComLog::write('▼開始▼ ' . '-' x $hyphenLength . ' ' . $proc); } ################################################################################ # 名 称:end # 機 能:処理終了ログを一行書き出す。 # ------------------------------------------------------------------------------ # 引 数:proc … 処理名 # 戻り値:1/0 … 成功/失敗 ################################################################################ sub end($) { my ($proc) = @_; my $hyphenLength = (length($proc) < 37) ? (37 - length($proc)) : 37; return ComLog::write('△終了△ ' . '-' x $hyphenLength . ' ' . $proc); } ################################################################################ # 名 称:startInit # 機 能:初期処理開始ログを一行書き出す。 # ------------------------------------------------------------------------------ # 引 数:なし # 戻り値:1/0 … 成功/失敗 ################################################################################ sub startInit() { return ComLog::write('■開始■ ----------------------------- 初期処理'); } ################################################################################ # 名 称:endInit # 機 能:初期処理終了ログを一行書き出す。 # ------------------------------------------------------------------------------ # 引 数:proc … 処理名 # 戻り値:1/0 … 成功/失敗 ################################################################################ sub endInit() { return ComLog::write('□終了□ ----------------------------- 初期処理'); } ################################################################################ # 名 称:startMain # 機 能:主処理開始ログを一行書き出す。 # ------------------------------------------------------------------------------ # 引 数:なし # 戻り値:1/0 … 成功/失敗 ################################################################################ sub startMain() { return ComLog::write('■開始■ ------------------------------- 主処理'); } ################################################################################ # 名 称:endMain # 機 能:主期処理終了ログを一行書き出す。 # ------------------------------------------------------------------------------ # 引 数:proc … 処理名 # 戻り値:1/0 … 成功/失敗 ################################################################################ sub endMain() { return ComLog::write('□終了□ ------------------------------- 主処理'); } ################################################################################ # 名 称:startExit # 機 能:初期処理開始ログを一行書き出す。 # ------------------------------------------------------------------------------ # 引 数:なし # 戻り値:1/0 … 成功/失敗 ################################################################################ sub startExit() { return ComLog::write('■開始■ ----------------------------- 終了処理'); } ################################################################################ # 名 称:endExit # 機 能:初期処理終了ログを一行書き出す。 # ------------------------------------------------------------------------------ # 引 数:proc … 処理名 # 戻り値:1/0 … 成功/失敗 ################################################################################ sub endExit() { return ComLog::write('□終了□ ----------------------------- 終了処理'); } 1; 这是log.pm

时间: 2025-07-04 09:16:23 浏览: 5
ComLog 是 Perl 中一个用于简化日志记录功能的模块,它提供了一系列方法来帮助开发者在应用程序中嵌入日志记录机制。该模块通常会封装一些常见的日志操作,如写入日志信息、设置日志级别以及指定日志输出格式等。 ### ComLog 的基本功能 1. **日志级别控制**:ComLog 允许定义不同的日志级别(例如 debug, info, warning, error),以便根据需要过滤和记录不同严重程度的信息。 2. **多样的输出方式**:支持将日志信息输出到控制台、文件或其他自定义的目标位置。 3. **灵活的日志格式化**:可以配置日志消息的格式,包括时间戳、日志级别、消息内容等部分。 ### 使用示例 以下是一个简单的 `ComLog` 模块使用的例子: #### 初始化日志系统 ```perl use ComLog; # 创建一个新的日志对象 my $logger = ComLog->new(); # 设置日志输出文件 $logger->setLogFile("application.log"); # 设置当前的日志级别为 'debug',这样所有级别的日志都会被记录 $logger->setLevel('debug'); ``` #### 记录日志信息 ```perl # 输出调试信息 $logger->debug("This is a debug message."); # 输出普通信息 $logger->info("Application started successfully."); # 输出警告信息 $logger->warn("This is a warning message."); # 输出错误信息 $logger->error("An error occurred during execution."); ``` #### 自定义日志格式 如果想要改变日志条目的显示格式,可以通过如下方式进行设置: ```perl # 定义自己的日志格式字符串 $logger->setFormat("%Y-%m-%d %H:%M:%S [%L] %M\n"); # 其中: # %Y - 年份 # %m - 月份 # %d - 日期 # %H - 小时 # %M - 分钟 # %S - 秒数 # %L - 日志级别 # %M - 消息内容 ``` #### 更改日志级别 为了减少生产环境中过多的日志输出,可以在部署时调整日志级别: ```perl # 只记录 warn 和 error 级别的日志 $logger->setLevel('warn'); ``` 以上代码片段展示了如何使用 `ComLog` 来进行基础的日志管理。实际应用中,`ComLog` 或者类似的日志模块可能会提供更多高级特性,比如异步日志记录、日志文件滚动策略等功能[^4]。 请注意,具体的 API 和功能可能因具体实现而异,因此建议查阅相关文档以获取最准确的信息。
阅读全文

相关推荐

最新推荐

recommend-type

解析C#中#region与#if的作用

在C#编程语言中,`#region` 和 `#if` 是两种非常实用的预处理器指令,它们分别用于代码组织和条件编译。下面将详细解释这两种指令的作用、使用场景以及如何有效地利用它们来提高代码的可读性和维护性。...
recommend-type

详解Mybatis中的 ${} 和 #{}区别与用法

Mybatis中的 ${} 和 #{}区别与用法详解 Mybatis 是一个基于 Java 的持久层框架,它提供了一个简单的方式来进行数据库操作。在 Mybatis 中,使用 ${} 和 #{} 两种方式来传递参数,但它们之间有着很大的区别。...
recommend-type

C# #define条件编译详解

C#中的#define是一个预处理器指令,用于定义符号常量,它在编译时起作用,而不是在程序运行时。条件编译是一种技术,允许根据特定的定义或条件来选择性地编译代码块。这对于创建多版本的软件、针对不同平台优化代码...
recommend-type

预编译#define_#ifdef_#endif用法

在C/C++编程中,预编译指令是代码编译过程中的重要组成部分,它们主要用于处理源代码中的条件编译和宏定义。`#define`, `#ifdef`, `#endif`等预编译指令帮助程序员根据特定条件来决定哪些代码应该被编译,从而实现...
recommend-type

DSP中CSL头文件中宏中#和##的用法

#define _PER_FSHIFT(PER,REG,FIELD) _##PER##_##REG##_##FIELD##_SHIFT 假如设置:_EMIF_FSHIFT(EMIF,GBLCTL,BUSREQ) 那么就是:_EMIF_GBLCTL_BUSREQ_SHIFT 在 CSL 头文件中会有一个定义:#define _EMIF_GBLCTL_...
recommend-type

ASP.NET新闻管理系统:用户管理与内容发布功能

知识点: 1. ASP.NET 概念:ASP.NET 是一个开源、服务器端 Web 应用程序框架,用于构建现代 Web 应用程序。它是 .NET Framework 的一部分,允许开发者使用 .NET 语言(例如 C# 或 VB.NET)来编写网页和 Web 服务。 2. 新闻发布系统功能:新闻发布系统通常具备用户管理、新闻分级、编辑器处理、发布、修改、删除等功能。用户管理指的是系统对不同角色的用户进行权限分配,比如管理员和普通编辑。新闻分级可能是为了根据新闻的重要程度对它们进行分类。编辑器处理涉及到文章内容的编辑和排版,常见的编辑器有CKEditor、TinyMCE等。而发布、修改、删除功能则是新闻发布系统的基本操作。 3. .NET 2.0:.NET 2.0是微软发布的一个较早版本的.NET框架,它是构建应用程序的基础,提供了大量的库和类。它在当时被广泛使用,并支持了大量企业级应用的构建。 4. 文件结构分析:根据提供的压缩包子文件的文件名称列表,我们可以看到以下信息: - www.knowsky.com.txt:这可能是一个文本文件,包含着Knowsky网站的一些信息或者某个页面的具体内容。Knowsky可能是一个技术社区或者文档分享平台,用户可以通过这个链接获取更多关于动态网站制作的资料。 - 源码下载.txt:这同样是一个文本文件,顾名思义,它可能包含了一个新闻系统示例的源代码下载链接或指引。用户可以根据指引下载到该新闻发布系统的源代码,进行学习或进一步的定制开发。 - 动态网站制作指南.url:这个文件是一个URL快捷方式,它指向一个网页资源,该资源可能包含关于动态网站制作的教程、指南或者最佳实践,这对于理解动态网站的工作原理和开发技术将非常有帮助。 - LixyNews:LixyNews很可能是一个项目文件夹,里面包含新闻发布系统的源代码文件。通常,ASP.NET项目会包含多个文件,如.aspx文件(用户界面)、.cs文件(C#代码后台逻辑)、.aspx.cs文件(页面的代码后台)等。这个文件夹中应该还包含Web.config配置文件,它用于配置整个项目的运行参数和环境。 5. 编程语言和工具:ASP.NET主要是使用C#或者VB.NET这两种语言开发的。在该新闻发布系统中,开发者可以使用Visual Studio或其他兼容的IDE来编写、调试和部署网站。 6. 新闻分级和用户管理:新闻分级通常涉及到不同的栏目分类,分类可以是按照新闻类型(如国际、国内、娱乐等),也可以是按照新闻热度或重要性(如头条、焦点等)进行分级。用户管理则是指系统需具备不同的用户身份验证和权限控制机制,保证只有授权用户可以进行新闻的发布、修改和删除等操作。 7. 编辑器处理:一个新闻发布系统的核心组件之一是所使用的Web编辑器。这个编辑器可以是内置的简单文本框,也可以是富文本编辑器(WYSIWYG,即所见即所得编辑器),后者能够提供类似于Word的编辑体验,并能输出格式化后的HTML代码。CKEditor和TinyMCE是常用的开源Web编辑器,它们支持插入图片、视频、表格等多种媒体,并能对文本进行复杂的格式化操作。 8. 发布、修改和删除功能:这是新闻发布系统的基本操作功能。发布功能允许用户将编辑好的新闻内容上线;修改功能可以对已发布的新闻内容进行更新;删除功能则用于移除不再需要的新闻文章。这些操作通常需要后台管理界面来支持,并且系统会在数据库中记录相关操作的记录,以便管理历史版本和审计日志。 以上知识点覆盖了从ASP.NET基础、新闻发布系统的具体功能实现到系统开发过程中的细节处理等多个方面。开发者在构建类似系统时,需要深入了解这些知识点,才能设计和实现一个功能完备、易用、安全的新闻发布系统。
recommend-type

【实战派量化投资秘籍】:Pair Trading策略全方位解析

# 摘要 量化投资中的Pair Trading策略是一种依赖统计套利和市场效率假说的交易方法,其核心在于选择相关性高的资产作为交易对并应用协整理论进行市场中立投资。本文首先概述了Pair Trading策略的理论基础,随后详细探讨了策略的实操技巧,包括数据预处理、模型建立和交易信号生成。接着,文章重点介绍了策略的编程实现,提供了环境搭建
recommend-type

fpga中保持时间建立时间时序约束

<think>我们讨论的是FPGA中的建立时间(Setup Time)和保持时间(Hold Time)时序约束问题。建立时间是指在时钟有效边沿到来之前,数据必须保持稳定的最小时间。保持时间是指在时钟有效边沿到来之后,数据必须保持稳定的最小时间。时序约束就是确保设计满足这些时间要求。 在FPGA设计中,我们通过时序约束(如时钟约束、输入输出延迟约束等)来告知工具设计的时序要求,工具会根据这些约束进行优化和验证。 以下是关于建立时间和保持时间时序约束的详细说明: ### 1. 建立时间和保持时间的基本概念 - **建立时间(Setup Time)**:时钟边沿到达前,数据必须稳定的时间。 -
recommend-type

Notepad2: 高效替代XP系统记事本的多功能文本编辑器

### 知识点详解 #### 标题解析 - **Vista记事本(Notepad2)**: Vista记事本指的是一款名为Notepad2的文本编辑器,它不是Windows Vista系统自带的记事本,而是一个第三方软件,具备高级编辑功能,使得用户在编辑文本文件时拥有更多便利。 - **可以替换xp记事本Notepad**: 这里指的是Notepad2拥有替换Windows XP系统自带记事本(Notepad)的能力,意味着用户可以安装Notepad2来获取更强大的文本处理功能。 #### 描述解析 - **自定义语法高亮**: Notepad2支持自定义语法高亮显示,可以对编程语言如HTML, XML, CSS, JavaScript等进行关键字着色,从而提高代码的可读性。 - **支持多种编码互换**: 用户可以在不同的字符编码格式(如ANSI, Unicode, UTF-8)之间进行转换,确保文本文件在不同编码环境下均能正确显示和编辑。 - **无限书签功能**: Notepad2支持设置多个书签,用户可以根据需要对重要代码行或者文本行进行标记,方便快捷地进行定位。 - **空格和制表符的显示与转换**: 该编辑器可以将空格和制表符以不同颜色高亮显示,便于区分,并且可以将它们互相转换。 - **文本块操作**: 支持使用ALT键结合鼠标操作,进行文本的快速选择和编辑。 - **括号配对高亮显示**: 对于编程代码中的括号配对,Notepad2能够高亮显示,方便开发者查看代码结构。 - **自定义代码页和字符集**: 支持对代码页和字符集进行自定义,以提高对中文等多字节字符的支持。 - **标准正则表达式**: 提供了标准的正则表达式搜索和替换功能,增强了文本处理的灵活性。 - **半透明模式**: Notepad2支持半透明模式,这是一个具有视觉效果的功能,使得用户体验更加友好。 - **快速调整页面大小**: 用户可以快速放大或缩小编辑器窗口,而无需更改字体大小。 #### 替换系统记事本的方法 - **Windows XP/2000系统替换方法**: 首先关闭系统文件保护,然后删除系统文件夹中的notepad.exe,将Notepad2.exe重命名为notepad.exe,并将其复制到C:\Windows和C:\Windows\System32目录下,替换旧的记事本程序。 - **Windows 98系统替换方法**: 直接将重命名后的Notepad2.exe复制到C:\Windows和C:\Windows\System32目录下,替换旧的记事本程序。 #### 关闭系统文件保护的方法 - 通过修改Windows注册表中的"SFCDisable"键值,可以临时禁用Windows系统的文件保护功能。设置键值为"FFFFFF9D"则关闭文件保护,设置为"0"则重新启用。 #### 下载地址 - 提供了Notepad2的下载链接,用户可以通过该链接获取安装包。 #### 文件压缩包内文件名 - **Notepad2MOD1.1.0.8CN.exe**: 这是压缩包内所含的Notepad2编译版本,表明这是一个中文版的安装程序,版本号为1.1.0.8。 ### 总结 Notepad2是一款强大的文本编辑器,它继承了传统的记事本程序界面,同时引入了诸多增强功能,如语法高亮、编码格式转换、书签管理、文本操作快捷键、括号高亮匹配等。这使得它在处理代码、标记语言和其他文本文件时具备极大的优势。用户可以通过替换系统默认记事本的方式,将Notepad2融入到操作系统中,充分享受这些高级功能带来的便捷。同时,提供了关闭系统文件保护的方法,以便用户能够顺利完成替换工作。最后,给出了下载地址,方便用户获取软件安装包。
recommend-type

【mPower1203驱动故障全攻略】:排除新手疑难杂症,提升部署效率

# 1. mPower1203驱动概述与故障诊断基础 在当今信息技术飞速发展的时代,高效准确地诊断和解决驱动故障对于确保企业级IT系统的稳定运行至关重要。mPower1203驱动作为一个广泛应用于高性能计算和数据处理领域的驱动程序,它的稳定性和性能优化对于很多关键业务系统都是不可忽视的。本章节将为您提供一个mPower1203驱动的概述,并对故障诊断的