lazarus(pascal)和c语言读日志文件筛选保存为新文件

lazarus(pascal)和c语言读日志文件筛选保存为新文件，源于看日志每次从一个很多内容文件里查找不方便，写个代码输入时分秒参数，然后按行读取比较日志时间，当前秒和上一秒的输出保存为新文件，只保存2秒钟文件小多了，容易观察。

首先上pascal代码

program project1;{$mode objfpc}{$H+}uses{$IFDEF UNIX}cthreads,{$ENDIF}Classes,SysUtils,CustApp,dateutils { you can add units after this };type{ analyselog }analyselog = class(TCustomApplication)protectedprocedure DoRun; override;publicconstructor Create(TheOwner: TComponent); override;destructor Destroy; override;procedure WriteHelp; virtual;procedure outLog(fn,outf,t, nextt: string); virtual;function changeSencond(dt: ttime; d: integer): ttime; virtual;end;{ analyselog }procedure analyselog.DoRun;varfn: string;dt1,dt2: string;dt: TTime;beginif GetParamCount > 1 thenbegindt2:= GetParams(1);writeln(dt2);dt := changeSencond(StrToTime(dt2), -1);dt1 := timetostr(dt);writeln(dt1);fn := format('%s/dms-jc5000.txt', [GetParams(2)]);writeln(GetParams(2));writeln(fn);if FileExists(fn) then  outLog(fn,'jc5000.txt',dt1, dt2);if GetParamCount > 2 thenbeginfn := format('%s/dms-all.txt', [GetParams(2)]);if FileExists(fn) then  outLog(fn,'dmsall.txt',dt1, dt2);endendelseWriteHelp;Terminate;end;constructor analyselog.Create(TheOwner: TComponent);begininherited Create(TheOwner);StopOnException := True;end;destructor analyselog.Destroy;begininherited Destroy;end;procedure analyselog.WriteHelp;begin{ add your help code here }writeln('normal usage example: ', ExeName, ' 06:39:37 /root/logs ');writeln('then we will get /root/logs/jc5000.txt from 06:39:36 to 06:39:37');writeln('other usage example: ', ExeName, ' 06:39:37 /root/logs all');writeln('then we will get /root/logs/jc5000.txt and /root/logs/dmsall.txt from 06:39:36 to 06:39:37');end;function analyselog.changeSencond(dt: ttime; d: integer): ttime;varHour, Min, Sec, MSec: word;beginDecodeTime(dt, Hour, Min, Sec, MSec);Sec := Sec + d;Result := EncodeTime(Hour, Min, Sec, MSec);end;procedure analyselog.outLog(fn,outf,t, nextt: string);varF: TextFile;oL: TStringList;d, linestr: string;tover: integer;beginAssignFile(F, fn);Reset(F);tover := 0;oL := TStringList.Create;while not EOF(F) dobeginReadLn(F, linestr);if length(linestr) > 0 thenbegind := copy(linestr, 1, 8);if (0 = comparetext(d, t)) or (0 = comparetext(d, nextt)) thenbeginwriteln(linestr);oL.Add(linestr);tover := 1;endelsebeginif tover > 0 then  break;end;end;end;CloseFile(F);oL.SaveToFile(outf);oL.Free;end;varApplication: analyselog;{$R *.res}beginApplication := analyselog.Create(nil);Application.Title := 'analyse';Application.Run;Application.Free;
end.

实现过程中发现pascal里没有直接命令复制文件，只好外面整个脚本，因为我这从文件里查找内容不能影响原先文件被别的应用继续写

#!/bin/bash
if [ ! -n "$1" ] ;then
echo "you have not input a hh:mm:ss !"
echo "example : ./getjc5000log.sh 06:39:37"
else
echo "the word you input is $1"
d='/root/logs'
cp -f $d/dms-jc5000.log $d/dms-jc5000.txt
cp -f $d/dms-all.log $d/dms-all.txt
./analyselog $1 ${d} all
fi

写完之后运行可以，但是觉得发布试用要2个文件稍微不完美，好吧，再用c实现一下

#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <stdlib.h>
#include <ctype.h>
#define _XOPEN_SOURCE
#define __USE_XOPEN
#include <time.h>
// 每行最大长度
#define LINE_MAX 2048
//判断一行数据是否有可打印的字符，只有空格不可见的不算，然后判断行首是否满足需要
int isblankline(char str[], char* time1, char* time2) {int k = 0;for (int i = 0; str[i] != '\0'; i++) {if (0 == isgraph(str[i])) {k = 1;break;}}if (1 == k && (0 == strncmp(str, time1, 8) || 0 == strncmp(str, time2, 8))) {return 1;}return 0;
}
//将字符串转成时间戳,偏移后输出字符串
long analyse_time(char* str_time, char* new_time)
{struct tm stm;memset(&stm, 0, sizeof(stm));strptime(str_time, "%H:%M:%S", &stm);stm.tm_year = 70;stm.tm_mday = 1;stm.tm_mon = 1;printf("str_time= %d %d %d     %d\n", stm.tm_hour, stm.tm_min, stm.tm_sec, sizeof(new_time));stm.tm_sec--;long t = mktime(&stm);struct tm tm2 = *localtime(&t);strftime(new_time, 10, "%H:%M:%S", &tm2);printf("new_time= %s    sec %d\n", new_time, tm2.tm_sec);return 0;
}
// 按行读文件满足需要的另存为文件
int createfile(char* file1, char* file2, char* file3, char* time1, char* time2) {char cmd[128] = { 0 };sprintf(cmd, "cp -f %s %s", file1, file2);int k = system(cmd);printf("cp %s ！%d\n", file2, k);if (access(file2, F_OK) == 0) {FILE* fp = fopen(file2, "r");FILE* out = fopen(file3, "w");if (NULL == fp) {printf("open file failed.\n");return -1;}if (NULL == out) {printf("out file failed.\n");return -1;}int line_len = 0; // 文件每行的长度char buf[LINE_MAX] = { 0 }; // 行数据缓存while (fgets(buf, LINE_MAX, fp)) {line_len = strlen(buf);if (isblankline(buf, time1, time2)) {printf("%s\n", buf);/** 对每行数据(buf)进行处理 **/fputs(buf, out);}}if (0 == feof) {// 未读到文件末尾printf("fgets error no end\n");}fclose(fp);fclose(out);}else {printf("isnotexist %s！\n", file2);}
}int main(int argc, char* argv[])
{char newtime[10] = { 0 };printf("hello world\n Harmony is coming！%d\n", argc);if (argc < 2) {printf("no param ！ example: ./loganalyse 00:00:11\n");return 1;}else {printf("app= %s  param = %s\n", argv[0], argv[1]);analyse_time(argv[1], newtime);}createfile("dms-all.log", "dms-all.txt", "dmsall.txt", newtime, argv[1]);createfile("dms-jc5000.log", "dms-jc5000.txt", "jc5000.txt", newtime, argv[1]);return 0;
}