Windows

Cursos:

https://www.microsoftvirtualacademy.com/Home.aspx

 

 

Unix history-simple

Perl - Sub/Hash

#!/usr/bin/perl
use strict;
use warnings;

my %hash;

$hash{'perl'} = ' =) ';

&show(\%hash);

sub show(){
 
    my ($hash) = @_;

    foreach my $key (keys %hash){
        print "$hash->{$key}";
    }

}

Result :

$perl blog.pl 

=)

Perl - Function Substr

#!/usr/bin/perl
use strict;
use warnings;

my $phrase  = 'This is friend "command line"';

my $friend = substr($phrase,16,12);

print "$friend\n";

my $this = substr($phrase,0,4);

print "$this\n";

result:

> perl blog.pl
command line
This