Joseph L. Casale wrote:
How can I make this expression:
$line =~ s/(\S+)\s+(\S+)\s+(\S+)/X$1 Y$2 Z$3/
Add some numerical value to the Z$3 part, so if $3
was 3.14, I want it to be Z4.14 for example by adding 1 to it.
May I reply amending my original solution to your problem, which seems to me
to suit your purpose better? In the code below the value that would have been
held in $3 is in $z, so the extra line of code simply increments it by one.
HTH,
Rob
use strict;
use warnings;
while (<DATA>) {
my ($x, $y, $z) = split;
$z += 1;
printf "X%s Y%s Z%s\n", $x, $y, $z;
}
__DATA__
-11.67326 23.95923 0.4617566
5.075023 24.27938 0.4484084
6.722163 -24.68986 1.399011
-11.2023 -25.0398 1.145933
**OUTPUT**
X-11.67326 Y23.95923 Z1.4617566
X5.075023 Y24.27938 Z1.4484084
X6.722163 Y-24.68986 Z2.399011
X-11.2023 Y-25.0398 Z2.145933
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
