Mega Code Archive

 

Categories / Perl / Language Basics

 

Edit files using the -i option

#!/usr/local/bin/perl -i  while ($line = <>) {      while ($line =~ s#\d+\s*[*+-/]\s*\d+(\s*[*+-/]\s*\d+)*#<x>#) {          eval ("\$result = $&;");          $line =~ s/<x>/$result/;      }      print ($line);  }