formatting substitute and arrays

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have a perl program that changes certain values in an input deck and runs an executable, opens the output file, finds the important number and stores it in an array.

I have two questions:

When I use the s/old_value/new_value/ command for the input deck, is there a way to force new_value to be of a certain format (ie %.5)?
When I do fill the array output_values and want to print it, how do i use a variable number of format qualifiers in the print command: i.e. instead of
```
printf PLOT ("%.5f %.5f %.5f \n", $a[1}, $a[2], $a[3]);
[download]
```
I would like to do this print statement for "m" values of the array $a without having m be predetermined.

I looked through the previous submissions, and I could not find a similar type question. I apologize if it has already been addressed.

Comment on formatting substitute and arrays Download Code

Replies are listed 'Best First'.
Re: formatting substitute and arrays by thelenm (Vicar) on Apr 26, 2002 at 22:09 UTC
It would really help if you could post some of the code that you currently have, so that we can see what you've tried so far. For the first part of your question, you might want to try using sprintf, something like this: `my $new_value = sprintf("%.5f", $unformatted_value); s/old_value/$new_value/;` [download] I didn't really understand what you're trying to do, so I'm sorry I can't be of much more help.	[reply] [d/l]
Re: formatting substitute and arrays by asdfgroup (Beadle) on Apr 26, 2002 at 22:30 UTC
1) try `s/old_value/sprintf("%.5f", new_value)/e;` 2) should work something like : `print PLOT (map {sprintf "%.5f", $_} @a), "\n"` or `print PLOT (sprintf "%.5f"x@a, @a), "\n"`	[reply] [d/l] [select]