Help for this page

Select Code to Download


  1. or download this
    $ ./5.MY.translate.pl --configfile C --from tja --infile /home/bob/Documents/meditations/Algorithm-Markov-Multiorder-Learner-master/data/2.short.shelley.txt --outfile /home/bob/Desktop/1.state
  2. or download this
    #!/usr/bin/perl -w
use 5.011;
binmode STDOUT, ":utf8";
...
say "--- mod is";
dd $mod;
__END__
  3. or download this
    sub new {
    my ( $class, $param_hr ) = @_;
 
...
        cache_file     => 0,
        headers        => {},
    );
  4. or download this
        for my $property ( keys %self )
    {
        if ( exists $param_hr->{$property} )
...
            $self{$property} = delete $param_hr->{$property};
        }
    }