[ create a new paste ] login | about

sironekotoro

Name:
Email:
Site/Blog:
Location:
Default language:
Favorite languages:
About:

Saved pastes by sironekotoro:

Perl, pasted on Sep 28:
1
2
3
4
use strict;
use warnings;

my @foods = qw(beef karikari beef kandume beef pork pork);
...
view (14 lines, 4 lines of output)
Perl, pasted on Sep 25:
1
2
3
4
5
use strict;
use warnings;
use Data::Dumper;

my %sironekotoro = (
...
view (25 lines, 9 lines of output)
Perl, pasted on Sep 24:
1
2
3
4
5
use strict;
use warnings;
use Data::Dumper;

my %myinfo = (
...
view (21 lines, 8 lines of output)
Perl, pasted on Sep 24:
1
2
3
4
5
use strict;
use warnings;
use Data::Dumper;

my %myinfo = (
...
view (11 lines, 6 lines of output)
Perl, pasted on Sep 24:
1
2
3
4
5
use strict;
use warnings;

my @array = qw(0120 123 XXX);
for my $foo(@array){
...
view (18 lines, 9 lines of output)
Perl, pasted on Sep 24:
1
2
3
4
5
use strict;
use warnings;

my @array = ('Alice' , 'Bob');
unshift @array , 'Amon2';
...
view (16 lines, 3 lines of output)
Perl, pasted on Sep 23:
1
2
3
4
5
#!/usr/bin/env perl
use strict;
use warnings;

my $number = <STDIN>;
...
view (12 lines)
Perl, pasted on Sep 23:
1
2
3
4
5
#!/usr/bin/env perl
use strict;
use warnings;

my $input = <STDIN>;
...
view (12 lines)
Perl, pasted on Sep 23:
1
2
3
4
5
#!/usr/bin/env perl
use strict;
use warnings;

my @array = (1..100);
...
view (12 lines, 1 line of output)
Perl, pasted on Sep 23:
1
2
3
4
5
#!/usr/bin/env perl
use strict;
use warnings;

my $var = <STDIN>;
...
view (7 lines)
Perl, pasted on Sep 23:
1
2
3
4
5
#!/usr/bin/env perl
use strict;
use warnings;

for my $number(1..100){
...
view (17 lines, 100 lines of output)
Perl, pasted on Sep 23:
1
2
3
4
5
#!/usr/bin/env perl
use strict;
use warnings;

my @array;
...
view (13 lines)
Perl, pasted on Sep 23:
1
2
3
4
5
#!/usr/bin/env perl
use strict;
use warnings;

my $answer = 25;
...
view (21 lines, 5 lines of output)
Perl, pasted on Sep 23:
1
2
3
4
#!/usr/bin/env perl
use strict;
use warnings;
my $answer = 'perl';
...
view (13 lines, 3 lines of output)
Perl, pasted on Sep 23:
1
2
3
4
5
#!/usr/bin/env perl
use strict;
use warnings;

my $foo = <STDIN>;
...
view (19 lines, 11 lines of output)
Perl, pasted on Sep 23:
1
2
3
4
5
#!/usr/bin/env perl
use strict;
use warnings;

my $foo = <STDIN>;
...
view (11 lines, 5 lines of output)
Perl, pasted on Sep 23:
1
2
3
4
5
#!/usr/bin/env perl
use strict;
use warnings;

my $name   = "sironekotoro";
...
view (11 lines, 3 lines of output)
Perl, pasted on Sep 23:
1
2
3
4
5
#!/usr/bin/env perl
use strict;
use warnings;

print "Hello World\n";
view (5 lines, 1 line of output)
Perl, pasted on Sep 23:
1
2
print "my name is sironekotoro\n";
print "age 3*";
view (2 lines, 2 lines of output)
Perl, pasted on Sep 23:
1
2
3
4
5
my @tmp_array = (1, 3, 5, 7, 9,);
print "Total: ", compute_sum(\@tmp_array), "\n";

sub compute_sum {
    my ($aref) = @_;
...
view (11 lines, 1 line of output)
Perl, pasted on Sep 23:
1
2
3
4
5
my $x = 100;
my $sref = \$x;

print "$$sref\n";
$$sref += 5;
...
view (7 lines, 2 lines of output)
Perl, pasted on Sep 23:
1
2
3
4
5
use strict;
use warnings;

for my $number(1..30){
#    print "$number\n";
...
view (16 lines, 30 lines of output)