1
print for 1..3

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
sub perfect_insert_sort {
    my $h = shift;
    my @k;
    for my $k (keys %$h) {
        $k[$h->{$k}{order}] = $k;
    }
    return @k;
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
sub perfect_insert_sort {
    my $h = shift;
    my @k;
    for my $k (keys %$h) {
        $k[$h->{$k}{order}] = $k;
    }
    return @k;
 ...

1
2
3
my $a = 'a$BC12b';
$a =~ s/\$BC[0-9]/0/;
print $a;

1
2
3
my $a = 'a$BCb';
$a =~ s/\$BC/0/;
print $a;

1
++$_{$_}>$?and$?=$_{$_}for<>;print sort{$a-$b}grep$_{$_}==$?,keys%_

1
++$_{$_}>$?and$?=$_{$_}for<>;print sort{$a-$b}grep$_{$_}==$?,keys%_

1
print 5

1
2
c = 3 + 5
print c

1
print "hello"

1
2
3
4
5
6
7
8
9
++$_{$_}>$?and$?=$_{$_}for<DATA>;print sort{$a-$b}grep$_{$_}==$?,keys%_
__DATA__
5
6
3
5
8
7
5
 ...

1
2
3
$term = "black's";
$term =~ s/\W//g;
print $term;

1
2
3
$term = "black's"
$term =~ s/\W//g;
print $term;

1
2
3
4
5
6
7
8
9
use strict;
use feature qw( say );
 
my $n = '009';
 
say $n;
 
$n++;
say $n;
 ...

1
2
3
4
5
6
7
8
9
use strict;
use feature qw( say );
 
my $n = '003';
 
say $n;
 
$n++;
say $n;
 ...

1
2
3
4
5
6
7
8
9
use strict;
use feature qw( say );
 
my $n = '003';
 
say $n;
$n++;
say $n;
$n += 1;
 ...

1
2
3
4
5
6
7
8
use strict;
use feature qw( say );
 
my $n = '003';
 
say $n;
$n++;
say $n;

1
2
3
4
5
6
7
8
use strict;
use feature qw( say );
 
my $a = '123R';
my $b = '$a * ${a}';
 
say "\$a = $a";
say "$b = " . eval $b;

1
2
3
4
5
6
7
use strict;
use feature qw( say );
 
my $a = '123R';
 
say $a;
say 1 * $a;

1
2
3
4
5
6
use strict;
use feature qw( say );
 
my $a = 123H;
 
say $a;

1
2
3
4
5
6
7
8
sub foo {
  my $j = shift;
  printf("%d\n", $j);
  foo($i++);
}
 
foo($i);
 

1
2
3
4
5
6
7
8
9
#! /usr/bin/perl
use warnings;
use strict;
 
use Switch;
use Bit::Vector;
 
my $mcode = [];
my $marks = {};
 ...

1
use 5.012;

1
while (($_=<>)!=42) {print $_;}

1
print('hi');

1
echo 'hi';

1
2
3
4
5
6
7
8
9
package Util;
use base 'Exporter';
our @EXPORT = ('foo', 'bar');
 
sub foo {
    print "foo!";
}
sub bar {
    print "bar!";
 ...

1
2
3
4
5
6
7
8
9
package Sophie;
sub say_hello {
    print "Hi World!";
}
 
package Clara;
use Sophie;           # loads the package but does NOT import any methods
say_hello();          # blows up
Sophie->say_hello();  # correct usage
 ...

1
print "a";

1
2
3
4
5
6
7
8
use warnings;
while(<DATA>){
 
#［］とその中を削除
s/［[^］]+］//g; 
 
$str = $_;
$sub = "---------";
 ...