mirror of https://github.com/Wilfred/difftastic/
39 lines
520 B
Perl
39 lines
520 B
Perl
use strict;
|
|
use warnings;
|
|
use Data::Dumper;
|
|
use feature 'signatures';
|
|
|
|
sub simple {
|
|
# my @args = @_;
|
|
print "this is simple\n";
|
|
my $variable = 1;
|
|
|
|
print $variable;
|
|
return;
|
|
}
|
|
|
|
print "hello world!\n";
|
|
|
|
my $hello = "hello";
|
|
|
|
print $hello;
|
|
|
|
simple;
|
|
simple();
|
|
simple('hola');
|
|
|
|
sub foo : Expose ($left, $right) {
|
|
return $left + $right;
|
|
}
|
|
|
|
foo();
|
|
print "\n";
|
|
my @chars = map chr, qw(1 2 3);
|
|
print "chars..." . Dumper \@chars;
|
|
|
|
map chr, qw(1 2 30);
|
|
|
|
|
|
my @meow = (2,3,2,45,43543,342,76);
|
|
my @array = grep 76 => @meow;
|