Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

use strict;
...
( $string ) = ( $string =~ /(show this)/));
/but show\/this, too/
my $butdontprintthis = "/var/cache/dictionaries-common";
  2. or download this
    /src/bin/oops/otehnoes
if(/ok .*$/) {
...
( $string ) = ( $string =~ /(show this)/));
/but show\/this, too/
my $dontprint this = "/var/cache/dictionaries-common";
  3. or download this
    if(/ok .*$/) {
if(m/a good match/( {
$string =~ s/[a-f]//g; # but print this line
( $string ) = ( $string =~ /(show this)/));
/but show\/this, too/