Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Edit files using the -i option
#!/usr/local/bin/perl -i 
while ($line = <>) { 
    while ($line =~ s#\d+\s*[*+-/]\s*\d+(\s*[*+-/]\s*\d+)*##) { 
        eval ("\$result = $&;"); 
        $line =~ s//$result/; 
    } 
    print ($line); 
}