Simple Question On chop.

[bretttt]

Hello, I have a scalar

$blah="blah/blah/blah.bl";

How do i remove up to "blah.bl" and save it is its own scalar? I need to chop up to the first / Im not sure how to do that, I know its simple. Thanks.

 

[bretttt]

I got it, thanks.

 

[PaulTEG]

$blah="blah/blah/blah.bl";
print "$blah\n";
(@bits)=split (/\//,$blah);
print @bits."\n";
$blah=$bits["@bits"-1];
print "@bits->$blah\n";
--Paul

 

[CadGuyExtraordinaire]

or:

$blah="blah/blah/blah.bl";
($firstbit,$lastbit)=$blah=~/^(.*\/)([^\/]+$/;

or if it's a file path...

use File::Basename;
$firstbit=dirname($blah);
$lastbit=basename($blah);

what's that expression about skinning cats?

 

[PaulTEG]

$cats=~s/skinning//gi or something like that

 

[CadGuyExtraordinaire]

booo!

 

[thenewguy111]

You can always use this.

$line = 'bla/bla/bla/bla.pl';
$line =~ m/([a-zA-Z0-9%:.\+\*\~\-_\s]+)\s*$/x;
$line = $1;

Hope this helps.