use strict;
use IO::File;

my @logFiles = glob( '*.log' );
my @data;

for ( @logFiles )
{
    # You can further limit your file names thusly:
    die "Weird File Name" if m/[^a-zA-Z0-9._-]/;

    my $fh = IO::File->new( '< $_' )
        or die "Open Failed for '$_', $!";
    push @data, <$fh>; # Do something with the file
    $fh->close();
}
[download]

@files = glob('*.log');
if(@files == 1)
 {
   open(FILE, $files[0]);
 }
else
 {
   #do something here
 }
[download]

opendir(DIR, '.') or die $!;
for(readdir(DIR)) {
  if(/\.log$/) {
    $file = $_;
    last;
  }
}
closedir(DIR);
[download]

use strict;
my @loglist;

#put all *.log files in the array
@loglist = <./*.log>;
[download]

Then you know what each file name is..

Hope this helps..
Rich

I wish there was a "10 nodes were added while you were writing this" alert :)

I wish there was a "10 nodes were added while you were writing this" alert :)

Yeah maybe that should be one of the things you see when you click on the preview button!

It's too bad vroom is so busy with other stuff

-- Dave

readdir will give you a list of all the files in the current directory. You could use that and just exclude the script's filename.

my $name = 'Ben Kittrell';
$name=~s/^(.+)\s(.).+$/\L$1$2/g;
my $nick = 'tha' . $name . 'sta';
[download]

opendir(DIR,'.');

@all_logs = grep /\.log$/, readdir(DIR);

for my $log (@all_logs) {
    # some processing
}
[download]