I'm not entirely clear what you mean, but does something like thid do the trick?

my $file_path 
   = 'home/sites/site18/users/rjoseph/web/images/image1.jpg';
my $path = '/home/sites/site18/users/rjoseph/';
$file_path =~ s/^$path//;
[download]

"Perl makes the fun jobs fun
and the boring jobs bearable" - me

$file_path =~ s#^$path##;
[download]

eval "$file_path =~ tr/$path//";
[download]

($file_path) = split /$path/, $file_path, 1;
[download]

but you might want to look in CPAN for better solutions to your underlying problem--they're out there.

By the way, you'll note that I used # instead of / for my separator--I almost always do that, especially when I've got lots of slashes in my pattern, as it makes it easier to see what's going on.

Update: I fixed some typos and stuff I didn't like.

Yep theres another solution out there and its File::Spec, part of a fairly standard distribution.

The line wanted is $file_path = File::Spec->abs2rel( $file_path, $path );

use strict;
use warnings;

my $file_path='/home/sites/site18/users/rjoseph/web/images/image1.jpg'
+;
my $break_point = '/web';

my @foo = split($break_point, $file_path);
my $path = $break_point . pop(@foo);

print $path;
[download]

Or in one line ... map {$path="/web$_"} split('/web','/home/sites/site18/users/rjoseph/web/images/image1.jpg');print $path Yields: /web/images/image1.jpg ---- Coyote (aka: Rich Anderson)

#!/usr/bin/perl -w
 
use strict;
 
my $FileName='/home/sites/site18/users/rjoseph/web/images/image1.jpg';
my $Stripped=substr $FileName,0,index($FileName,'web');
 
print "Stripped to: $Stripped\n";
[download]

ChOas

my $file='/home/sites/site18/users/rjoseph/web/images/image1.jpg'; 
 
if ($file=~/^(.+)(\/web.+)$/) { 
  my $part1=$1; 
  my $part2=$2; 
 
  print "$part1\n$part2\n"; 
} 

/home/sites/site18/users/rjoseph
/web/images/image1.jpg

my $path-info = $ENV{PATH_INFO}
my $path = "/home/usrs/rjoseph/images";
$path-info =~ s/^[^/]// # strip of preceeding noise
$path-info =~ s#[^/\w\.]//g  # strip out any non-word dot chars
[download]

my $file_path = "$path/$path-info";
if ( -s $file_path ) {
  open(FILE, $file_path) or die ...
[download]

foreach my $file ( @image_list ) {
  $file =~ s#$path##;    # remove the physical path part
  my $file_name = $file;
  $file_name = s/\.\w+$//;  # strip off extension
  print "<a href=\"http://mysite.com/cgi-bin/get-image/$file">Image: $
+file_name</a>";
}
[download]

a

Warning: Apache Head Talking
Traditionally, web servers allow users to host web 'sites' by giving them a directory that is publicly accessible, usually named 'public_html' - looks like yours is called 'web'. I am going to assume the rest (fingers crossed).

What I don't understand is why you want to use the tr/// or even the s/// operators (or substr or split . . .) to derive the two paths. There is nothing wrong with simply 'hard coding' this kind of data - it's not difficult to change, and you don't need to waste CPU time (albeit extremely minimal) doing it.

For example, you know that the disk path is:

$disk_path = '/home/sites/site18/users/rjoseph/web/';
[download]

$url_path  = 'http://www.your_box.com/~rjoseph/';
[download]

If you wanted to make this portable across different users of the same box, grab the user's name from %ENV:

$disk_path = '/home/sites/site18/users/' . $ENV{USER} . '/web/';
$url_path  = 'http://www.your_box.com/~' . $ENV{USER} . '/';
[download]

$img_path = $url_path . 'images/';
[download]

And by no means am I saying that you should disregard what everybody before me posted. On the contrary, they are showing you many different ways of using regular expressions, string operations, and array operations to 'munge' data. Practice them. :)

Jeff

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)