Question

I am new to perl script. I want to search for a each folder named “abc” in directory “pqr” and write path of each “abc” folder to a separate file (n.txt where n is an integer) in the form filename = pathOfABC. Can anyone please give me some hint on this?

Answer 1

Since the task involves recursion, you can employ a module like File::Find.

#!/usr/bin/env perl

use strict;
use warnings;

use File::Find;

my @files;

sub wanted {
    if ( -d && $_ eq 'abc' ) {
        push @files, $File::Find::name;
    }
}

find \&wanted, 'pqr';

my $ctr = 1;
for (@files) {
    open my $fh, '>', "$ctr.txt" or die "Error opening file";
    print $fh $_;
    $ctr++;
}