高人解惑

magnet2008 2009-05-31 08:06:18
各位高人,本人要做课程设计,准备用perl开发一个日志分析软件,能不能给点意见,指导性建议,没找到apache日志,是用iis日志,能否提供一个较为详细的开发流程和思路???菜鸟 perl首贴。。。
...全文
149 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
magnet2008 2009-06-04
  • 打赏
  • 举报
回复
cs(User-Agent) Mozilla/4.0+(compatible;+MSIE+6.0;+Windows+NT+5.1;+SV1;+TheWorld)
sc-substatus 0
sc-win32-status 64
请详细分析一下cs括号里边的东西,特别是cs(User-Agent) 是什么意思??我找的只有sc-status的状态代码,另外对于后两行的状态代码什么意思??
感觉日志分析要从日志中提取数据然后好像要分析访问量,页面访问数,网站停留时间等信息,
可是不太知道如何下手啊???有没有人做过日志分析,说一下您的经历。
要做课程设计。讲一下你的设计思路。。。十分感谢。。
icansaymyabc 2009-06-04
  • 打赏
  • 举报
回复
第一步,学会正则表达式
第二步,用任何支持正则表达式的语言进行日志分析
iambic 2009-06-04
  • 打赏
  • 举报
回复
好像是文件中出现了某些全角符号。
magnet2008 2009-06-04
  • 打赏
  • 举报
回复
cs(User-Agent) Mozilla/4.0+(compatible;+MSIE+6.0;+Windows+NT+5.1;+SV1;+TheWorld)
什么意思???怎么有这么多浏览器类型,哪一个指的是客户端浏览器类型?????
magnet2008 2009-06-03
  • 打赏
  • 举报
回复
Unrecognized character \xE3 at 1.pl line 1.
这是什么错误阿,急,望高人回答。。。。。
#!/usr/bin/perl
use DBI;
$db=DBI->connect('DBI:mysql:design;user=root;password=root');
$sth=$db->prepare("select * from cvalue");
$sth->execute();
$sth->dump_results();
$sth->finish();
$db->disconnect();
是字符集的问题么??怎么解决。。
lixq2000 2009-06-01
  • 打赏
  • 举报
回复
你都想实现什么功能
fibbery 2009-06-01
  • 打赏
  • 举报
回复
都分析什么呢?日志分析包括很多方面!建议网上搜索
magnet2008 2009-06-01
  • 打赏
  • 举报
回复
这几行什么意思???
cs(User-Agent) (compatible;+MSIE+6.0;+Windows+NT+5.1;+SV1;+TheWorld)
sc-substatus 0
sc-win32-status 64
请详细分析一下cs括号里边的东西,我找的只有sc-status的状态代码,另外对于后两行的状态代码什么意思??
感觉日志分析要从日志中提取数据然后好像要分析访问量,页面访问数,网站停留时间等信息,
可是不太知道如何下手啊???有没有人做过日志分析,说一下您的经历。
要做课程设计。讲一下你的设计思路。。。十分感谢。。
iambic 2009-05-31
  • 打赏
  • 举报
回复
http://oreilly.com/catalog/perlsysadm/chapter/ch09.html#37964
http://www.ip-solutions.net/syslog-ng/sl2

其实不太清楚你所说的日志分析具体都包括哪些功能。
fairchild811 2009-05-31
  • 打赏
  • 举报
回复
#这个脚本是统计那个资源是最热门的

#给出点击率,主要是针对文件

use strict;
my $log_file='D:\\test\\log.txt';
#my $out_file='new_log.txt';

open FH,"<",$log_file||die "can't open $log_file:$!\n";
printf("%10s%71s\n",'file','hits');
my @info;
my %count;
while(<FH>)
{
@info=split;
if(exists $count{$info[4]})
{
$count{$info[4]}++;
}
else
{
$count{$info[4]}=1;
}
}
map{printf("%-70s%10d\n",$_,$count{$_})} sort {$count{$b}<=>$count{$a}} keys %count;
#print map{"$_\t$count{$_}\n"} sort {$count{$b}<=>$count{$a}} keys %count;

37,743

社区成员

发帖
与我相关
我的任务
社区描述
JavaScript,VBScript,AngleScript,ActionScript,Shell,Perl,Ruby,Lua,Tcl,Scala,MaxScript 等脚本语言交流。
社区管理员
  • 脚本语言(Perl/Python)社区
  • WuKongSecurity@BOB
加入社区
  • 近7日
  • 近30日
  • 至今

试试用AI创作助手写篇文章吧