亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

  免費(fèi)注冊 查看新帖 |

Chinaunix

  平臺(tái) 論壇 博客 文庫
最近訪問板塊 發(fā)新帖
查看: 2478 | 回復(fù): 6
打印 上一主題 下一主題

江湖救急，日志排版問題 [復(fù)制鏈接]

論壇徽章:
7
榮譽(yù)會(huì)員 日期:2011-11-23 16:44:17水瓶座 日期:2013-08-28 21:20:16丑牛 日期:2013-10-02 21:01:462015年迎新春徽章 日期:2015-03-04 09:54:45操作系統(tǒng)版塊每日發(fā)帖之星 日期:2016-06-05 06:20:0015-16賽季CBA聯(lián)賽之吉林 日期:2016-06-20 08:24:0515-16賽季CBA聯(lián)賽之四川 日期:2016-08-18 15:02:02
跳轉(zhuǎn)到指定樓層
1樓 [收藏(0)] [報(bào)告]
發(fā)表于 2013-06-27 16:11 |只看該作者 |倒序?yàn)g覽
10可用積分
  1. 181    Thu Jun 27 01:15:51 2013  IPMI      Log       minor   
  2.        ID =   b2 : 06/27/2013 : 01:15:51 : System Firmware Progress : SMI Handle
  3.        r : PCI resource configuration : Asserted
  4. 180    Thu Jun 27 01:15:51 2013  IPMI      Log       minor   
  5.        ID =   b1 : 06/27/2013 : 01:15:51 : System Firmware Progress : SMI Handle
  6.        r : PCI resource configuration : Asserted
復(fù)制代碼
五年多了沒用perl，但是又突然要用上了，無奈記性不再。語法都記不住鳥。


問題是怎么樣把上述的日志格式化成下面的格式？


181    Thu Jun 27 01:15:51 2013  IPMI      Log       minor   
       ID =   b2 : 06/27/2013 : 01:15:51 : System Firmware Progress : SMI Handler : PCI resource configuration : Asserted
180    Thu Jun 27 01:15:51 2013  IPMI      Log       minor   
       ID =   b1 : 06/27/2013 : 01:15:51 : System Firmware Progress : SMI Handler : PCI resource configuration : Asserted

論壇徽章:
3
CU十二周年紀(jì)念徽章 日期:2013-10-24 15:41:34子鼠 日期:2013-12-14 14:57:19射手座 日期:2014-04-25 21:23:23
2樓 [報(bào)告]
發(fā)表于 2013-06-27 16:11 |只看該作者
本帖最后由 mcshell 于 2013-06-27 17:16 編輯
  1. perl -lne 'BEGIN{$/=""};1 while(/^(\d+.*\s+.*)\s+(.*)(?{print "$1$2"})/mg)'  file.log
復(fù)制代碼

論壇徽章:
0
3樓 [報(bào)告]
發(fā)表于 2013-06-27 16:44 |只看該作者
本帖最后由 raoweijian 于 2013-06-27 16:50 編輯
  1. #!usr/bin/perl -w
  2. use strict;
  3. my $control = 0;
  4. while(<DATA>){
  5.     chomp;
  6.     if(/^\d/){
  7.         $control = 1;
  8.         print "$_\n";
  9.         next;
  10.     }
  11.     if($control == 1){
  12.         print $_;
  13.         $control = 2;
  14.         next;
  15.     }
  16.     if($control == 2){
  17.         $_ =~ s/\s+//;            #這里用\s+匹配前面的空格，貌似用\t匹配不到
  18.         print "$_\n";
  19.         $control = 0;
  20.         next;
  21.     }
  22. }











  34. __DATA__
  35. 181 Thu Jun 27 01:15:51 2013  IPMI      Log       minor
  36.     ID =   b2 : 06/27/2013 : 01:15:51 : System Firmware Progress : SMI Handle
  37.     r : PCI resource configuration : Asserted
  38. 180 Thu Jun 27 01:15:51 2013  IPMI      Log       minor
  39.     ID =   b1 : 06/27/2013 : 01:15:51 : System Firmware Progress : SMI Handle
  40.     r : PCI resource configuration : Asserted
復(fù)制代碼

論壇徽章:
0
4樓 [報(bào)告]
發(fā)表于 2013-06-27 16:45 |只看該作者
測試通過，針對(duì)你給出的不規(guī)范的地方改規(guī)范了~~~版主大人分給我吧

論壇徽章:
3
摩羯座 日期:2013-09-04 12:01:36申猴 日期:2013-10-23 12:12:23CU十二周年紀(jì)念徽章 日期:2013-10-24 15:41:34
5樓 [報(bào)告]
發(fā)表于 2013-06-27 18:04 |只看該作者
牛逼��！用命令行就搞定了
不過我則么妹看出來要格式化成什么呢

論壇徽章:
3
摩羯座 日期:2013-09-04 12:01:36申猴 日期:2013-10-23 12:12:23CU十二周年紀(jì)念徽章 日期:2013-10-24 15:41:34
6樓 [報(bào)告]
發(fā)表于 2013-06-27 18:05 |只看該作者
牛逼�。∮妹钚芯透愣�
不過我則么妹看出來要格式化成什么呢

論壇徽章:
0
7樓 [報(bào)告]
發(fā)表于 2013-06-28 10:15 |只看該作者
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;

  5. undef $/;
  6. while (my $line = <>) {
  7.      while ($line =~ m/^(\d+\s+.*?Handle)\s+(.*?Asserted)$/gsm) {
  8.         print "$1$2\n";
  9.     }
  10. }
復(fù)制代碼
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則 發(fā)表回復(fù)

  

北京盛拓優(yōu)訊信息技術(shù)有限公司. 版權(quán)所有 京ICP備16024965號(hào)-6 北京市公安局海淀分局網(wǎng)監(jiān)中心備案編號(hào)：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報(bào)專區(qū)
中國互聯(lián)網(wǎng)協(xié)會(huì)會(huì)員  聯(lián)系我們：huangweiwei@itpub.net
感謝所有關(guān)心和支持過ChinaUnix的朋友們 轉(zhuǎn)載本站內(nèi)容請(qǐng)注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP