I forgot
closedir(DIR) || warn "Error closing directory: $!"; # (which is always
good to do)
There is probably a way of doing it with one line, maybe with the funky
functions like map, but I don't know them...
And you can use another weirdo function, grep, to remove the "." and
".." and all non-vista90n* files when doing your readdir, but for that a
perl guru will have to answer.
Etienne
Etienne Marcotte wrote:
>
> opendir (DIR, "/home/skhan01/perl/file_tests") || die "Can't open
> directory: $!";
> my @files = readdir(DIR)
> foreach(@files) {
> print ("File exist!\n") if ($_ =~ /^vista90n/ && -e $_); #print if file
> starts with vista90n and it exists.
> } #end foreach
>
> Not tested
>
> Etienne
>
> > "Khan, Sajid" wrote:
> >
> > Hi Guys
> >
> > I am running into an issue trying to determine whether a file exists
> > when the name varies.
> > The file has a name that always begins with "vista90n" and so I tried
> > the following code ...
> >
> > if (-e "/home/skhan01/perl/file_tests/vista90n*") {
> > print ("Files exist!\n");
> > }
> >
> > apparently wildcards don't work in this way using the "-e" switch.
> > Does anyone know how
> > to use wildcards with the "-e" switch or do I have to create a list of
> > file names and parse them?
> > I even tried using the "\*" but no dice ....
> >
> > Thanx
> > Saj
> >
> > Sajid Khan
> > Tivoli Systems Engineer
> > Carolinas Healthcare System
> > (704) 446-8030
> >
> > ***********************************************************************
> > This electronic message may contain information that is confidential
> > and/or legally privileged. It is intended only for the use of the
> > individual(s) and entity named as recipients in the message. If you
> > are not an intended recipient of this message, please notify the
> > sender immediately and delete the material from any computer. Do not
> > deliver, distribute or copy this message, and do not disclose its
> > contents or take any action in reliance on the information it
> > contains. Thank you.
> >
> > ---------------------------------------------------------------
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
>
> --
> Etienne Marcotte
> Specifications Management - Quality Control
> Imperial Tobacco Ltd. - Montreal (Qc) Canada
> 514.932.6161 x.4001
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
Etienne Marcotte
Specifications Management - Quality Control
Imperial Tobacco Ltd. - Montreal (Qc) Canada
514.932.6161 x.4001
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
