to split the string

[dheenaalex]

I am having a String as "first" second third "fourth" "fifth" "sixth seventh" eigth

I want to spilt it as follows.

first
second
third
fourth
fifth
sixth seventh
eigth

please can any one help me regarding this?

[numberwhun]

This is actually something that is very easy using an array and the split() function. Why don't you give it a try and if you get stuck, post your code here (enclosed in code tags) and we will nudge you in the right direction.

Regards,

Jeff

[Arepi]

I had also this problem and I get answer see:
http://bytes.com/forum/thread845485.html

[KevinADC]

I am having a String as "first" second third "fourth" "fifth" "sixth seventh" eigth

I want to spilt it as follows.

first
second
third
fourth
fifth
sixth seventh
eigth

please can any one help me regarding this?

Is this school work of some kind? Its a classic lesson on splitting strings (or parsing strings) using a delimiter that is embedded inside the string inside of quotes. In your case the delimiter appears to be a space instead of a comma like you would find in a CSV file.

[numberwhun]

Is this school work of some kind?

Yeah, that is my suspicion and the reason I did not provide code. :-)

[dheenaalex]

This is actually something that is very easy using an array and the split() function. Why don't you give it a try and if you get stuck, post your code here (enclosed in code tags) and we will nudge you in the right direction.

Regards,

Jeff

Hello Jeff,

yes its easy to split a string with single seperator in split function, but here i want to split it as i shown already, whats the output i need..

can you?

[dheenaalex]

Yeah, that is my suspicion and the reason I did not provide code. :-)

hello mr...

I want the exact out put from that string what i mentioned already...

In my string what i am having is, some values with double quotes and some is without double quotes, but i need to split the both of them. In split function we can split using single delimiter, but how can its possible for my output..

So i entered in to forum..

can you guide me regarding this?

[KevinADC]

You have not answered my question concerning school work so now I am convinced it is school work. If you post the code you have written and tried to solve your requirements I will consider helping. But I am not going to do your school work for you or even guide you until I see some effort on your part.

Regards,
Kevin

[eWish]

dheenaalex,

I have deleted your duplicate posts. Please do not make duplicate posts.

Thank You,

Kevin
Moderator

[numberwhun]

hello mr...

I want the exact out put from that string what i mentioned already...

In my string what i am having is, some values with double quotes and some is without double quotes, but i need to split the both of them. In split function we can split using single delimiter, but how can its possible for my output..

So i entered in to forum..

can you guide me regarding this?

If you read the split() functions page, it takes a regular expression where you specify the delimiter. Using that, you would specify the regular expresion equivelant of a space and that would be your delimeter. You populate that into an array and print it how you want it formatted.

Why not try it and write the code and see if you can get it outputting the way that you want. I just did this in like a minute and it works fine.

Being that I agree with KevinADC that this is obviously school work, we are not going to just give you the answer. In case you haven't read them, our site Posting Guidelines strictly forbid the posting of homework questions in order to obtain the answers. That is why we are prodding you in the right direction but not giving you what you want.... the answer to your homework.

What I am saying is do the work and learn. We aren't going to just do it for you and there is no use in getting upset over it.

Regards,

Jeff

[dheenaalex]

You have not answered my question concerning school work so now I am convinced it is school work. If you post the code you have written and tried to solve your requirements I will consider helping. But I am not going to do your school work for you or even guide you until I see some effort on your part.

Regards,
Kevin

Hi Kevin,

Please see my Input and Output clearly.. and also i want the output in the same order of string..

I am having a String as "first" second third "fourth" "fifth" "sixth seventh" eigth.


$str=qq"first" second third "fourth" "fifth" "sixth seventh" eigth);


@str1=split(/ /,$str); # this is the split function.. i know.. but i want the result as shown below.

first
second
third
fourth
fifth
sixth seventh
eigth

what i did here is i want to split the strings which is in space as well as fully from double quotes as a single string.. How can i do that..?

And my full code is as follows.. it was done to do the file writing in recursion..

#!/usr/bin/perl -w
#print "Give the Input File Name \n";
#$filein=<STDIN>;
#print "Give the Output File Name \n";
#$fileout=<STDIN>;
 
$fileout="output.txt";
$filein="first.txt";
 
open(DEST, ">$fileout");
 
$ln=1;
 
 
func1($filein);
 
