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

12 days 23 hours ago view (lines: 17, size: 283, inputs: 6) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
$line=<>;
chomp($line);
$line =~ s/^\s*//;
$line =~ s/\s*$//;
$line =~ tr/[A-Z]/[a-z]/;
@buf = split /\s+/, $line;
$jumlah=0;
foreach $kata(@buf) {
 ...

12 days 23 hours ago view (lines: 17, size: 283, inputs: 6) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
$line=<>;
chomp($line);
$line =~ s/^\s*//;
$line =~ s/\s*$//;
$line =~ tr/[A-Z]/[a-z]/;
@buf = split /\s+/, $line;
$jumlah=0;
foreach $kata(@buf) {
 ...

12 days 23 hours ago view (lines: 22, size: 1694, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
9
    ''=~(        '(?{'        .('`'        |'%')        .('['        ^'-')
    .('`'        |'!')        .('`'        |',')        .'"'.        '\\$'
    .'=='        .('['        ^'+')        .('`'        |'/')        .('['
    ^'+')        .'||'        .(';'        &'=')        .(';'        &'=')
    .';-'        .'-'.        '\\$'        .'=;'        .('['        ^'(')
    .('['        ^'.')        .('`'        |'"')        .('!'        ^'+')
   .'_\\{'      .'(\\$'      .';=('.      '\\$=|'      ."\|".(      '`'^'.'
  ).(('`')|    '/').').'    .'\\"'.+(    '{'^'[').    ('`'|'"')    .('`'|'/'
 ).('['^'/')  .('['^'/').  ('`'|',').(  '`'|('%')).  '\\".\\"'.(  '['^('(')).
 ...

12 days 23 hours ago view (lines: 13, size: 108, inputs: 2) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/local/bin/perl
$i=0;
while($i == 4){
@z=<STDIN>;
$i++;
}
$s=0;
while($s ==4)
{
 ...

12 days 23 hours ago view (lines: 13, size: 108, inputs: 2) Perl Success

1
2
3
4
5
6
7
8
9
#!/usr/local/bin/perl
$i=0;
while($i == 4){
@z=<STDIN>;
$i++;
}
$s=0;
while($s ==4)
{
 ...

12 days 23 hours ago view (lines: 7, size: 64, inputs: 2) Perl Success

1
2
3
4
5
6
#!/usr/local/bin/perl
$i=0;
while($i == 4){
@z=<STDIN>;
$i++;
}

12 days 23 hours ago view (lines: 7, size: 64, inputs: 2) Perl Success

1
2
3
4
5
6
#!/usr/local/bin/perl
$i=0;
while($i == 4){
@z=<STDIN>;
$i++;
}

12 days 23 hours ago view (lines: 7, size: 74, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
#!/usr/local/bin/perl
$i=0;
while($i == 4){
@z=<STDIN>;
$i++;
}
print @#z;

12 days 23 hours ago view (lines: 7, size: 66, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
#!/usr/local/bin/perl
$i=0;
while($i == 4){
@z;
$i++;
}
print @#z;

12 days 23 hours ago view (lines: 7, size: 65, inputs: 2) Perl Success

1
2
3
4
5
6
7
#!/usr/local/bin/perl
$i=0;
while($i == 4){
@z;
$i++;
}
print @z;

12 days 23 hours ago view (lines: 7, size: 65, inputs: 2) Perl Success

1
2
3
4
5
6
7
#!/usr/local/bin/perl
$i=0;
while($i == 4){
@z;
$i++;
}
print @z;

12 days 23 hours ago view (lines: 7, size: 65, inputs: 2) Perl Success

1
2
3
4
5
6
7
#!/usr/local/bin/perl
$i=0;
while($i == 4){
@z;
print @z;
$i++;
}

12 days 23 hours ago view (lines: 7, size: 65, inputs: 2) Perl Success

1
2
3
4
5
6
7
#!/usr/local/bin/perl
$i=0;
while($i == 4){
@z;
print @z;
$i++;
}

12 days 23 hours ago view (lines: 7, size: 64, inputs: 2) Perl Success

1
2
3
4
5
6
7
#!/usr/local/bin/perl
$i0;
while($i == 4){
@z;
print $z;
$i++;
}

12 days 23 hours ago view (lines: 7, size: 64, inputs: 2) Perl Success

1
2
3
4
5
6
7
#!/usr/local/bin/perl
$i0;
while($i == 4){
@z;
print $z;
$i++;
}

12 days 23 hours ago view (lines: 6, size: 59, inputs: 1) Perl Success

1
2
3
4
5
6
#!/usr/local/bin/perl
while($i == 1){
@z;
print $z;
$i++;
}

12 days 23 hours ago view (lines: 6, size: 59, inputs: 1) Perl Success

1
2
3
4
5
6
#!/usr/local/bin/perl
while($i == 1){
@z;
print $z;
$i++;
}

12 days 23 hours ago view (lines: 7, size: 149, inputs: 2) Perl Time limit exceeded

1
2
3
4
5
6
7
#!/usr/local/bin/perl
 
$par_filtr=<STDIN>;
$koniec='<<KONIEC>>';
while($par_filtr == $koniec){
$par_filtr=<STDIN>;#wczytywanie parametrow i filtrow
}

12 days 23 hours ago view (lines: 7, size: 149, inputs: 2) Perl Time limit exceeded

1
2
3
4
5
6
7
#!/usr/local/bin/perl
 
$par_filtr=<STDIN>;
$koniec='<<KONIEC>>';
while($par_filtr == $koniec){
$par_filtr=<STDIN>;#wczytywanie parametrow i filtrow
}

12 days 23 hours ago view (lines: 7, size: 159, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
#!/usr/local/bin/perl
use strict
$par_filtr=<STDIN>;
$koniec='<<KONIEC>>';
while($par_filtr == $koniec){
$par_filtr=<STDIN>;#wczytywanie parametrow i filtrow
}

12 days 23 hours ago view (lines: 7, size: 158, inputs: 1) Perl Runtime error

1
2
3
4
5
6
7
#!/usr/local/bin/perl
use strict
$par_filtr=<STDIN>
$koniec='<<KONIEC>>';
while($par_filtr == $koniec){
$par_filtr=<STDIN>;#wczytywanie parametrow i filtrow
}

12 days 23 hours ago view (lines: 6, size: 141, inputs: 1) Perl Runtime error

1
2
3
4
5
6
#!/usr/local/bin/perl
use strict
$par_filtr=<STDIN>
while($par_filtr == "<<KONIEC>>"){
$par_filtr=<STDIN>;#wczytywanie parametrow i filtrow
}

12 days 23 hours ago view (lines: 6, size: 141, inputs: 1) Perl Runtime error

1
2
3
4
5
6
#!/usr/local/bin/perl
use strict
$par_filtr=<STDIN>
while($par_filtr eq "<<KONIEC>>"){
$par_filtr=<STDIN>;#wczytywanie parametrow i filtrow
}

13 days 0 hours ago view (lines: 5, size: 130, inputs: 1) Perl Runtime error

1
2
3
4
5
#!/usr/local/bin/perl
$par_filtr=<STDIN>
while($par_filtr eq "<<KONIEC>>"){
$par_filtr=<STDIN>;#wczytywanie parametrow i filtrow
}

13 days 0 hours ago view (lines: 3, size: 86, inputs: 2) Perl Success

1
2
#!/usr/local/bin/perl
$par_filtr=<STDIN>;#zmienna do wczytywania parametrow i filtrow

13 days 0 hours ago view (lines: 3, size: 86, inputs: 2) Perl Success

1
2
#!/usr/local/bin/perl
$par_filtr=<STDIN>;#zmienna do wczytywania parametrow i filtrow

13 days 0 hours ago view (lines: 25, size: 297, inputs: 3) Perl Success

1
2
3
4
5
6
7
8
#!/usr/local/bin/perl
print 'Hello world';
$zmienna=9;
print $zmienna;
$a ='tekst';
$b='tesk2';
$c=$a.$b;
print'\n';
 ...

13 days 0 hours ago view (lines: 25, size: 297, inputs: 3) Perl Success

1
2
3
4
5
6
7
8
#!/usr/local/bin/perl
print 'Hello world';
$zmienna=9;
print $zmienna;
$a ='tekst';
$b='tesk2';
$c=$a.$b;
print'\n';
 ...

13 days 0 hours ago view (lines: 25, size: 297, inputs: 3) Perl Success

1
2
3
4
5
6
7
8
#!/usr/local/bin/perl
print 'Hello world';
$zmienna=9;
print $zmienna;
$a ='tekst';
$b='tesk2';
$c=$a.$b;
print'\n';
 ...

13 days 0 hours ago view (lines: 22, size: 268, inputs: 1) Perl Success

1
2
3
4
5
6
7
8
#!/usr/local/bin/perl
print 'Hello world';
$zmienna=9;
print $zmienna;
$a ='tekst';
$b='tesk2';
$c=$a.$b;
print'\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 $line=<>; chomp($line); $line =~ s/^\s//; $line =~ s/\s$//; $line =~ tr/[A-Z]/[a-z]/; @buf = split /\s+/, $line; $jumlah=0; foreach $kata(@buf) {
...

1 2 3 4 5 6 7 8 9	#!/usr/local/bin/perl $i=0; while($i == 4){ @z=<STDIN>; $i++; } $s=0; while($s ==4) {
...

1 2 3 4 5 6 7 8	#!/usr/local/bin/perl print 'Hello world'; $zmienna=9; print $zmienna; $a ='tekst'; $b='tesk2'; $c=$a.$b; print'\n';
...

UsernamePassword

Username
Password