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: 87496 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 4 hours ago view (lines: 5, size: 132, inputs: 1) Perl Runtime error

1
2
3
4
5
#!/usr/bin/perl
$test = "/testtree";
print (" STATUS :: ",$test);
$error = system "grep i 'testtree' $test"
print ("ERROR ",$error);

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 4     min"; 
 
my @str1 = split (/\s/, $str);
print "\n array ".@str1[0];
print "\n array ".@str1[1];
print "\n array ".@str1[2];
print "\n array ".@str1[3];
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 4 min"; 
 
my @str1 = split (/\s/, $str);
print "\n array ".@str1[0];
print "\n array ".@str1[1];
print "\n array ".@str1[2];
print "\n array ".@str1[3];
 ...

2 days 4 hours ago view (lines: 96, size: 1436, inputs: 1) Perl Runtime error

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

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12         hr 4 min"; 
 
my @str1 = split (/\s/, $str);
print "\n array ".@str1[0];
print "\n array ".@str1[1];
print "\n array ".@str1[2];
print "\n array ".@str1[3];
 ...

2 days 4 hours ago view (lines: 95, size: 1422, inputs: 1) Perl Runtime error

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

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12         hr 4 min"; 
my @str1 = split (/\s/, $str);
print "\n array ".@str1[0];
print "\n array ".@str1[1];
print "\n array ".@str1[2];
print "\n array ".@str1[3];
 
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12         hr 4 min"; 
my @str1 = split (/\s+/, $str);
print "\n array ".@str1[0];
print "\n array ".@str1[1];
print "\n array ".@str1[2];
print "\n array ".@str1[3];
 
 ...

2 days 4 hours ago view (lines: 31, size: 649, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12         hr 4 min"; 
my @str1 = split (/\s+/, $str);
print "\n array ".@str1[0];
print "\n array ".@str1[1];
print "\n array ".@str1[2];
print "\n array ".@str1[3];
 
 ...

2 days 4 hours ago view (lines: 95, size: 1380, 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 4 hours ago view (lines: 95, size: 1381, 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 4 hours ago view (lines: 38, size: 688, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12hr 4 min"; 
 if($str =~ m/\s+/)
{
print "wrong";
}
else
{
 ...

2 days 4 hours ago view (lines: 95, size: 1380, 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 4 hours ago view (lines: 95, size: 1378, 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 5 hours ago view (lines: 95, size: 1376, 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 5 hours ago view (lines: 38, size: 687, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12hr 4 min"; 
 if($str =~ m/\s/)
{
print "wrong";
}
else
{
 ...

2 days 5 hours ago view (lines: 95, size: 1375, 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 5 hours ago view (lines: 38, size: 693, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12      hr 4 min"; 
 if($str =~ m/\s/)
{
print "wrong";
}
else
{
 ...

2 days 5 hours ago view (lines: 2, size: 22, inputs: 1) Perl Runtime error

1
2
read a
print length(a)

2 days 5 hours ago view (lines: 2, size: 18, inputs: 1) Perl Runtime error

1
2
read a
print a.len

2 days 5 hours ago view (lines: 2, size: 20, inputs: 1) Perl Runtime error

1
2
read a
print a.len()

2 days 5 hours ago view (lines: 2, size: 23, inputs: 1) Perl Runtime error

1
2
read a
print a.length()

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 4 min"; 
 
my @str1 = split (/\s+/, $str);
 
print "\n array ".@str1[0];
print "\n array ".@str1[1];
print "\n array ".@str1[2];
 ...

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 5 hours ago view (lines: 1, size: 19, inputs: 1) Perl Success

1
print "Kode Multus"

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

1
print "Kode Multus"

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

1
print "Kode Multus"

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 5 hours ago view (lines: 3, size: 65, inputs: 1) Perl Success

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

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

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

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	#!/usr/bin/perl # "Music Live" my $str = "12hr 4 min"; if($str =~ m/\s+/) { print "wrong"; } else {
...

UsernamePassword

Username
Password