Re^3: Log Parsing

No.

open filehandle, ">", "/home/mj/newlogs$count.log";
# or
open filehandle, '>', '/home/mj/newlogs/ . $count . '.log';
[download]

Additionally you should check if open succeeded: open filehandle, ">", "/home/mj/newlogs$count.log" or die "Can't write to file: $!";

(Update: fixed typo spotted by Corion++)

Perl 6 in German

Comment on Re^3: Log Parsing Select or Download Code

Replies are listed 'Best First'.
Re^4: Log Parsing by mattwortho (Acolyte) on Sep 07, 2007 at 13:19 UTC
`@files = glob ".log"; $count = 1; foreach $file (@files) { next unless $file =~ /planetlab/; open FILE, ">", "/home/mj/ipAddresses$count.log" or die "Can't wri +te to file: $!"; print FILE "begin\n"; local($\, $,) = ("\n", " "); while(<>) { if(/([\d:.]+).?\bReceived.?\bBT_PIECE.?\bdata.?\bPeer: (\w +):\s+(\d+\.\d+\.\d+\.\d+):\s(\d+)/) { print FILE $3; } } print FILE "end"; print "$file\n"; close FILE; $count++; }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Log Parsing
by mattwortho (Acolyte) on Sep 07, 2007 at 13:19 UTC


@files = glob "*.log";
$count = 1;
foreach $file (@files) {
    next unless $file =~ /planetlab/;
    open FILE, ">", "/home/mj/ipAddresses$count.log" or die "Can't wri
+te to file: $!";
    print FILE "begin\n";
    local($\, $,) = ("\n", " "); 
    while(<>) {
        if(/([\d:.]+).*?\bReceived.*?\bBT_PIECE.*?\bdata.*?\bPeer: (\w
+):\s+(\d+\.\d+\.\d+\.\d+):\s*(\d+)/) {
            print FILE $3;
        }
    }
    print FILE "end";
    print "$file\n";
    close FILE;
    $count++;
}
[download]

[reply]
[d/l]