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: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: "Perl Beginners" <[EMAIL PROTECTED]>
Sent: Thursday, September 04, 2003 5:20 AM
Subject: Re: cutting a string
> On Mon, 1 Sep 2003 [EMAIL PROTECTED] 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 PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
