This is what you want:

#!/usr/bin/perl
$STRING = "1||||2||||3|4|||5";
$STRING =~ s/\|+/|/g;
print "$STRING\n";




=+=+=+=+=+=+=+=+=+=+
James Schappet
Schappet.com

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Johnno
Sent: Monday, April 05, 2004 10:46 AM
To: [EMAIL PROTECTED]
Subject: [Perl-unix-users] Some help with strings

Hello All,

I have a string that has got

 1||||2||||3|4|||5 

What I need it in is

1|2|3|4|5

I have tried 

$string =~ s/\||/\|/g;

and i get this as a result

|1|||||2|||||3||4||||5|

what am i doing wrong?

Mnay Thanks,

Johnno
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to