1
2
3
4
5
6
7
8
9
#/usr/bin/perl -w 
$add = 395425559298; 
for($year=513400;;$year++) { 
$var = $year; 
for ($i = 1; $i <= $year; $i++) { 
$var += $year+$i} 
if($var == $add) { 
print $year,"!!!","\n\n\n"; 
die; } 

1
2
3
# Shows how single quotes differ from double quotes used in hello.pl
print 'Greetings, small planet!\n';
print q/What's cooking?\n/;

1
2
3
# Shows how single quotes differ from double quotes used in hello.pl
print 'Greetings, small planet!\n';
print q/What's cooking?\n/;

1
my $player_is_human = 1;my @values = (    ace => 1|11,    two => 2,    three => 3,    four => 4,    five => 5,    six => 6,    seven => 7,    eight => 8,    nine => 9,    ten => 10,    jack => 10,    queen => 10,    king => 10,);my @suites = < spades clubs diamonds hearts >;my @deck = ( @values X @suites ).map: { my ($name, $value) = $^a.kv; $name ~= " of $^b"; $name => $value };my @cards = @deck.pick( @deck.elems );my @dealer;my @player;@dealer.push( @cards.shift );@player.push( @cards.shift );@dealer.push( @cards.shift );say "DEALER:";say @dealer[0].key;say "";say "PLAYER:";.key.say for @player;my $player_value = [+] @player.map: { .value };loop {    my $card = @cards.shift;    @player.push( $card );    say $card.key;    $player_value += $card.value;    say "current value is { $player_value.perl }";    if $player_value == 21 {        say "congradulations, you win!";        exit 0;    }    elsif $player_value < 21 {        say "hit (h) or stay (s)";        my $choice;        if ($player_is_human) {            loop {                $choice = lc $*IN.get;                last if $choice eq "h" | "s";                #last if $choice ~~ /h|s/;                say "invalid entry: 'h' or 's'";            }        }        else {            $choice = "stay" unless $player_value < 16;        }        say $choice;        last if $choice ~~ /s/;    }    else {        say "Sorry, you bust!";        exit 0;    }}say "";$player_value = [max] (4 .. 21).grep: { $_ == $player_value };say "DEALER:";.key.say for @dealer;my $dealer_value = [+] @dealer.map: { .value };loop {    say "dealer value: {$dealer_value.perl}";    if $dealer_value == any( $player_value ^.. 21) {        say "you loose!";        exit 0;    }    elsif $dealer_value < 21 {        my $card = @cards.shift;        @dealer.push( $card );        say $card.key;        $dealer_value += $card.value;    }    else {        say "dealer bust: you win!";        exit 0;    }} 

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
my %count_of;
while (my $line = <>) { 
   #read from file or STDIN
  foreach my $word (split /\s+/, $line) {
     $count_of{$word}++;
  }
}
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
my %count_of;
while (my $line = <>) { #read from file or STDIN
  foreach my $word (split /\s+/, $line) {
     $count_of{$word}++;
  }
}
print "All words and their counts: \n";
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
 
my %count_of;
while (my $line = <>) { #read from file or STDIN
  foreach my $word (split /\s+/, $line) {
     $count_of{$word}++;
  }
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
print "Content-type: text/html\n\n";
 
$title='Perl Mail demo';
$to='MAIL ADDRESS TO SEND TO';
$from= 'webmaster@YOURDOMAIN.COM';
$subject='YOUR SUBJECT';
 
open(MAIL, "|/usr/sbin/sendmail -t");
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl -w
# mysql2pgsql
# MySQL to PostgreSQL dump file converter
#
# For usage: perl mysql2pgsql.perl --help
#
# ddl statments are changed but none or only minimal real data
# formatting are done.  
# data consistency is up to the DBA.
 ...

1
print "Kode Multus"

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;
@iparray=("the","the");
@sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

1
man perlcc

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
 
my $pass = '(6\!_I\=";I4U( '
my $pass2 = decrypt($pass);
print "Decrypted: $pass2\n";
$pass2 = decrypt($pass2);
print "Decrypted: $pass2\n";
 ...

1
while (($_ = $*IN.get) != 42) { say $_ }

1
2
3
4
5
   use Cwd;
    my $dir = getcwd;
 
    use Cwd 'abs_path';
    my $abs_path = abs_path($file);  

1
echo base64_decode('SEVBRCAvaGkgIA==');

1
2
#!/usr/bin/perl
print "coucou";

1
2
3
#!/usr/bin/perl
 
echo "coucou";

1
2
3
#!/usr/bin.perl
 
echo "coucou";

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
$var1 = "script";
$var2 = 100;
$var3 = "01/03/2004";
 
print $var1."\n";
print $var2."\n";
print $var3."\n";

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
$var1 = "script";
$var2 = 100;
$var3 = "01/03/2004";
 
print "var1 : $var1 \n";
print "var2 : $var2 \n";
print "var3 : $var3 \n";
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl -w
 
print "Content-type: text/html\n\n";
 
print "<html><head><title>Hello World!! </title></head>\n";
 
print "<body><h1>Hello world</h1></body></html>\n";
        

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
#use strict;
#use warnings;
use Net::LDAP;
use Data::Dumper;
 
my($Ad, $mesg, $uid, $pass, $npass, $dn, $rtn, $salt, $num, $x);
my (@entries, @college);
my ($entry, $surname, $firstname, $account, $college);
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
#use strict;
use warnings;
use Net::LDAP;
use Data::Dumper;
 
my($Ad, $mesg, $uid, $pass, $npass, $dn, $rtn, $salt, $num, $x);
my (@entries, @college);
my ($entry, $surname, $firstname, $account, $college);
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
use Net::LDAP;
use Data::Dumper;
 
my($Ad, $mesg, $uid, $pass, $npass, $dn, $rtn, $salt, $num, $x);
my (@entries, @college);
my ($entry, $surname, $firstname, $account, $college);
 ...

1
say -5 % 2

1
0;$_='5)4c3@0s3k0i8n7{5@4k7v5y6u0 7P8Q0i011j6o5N1!2k0f2"448E5B1)1%7f5%4i5v0\'5q2c5r4i3*700;5@0\'2)3@6„3+6-6.7F2}1(861)4+697=2;8a6?6X0L1k4;7:0Y2Y4X5n5]040W5<7K6=158>555\1y6p340K3n0p376h6<7m5<1B7;5r3e2V8_1n3z275x8n5s6G2p2o2J3H1[2W8I8;6\5s7k6]3*1!4b5%6-5H8L1Q4;4Q8z5s065^6v6<36890S1y8^065R742[2U1X3o096`6P0X2/0C8\2w118y116r2s5n6S1E7y6}4M8>3j8<66387x587T0-8<2|8z232F7?0I6S2n8/6/863*4(658…812)706A4i76o1u1)884-1<3L2K6o787p6o8Q4>7w8z7p4r0t1!5)773>';0;s/(.)(.)/pack('C',ord($2)-$1)/eg;0;print;0;

1
say "FREDDDDDDDD";