Try using Compress::Zlib to uncompress the compressed files and then Text::xSV to handle the comma-separated values.

Also, in the future, please wrap all of your code inbetween opening and closing <code> </code> tags so it displays properly. You don't need to put <code> tags at the start of each line ;-)

foreach my $file ("$LOGDIR\\sec-ghost01-12-09-2004-21-43.csv",
                  "$LOGDIR\\sec-ghost01-12-10-2004-21-43.csv",
                  "$LOGDIR\\sec-ghost01-12-11-2004-21-43.csv")
{
  open(INPUT,"< $file")
    or die "Can't open '$file': $!\n";
  while (my $line = <INPUT>)
  {
    chomp($line);
    # process
  }
}
[download]

If you don't want to list the files explicitly, you'll want to use opendir and readdir, or else follow Zed_Lopez's suggestion and use glob.

Also look up glob (perldoc -f glob) for a quick and easy way to find all your csv files to open them.

Hi Meenac,

The purpose of the opening/closing <code> tag pairs is to format your code in a readable format. You only need to surround your code with a single set of opening/closing <code> tags. For example, in the code you posted, notice how you're including several code tags, but you've forgotten the closing code tags and as such you're missing the formatting. If you surround all your code with a single set of tags, it will look like this:

$LOGDIR = 'C:\temp\logs'; 
open(INPUT, "$LOGDIR\\sec-ghost01-12-09-2004-21-43.csv") || die ("cann
+ot open log file\n"); 
foreach my $line (<INPUT>) { chomp($line); process each line }
[download]

Check out these resources for more information on formatting your posts:

• Writeup Formatting Tips
• Perl Monks Approved HTML tags

Those links will help you get the answers you seek, and make life a whole lot easier for the people who are helping you. :)

/Larry

Update: davido cleaned up the errant code tags, so you won't be able to see them in your original post. However, you should still check out those links for future posts. :)

#!/usr/bin/perl

use strict;
use warnings;

my $logdir = 'c:/tmp/logs';
{
    opendir DIR, $logdir or die "error opening $logdir: $!\n";
    local @ARGV = map { $logdir . '/' . $_ } grep /\.csv$/, readdir DI
+R;
    closedir DIR or die "error closing $logdir: $!\n";

    while ( <> ) {
        #process the line
    }
}
[download]