Rick: Thank you! I modified it to do a scan of all files in the directory using: my $basename; my ($filename) = <*.tag>; ($basename) = fileparse($filename, '\.tag'); print "basename = $basename\n";
On Tue, 8 Jan 2002, Mahon, Rick wrote: > I'm new to Perl, so take this with a grain of salt, but I did it like this: > > use strict; > use File::Basename; > > my $basename; > my $filename = 'yourfile.tag'; > ($basename) = fileparse($filename, '\.tag'); > print "basename = $basename\n"; > > # see perldoc File::Basename for more info. fileparse() can give you the path > and file extension also. > > Hope this helps, > Rick > > -----Original Message----- > From: Scott [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, January 08, 2002 8:44 AM > To: [EMAIL PROTECTED] > Subject: file name matching > > > Morning: > > I need to scan a directory for files, they will be in pairs, a .tag file > and a .txt file. I need to first make sure the .tag file(s) is there. If > it is I need to check for the same prefix .txt file. Here is what I do to > check for the file: > > ($scantag) = <*.tag>; > > @files = glob("*.tag"); > > Is there a way to determine the prefix to the file? xxxxx.tag and > xxxxx.txt? > > Thanks, > > -Scott > > > > -- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
