Ideone.com | Online Perl Interpreter & Debugging Tool

Computer geeks!

Recent public codes are listed below. You can filter them by the following programming languages:

codes: 87503 page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

2 days 5 hours ago view (lines: 86, size: 1279, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 3, size: 65, inputs: 1) Perl Success

1
2
3
#!/usr/bin/perl
$test = "/testtree";
print (" STATUS :: ",$test);

2 days 6 hours ago view (lines: 3, size: 65, inputs: 1) Perl Success

1
2
3
#!/usr/bin/perl
$test = "/testtree";
print (" STATUS :: ",$test);

2 days 6 hours ago view (lines: 3, size: 65, inputs: 1) Perl Success

1
2
3
#!/usr/bin/perl
$test = "/testtree";
print (" STATUS :: ",$list);

2 days 6 hours ago view (lines: 4, size: 89, inputs: 1) Perl Success

1
2
3
4
#!/usr/bin/perl
@test = "testtree";
$list = join("/",@test);
print (" STATUS :: ",$list);

2 days 6 hours ago view (lines: 4, size: 89, inputs: 1) Perl Success

1
2
3
4
#!/usr/bin/perl
$test = "testtree";
$list = join("/",$test);
print (" STATUS :: ",$list);

2 days 6 hours ago view (lines: 86, size: 1279, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 3, size: 73, inputs: 1) Perl Success

1
2
3
#!/usr/bin/perl
$list = join("\/",testtree);
print (" STATUS :: ",$list);

2 days 6 hours ago view (lines: 3, size: 72, inputs: 1) Perl Success

1
2
3
#!/usr/bin/perl
$list = join("/",testtree);
print (" STATUS :: ",$list);

2 days 6 hours ago view (lines: 86, size: 1279, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 85, size: 1272, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 83, size: 1227, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 83, size: 1253, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 83, size: 1247, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
use warnings;
@iparray=("the","the");
@sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 80, size: 1204, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 83, size: 1256, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 83, size: 1252, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 83, size: 1252, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 83, size: 1253, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 84, size: 1267, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 83, size: 1253, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 83, size: 1253, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#use warnings;
my @iparray=("the","the");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 4, size: 92, inputs: 1) Perl Success

1
2
3
4
#!/usr/bin/perl
$list = "error";
$err = system "grep i 'error' $list";
print ("value",$err);

2 days 6 hours ago view (lines: 13, size: 188, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
9
int $err;
open (TL,">test.txt");
print TL ("error");
close (TL);
$err = "grep error test.txt |wc ";
printf ("VALUE %d ",$err);
if($err != 0){
print ("FAILED");
}
 ...

2 days 6 hours ago view (lines: 83, size: 1246, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
use warnings;
@iparray=("the","the");
@sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 83, size: 1244, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
use warnings;
@iparray=("the","the");
@sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 83, size: 1245, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
use warnings;
@iparray=("the","the");
@sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

2 days 6 hours ago view (lines: 13, size: 190, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
9
int $err;
open (TL,">test.txt");
print TL ("error");
close (TL);
$err = "grep 'error' test.txt |wc ";
printf ("VALUE %d ",$err);
if($err != 0){
print ("FAILED");
}
 ...

2 days 6 hours ago view (lines: 13, size: 193, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
9
int $err;
open (TL,">test.txt");
print TL ("error");
close (TL);
$err = "grep 'error' test.txt |wc -l ";
printf ("VALUE %d ",$err);
if($err != 0){
print ("FAILED");
}
 ...

2 days 6 hours ago view (lines: 13, size: 192, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
9
int $err;
open (TL,">test.txt");
print TL ("pass");
close (TL);
$err = "grep 'error' test.txt |wc -l ";
printf ("VALUE %d ",$err);
if($err != 0){
print ("FAILED");
}
 ...

page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

1 2 3 4 5 6 7 8 9	use warnings; my @iparray=("the","the"); my @sortedarray=sort(@iparray); my @oparray; my $lowerlimit=0; my $upperlimit; my $count=0; my $inc=1; my $mat=0;
...

1 2 3 4 5 6 7 8 9	use warnings; @iparray=("the","the"); @sortedarray=sort(@iparray); my @oparray; my $lowerlimit=0; my $upperlimit; my $count=0; my $inc=1; my $mat=0;
...

1 2 3 4 5 6 7 8 9	#use warnings; my @iparray=("the","the"); my @sortedarray=sort(@iparray); my @oparray; my $lowerlimit=0; my $upperlimit; my $count=0; my $inc=1; my $mat=0;
...

1 2 3 4 5 6 7 8 9	int $err; open (TL,">test.txt"); print TL ("error"); close (TL); $err = "grep error test.txt \|wc "; printf ("VALUE %d ",$err); if($err != 0){ print ("FAILED"); }
...

UsernamePassword

Username
Password