Oh my, what a bad day for my poor little brain... Sorry for all that
confusion.
On Sun, 9 Jun 2002, David T-G wrote:
> Elias, et al --
>
> ...and then Elias Assmann said...
>
> % be two lines, so how about this: @working = m'/mp3(/[^/]+)+';?
It seems I have suffered a misconception about what (pat)+ would do...
I toyed a bit with this, but I couldn't get it to put anything into
@working except for the last (/[^/]). That is, with an input of
"/mp3/foo/bar/qux", @working would end up with only one element,
"/qux". I don't think this idea will get us anywhere -- of course you
could do "my($tmp) = m'^/mp3(.*)'; @working = $tmp =~ m'(/[^/]+)'g",
but that's two lines again, and ugly :-)
> Let's see what this does here, because it might point to the right track.
> I'd love to be able to
>
> @working = split ( /\//, $fullname-without-/mp3/-on-it )
If you know that you'll only ever need to leave out "/mp3", you could
do just this: @working = split ("/", substr($_, 5));
(Note, however, that this does not leave out "/mp3" but "/mp3/" -- if
you use 4 instead of 5 as the second argument to substr, you'll get an
empty field at the beginning, and I assume that's not what you
need...)
> % Also, I think File::Basename might help you (perldoc -f, *hint hint*
> % :-).
> Hmmm... I must be doing something wrong:
>
> [zero] [12:37pm] ~> perldoc -f File::Basename
> No documentation for perl function `File::Basename' found
Humph (see also above...). That should have been perldoc, without the
-f. Humph.
Also, I'm not sure it'll help you either (I haven't read the
perldoc-page or anything :-), it just sounded like a good idea... So
if you say it doesn't help you, I guess you'll be right.
H *T* H now...
Elias
--
Gefängnis für Hans Mustermann wegen
Fälschung und Verrat
-- Die Einstürzenden Neubauten, Was ist ist
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
