On Jul 11, 1:50 pm, [EMAIL PROTECTED] (Joseph L. Casale)
wrote:
> Hi,
> Know that I am learning perl, I am expected to use it at work :)
> Problem is I am still to green for the current problem I have. The data is
> always left justified and has a space between each value.
>
> I have a text file of about ~500 lines like this:
> -11.67326 23.95923 0.4617566
> 5.075023 24.27938 0.4484084
> 6.722163 -24.68986 1.399011
> -11.2023 -25.0398 1.145933
>
> I need to do the following:
> Insert and X, Y and Z as one script:
> X-11.67326 Y23.95923 Z0.4617566
> X5.075023 Y24.27938 Z0.4484084
> X6.722163 Y-24.68986 Z1.399011
> X-11.2023 Y-25.0398 Z1.145933
>
> Lastly, I'll need to make an additional copy of the program to strip out any
> numerical values for Z, and replace them with the following, [some_var].
> X-11.67326 Y23.95923 Z[some_var]
> X5.075023 Y24.27938 Z[some_var]
> X6.722163 Y-24.68986 Z[some_var]
> X-11.2023 Y-25.0398 Z[some_var]
>
> Any help would be appreciated greatly, I am still just to new for this!
#!/usr/bin/env perl
use strict;
use warnings;
my @data = <DATA>;
#Part A
for my $line (@data){
$line =~ s/(\S+)\s+(\S+)\s+(\S+)/X$1 Y$2 Z$3/;
print $line;
}
print "\n\n";
#Part B
for my $line (@data) {
$line =~ s/(?<=Z)\d+(\.\d+)?/[some var]/;
print $line;
}
__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 Z0.4617566
X5.075023 Y24.27938 Z0.4484084
X6.722163 Y-24.68986 Z1.399011
X-11.2023 Y-25.0398 Z1.145933
X-11.67326 Y23.95923 Z[some var]
X5.075023 Y24.27938 Z[some var]
X6.722163 Y-24.68986 Z[some var]
X-11.2023 Y-25.0398 Z[some var]
In the first, we simply search for the three strings of non-whitespace
and capture them in $1, $2, and $3, then we replace the whole string
with X followed by $1, Y followed by $2, and Z followed by $3
In the second, we search for any sequence of numbers (possibly
followed by a period and more numbers) that was preceeded by a Z, and
replace that sequence with [some var].
For more information on regular expressions, please see:
perldoc perlre
perldoc perlretut
perldoc perlreref
Paul Lalli
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
