Prasad Karpur wrote: > All, > > When I try to use $pathname to get the dir name in the format section, I don't see > any value. Also where do I add the follow_skip section in the File::Find program to > skip duplicate file names. > > #!/usr/bin/perl > > use File::Find; > > format OUTPUT_TOP = > NAME FILESIZE PATH > ---------------- -------- ----- > . > > format OUTPUT = > @<<<<<<<<<<<<<<<<<<<<<< @||||| > $_ $filesize $pathname > . > > print "Enter the directory you want to search: ";
What have you done to put a value in $dir? The next line uses whatever value you have assigned to it. > open (INPUT, $dir); >From this point on, any operation that uses $dir will succeed or fail depending on >whether $dir has a usable value. Joseph -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
