#!/usr/bin/perl -w  
   
#use strict;  
use POSIX;  
   
open ( OUT, ">./results.csv");  
   
$data = "/tmp/tester";  
   
open(LOGFILE,"$data") or die("Could not open log file.");  
while ($line = <LOGFILE>) {  
    $line =~ s/\//,/ if($line =~ /DIA_CCR_U/);   
print OUT "$line";  
#why are you printing this and creating anouther large file? 
}  
close(LOGFILE);  
close(OUT); 
 
Code
 
Try useing a while loop rather then a foreach, after reading around the web found and article that explained some detail about the deference of the two and the while loop worked the fastest for large files. 
http://wildpointer.org/2009/11/15/efficient-reads-on-perl-file-handles-while-vs-foreach/ 


	

(This post was edited by wickedxter on Dec 7, 2011, 5:36 PM)