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/