Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
use feature qw(say);
use Data::Dump;
  2. or download this
    my $moyr = "12/2014";

my ( $month, $year ) = split /\//, $moyr; 

say for ( $month, $year );
  3. or download this
    my %csga;

...
close $in;

dd \%csga;
  4. or download this
    open( my $in, "<", q(cc.txt) ) || die $!;

...
}

close $in;