cutting a string

[Danny Miller]

As long as the format of what you want (file.txt) remains the same you
could do the following:

($stuffattheend) = $string =~ /\/(\w+\.\w+)$/;

Danny

-----Original Message-----
From: [email]sc00170@cc.uoi.gr[/email] [mailto:sc00170@cc.uoi.gr]
Sent: Monday, September 01, 2003 11:41 AM
To: Perl Beginners
Subject: cutting a string

What is the function of cutting a string from a point until the last
character?

For example
$string="C:/progra~1/directory1/directory2/file.txt";

i want to find the last backslash (/) of the string and keep the
sequence
following it (file.txt)

Is it simple?

I tried with the split function but it returns a list.

I just want a scalar!



--
To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
For additional commands, e-mail: [email]beginners-help@perl.org[/email]

[denis@teachlinux.com]

On Mon, 1 Sep 2003 [email]sc00170@cc.uoi.gr[/email] wrote:

> What is the function of cutting a string from a point until the last character?
>
> For example
> $string="C:/progra~1/directory1/directory2/file.txt";
>
> i want to find the last backslash (/) of the string and keep the sequence
> following it (file.txt)
>
> Is it simple?
>
> I tried with the split function but it returns a list.
>
> I just want a scalar!
>
>
>
>

why not try this?

#!/usr/bin/perl
my @test='';
my $test1='';
my $string = "C:/test/me";
@test = split('/',$string);
print "@test\n";
print "$test[$#test]\n";

HTH.. Denis

[denis@teachlinux.com]

On Wed, 3 Sep 2003 [email]denis@teachlinux.com[/email] wrote:

> On Mon, 1 Sep 2003 [email]sc00170@cc.uoi.gr[/email] wrote:
>

> > What is the function of cutting a string from a point until the last character?
> >
> > For example
> > $string="C:/progra~1/directory1/directory2/file.txt";
> >
> > i want to find the last backslash (/) of the string and keep the sequence
> > following it (file.txt)
> >
> > Is it simple?
> >
> > I tried with the split function but it returns a list.
> >
> > I just want a scalar!
> >
> >
> >
> >

>
> why not try this?
>
> #!/usr/bin/perl
> my @test='';
> my $test1='';
> my $string = "C:/test/me";
> @test = split('/',$string);
> print "@test\n";
> print "$test[$#test]\n";
>
> HTH.. Denis
>
>
>

FYI


$test1 is not used.. was going to try the script another way and didn't..

[Charles K. Clarkson]

denis <denis@teachlinux.com> offered this solution:

: why not try this?
:
: #!/usr/bin/perl
: my @test='';
: my $string = "C:/test/me";
: @test = split('/',$string);
: print "@test\n";
: print "$test[$#test]\n";

The last item of an array can be retrieved
using an index of -1.

print "$test[$#test]\n";

becomes

print "$test[-1]\n";


We don't need an array at all. We can ask split
to return one item:

@test = split('/',$string);
print "$test[-1]\n";

becomes

my $scalar = ( split '/', $string )[-1];
print "$scalar\n";


If we're going to do this a lot, we could write
a sub routine:

print strip_to_end( '/', 'C:/test/me' ), "\n";

sub strip_to_end {
my( $seperator, $string ) = @_;
return ( split $seperator, $string )[-1]
}

Then, if we find a faster method (like 'substr')
we can change the method without effecting the rest
of the program.


HTH,

Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328

[David Wall]

--On Wednesday, September 03, 2003 9:20 PM -0600 [email]denis@teachlinux.com[/email] wrote:

> On Mon, 1 Sep 2003 [email]sc00170@cc.uoi.gr[/email] wrote:
>

>> What is the function of cutting a string from a point until the last
>> character?
>>
>> For example
>> $string="C:/progra~1/directory1/directory2/file.txt";
>>
>> i want to find the last backslash (/) of the string and keep the
>> sequence following it (file.txt)
>>
>> Is it simple?
>>
>> I tried with the split function but it returns a list.

Well, that's what split() does. :-)

>> I just want a scalar!
>>

>
> why not try this?
>
># !/usr/bin/perl
> my @test='';

#> my $test1='';

> my $string = "C:/test/me";
> @test = split('/',$string);
> print "@test\n";
> print "$test[$#test]\n";

Easier (IMO) and portable:

use File::Basename;
my $string="C:/progra~1/directory1/directory2/file.txt";
my $file = basename $string;

Then you don't need to worry about the directory separator, e.g.;

