Several Problems working with strings 2

[TSch]

Hi everyone,

could you help me out again ?

Let's say I got the following strings stored in a file input.txt :

Value1 Value2   Value3     Value4
Value5  Value6     Value7  Value8

First I tried to read all the values into an array:

open (IN1, "input.txt");
@values = <IN1>;
foreach (@values)
{
print "Here is a single value: ", $_, "\n":
}

But this gave me only 2 values:

Here is a single value: Value1 Value2   Value3     Value4
Here is a single value: Value5  Value6     Value7  Value8

Next I changed it to scalar reading:

open (IN1, "input.txt");
while (<IN1>)
{
print "Here is a single value: ", $_, "\n":
}

Same output ...

Here is a single value: Value1 Value2   Value3     Value4
Here is a single value: Value5  Value6     Value7  Value8

How can I solve this problem ?
What if the value separator is not a blank but something else (e.G. a ; or a -) ?

Best Regards,
Thomas

 

[feherke]

Hi

What is your goal ? Something like this ?

Here is a single value: Value1
Here is a single value: Value2
[silver]...[/silver]
Here is a single value: Value8

That will not be so easy in Perl as it looks. Perl supports only fixed strings as record separator, so you can not just split the record on any whitespace characters :

Remember: the value of [tt]$/[/tt] is a string, not a regex. awk has to be better for something. [ignore][/ignore]

Personally I would slurp in the file in one piece then [tt]split[/tt] it "manually" :

[b]open[/b] IN1[teal],[/teal] [green][i]"input.txt"[/i][/green][teal];[/teal]
[b]undef[/b] [navy]$/[/navy][teal];[/teal]

[b]foreach[/b] [teal]([/teal][b]split[/b] [green][i]/\s+/[/i][/green][teal],[/teal] [green][i]<IN1>[/i][/green][teal])[/teal] [teal]{[/teal]
  [b]print[/b] [green][i]"Here is a single value: "[/i][/green][teal],[/teal] [navy]$_[/navy][teal],[/teal] [green][i]"\n"[/i][/green][teal];[/teal]
[teal]}[/teal]

Feherke.
[link feherke.github.com/]

http://feherke.github.com/

[/url]

 

[prex1]

feherke, [tt]split[/tt] without parameters splits the [tt]$_[/tt] variable on multiple spaces. So this should work:

while(<IN1>){
  push @values,split;
}
for(@values){
  print "Here is a single value: ", $_, "\n":
}

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[feherke]

Hi

feherke, [tt]split[/tt] without parameters splits the [tt]$_[/tt] variable on multiple spaces.

Ah, right. I done too many [tt]split()[/tt]ing in Java recently...

Feherke.
[link feherke.github.com/]

http://feherke.github.com/

[/url]

 

[TSch]

Thanks a lot for the help everyone !