Re: Unsolvable? How to extract dollar amount from $1.12 stored in a file

[Dr.Ruud]

Xuning Wang schreef:

> $str = "$1.12";

  $str = '$1.12';

or

  $str = q($1.12);


#!/usr/bin/perl
  use strict;
  use warnings;

  while (<DATA>)
  {
    print "$_\n" for /\$(\d+\.\d+)/g
  }

__DATA__
Buy when the price goes from $1.12 to $0.98.
$12.345
$6
$7.8
$9.01

-- 
Affijn, Ruud

"Gewoon is een tijger."



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>