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: 115600 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

10 days 16 hours ago view (lines: 59, size: 968, inputs: 2) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#************************************
my @tab_filtr=();
my @tab_param=();
my @wejscie=();
my @tmp;
my $zmm;
 ...

10 days 16 hours ago view (lines: 59, size: 968, inputs: 2) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#************************************
my @tab_filtr=();
my @tab_param=();
my @wejscie=();
my @tmp;
my $zmm;
 ...

10 days 16 hours ago view (lines: 57, size: 950, inputs: 2) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#************************************
my @tab_filtr=();
my @tab_param=();
my @wejscie=();
my @tmp;
my $zmm;
 ...

10 days 16 hours ago view (lines: 57, size: 950, inputs: 2) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#************************************
my @tab_filtr=();
my @tab_param=();
my @wejscie=();
my @tmp;
my $zmm;
 ...

10 days 16 hours ago view (lines: 55, size: 946, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#************************************
my @tab_filtr=();
my @tab_param=();
my @wejscie=();
my @tmp;
my $zmm;
 ...

10 days 16 hours ago view (lines: 55, size: 927, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#************************************
my @tab_filtr=();
my @tab_param=();
my @wejscie=();
my @tmp;
my $zmm;
 ...

10 days 16 hours ago view (lines: 55, size: 926, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#************************************
my @tab_filtr=();
my @tab_param=();
my @wejscie=();
my @tmp;
my $zmm;
 ...

10 days 17 hours ago view (lines: 101, size: 2311, inputs: 2) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
 
my @filtry=();
my @parametry=();
my $i=0;
my $j=0;
my $z;
 ...

10 days 17 hours ago view (lines: 101, size: 2311, inputs: 2) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
 
my @filtry=();
my @parametry=();
my $i=0;
my $j=0;
my $z;
 ...

10 days 17 hours ago view (lines: 44, size: 666, inputs: 2) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
#******************************
my @tab_filtr=();
my @tab_parametr=();
my $tmp=<STDIN>;
my $c=0;
my $liczP=0;
my @buf;
 ...

10 days 17 hours ago view (lines: 44, size: 666, inputs: 2) Perl Time limit exceeded

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
#******************************
my @tab_filtr=();
my @tab_parametr=();
my $tmp=<STDIN>;
my $c=0;
my $liczP=0;
my @buf;
 ...

10 days 17 hours ago view (lines: 45, size: 680, inputs: 2) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#******************************
my @tab_filtr=();
my @tab_parametr=();
my $tmp=<STDIN>;
my $c=0;
my $liczP=0;
 ...

10 days 17 hours ago view (lines: 45, size: 680, inputs: 2) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#******************************
my @tab_filtr=();
my @tab_parametr=();
my $tmp=<STDIN>;
my $c=0;
my $liczP=0;
 ...

10 days 17 hours ago view (lines: 45, size: 691, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#******************************
my @tab_filtr=();
my @tab_parametr=();
my $tmp=<STDIN>;
my $c=0;
my $liczP=0;
 ...

10 days 18 hours ago view (lines: 84, size: 1778, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
#Apache httpd Remote Denial of Service (memory exhaustion)
#By Kingcope
#Year 2011
#
# Will result in swapping memory to filesystem on the remote side
# plus killing of processes when running out of swap space.
# Remote System becomes unstable.
#
 ...

10 days 19 hours ago view (lines: 3, size: 48, inputs: 1) Perl Success

1
2
3
#!/usr/bin/perl
 
while (($_=<>)!=42) {print $_;}

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

1
for(2..1<<<>){$_--;$x=$_&-$_;say(($_-$x)%3,($_+$x)%3)}

10 days 20 hours ago view (lines: 61, size: 1163, inputs: 2) Perl Time limit exceeded

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
 
#******************************
 
my $zmienna=<STDIN>;
my @tab_filtr;
my @tab_parametr;
my @tmp;
 ...

10 days 20 hours ago view (lines: 61, size: 1163, inputs: 2) Perl Time limit exceeded

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
 
#******************************
 
my $zmienna=<STDIN>;
my @tab_filtr;
my @tab_parametr;
my @tmp;
 ...

10 days 20 hours ago view (lines: 61, size: 1176, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#******************************
 
my $zmienna=<STDIN>;
my @tab_filtr;
my @tab_parametr;
my @tmp;
 ...

10 days 20 hours ago view (lines: 27, size: 847, inputs: 1) Perl Success tenzin64

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl -w
 
@sor = ();      # átmenetileg itt tárolom a sor szavait
$szo = "";      
 
while (<>) {
  @sor = split(' ');            # sor szétszedése szavakra
  foreach $szo (@sor) { print &szo_feldolgozo($szo)." "; }      # feldolgozás szavanként
  print "\n";
 ...

10 days 20 hours ago view (lines: 62, size: 1176, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#******************************
 
my $zmienna=<STDIN>;
my @tab_filtr;
my @tab_parametr;
my @tmp;
 ...

10 days 21 hours ago view (lines: 56, size: 905, inputs: 2) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#******************************
my $tmp=<STDIN>;
my @tab_filtr;
my @tab_parametr;
my $licz_par=0;
my $licz_fil=0;
 ...

10 days 21 hours ago view (lines: 56, size: 905, inputs: 2) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#******************************
my $tmp=<STDIN>;
my @tab_filtr;
my @tab_parametr;
my $licz_par=0;
my $licz_fil=0;
 ...

10 days 21 hours ago view (lines: 56, size: 905, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#******************************
my $tmp=<STDIN>;
my @tab_filtr;
my @tab_parametr;
my $licz_par=0;
my $licz_fil=0;
 ...

10 days 21 hours ago view (lines: 56, size: 905, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#******************************
my $tmp=<STDIN>;
my @tab_filtr;
my @tab_parametr;
my $licz_par=0;
my $licz_fil=0;
 ...

10 days 21 hours ago view (lines: 55, size: 896, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#******************************
my $tmp=<STDIN>;
my @tab_filtr;
my @tab_parametr;
my $licz_par=0;
my $licz_fil=0;
 ...

10 days 21 hours ago view (lines: 54, size: 887, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#******************************
my $tmp=<STDIN>;
my @tab_filtr;
my @tab_parametr;
my $licz_par=0;
my $licz_fil=0;
 ...

10 days 21 hours ago view (lines: 53, size: 935, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
#******************************
my $tmp=<STDIN>;
my @tab_filtr;
my @tab_parametr;
my $licz_par=0;
my $licz_fil=0;
 ...

10 days 21 hours ago view (lines: 8, size: 98, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
8
#!/usr/bin/perl
use strict 'vars'
use warnings
my $tmp=<STDIN>;
while($tmp eq "<<KONIEC>>\n")
{
 
}

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	#!/usr/bin/perl use strict; use warnings; #************************************ my @tab_filtr=(); my @tab_param=(); my @wejscie=(); my @tmp; my $zmm;
...

1 2 3 4 5 6 7 8 9	#!/usr/bin/perl use strict; #****************************** my @tab_filtr=(); my @tab_parametr=(); my $tmp=<STDIN>; my $c=0; my $liczP=0; my @buf;
...

UsernamePassword

Username
Password