Sorry the previous comment was a bit naff ...
where I am at is
#!/usr/bin/perl
use warnings;
use strict;
opendir DH, "/a/b/c/perl/dl_parser/down/" or die "Couldn't open the d
+irectory +: $!";
while ($_ = readdir (DH))
{
$/ = "\n1=";
my @fields = split /\n/;
s/^[1-6]=// for @fields;
print +(join ',', @fields[0 .. 5]), "\n";
}
exit
which gets me a list of files and 5 other lines ... :-)
like
101130.TXT,,,,,
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
240429.TXT,,,,,
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
110208.TXT,,,,,
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
081221.TXT,,,,,
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
100807.TXT,,,,,
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
081219.TXT,,,,,
So getting close ... need to read each file ... maybe split into modules one that reads the file names from the directory, and one that process's them?. .. then build some interface to ask for the directory and maybe a file name to print the records too.