Solved

advanced split

Posted on 2002-07-03
5
628 Views
Last Modified: 2012-06-21
hi there,
i want a fancy way of splitting a pipe delimetered string that will ignore the first blank value to the array.

print "start\n";

$string = '|one|two|three|four';


my @array = split /\|/,$string;

foreach (@array)
{
    print "string:$_\n";

}

 print "end\n";


gives:
start
string:
string:one
string:two
string:three
string:four
end

i want:
start
string:one
string:two
string:three
string:four
end

ie, get rid of first pipe..

many thanks
Peewee
0
Comment
Question by:Peewee
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
5 Comments
 
LVL 6

Expert Comment

by:andreif
ID: 7126862
You can delete the first value with "shift":

my @array = split /\|/,$string;
shift @array;
0
 
LVL 2

Expert Comment

by:windfall
ID: 7126895
Hello-
Does something like this work?

my @array = split /\|/,$string;
$removed = shift(@array);
foreach (@array)
{
   print "string:$_\n";

}

print "end\n";

Windfall
0
 
LVL 1

Expert Comment

by:bluprint
ID: 7127528
Or why not just do:

$string =~ s/^\|//g;
$string = '|one|two|three|four';


my @array = split /\|/,$string;

foreach (@array)
{
   print "string:$_\n";

}

print "end\n";

to remove that first empty field. If the field is not empty, it won't do anything.
0
 
LVL 84

Accepted Solution

by:
ozo earned 50 total points
ID: 7136420
my @array = grep length,split /\|/,$string;
0
 
LVL 5

Author Comment

by:Peewee
ID: 7137352
wonderful,
thanks Ozo..
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Perl Sort Question 4 141
Which version of C should I use when Perl is too slow? 13 187
Perl efficient DB Call 8 97
Perl Write to Specific line in a file 15 115
I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
A year or so back I was asked to have a play with MongoDB; within half an hour I had downloaded (http://www.mongodb.org/downloads),  installed and started the daemon, and had a console window open. After an hour or two of playing at the command …
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

749 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question