Path: utzoo!attcan!uunet!aplcen!uakari.primate.wisc.edu!sdd.hp.com!cs.utexas.edu!rutgers!mcnc!rti!dg-rtp!matrx!abc
From: abc@Matrix.COM (Alan Clegg)
Newsgroups: comp.lang.perl
Subject: Help!  Need semi-basename
Message-ID: <1990Jul2.205216.3857@Matrix.COM>
Date: 2 Jul 90 20:52:16 GMT
Reply-To: abc@matrx.matrix.com (Alan Clegg)
Organization: Matrix Corporation, Raleigh, North Carolina
Lines: 27

I need to strip a file name to a certain component in Perl, and am not sure
how to go about doing it.

the file names are defined in a configuration file as follows:
	/file/name/and/sub/dirs/*/*

which I then expand into an array of 'real' names:
	@ary=<${name}>;

what I want to do at this point is make links to the files based on
the expansion of the '*/*' in the config file.

For example, if a file expands into /file/name/and/sub/dirs/one/two, I want
to link it to /otherfile/othername/and/othersub/otherdirs/one/two

I can't figure out how to strip off everything 'up-to' the wildcard.  Anybody
know how to do what I am asking?  Anybody UNDERSTAND what I am asking??

-abc
--
      __ _
     / // \  Matrix             Alan B. Clegg
    / //  /_  Corporation       UNIX Systems Administrator
   / //  // \                   (919) 231-8000
  / //  //   \          UUCP:   ...!mcnc!matrx!clegg	(NOTE: no i in matrx)
 / //  //     \     Internet:   clegg@matrix.com	(Note: matrix has an i)
/_//__//_______\