perl 分析mysql日志[追加询问]

大狗狗

UID: 19898
帖子: 1
积分: 2
在线时间: 10 分钟

11^# 大狗狗发表于 2008-01-04 16:42

$/ 这个代表什么， perl语言入门里也没有找到。谁可以提醒我一下。。

CU_wanglijun

UID: 19952
帖子: 1
积分: 2
在线时间: 10 分钟

12^# CU_wanglijun 发表于 2008-01-04 16:52

我还是没明白，用/m修饰符是怎么处理的
哪位能不能把代码写出来看一下
谢谢了

大狗狗

UID: 19898
帖子: 1
积分: 2
在线时间: 10 分钟

13^# 大狗狗发表于 2008-01-04 17:02

找到了 ==========================

perl内置变量2008-01-04 16:55以下为个人所知的Perl内置变量,如有缺,请发帖添加:

$- 当前页可打印的行数,属于Perl格式系统的一部分
$! 根据上下文内容返回错误号或者错误串
$” 列表分隔符
$# 打印数字时默认的数字输出格式
$$ Perl解释器的进程ID
$% 当前输出通道的当前页号
$& 与上个格式匹配的字符串
$( 当前进程的组ID
$) 当前进程的有效组ID
$* 设置1表示处理多行格式.现在多以/s和/m修饰符取代之.
$, 当前输出字段分隔符
$. 上次阅读的文件的当前输入行号
$/ 当前输入记录分隔符,默认情况是新行
$: 字符设置,此后的字符串将被分开,以填充连续的字段.
$; 在仿真多维数组时使用的分隔符.
$? 返回上一个外部命令的状态
$@ Perl解释器从eval语句返回的错误消息
$[ 数组中第一个元素的索引号
$\ 当前输出记录的分隔符
$] Perl解释器的子版本号
$^ 当前通道最上面的页面输出格式名字
$^A 打印前用于保存格式化数据的变量
$^D调试标志的值
$^E在非UNIX环境中的操作系统扩展错误信息
$^F最大的文件捆述符数值
$^H由编译器激活的语法检查状态
$^I内置控制编辑器的值
$^L发送到输出通道的走纸换页符
$^M备用内存池的大小
$^O操作系统名
$^P指定当前调试值的内部变量
$^R正则表达式块的上次求值结果
$^S当前解释器状态
$^T从新世纪开始算起,脚步本以秒计算的开始运行的时间
$^W警告开关的当前值
$^X Perl二进制可执行代码的名字
$_ 默认的输入/输出和格式匹配空间
$| 控制对当前选择的输出文件句柄的缓冲
$~ 当前报告格式的名字
$` 在上个格式匹配信息前的字符串
$’ 在上个格式匹配信息后的字符串
$+ 与上个正则表达式搜索格式匹配的最后一个括号
$< 当前执行解释器的用户的真实ID
$<digits>含有与上个匹配正则表达式对应括号结果
$= 当前页面可打印行的数目
$> 当前进程的有效用户ID
包含正在执行的脚本的文件名
$ ARGV 从默认的文件句柄中读取时的当前文件名
%ENV 环境变量列表
%INC 通过do或require包含的文件列表
%SIG 信号列表及其处理方式
@_ 传给子程序的参数列表
@ARGV 传给脚本的命令行参数列表
@INC 在导入模块时需要搜索的目录列表

大狗狗

UID: 19898
帖子: 1
积分: 2
在线时间: 10 分钟

14^# 大狗狗发表于 2008-01-04 17:04

QUOTE:

原帖由 ly5066113 于 2008-1-2 13:09 发表
perl -ne '$/="";print if /Query_time: 1/' s.log

感觉这个最好。

CU_wanglijun

UID: 19952
帖子: 1
积分: 2
在线时间: 10 分钟

15^# CU_wanglijun 发表于 2008-01-04 18:11

QUOTE:

原帖由 CU_wanglijun 于 2008-1-4 16:52 发表
我还是没明白，用/m修饰符是怎么处理的
哪位能不能把代码写出来看一下
谢谢了

哦，明白了，多谢楼上提醒，原来是那个$/是关键

luckyelement

UID: 34753
帖子: 36
积分: 82
在线时间: 1 小时

16^# luckyelement 发表于 2008-01-04 20:36

QUOTE:

use strict;       use warnings;
my $filepath = "s.log";
open (FP, $filepath);
my $flag=0;
my $sql="";
while(<FP>{
      if(/Query_time: 1/){$flag = 1;       $_=<FP>};
      $sql .= $_ if $flag == 1;
      if(/;/){
            print $sql if $sql;
            $flag=0;       $sql="";
      };
}...

谢谢. 这种方法我已经实现.

一直再想除了这种办法外是否还有别的办法. 想了一种(就是这个主题)思路现在卡住了. 想不出来解决办法.

huangruir

UID: 9298
帖子: 127
积分: 292
在线时间: 22 小时

17^# huangruir 发表于 2008-03-05 20:30

请问你是怎么在xp下安装DBD：：mysql的啊，没有这个好像不能连mysql的把，我已经把DBI也安装了，但用ppm安装DBD：：mysql 以后，在DBI driver里也没有mysql，不知道怎么回事，你遇到过这样的问题嘛？