Thanks...
This is great...
Thanks again!
Jerry
>>> "John W. Krahn" <[EMAIL PROTECTED]> 09/25/07 12:51 PM >>>
Gerald Wheeler wrote:
> I could use some real expert help here..
> I have only the basic - no add-on modules except what comes with
Perl
>
> What is needed, Is this possible with Perl 5.x..
>
> read from file olddata.txt output to newdata.txt
>
> 1) output all numerics inside parenthesis to negative values e.g.,
(32)
> should output as -32
> 2) output all numerics inside double quotes to the number inside the
> quotes without the comma e.g., "2,345" should be output as 2345
> 3) ignore (do not output) lines with alphabet characters A-Za-z
> 4) ignore (do not output) lines with only commas
> 5) ignore (do not output) the first and last column of the line
> 6) print out data as one data value per line preceeded by an index
> starting at 1, from top of column one to bottom of column one, then
> column two (top to bottom), etc.
>
> Thanks for any help....
>
> here is the file:
[ SNIP ]
#!/usr/bin/perl
use warnings;
use strict;
my $file_in = 'olddata.txt';
my $file_out = 'newdata.txt';
open my $IN, '<', $file_in or die "Cannot open '$file_in' $!"
open my $OUT, '>', $file_out or die "Cannot open '$file_out' $!"
my @data;
while ( <$IN> ) {
# 3) ignore (do not output) lines with alphabet characters A-Za-z
next if /[A-Za-z]/;
# 4) ignore (do not output) lines with only commas
next if /^,+$/;
# 1) output all numerics inside parenthesis to negative values
e.g., (32)
# should output as -32
s/ \( ( \d+ ) \) /-$1/xg;
# 2) output all numerics inside double quotes to the number inside
the
# quotes without the comma e.g., "2,345" should be output as 2345
s/ " ( [^"]+ ) " / ( my $x = $1 ) =~ tr!,!!d; $x /exg;
# 5) ignore (do not output) the first and last column of the line
s/^[^,]*,//;
s/,[^,]*$//;
my $index;
push @{ $data[ $index++ ] }, $_ for split /,/;
# If you want *all* empty elements
# push @{ $data[ $index++ ] }, $_ for split /,/, $_, -1;
# If you want *NO* empty elements
# /\d/ && push @{ $data[ $index++ ] }, $_ for split /,/;
}
# 6) print out data as one data value per line preceeded by an index
# starting at 1, from top of column one to bottom of column one, then
# column two (top to bottom), etc.
my $index = 1;
for my $row ( @data ) {
print $OUT $index++, ",$_\n" for @$row;
}
__END__
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
