Help for this page

Select Code to Download


  1. or download this
    my $folder = 'E:\FOLDER\Test\WEB';
{
...
             }, 
       ]
};
  2. or download this
    #test.pl
use Modern::Perl;
my $config = do 'work.conf';
use Data::Dumper;
say Dumper( $config );
  3. or download this
     %programs = @{ $config->{programs} };
    for my $prog (values %programs) {
...
       print $name, ': ', $param{$name},"\n";
      }
    }
  4. or download this
     license => [ 'kit-licence.zip',
               'kit-work.zip'
                   ],
       programs => [..
  5. or download this
    use File::Spec::Functions qw/catfile/;
  my $filename = catfile($::svn, ${$config->{license}}[0]);
  my $filename1 = catfile($::svn, ${$config->{license}}[1]);