>>>>> "F" == Frank <caichao1...@gmail.com> writes:
F> #!/usr/bin/perl
F> open(DATA,"data.txt");
F> while(<DATA>) {
F> $number=$_;
F> # print $number;
F> while ($number =~ /([0-9]+)~s/g){
F> printf ("%d\n","$1");
F> }
F> }
F> close(DATA);
regardless of the poor code there and others have commented on it, why
did you post this three different times? and once using a different
address.
and please don't post code like that. it breaks many standard perl
coding rules, and it doesn't even do anything close to what the OP
wanted.
uri
--
Uri Guttman ------ u...@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
