Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Using variables containing matched subpatterns
#!/usr/local/bin/perl 
while (<>) { 
    while (/(-?\d+)\.(\d+)([eE][+-]?\d+)?/g) { 
        print ("integer part $1, decimal part $2"); 
        if ($3 ne "") { 
            print (", exponent $3"); 
        } 
        print ("\n"); 
    } 
}