Reader: 1
8 entries, 1 page |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl -w
#
use strict;
my $pathinput="D:\\WebLogs\\import\\";
my $filesinput="*.log";
my @filelist = glob($pathinput.$filesinput);
foreach my $AnalyseFile (@filelist) {
print $AnalyseFile , "\n";
open(READLOG,$AnalyseFile) || die("Cannot Open File");
my@AnalyseLines=<READLOG>; Code:
Original - my@AnalyseLines=<READLOG>; Code
my@AnalyseLines=<READLOG>;
my @AnalyseLines=<READLOG>;
close(READLOG);
}
8 entries, 1 page |