Help with substr to chop a string

[pr0fess0r]

Hi Guys

I guess this is pretty simple
I want to remove the leftmost 53 characters in a string and return a string of everything that remains
i.e
@patharray contains
c:\inetpub\

http://wwwroot\index.html

c:\inetpub\

http://wwwroot\home.html

I want to write

http://wwwroot\index.html

http://wwwroot\home.html

into a textfile

I tried something like this:

my $filelist = "$iwhome\\tmp\\filelist.txt";
open (FILELIST, "> $filelist"
foreach $item (@patharray) {
print FILELIST substr($item,10,10,"&quot."\n";
}
close FILELIST;

but that seems to chop the left 10 chars and only return 10 of the remaining...
can anyone suggest a better solution?

Many thanks in advance

Lucas Young

 

[tleish]

How about using a regular expression:

my $filelist = "$iwhome\\tmp\\filelist.txt";
open (FILELIST, "> $filelist"
foreach $item (@patharray) {
$item =~ s/\w\:\\[^\\]*\\//;
print FILELIST "$item\n";
}
close FILELIST; - tleish

 

[goBoating]

#!perl
$str = 'c:\inetpub\

http://wwwroot\index.html';

$endstr = substr($str,11);
print "substr => $endstr\n";

# or, as tleish suggests... a better way is to regex it.
$str =~ s/c:\\inetpub\\//;
print "regex => $str\n";

TIMTOWTDI
HTH


keep the rudder amid ship and beware the odd typo

 

[tsdragon]

Your problem is that you're using the wrong syntax for substr. It has two forms:
substr(expr,offset,length)
substr(expr,offset)
If you don't specify a length, it will return everything to the end of the string.
Tracy Dryden
tracy@bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.