首先,如果您覺得這是重複的,我表示歉意。我環顧四周,發現了一些非常相似的問題,但我要麼迷路了,要麼不是我認爲我需要的東西,因此不能提出適當的實施方案。Perl - 從文本文件中解析塊
問題:
所以我有一個包含由另一個腳本生成的條目一個txt文件(我可以編輯如何生成這些條目的格式,如果你能提出一個更好的辦法來設置格式):
SR4 Pool2
11/5/2012 13:45
----------
Beginning Wifi_Main().
SR4 Pool2
11/8/2012 8:45
----------
This message is a
multiline message.
SR4 Pool4
11/5/2012 14:45
----------
Beginning Wifi_Main().
SR5 Pool2
11/5/2012 13:48
----------
Beginning Wifi_Main().
而且我做了一個Perl腳本解析文件:
#!C:\xampp-portable\perl\bin\perl.exe
use strict;
use warnings;
#use Dumper;
use CGI 'param','header';
use Template;
#use Config::Simple;
#Config::Simple->import_from('config.ini', \%cfg);
my $cgh = CGI->new;
my $logs = {};
my $key;
print "Content-type: text/html\n\n";
open LOG, "logs/Pool2.txt" or die $!;
while (my $line = <LOG>) {
chomp($line);
}
print $logs;
close LOG;
我的目標是在看起來像這樣結束的哈希:
$logs = {
SR4 => {
Pool2 => {
{
time => '11/5/2012 13:45',
msg => 'Beginning Wifi_NDIS_Main().',
},
{
time => '11/8/2012 8:45',
msg => 'This message is a multiline message.',
},
},
Pool4 => {
{
time => '11/5/2012 13:45',
msg => 'Beginning Wifi_NDIS_Main().',
},
},
},
SR5 => {
Pool2 => {
{
time => '11/5/2012 13:45',
msg => 'Beginning Wifi_NDIS_Main().',
},
},
},
};
要做這件事的最好方法是什麼?我應該更改生成的日誌的格式以使其更容易嗎?如果您需要更多信息,請詢問。先進的謝謝你。 :)
嗯。當我有機會的時候,我會更加關注這個問題,謝謝。 – Dylan