Help for this page

Select Code to Download


  1. or download this
    our ($rows, $cols);         #if use my ($rows,$cols), it will not work
no strict 'refs';                   # for ${$1}/g below
...
$text =~ s/\$(\w+)/${$1}/g;
print $text;
#I am 24 high and 80 long
  2. or download this
    $AGE = 17;
$text = 'I am $AGE years old';      # note single quotes
$text =~ s/(\$\w+)/$1/eeg;           # print I am 17 years old
$text =~ s/(\$\w+)/$1 * 2/eegx;  #I tried to double the age, but faile
+d
  3. or download this
    $text = "I am 17 years old";
$text =~ s/(\d+)/2 * $1/eg; #now I am 34 years old