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 2 hours ago view (lines: 93, size: 1378, inputs: 1) Perl Runtime error

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

2 days 2 hours ago view (lines: 93, size: 1380, inputs: 1) Perl Success

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

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12            hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "15 hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12     hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12    hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 60   min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 60   min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
}
else
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
}
else
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 62 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
}
else
 ...

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 62 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
}
else
 ...

2 days 3 hours ago view (lines: 19, size: 360, 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);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
}
else
 ...

2 days 3 hours ago view (lines: 19, size: 362, 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);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
}
else
 ...

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

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

2 days 3 hours ago view (lines: 26, size: 374, 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);
if($str1[1] eq "hr")
{
 
}
else
 ...

2 days 3 hours ago view (lines: 26, size: 374, 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);
if($str1[1] eq "hr")
{
 
}
else
 ...

2 days 3 hours ago view (lines: 91, size: 1338, inputs: 1) Perl Runtime error

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

2 days 3 hours ago view (lines: 26, size: 375, 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);
if($str1[1] eq "hr")
{
 
}
else
 ...

2 days 3 hours ago view (lines: 29, size: 460, 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);
if($str1[1] eq "hr")
{
 
}
else
 ...

2 days 3 hours ago view (lines: 29, size: 459, 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);
if($str1[1] eq "hr")
{
 
}
else
 ...

2 days 4 hours ago view (lines: 29, size: 458, 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);
if($str1[1] eq "hr")
{
 
}
else
 ...

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

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("and","rat","picture","pick","pack");
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: 22, size: 419, 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);
if($str1[1] eq "hr")
{
print "HR";
}
else
 ...

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=("and","rat","picture","pick","pack"); 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 = "12 hr 60 min"; my @str1 = split (/\s/, $str); if($str1[1] eq "hr" and $str1[3] eq "min") { print "correct"; } else
...

UsernamePassword

Username
Password