User:Sureskrishnan


 * 1) ***********Scipt that read folder and subfolder*****************
 * 2) ***********suresh krishnan;http://gurunathan.typepad.com************
 * 3) ***********Ver.1.0****************
 * 4) **Open the folder and subfolder,copy the path and redirect to a file****
 * 5) **my dir is the input path and the o/p will get at file*******


 * 1) !/usr/bin/perl

open file,">c:/temp/suresh.txt";#example my $dir="C:/lib";# use File::Find; sub Wanted { /^\.nfs.*\z/s && (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_)) && int(-M _) > 7 && unlink($_) ||       ($nlink || (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_))) && $dev < 0 && ($File::Find::prune = 1); print file"$File::Find::dir/$_\n"; print file"filename:$File::Find::dir$_\n"; print file" dirname:$File::Find::dir\n"; print file"$File::Find::dir\n"; } find(\&Wanted,$dir);