use File::Basename;
my @p = (
"C:/progra~1/directory1/directory2/file.txt",
'C:\progra~1\directory1\directory2\file.txt',
"C:\\progra~1\\directory1\\directory2\\file.tx t",
"C:/progra~1\\directory1\\directory2/file.txt"
);
print basename($_), "\n" for @p;

prints 'file.txt' four times.

[sc00170@cc.uoi.gr]

basename is more convenient i think. What do you say?


Quoting [email]denis@teachlinux.com[/email]:

> On Mon, 1 Sep 2003 [email]sc00170@cc.uoi.gr[/email] wrote:
>

> > What is the function of cutting a string from a point until the last

> character?

> >
> > For example
> > $string="C:/progra~1/directory1/directory2/file.txt";
> >
> > i want to find the last backslash (/) of the string and keep the sequence
> > following it (file.txt)
> >
> > Is it simple?
> >
> > I tried with the split function but it returns a list.
> >
> > I just want a scalar!
> >
> >
> >
> >

>
> why not try this?
>
> #!/usr/bin/perl
> my @test='';
> my $test1='';
> my $string = "C:/test/me";
> @test = split('/',$string);
> print "@test\n";
> print "$test[$#test]\n";
>
> HTH.. Denis
>
>
> --
> To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
> For additional commands, e-mail: [email]beginners-help@perl.org[/email]
>

[Freddy söderlund]

I think it would be easier to skip the split-function and use substr and
rindex insted. It's shorter code.

#!perl -w

my $path = "C:/program files/directory1/directory2/file.txt";
my $filename = substr($path,(rindex($path,"/")+1));
print $filename;

This code will give you "file.txt" as output.

Hope you will find it usefull.

/Freddy

----- Original Message -----
From: <denis@teachlinux.com>
To: <sc00170@cc.uoi.gr>
Cc: "Perl Beginners" <beginners@perl.org>
Sent: Thursday, September 04, 2003 5:20 AM
Subject: Re: cutting a string

> On Mon, 1 Sep 2003 [email]sc00170@cc.uoi.gr[/email] wrote:
>

> > What is the function of cutting a string from a point until the last

character?

> >
> > For example
> > $string="C:/progra~1/directory1/directory2/file.txt";
> >
> > i want to find the last backslash (/) of the string and keep the

sequence

> > following it (file.txt)
> >
> > Is it simple?
> >
> > I tried with the split function but it returns a list.
> >
> > I just want a scalar!
> >
> >
> >
> >

>
> why not try this?
>
> #!/usr/bin/perl
> my @test='';
> my $test1='';
> my $string = "C:/test/me";
> @test = split('/',$string);
> print "@test\n";
> print "$test[$#test]\n";
>
> HTH.. Denis
>
>
> --
> To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
> For additional commands, e-mail: [email]beginners-help@perl.org[/email]
>
>

[denis@teachlinux.com]

Sorry, lack of sleep.. but isn't File::Basename usally installed in the
standard Perl install?

Denis

On Fri, 5 Sep 2003 [email]denis@teachlinux.com[/email] wrote:

> On Thu, 4 Sep 2003 [email]sc00170@cc.uoi.gr[/email] wrote:
>

> > basename is more convenient i think. What do you say?
> >

> Only if you can load the module on the system. running into issues here at
> work where I can load modules (security llama's)
>
> Denis
>

> >
> > Quoting [email]denis@teachlinux.com[/email]:
> >

> > > On Mon, 1 Sep 2003 [email]sc00170@cc.uoi.gr[/email] wrote:
> > >
> > > > What is the function of cutting a string from a point until the last
> > > character?
> > > >
> > > > For example
> > > > $string="C:/progra~1/directory1/directory2/file.txt";
> > > >
> > > > i want to find the last backslash (/) of the string and keep the sequence
> > > > following it (file.txt)
> > > >
> > > > Is it simple?
> > > >
> > > > I tried with the split function but it returns a list.
> > > >
> > > > I just want a scalar!
> > > >
> > > >
> > > >
> > > >
> > >
> > > why not try this?
> > >
> > > #!/usr/bin/perl
> > > my @test='';
> > > my $test1='';
> > > my $string = "C:/test/me";
> > > @test = split('/',$string);
> > > print "@test\n";
> > > print "$test[$#test]\n";
> > >
> > > HTH.. Denis
> > >
> > >
> > > --
> > > To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
> > > For additional commands, e-mail: [email]beginners-help@perl.org[/email]
> > >

> >
> >
> >
> >

>
>
>