Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    my $line = '$Word $ $ $ $test $testing';
    $line =~ s/(\$(\w+)*)/exists $words{$1} ? $1 : "dollar$2"/eg;
    print "$line\n\n";
    
  2. or download this
    Use of uninitialized value in concatenation (.) or string at ex.pl lin
    +e 6.
    Use of uninitialized value in concatenation (.) or string at ex.pl lin
    +e 6.
    Use of uninitialized value in concatenation (.) or string at ex.pl lin
    +e 6.
    $Word dollar dollar dollar $test dollartesting