Am Dienstag, 10. Mai 2005 09.14 schrieb FreeFall: > use warnings; > use strict; > > my @decimals; > $_ = �'atom 12 N �VAL �A �1 �12.435 �13.66 34.6 �32.1 32 � a N'; > push @decimals,$1 while (/(\d+\.?\d*)/g); > > print "@decimals\n";
Or, shorter (no need to use while _and_ //g): use warnings; use strict; $_ = 'atom 12 N VAL A 1 12.435 13.66 34.6 32.1 32 a N'; my @decimals= /(\d+\.?\d*)/g; print "@decimals\n"; # prints the same: 12 1 12.435 13.66 34.6 32.1 32 joe -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
