Shell Programming and Scripting

I tried opening the files in a directory and print thier names.
But it was thowing the error "unable to open directorty at t5.pl line 2."
Can u plz correct this error in below mentioned code.


#!/data/scoredev/perl
opendir(HOMEDIR,"c:\vin") || die("unable to open directorty");
@files=readdir(HOMEDIR);
closedir(HOMEDIR);

foreach $file (sort @files) {
print ("$file\n");
}

unable to open directorty at t5.pl line 2.

Get more information about why you cannot open the directory with

Code:

opendir(HOMEDIR,"c:\vin") || die("unable to open directory: $!");

How can I open the directory which is in windows in unix perl script.

I think that you use Unix-style directory separators in Perl -- try

Code:

opendir(HOMEDIR,"c:/vin")