getting rid of space at beggining of variable

[Randy W. Sims]

On 02/11/04 09:28, David Inglis wrote:

> Can anybody tell me what I'm doing wrong I have a variable with a value
> "bloggs, joe" which I then spilt into 2 using @names=split(/\,/, $contact)
> I then have $names[1] with a space at the front, I have tried to remove
> it by doing $name[1]=~tr/\s//; but it does not remove the leading space.
>
> Any help appreciated thanks in advance.
>

There are a couple ways to do this. In this case, I would probably:

@names = split /\s*,\s*/, $contact;

which removes the spaces as part of the split operation.

The reason your tr command failed is that you must specify the d flag:

$names[1] =~ tr/\s//d;

if you want to delete characters.

Regards,
Randy.

[John W. Krahn]

"Randy W. Sims" wrote:

>
> On 02/11/04 09:28, David Inglis wrote:

> > Can anybody tell me what I'm doing wrong I have a variable with a value
> > "bloggs, joe" which I then spilt into 2 using @names=split(/\,/, $contact)
> > I then have $names[1] with a space at the front, I have tried to remove
> > it by doing $name[1]=~tr/\s//; but it does not remove the leading space.

>
> There are a couple ways to do this. In this case, I would probably:
>
> @names = split /\s*,\s*/, $contact;
>
> which removes the spaces as part of the split operation.
>
> The reason your tr command failed is that you must specify the d flag:
>
> $names[1] =~ tr/\s//d;
>
> if you want to delete characters.

Also since tr/// doesn't use regular expressions that will remove the
's' character but not whitespace.



John
--
use Perl;
program
fulfillment

[Jeff 'Japhy' Pinyan]

On Feb 12, David Inglis said:

>Can anybody tell me what I'm doing wrong I have a variable with a value
>"bloggs, joe" which I then spilt into 2 using @names=split(/\,/, $contact)
>I then have $names[1] with a space at the front, I have tried to remove
>it by doing $name[1]=~tr/\s//; but it does not remove the leading space.

tr/// does not recognize regex notations. You'd need to say

$names[1] =~ tr/\n\r\t\f //d;

You're also missing the 'd' modifier to tr///, which specifies to delete
characters on the left side that aren't given replacements on the right.

But you might just want to do

$names[1] =~ s/\s+//g;

--
Jeff "japhy" Pinyan [email]japhy@pobox.com[/email] [url]http://www.pobox.com/~japhy/[/url]
RPI Acacia brother #734 [url]http://www.perlmonks.org/[/url] [url]http://www.cpan.org/[/url]
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]

[Shiping Wang]

At 01:28 AM 2/12/2004 +1100, David Inglis wrote:

>"bloggs, joe" which I then spilt into 2 using @names=split(/\,/, $contact)

How about:
#!perl -w
use strict;

my $contact = "bloggs, joe";

@names=split(/, /, $contact);

print @names;