Re: Re: (bbfu) Re: Messing with (my head) a substring

If you'd like a non regex solution, try using index and substr which, while less flexible than regexen can be clearer/better in a few situations.

my $str = "/One/Two/Three";
my @paths = ($str);

while ($paths[-1] =~ tr#/#/# > 1) {
    push @paths, substr($paths[-1], 0, rindex($paths[-1], '/'));
}

print "$_\n" for @paths;
[download]

A few points of explanation: $paths[-1] means the last element of the array. The tr function returns the number of characters it transformed. The rindex function returns the character number where a substring last appears and the substr function returns part of a string. The push function adds items to the end of an array.

All these things are in the documentation that comes with perl, you just have to put them together.

Comment on Re: Re: (bbfu) Re: Messing with (my head) a substring Select or Download Code

Replies are listed 'Best First'.
(bbfu) (substr and rindex) Re(4): Messing with (my head) a substring by bbfu (Curate) on Apr 02, 2001 at 03:39 UTC
Damn you. I was going to post that. :-P Yeah, I wouldn't have used the `s///` if I'd remembered `rindex`. You'll have to forgive me, I was tired last night (yay 12 hours of overtime...). Anyway, here's my version of the `substr`/`rindex` version. It uses the same algorithm as my regexp version (ie, it's still destructive to `$str`) and is a little cleaner than yours (but not much): # MAKE SURE $str IS A _COPY_ OF YOUR DATA!!! my $str = "/One/Two/Three"; my @paths = (); while($str) { # If you don't want @push to include the current # cat (ie, "/One/Two/Three"), put this line after # the substr. But then you'll have as the last # element an empty string. Put a "last unless($str);" # between the substr and the push to avoid that. push @paths, $str; # Save everything from the begining of the string # up to, but not including, the last /. $str = substr($str, 0, rindex($str, '/')); } print "$_\n" for @paths; [download] This prints: `/One/Two/Three /One/Two /One` [download] bbfu Seasons don't fear The Reaper. Nor do the wind, the sun, and the rain. We can be like they are.	[reply] [d/l] [select]

Replies are listed 'Best First'.

(bbfu) (substr and rindex) Re(4): Messing with (my head) a substring
by bbfu (Curate) on Apr 02, 2001 at 03:39 UTC

Damn you. I was going to post that. :-P

Yeah, I wouldn't have used the s/// if I'd remembered rindex. You'll have to forgive me, I was tired last night (yay 12 hours of overtime...).

Anyway, here's my version of the substr/rindex version. It uses the same algorithm as my regexp version (ie, it's still destructive to $str) and is a little cleaner than yours (but not much):

# MAKE SURE $str IS A _COPY_ OF YOUR DATA!!!
my $str = "/One/Two/Three";

my @paths = ();

while($str) {
    # If you don't want @push to include the current
    # cat (ie, "/One/Two/Three"), put this line after
    # the substr.  But then you'll have as the last
    # element an empty string.  Put a "last unless($str);"
    # between the substr and the push to avoid that.
    push @paths, $str;

    # Save everything from the begining of the string
    # up to, but not including, the last /.
    $str = substr($str, 0, rindex($str, '/'));
}

print "$_\n" for @paths;
[download]

This prints:

/One/Two/Three
/One/Two
/One
[download]

bbfu
Seasons don't fear The Reaper.
Nor do the wind, the sun, and the rain.
We can be like they are.

[reply]
[d/l]
[select]