On Nov 8, 2007 3:32 PM, Demian <[EMAIL PROTECTED]> wrote: > Hello, > > I ran into a problematic file that combined two numeric columns into > one: > > ATOM 325 CA GLU B 40 -30.254 72.432-297.620 1.00 > 10.00 C > ATOM 326 CA ASP B 41 -28.149 73.031-294.529 1.00 > 10.00 C > ATOM 327 CA GLU B 42 -27.716 76.690-295.429 1.00 > 10.00 C > ATOM 328 CA LEU B 43 -31.425 77.076-296.027 1.00 > 10.00 C > ATOM 329 CA VAL B 44 -32.237 75.542-292.673 1.00 > 10.00 C > ATOM 330 CA SER B 45 -29.850 77.900-290.914 1.00 > 10.00 C > ATOM 331 CA LEU B 46 -31.335 80.873-292.720 1.00 > 10.00 C > ATOM 332 CA GLN B 47 -34.837 79.809-291.801 1.00 > 10.00 C > > I came up with a solution, but I'm sure there's an easier way. Is > there a more elegant way of doing it? > > Thank you. > > _____________________________________________________ > > #!/usr/bin/perl > # > use strict; > use warnings; > > my $numstring= "-100.00-400.34"; > > my @pieces= split /([-])/, $numstring; > > my @nums; > > for (my $k=0; $k<=$#pieces; $k++){ > if ($pieces[$k] eq "-") { > push @nums, "$pieces[$k]$pieces[$k+1]"; > $k++; > next; > } > elsif($pieces[$k]=~ /\d+/) { > push @nums, $pieces[$k]; > } > } > > map {print $_ . "\n"} @nums; > > ______________________________________________ >
[EMAIL PROTECTED]:~] $ cat b.pl #!/usr/bin/perl -w use strict; use Data::Dumper; my $numstring= "-100.00-400.34"; my @v = split /(\-?[0-9]+\.[0-9]+)?/,$numstring; print Dumper([EMAIL PROTECTED]); [EMAIL PROTECTED]:~] $ perl b.pl $VAR1 = [ '', '-100.00', '', '-400.34' ]; > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > http://learn.perl.org/ > > > -- Rodrick R. Brown http://www.rodrickbrown.com