sub func1{
 
  $file=$filein;
 
  local $i=1;
  local $valin=0;
 
  open(MYTEXT, "$file");
 
  local @contents=<MYTEXT>;
  local    @valval=@val;
 
  foreach $line  (@contents){
 
 
 
    if($line =~ /Include/){
    func($line);
 
    }
 
    elsif($line =~ /\$/){
 
 
        $line =~ tr/[\$]/d/;
 
        $old="d$i";
        print "$old \n";
 
 
 
         if($valval[$valin] =~ /"/){
 
             $valval[$valin]=~ tr/["]/ /;
             $new=$valval[$valin];
 
         } else {
 
             $new=$valval[$valin];
 
         }
 
        $line =~ s/$old/$new/;
        print "$line\n";
        $i++;
        $valin++;
 
        print DEST "Line $ln $line\n";
        $ln++;
 
 
    }
 
 
    else {
 
 
        print DEST "Line $ln $line\n";
        $ln++;
         }
 
 
 
  }
 
 
}
 
sub func{
 
    @str1 = split(/ /,$line);
 
    foreach $cc (@str1){
 
    if($cc =~ /.txt/){
 
                 $cc =~ tr/["]/ /;
                $filein=$cc;
 
            }
        }
 
    @str=split(/" "?/,$line);
 
    $len=$#str;
 
 
 
 
            if($len>0){
 
            @val=@str[1..$len];
 
 
 
 
        }
 
 
        func1($filein,@val);    
 
}
 
close(DEST);
close(MYTEXT);

[eWish]

dheenaalex,

This is a Formal Warning about making DOUBLE POST'S with your replies and/or questions. I again have deleted your others posts that were duplicates. Also, the code tags are required when posting code here. The code tags wok like so.

[CODE]...your code goes here....[/CODE]

Please make these adjustments to your posts. Please read our Posting Guidelines before making additional posts.

Thank You,

Kevin
Moderator

[KevinADC]

dheenaalex,

I am not trying to be nor do I want to be rude to you. But the code you posted clearly shows you have no idea what you are doing and have yet to understand even some very basic concepts and how some functions work, and etc.

What you are attempting to do is actually not all that easy and requires a good understanding of regular expressions. You don't yet understand how the much simpler tr/// operator works.

The obvious way to go about this is to split the string using the space between the words as the split delimiter. Then you would loop through the list that "split" returns and check if each word started with a double-quote and ended with a double-quote, or started with a double-quote or ended with a double-quote. The words with no qoutes will be the fall-through condition.

Ignoring all that code you posted because it really is so bad that it needs to be tossed and forgotten lest you remember any of it, and using your sample string here is a way that I think should be clear or that you can look up some of the syntax used in just about any perl reference book or online resource and understand it:

$string = '"first" second third "fourth" "fifth" "sixth seventh" eigth';
@list = split/\s+/,$string;
foreach my $w (@list) {
   if ($w =~ /^"([^"]+)"$/) { # starts and ends with double-quotes
      print "$1\n";
   }
   elsif ($w =~ /^"([^"]+)$/) {  # only starts with a double quote
      print "$1 ";
   }
   elsif ($w =~ /^([^"]+)"$/) { # only ends with a double-quote
      print "$1\n";
   }
   else { # no quotes at all (fall-through condition)
      print "$w\n";
   }
}
 

Sample data often does not reflect real data very well and the above will not work for something like three words inside of double quotes:

"word word word"

And there are probably other exceptions.

Now all you need to do is add your file I/O operations to the above code to read the data in from a file and print it out to another file.

There is a better and more robust solution to this type of problem but I think the code would be too advanced for you to understand at this point judging by the code you posted. Even the above is stretching it for you if this is school work. Any good teacher will be very suspicious that you wrote this code.

[nithinpes]

Hi Kevin,

Please see my Input and Output clearly.. and also i want the output in the same order of string..

I am having a String as "first" second third "fourth" "fifth" "sixth seventh" eigth.


$str=qq"first" second third "fourth" "fifth" "sixth seventh" eigth);


@str1=split(/ /,$str); # this is the split function.. i know.. but i want the result as shown below.

first
second
third
fourth
fifth
sixth seventh
eigth

One approach is to replace space inside double-qutes with any other character. Split the string across space and later replace the newly introduced character to space.
e.g "sixth seventh" to "sixth+seventh"
Choose a delimiter character which doesn't occur in the data.

$str=qq("first" second third "fourth" "fifth" "sixth seventh")
$str=~s/("\w+)\s(\w+")/$1+$2/g;  ##inserting '+'
@str1= split (/\s+/,$str);
$_ =~ s/("\w+)\+(\w+")/$1 $2/ foreach(@str1) ; ## reverting back
 
print "$_\n" foreach(@str1);
 

PS : Didn't notice Kevin's reply above(Page refresh issue ;)).

[dheenaalex]

Hi Nithinpes,

Thanks for your code..

But my string may be like this also..

$str=qq("first" second third "fourth" "fifth" "sixth seventh eigth .....nth words")

this code will work for only two words inside the double quotes..

could u please guide me regarding this,,..

Thanks and Regards,
Dheenaalex

One approach is to replace space inside double-qutes with any other character. Split the string across space and later replace the newly introduced character to space.
e.g "sixth seventh" to "sixth+seventh"
Choose a delimiter character which doesn't occur in the data.

$str=qq("first" second third "fourth" "fifth" "sixth seventh")
$str=~s/("\w+)\s(\w+")/$1+$2/g;  ##inserting '+'
@str1= split (/\s+/,$str);
$_ =~ s/("\w+)\+(\w+")/$1 $2/ foreach(@str1) ; ## reverting back
 
print "$_\n" foreach(@str1);
 

PS : Didn't notice Kevin's reply above(Page refresh issue ;)).

[nithinpes]

Hi Nithinpes,

Thanks for your code..

But my string may be like this also..

$str=qq("first" second third "fourth" "fifth" "sixth seventh eigth .....nth words")

this code will work for only two words inside the double quotes..

could u please guide me regarding this,,..

Thanks and Regards,
Dheenaalex

The following code will work for any number of words between quotes.

$str=qq("first" second third "fourth" "fifth" "sixth seventh eighth ninth") ;
while($str=~/"([^"]+)"/g) {push @quoted,$1;} # fetch quoted words
foreach(@quoted){
$word=$new=$_;
$new=~s/\s/+/g;  ##inserting '+' 
$str=~s/$word/$new/;
}
@str1= split (/\s+/,$str); 
$_ =~ s/\+/ /g foreach(@str1) ; ## reverting back 
 
print "$_\n" foreach(@str1); 
 

[KevinADC]

Well, hopefully he doesn't claim to have written any of that code when he submits it for grading.

[Icecrack]

Well, hopefully he doesn't claim to have written any of that code when he submits it for grading.

i agree, when i first started out i don't think i could of done that in 11 lines of code.

[dheenaalex]

Hi Nithinpes,

Thousands of thanks for you.. you are too smart.

Thanks and Rregards,
Dheenaalex.