Yes, thank you. This is it. I was able to manage a similar working version,
your post is much cleaner and easy to follow.
Thanks again
-Nishi.
On 7/9/06, Rob Dixon <[EMAIL PROTECTED]> wrote:
Nishi Bhonsle wrote:
>
> Thanks for all your suggestions and help. I was able to do the following
--
> 1)Flatten out the directory structure into a file containing the dir and
> files within the dir into
> C:\buildlist.txt
> 2)Read the lines from a file say files2.txt and modify the lines to
contain
> the filenames fetched into C:\buildlist.txt. Write out the modified
lines
> into result.txt.
>
> $path = "$ARGV[0]";
> opendir ( DIR, $path ) or die "Can't open $path: $!";
> while(defined($DIR = readdir DIR))
> {
> push(@array_A,$DIR)
> }
> closedir DIR;
> open(FILE,">c:/buildlist.txt");
> foreach $y (@array_A)
> {
> next if $y =~ /^\./;
> push(@new,$y);
> print FILE "$y\n";
> }
> open (FILE1, "<c:/files2.txt") || die ("Could not open file. $!");
> @text = <FILE1>;
> open(FILE2,">>c:/results.txt");
> foreach $a(@text)
> {
> $y = shift(@new);
> $a =~ s/("[^"]*)("\s+"[^"]*)("\s+"[^"]*)("\s+NA)/$1$y$2$y$3$y$4/;
> print "$a\n";
> print FILE2 "$a";
> }close FILE2;
> close FILE1;
> close FILE;
>
> My sample files2.txt is
>
> "SL/" "%HOME%/server/bin/" "" NA
> "SL/" "%HOME%/server/bin/" "" NA
>
> My sample results.txt is
>
> "SL/one" "%HOME%/server/bin/one" "one" NA
> "SL/onetwo.txt" "%HOME%/server/bin/onetwo.txt" "onetwo.txt" NA
>
> How can I modify this program, so that instead of reading the lines from
> files2.txt, modifying them and writing them to results.txt, I can
directly
> write out entire lines as in "SL/one" "%HOME%/server/bin/one" "one" NA
to
> the results.txt(the only dynamic part of these entries, which will be
> different in each line will be the filename ie one, onetwo etc). So,
> depending on how many filenames are fetched into buidlist.txt, that many
> number of lines will be get added into results.txt
Hi Nishi
I think the program below is what you need. I've added 'use strict' and
'use
warnings' as these are pretty much indespensible in writing correct code.
I've economised by removing @array_A and putting the directory listing
straight
into @new. I've also changed a regex that excludes filenames that
consisted
entirely of dots; yours ignored only those that started with a dot.
I've thrown out files2.txt as I think you wanted, and also the @text array
that
held its contents. The final loop is now just over @new, and each filename
is
inserted at three points in a hard-coded string which is then both printed
out
to STDOUT and appended to results.txt as your code did.
I'm still not clear whether you need the buildlist.txt file, but I've left
it
in as it was.
Please let us know if I've misunderstood anything.
HTH,
Rob
use strict;
use warnings;
my $path = $ARGV[0];
opendir DIR, $path or die "Can't open $path: $!";
my @new = grep /[^.]/, readdir DIR;
closedir DIR;
open FILE,">c:/buildlist.txt";
print FILE "$_\n" foreach @new;
close FILE;
open(FILE2,">>c:/results.txt");
foreach my $file (@new) {
my $record = qq("SL/$file" "%HOME%/server/bin/$file" "$file" NA\n);
print $record;
print FILE2 $record;
}
close FILE2;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
