Shell Programming and Scripting

All I'm trying to split a string at the $ into arrays

@data:=<dataFile>
a $3.33
b $4.44
dfg $0.56

The split command I have been playing with is:
split(/\$/, @data)

which results with
a .33 b .44 dfg .56

any help with this is appreciated

/r
Rick

Code:

$
$ cat data1.txt
a $3.33
b $4.44
dfg $0.56
$
$ perl -ne 'chomp; split /\$/; push @a1,$_[0]; push @a2,$_[1]; END{foreach $i(@a1){print $i,"\n"} foreach $i(@a2){print $i,"\n"}}' data1.txt
a
b
dfg
3.33
4.44
0.56
$

tyler_durden

You can't use split() on an array:

split(/\$/, @data);

Well, you can but it won't return what you expect.

So I assume you didn't actually do that, post the actual code you tried because if you split those lines using '$' as the argument you will get what you expect.

Code:

while(<DATA>){
	my @tmp=split('\$',$_);
	print join ", ", @tmp;
}
__DATA__
a $3.33
b $4.44
dfg $0.56

-----Post Update-----

Code:

while(<DATA>){
	my @tmp=split('\$',$_);
	print join ", ", @tmp;
}
__DATA__
a $3.33
b $4.44
dfg $0.56

The actual code I used was a simple test string...


$test="This is a test $6.56 $5.7";
print split(/\$/, $test);

which resulted the

This is a test .56 .7

However with your example the test works fine... I hope you could shed some light on this..

while<FILE>{
chomp;
my ($stampItem $stampPrice)=split(/\$/);
push @stampItem, $stampItem;
push @stampPrice, $stampPrice;
}

/r
Rick

Your test string is flawed:

Code:

$test="This is a test $6.56 $5.7";
print $test;

See the problem with your test?

I never seem to give enough information when I post.. sorry about that.

The test string, if I ever got it to seperat correctly, was going to seperat the dollar amount and assigne it to an array and then have the money value added for a total.

$test="This is a test $6.56 $5.7";
print split(/\$/, $test);

which resulted the

This is a test .56 .7

This was a simple design to see why my split did not work correctly.

With your snipit all came together:

open(FILE, "<", "stamp_list");
my @stampItem;
my @stampPrice;
while(<FILE>) {
chomp;
my ($stampItem, $stampPrice)=split(/\$/);
push @stampItem, $stampItem;
push @stampPrice, $stampPrice;
}

print("\n\n\t\tCurrent Stamp Values\n\n");

$arrayLength=@stampItem;

for($i=0; $i<$arrayLength; $i++) {
print("$stampItem[$i] \$$stampPrice[$i]\n");
}

for($i=0; $i<$arrayLength; $i++) {
$totalValue += $stampPrice[$i];
}

print("\n\nTotal value of stamps is: \$$totalValue\n\n");

stamp_list
stamp name 1 $3.50
stamp name 2 $5.25
...

again I don't understand why my simple test failed and only showed the change and not the full dollar amount.

/r
Rick