Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
    
    ...
        if ($^S) { cluck   "Trapped warning: @_" } 
        else     { confess "Deadly warning: @_"  }
    };
    
  2. or download this
    % perl -e 'use open qw(:std :utf8); open(F, ">/tmp/out"); print F "\xD
    +F"'; wc /tmp/out
           0       1       2 /tmp/out
    ...
           0       1       1 /tmp/out
    % perl -e ' use open qw(:std :utf8); use autodie; open(F, ">/tmp/out")
    +; print F "\xDF"' ; wc /tmp/out
           0       1       1 /tmp/out