Removing directory from a file path

[svarc]

In reference to: How to remove a variable length word from a string

I'm trying to use the code you suggested to shalini for extracting a substring from a string...but not able to do so successfully..pls help

This is what i want to do:

$string='/abc/xyz/log/tftskmst.user00001.LOG' ;

Now i want to remove "/apps/prodcopy/log/" from this string. The length of this part of the string may vary that is it may be "/abc/xyz/log/" or "/abc/xyz/log/20070613.144401/".

The key in this string i want is "user" which will always be there in the name of the log files .
and i also want both the part of string to be stored in some variable

or

is there some way in which we can find the last occurence of "/" and then take the part before and after "/" into variables

[svarc]

I'm trying to write a code for extracting a substring from a string...but not able to do so successfully..pls help

This is what i want to do:

$string='/abc/xyz/log/tftskmst.user00001.LOG' ;

Now i want to remove "/abc/xyz/log/" from this string. The length of this part of the string may vary that is it may be "/abc/xyz/log/" or "/abc/xyz/log/20070613.144401/".

The key in this string i want is "user" which will always be there in the name of the log files .
and i also want both the part of string to be stored in some variable

right now i m using the following code
my $string = '/abc/xyz/log/tftskmst.user00001.LOG';
my $check = 'tfts';

my $index = index $string, $check;

my $address = substr $string, 0, $index;
my $filename= substr $string, $index;

print "$address\n";
print "$filename\n";

but i dont want to hardcode the check part...please suggest

or

is there some way in which we can find the last occurence of "/" and then take the part before and after "/" into variables

[numberwhun]

Well, to me, this looks like you want to obtain the "basename" of an absolute path to a file. Here is how I would do this:

use File::Basename;
 
my $string = '/abc/xyz/log/tftskmst.user00001.LOG';
my($filename, $directories, $suffix) = fileparse($string);
 
print("$filename");
 

Let us know if that does what you want.

Regards,

Jeff

[miller]

Use File::Basename

perldoc File::Basename

use File::Basename qw(fileparse);
my $string='/abc/xyz/log/tftskmst.user00001.LOG' ;
my ($file, $path) = fileparse($string);
print "$file\n";
 

- Miller

[numberwhun]

Use File::Basename

perldoc File::Basename

use File::Basename qw(fileparse);
my $string='/abc/xyz/log/tftskmst.user00001.LOG' ;
my ($file, $path) = fileparse($string);
print "$file\n";
 

- Miller

Actually, the person you replied to posted this same question in a seperate thread(which I coincidently replied to with the same answer you gave). I really wish that people would stop creating two copies of their questions. One copy at the end of someone else's thread and then their own new thread.

If you are going to ask a question that differs from someone else's question, then ask it, but in a new thread, not in the same thread that you just read. If you question is a carry-on continuation of the same topic, fine, but don't double post, please! I have seen far too much of that in the past couple of weeks and I am sure others are tired of it, especially our wonderful moderators who have to even things out. ;-)

Regards,

Jeff

[KevinADC]

I also recommend you use the module/code Jeff posted. You could also have done this using split() or a regexp or even rindex() and substr().

In the future do not post with "urgent!!!!" (or other useless exclamation) as part of your subject. Your question will be answered the same as all other questions.

Thanks,
Kevin

[miller]

Greetings Jeff,

I normally would have noticed this type of thing before responding, but I was in a rush this morning. I'll merge the threads now, but as you say, this is just something that happens occasionally. I don't really expect people who searched for a solution to know the difference between creating a new thread with a reference versus simply replying. They are often new posters, and there isn't an interface to do such a thing right now easily. So the quickest solution for now is to just solve it from the moderator perspective. Off to do that now.

- Miller

[miller]

Threads merged and given a more appropriate title.

- MODERATOR

[numberwhun]

Greetings Jeff,

I normally would have noticed this type of thing before responding, but I was in a rush this morning. I'll merge the threads now, but as you say, this is just something that happens occasionally. I don't really expect people who searched for a solution to know the difference between creating a new thread with a reference versus simply replying. They are often new posters, and there isn't an interface to do such a thing right now easily. So the quickest solution for now is to just solve it from the moderator perspective. Off to do that now.

Well, one reason you probably keep so busy is all the double postings. ;-) I didn't mean to rant so awefully, but it was just getting annoying, that's all. Thanks for your dilligence in moderating!

Regards,

Jeff