Some parts of this page were machine translated.
Powered by Yandex.Translate
http://translate.yandex.com/
How to increment a variable?
How to increment a variable?
There are two obvious solutions:
++
+= to add one to a variable
But there are many ways to do it.
On the page http://paris.mongueurs.net/aplusplus.html
there are 309 (!!!) ways to put 1 to the variable $A.
This page contains the same code but here it is also possible to run the code in the browser.
It turned out that not all of code that is posted is working.
Some solutions does not work in the browser be because of the limitations of the service https://PerlBanjo.com (code in the service does not have access to the Internet and it is not possible to install additional modules).
But many of the examples work and there are some absolute masterpieces, for example:
Below is a complete list of all inventions how to add one to the variable.
Author: Moun's
#!/usr/bin/perl
$A++;
print $A;
Author: Moun's
#!/usr/bin/perl
$A += 1;
print $A;
Author: Moun's
#!/usr/bin/perl
$A = $A + 1;
print $A;
Author: Moun's
#!/usr/bin/perl
$A = eval { $A + 1 };
print $A;
Author: Moun's
Date: 1999-12-07
#!/usr/bin/perl
$A =~ s/^(.*)$/local($\)=1; join "", reverse map
{((($\==0)&&($_))||($\=0)||($_!=9)&&(($_+1)))||(($\=1)&&(0))}
reverse grep \/\d\/, split \/(\d)\/, "$1"/e;
print $A;
Author: Moun's
Date: 1999-12-15
#!/usr/bin/perl
$A = ($A*$A-1)/($A-1);
print $A;
Author: Moun's
#!/usr/bin/perl
do{s/^(\d+)/'\'x$1.".\(${\(++$*)}."/e}
while(s/\(\*.\.*\()(\d*)/$1.${\($*=$2*length$1)}/e);
print $A;
Author: BooK
#!/usr/bin/perl
$A+=$A>>31|~$A>>31;
print $A;
Author: BooK
#!/usr/bin/perl
$A+=3>>2|1<<0;
print $A;
Author: BooK
Date: 1999-11-04
#!/usr/bin/perl
$A+=0<<1|2<<3>>4;
print $A;
Author: BooK
Date: 1999-11-04
#!/usr/bin/perl
$A=~s/($A)/$1+1/e;
print $A;
Author: BooK
Date: 1999-12-07
#!/usr/bin/perl
$A=~s/$A/$A+1/e;
print $A;
Author: BooK
Date: 1999-12-07
#!/usr/bin/perl
$A=~s/$A/++$A/e;
print $A;
Author: BooK
Date: 2000-02-18
#!/usr/bin/perl
$A+=@{[$A]};
print $A;
Author: David Landgren
Date: 2000-02-18
#!/usr/bin/perl
$A+=do{qq{@{[cos$A!=$A]}}};
print $A;
Author: BooK
Date: 2000-03-13
#!/usr/bin/perl
$A =~ s/(-)?(\d+(?:\.\d*)?)/ $1.($2+($1?-1:1))/e;
print $A;
Author: BooK
Date: 2000-03-13
#!/usr/bin/perl
$A=~s/(-)?(\d+(?:\.\d*)?)/"$1 1+"x$2.'1'/egoisme;
print $A;
Author: David Landgren
Date: 2000-03-22
#!/usr/bin/perl
$A+=1;
print $A;
Author: BooK
Date: 2000-03-24
#!/usr/bin/perl
$A=~s/(-)?(\d+(?:\.\d*)?)/#les filles c'est des cloches (Souchon)
"$1 1+"x$2.'1'/sexisme;
print $A;
Author: BooK
Date: 2000-04-01
#!/usr/bin/perl
A:goto(A)if$A!=$A+++1;
print $A;
Author: David Landgren
Date: 2000-04-05
#!/usr/bin/perl
$A = do{ while(1&$A){$A>>=1} continue{++$AA} ($A|1)<<$AA};
print $A;
Author: BooK
Date: 2000-04-06
#!/usr/bin/perl
$A = $A{$A} ? &{$A{$A}}($A) : &{$A{$A} = sub{1+shift}} ($A);
print $A;
Author: David Landgren
Date: 2000-04-06
#!/usr/bin/perl
$A = do{$_=!$_;$_<<=1 while($A&$_<<1<=$A);
($A&$_|1) + ($A&$_&&$A&~$_|1||$A&~$_)};
print $A;
Author: BooK
Date: 2000-04-12
#!/usr/bin/perl
$A=1/$A*(reverse map{$A+=$_}(1..$A,$A=0))[0];
print $A;
Author: Stéphane
Date: 2000-04-12
#!/usr/bin/perl
${ '`' | '!' } -= $#$ + ${""} - ${''};
print $A;
Author: Stéphane
Date: 2000-04-12
#!/usr/bin/perl
$ {'`'| '!'}-=-- +$#$+ $ { ""}- --$ { ''};
print $A;
Author: Stéphane + BooK
Date: 2000-04-12
#!/usr/bin/perl
${'@'|'!'&~'"'}-=$#$+${""}-${''};
print $A;
Author: Stéphane
Date: 2000-04-23
#!/usr/bin/perl
${"A\0comme quoi perl n'ignore pas partout les \0"}++;
print $A;
Author: BooK
#!/usr/bin/perl
$A=scalar@{[eval'0,'x$A.0]};
print $A;
Author: BooK
Date: 1999-12-07
#!/usr/bin/perl
$A=eval q.@{[.."0,"x$A.qq|0]}|;
print $A;
Author: BooK
Date: 2000-12-07
#!/usr/bin/perl
$A=($A='$A'.'$A'x$A)=~s/\$A/=/g;
print $A;
Author: BooK
Date: 2000-03-30
#!/usr/bin/perl
$A=@{[($A)x$A,$A]};
print $A;
Author: BooK
Date: 2000-03-30
#!/usr/bin/perl
$A=~s/([0-8]?9*)$/$1+1/e;
print $A;
Author: David Landgren
Date: 2000-04-12
#!/usr/bin/perl
use Cobol;
PROCEDURE DIVISION
ADD 1 TO A GIVING B
MOVE B TO A;
print $A;
Author: Stéphane
Date: 2000-04-13
#!/usr/bin/perl
use AI;
Increment variable A value by 1 # $A++
print $A;
Author: BooK
#!/usr/bin/perl
*A=\($A+1);
print $A;
Author: BooK
Date: 2000-04-24
#!/usr/bin/perl
$A+=$A/$A;
print $A;
Author: Moun's
Date: 2000-04-25
#!/usr/bin/perl
$A+=($A)?($A/$A):(1);
print $A;
Author: BooK
Date: 2000-04-26
#!/usr/bin/perl
1?$A+=.5:$A+=.5;
print $A;
Author: BooK
Date: 2000-04-26
#!/usr/bin/perl
$A = @{[0..$A]};
print $A;
Author: David Landgren
Date: 2000-05-03
#!/usr/bin/perl
foreach(qw{36 29 -22 0}){$A{A}.=chr($A{AA}+=$_)}eval$A{A};
print $A;
Author: BooK
#!/usr/bin/perl
${*A{SCALAR}}++;
print $A;
Author: BooK
Date: 2000-05-10
#!/usr/bin/perl
sub plus {\(${$_[0]}+=.5)}
plus plus A;
print $A;
Author: D0vid
Date: 2000-05-22
#!/usr/bin/perl
qq{D@{[$a++]}vid} # heuh, ça fait quoi au juste ?;
print $A;
Author: BooK
Date: 2000-06-22
#!/usr/bin/perl
/${1}def/#{def}def/;{/A}def/++{add}def/A 1 def
; $ A ++ # % Mon imprimante, elle sait compter;
print $A;
Author: BooK
Date: 2000-06-27
#!/usr/bin/perl
qq$@{[\$A++]}$;
print $A;
Author: Alain Tesio
Date: 2000-08-11
#!/usr/bin/perl
while ($Z!=1) { $Z+=(1-$Z)/2; $A+=1-$Z };
print $A;
Author: Robin
Date: 2000-07-27
#!/usr/bin/perl
${uc((**{PACKAGE}=~/(.)/g)[1])}++;
print $A;
Author: Robin
Date: 2000-07-27
#!/usr/bin/perl
${*A{join'',(split /(A)/,'RASCAL')[-3,1,-1,3,0]}}++;
print $A;
Author: BooK
Date: 2000-07-27
#!/usr/bin/perl
eval join'', q"$_=0;sub A{ ++$b; ++$c}" =~ m/(?:\s|^)(\S)\S*/g;
print $A;
Author: Stéphane
Date: 2000-08-01
#!/usr/bin/perl
$A -= system malfunction;
print $A;
Author: Eric
Date: 2000-08-03
#!/usr/bin/perl
use Filter::cpp;
#define INCREMENT 1
$A += INCREMENT;
print $A;
Author: BooK
Date: 2000-08-07
#!/usr/bin/perl
$A = split/AA/,'A'.'AA'x$A;
print $A;
Author: Stéphane
#!/usr/bin/perl
@_ = grep { (0 x $_) !~ m/^(..+)(?:\1)+$/ && $_ } 0 .. 666 ;
${chr eval eval "'0x'. $_[$_[$_[4]-$_[0]]]"}++;
print $A;
Author: Artur
#!/usr/bin/perl
@b = split "", unpack "b*",(pack "l",$A);
foreach(@b){$_=$_?0:1;last if($_)};
$A = unpack "l", pack "b*",(join "",@b);
print $A;
Author: David Rigaudiere
Date: 2000-08-11
#!/usr/bin/perl
$A += print '';
print $A;
Author: Stéphane
Date: 2000-08-15
#!/usr/bin/perl
tie $A, A; print $A;
package A;
sub TIESCALAR { my $A; bless \$A, shift}
sub FETCH { shift; ++$${shift}};
print $A;
Author: Stéphane
Date: 2000-08-26
#!/usr/bin/perl
$A += !!/_/ || m|_/\_|m || !!\_;
print $A;
Author: Stéphane
Date: 2000-08-26
#!/usr/bin/perl
$A += !!/_/ || m|/\|m || !!\_;
print $A;
Author: Stéphane
Date: 2000-08-26
#!/usr/bin/perl
$A += !!/_/ || m|/\|m | | !!\_;
print $A;
Author: Stéphane
Date: 2000-08-27
#!/usr/bin/perl
${ eval v65 }++;
print $A;
Author: Stéphane
Date: 2000-08-27
#!/usr/bin/perl
eval eval join '.', map { ord } split '', '$A++';
print $A;
Author: Stéphane
#!/usr/bin/perl
${($a = [ { un => 1, 'A' => 2 }, 1, A ])->{A}} += $a->{un};
print $A;
Author: Stéphane
Date: 2000-08-30
#!/usr/bin/perl
use Symbol; $*{$a = ${+gensym}}{SCALAR} = 'A'; ${$*{$a}{SCALAR}}++;
print $A;
Author: BooK
Date: 2000-09-05
#!/usr/bin/perl
q = 0 #=;sub A{$A};$
A = 1 + A;
print $A;
Author: Stéphane
Date: 2000-09-06
#!/usr/bin/perl
( # ) VARIABLE A 0 A ! : $A++; A @ 1+ A ! ; : :-) ; : ); :-) ;
);
$A++;
print $A;
Author: Stéphane
Date: 2000-09-07
#!/usr/bin/perl
; q
(setq A (if (boundp 'A) (+ 1 A) 1) ) ; $A++;
print $A;
Author: Stéphane
Date: 2000-08-27
#!/usr/bin/perl
use less $A++;
print $A;
Author: Stéphane
Date: 2000-09-10
#!/usr/bin/perl
BEGIN { $INC{'more.pm'}++ }
use more $A++;
print $A;
Author: Stéphane
Date: 2000-09-11
#!/usr/bin/perl
use 5.6;
'obfuscation'=~m/(.{2,}?)(?{$a.=$1;})$/;
${eval sprintf"v%1.1f",scalar split'',$a}++;
print $A;
Author: Julien Bordet
Date: 2000-09-12
#!/usr/bin/perl
*B = *A; $B += !defined($C);
print $A;
Author: BooK
Date: 2000-09-13
#!/usr/bin/perl
s]]aAaa]|s~a~A^e~e|s}aa}BC^ih}e|eval;
print $A;
Author: David Landgren
#!/usr/bin/perl
$A+=-d'/';
print $A;
Author: David Landgren
Date: 2000-09-26
#!/usr/bin/perl
sub AUTOLOAD {*A=*AUTOLOAD;*$A=sub{substr($A,1+rindex($A,q(_)))+1};&$A;}
$A = &{"_$A"};
print $A;
Author: Kai
Date: 2000-09-26
#!/usr/bin/perl
map{$_++}$A;
print $A;
Author: BooK
#!/usr/bin/perl
%_=('m/X**/','\?. ','for a{}','\s.\s'=>'m/{3}/','\?.\*'=>'1',$"
=''=>'k if exists$K'=>'.Y');for(sort+keys%_){eval;$@=~/$_{$_}/;
push@_,substr($&,-2,1)};eval"@_";
print $A;
Author: Stéphane
Date: 2000-10-03
#!/usr/bin/perl
$__ = ($_) = qr|(\ua)| =~ qr|(a)|i; $$_+=$__;
print $A;
Author: Kai
Date: 2000-10-06
#!/usr/bin/perl
package plusplus;
sub AUTOLOAD{${(caller(0))[3]}=~/$_[0]::(.*)$/;$1.'++'}
package main;
sub dollar{eval'$'.shift;}
dollar A plusplus;
print $A;
Author: Stéphane
Date: 2000-10-08
#!/usr/bin/perl
${ chr split '', $_ =
'____/\____||!
/ \Q
$ Dirac ** 2+| |
$ Chomsky**2 \ /'
} += eval $_;
print $A;
Author: BooK
Date: 2000-10-10
#!/usr/bin/perl
$A+=\$A/bless\$A||/\A/;
print $A;
Author: BooK
Date: 2000-10-10
#!/usr/bin/perl
$A+=\$A//\A//bless\$A;
print $A;
Author: Julien Bordet
Date: 2000-10-12
#!/usr/bin/perl
eval pack("C4", <DATA> =~ m#(\d{2})#g);
__DATA__
36654343;
print $A;
Author: David Landgren
Date: 2000-10-12
#!/usr/bin/perl
BEGIN { local$B=join'',map{chr}sub{((shift)**($_=(shift)))*
($_**$_)}->((1<<2)+1=>1<<1),sub{(shift)*(shift) }->
(3=>(1<<5)+5),sub{(($0=shift)**($0))*(($O=shift)**(
$O))}->(2=>3),sub{map{$__+=1<<$_}@_;$__}->((reverse
4..6),2=>0);(substr($B,3,0)=substr($B,1,1)=>substr(
$B,-1,0)=chr(ord(substr($B,-1))-1))=>((substr($B,1,
0)=>substr($B,6,0))=(split//=>q(aa)))=>((substr($B,
6,1)=>substr($B,7,1))=(substr($B,7,1)=>substr($B,1,
1)))=>$B.='*';eval uc reverse(join(q(=)=>reverse($B
) =>join(q(_)=>substr(substr($B=>-2)=>0=>1)=>substr
($B,-1))));}sub _A{$_A=~tr(-,[0-9]&(%{}))()cd;$_A+1
}
$A = &{"_$A"};
print $A;
Author: David Landgren
#!/usr/bin/perl
{my @r = sort {$A+=(my$r=$a<=>$b);$r} map {hex} unpack'a2'x
(length(q(2a4c4760020d2d440258420e4b4614045f112d30070b363218))>>1),
'1f5d200f4e02590816402a31214a18321b292c515e4e2f3a47';};
print $A;
Author: Jean
Date: 2000-10-26
#!/usr/bin/perl
for($A^=$B=1;!($A&$B);$A^=$B<<=1){};
print $A;
Author: David Landgren
Date: 2000-10-26
#!/usr/bin/perl
$A^=$B=1;while(!($A&$B)){$A^=$B<<=1};
print $A;
Author: Jean
Date: 2000-11-15
#!/usr/bin/perl
($A=sprintf "0b0%b", $A)=~s/0(1*)$/"1".(0 x length($1))/e;$A=oct($A);
print $A;
Author: David Landgren
Date: 2000-11-15
#!/usr/bin/perl
$A = do {local $_ = sub{(scalar(@{[[q(\x00)], (q(\x00))x abs($_[0])]}) *
(($_[0]<=>0)?($_[0]<=>0):1))}; &$_($A)<0?&$_($A) + 2:&$_($A)};
print $A;
Author: David Landgren
Date: 2000-11-15
#!/usr/bin/perl
&{$_=sub{$A+=$^W}};
print $A;
Author: BooK
Date: 2000-11-22
#!/usr/bin/perl
eval join'',sort{ord($a)|(8&ord$a)<<3<=>ord($b)|(8&ord$b)<<3}qw/+ A + $/;
print $A;
Author: David Rigaudiere
Date: 2000-11-22
#!/usr/bin/perl
$;=[];ref$;=~/^(.)/;$$1+=!$|;
print $A;
Author: Maddingue
Date: 2000-11-23
#!/usr/bin/perl
${substr(++($b='Z'),0,1)}++;
print $A;
Author: Jean
Date: 2000-11-23
#!/usr/bin/perl
use Math::Complex;
$A -= exp(i * pi);
print $A;
Author: BooK
Date: 2000-11-27
#!/usr/bin/perl
$A -= fork ? die : wait ? wait : die;
print $A;
Author: David Landgren
Date: 2000-11-27
#!/usr/bin/perl
$A = (($A<<1)+(1<<1))>>1;
print $A;
Author: David Landgren
Date: 2000-11-27
#!/usr/bin/perl
my $B = $A+1;do {$A+=int(rand()*(1<<9))-(1<<8)} until $A==$B;
print $A;
Author: David Landgren
Date: 2000-11-27
#!/usr/bin/perl
$A += 1e-6 for 1..1e6;
print $A;
Author: David Landgren
Date: 2000-12-02
#!/usr/bin/perl
$A = do 'A'if open A,'>A'and print A"$A+unlink'A'"and close A;
print $A;
Author: David Landgren
Date: 2000-12-05
#!/usr/bin/perl
$A = sub { $_[0]+$_[1]||1 }->(sub {my $A = shift;$A = sqrt $A for
(1..1e6);($A,(shift))}->(abs $A,$A));
print $A;
Author: David Landgren
Date: 2000-12-05
#!/usr/bin/perl
$A = length " @{[do{$\" = '';(1)x$A}]}";
print $A;
Author: Xavier Canehan
Date: 2000-12-06
#!/usr/bin/perl
$A+=sub{open($A,'>-');fileno $A}->();
print $A;
Author: BooK
Date: 2000-12-06
#!/usr/bin/perl
$A += fileno STDOUT;
print $A;
Author: Philippe Bricout
Date: 2000-12-06
#!/usr/bin/perl
$A = substr($A,0,1) eq '-'?'-'.length(substr('-' x substr($A,1), 1)) :
length('-'.'-' x $A) ;
print $A;
Author: Philippe Bricout
Date: 2000-12-06
#!/usr/bin/perl
$A = 2*(-0.5+($A==abs $A)) * push @_, ((2*($A!=abs $A))..abs $A);
print $A;
Author: Philippe Bricout
Date: 2000-12-08
#!/usr/bin/perl
$A = ($A<<(--($_=2**$A)/oct'0'.'b'.'0'.'1'x$A))
-(($A<<0)-($_=2**$A)/oct'0'.'b'.'1'.'0'x$A);
print $A;
Author: Philippe Bricout
Date: 2000-12-18
#!/usr/bin/perl
$A = ($A,++$A,$A++,--$A,$A)[rand(5)];
print $A;
Author: arhuman
Date: 2001-02-12
#!/usr/bin/perl
$A += do { reset " " };
print $A;
Author: arhuman
Date: 2001-02-12
#!/usr/bin/perl
my %un;bless \%un,1; $A+=ref \%un;
print $A;
Author: [beatnik]
Date: 2001-06-04
#!/usr/bin/perl
$A += ord("1")-48;
print $A;
Author: [beatnik]
Date: 2001-06-04
#!/usr/bin/perl
$A += $A**0;
print $A;
Author: [beatnik]
Date: 2001-06-04
#!/usr/bin/perl
$A -= -1;
print $A;
Author: François Désarménien
Date: 2001-07-23
#!/usr/bin/perl
$A += 42 == 42;
print $A;
Author: Stéphane
Date: 2001-09-10
#!/usr/bin/perl
${<@ >|< !>&~< ">}++;
print $A;
Author: Init64
Date: 2001-09-10
#!/usr/bin/perl
$A+=(~$A^$A)>>((log((~$A|$A)+1)/log(2)-1));
print $A;
Author: Stéphane
Date: 2001-09-11
#!/usr/bin/perl
`echo 1 >1`;open 1,1; $A += chomp ($a = <1>);
print $A;
Author: Jérôme Abela
Date: 2001-09-11
#!/usr/bin/perl
$iter = 1000000;
for($n=0 ; $n<$iter ; $n++) {
$sum += rand(2);
}
$A += $sum/$iter;
print $A;
Author: Jérôme Abela
Date: 2001-09-11
#!/usr/bin/perl
$A_original = $A;
while($A != $A_original+1) {};
print $A;
Author: Stéphane
Date: 2001-09-17
#!/usr/bin/perl
$A += japh =~ japh;
print $A;
Author: Stéphane
Date: 2001-09-17
#!/usr/bin/perl
$A += qr|japh| =~ ':';
print $A;
Author: Stéphane
Date: 2001-09-20
#!/usr/bin/perl
perl -we 'use strict; our $A += qr|japh| =~ ":"; print $A';
print $A;
Author: Stéphane
Date: 2001-09-17
#!/usr/bin/perl
eval qq|\$@{ [(join( "\0",qw( Abbot Abbey Amen ))=~
m/^([^\0]*)[^\0]*(\0\1[^\0]*)*$/)[0]]}++|;
print $A;
Author: Eric
Date: 2001-09-26
#!/usr/bin/perl
use MIME::Base64;
$A += decode_base64("MQ==");
print $A;
Author: François Désarménien
Date: 2001-10-24
#!/usr/bin/perl
*Z=*A;
$Z++;
print $A;
Author: Stéphane
#!/usr/bin/perl
$A += VIM::Windows();
print $A;
Author: Stéphane
Date: 2001-11-03
#!/usr/bin/perl
package Aplus;
use Filter::Simple sub { s/A\+/\$A++/ };
BEGIN { $INC{'Aplus.pm'}++; }
use Aplus;
A+;
print $A;
Author: Stéphane
Date: 2001-11-21
#!/usr/bin/perl
package Aplus;
use Filter::Simple sub { s/\./a/g };
BEGIN { $INC{'Aplus.pm'}++; }
use Aplus;
sub . { @. = shift =~ m/(.)/g; sc.l.r @. } $A+= (. .l.p.ge) - . w.n.doo
# NB: la variable intermédiaire @a est nécessaire!;
print $A;
Author: BooK
Date: 2001-11-27
#!/usr/bin/perl
${substr(\substr($$,0,0),2,1)}++;
print $A;
Author: Wesley
Date: 2002-01-03
#!/usr/bin/perl
$A += +$A-- -$A++ +$A-- -++$A;
print $A;
Author: Olivier Poitrey
Date: 2002-01-11
#!/usr/bin/perl
use overload '--'=>sub{++${$_[0]}}, '""'=>sub{${$_[0]}};
$A = bless(\($B=$A));
$A--;
print $A;
Author: Stéphane
Date: 2002-01-21
#!/usr/bin/perl
$ a { 1 } = 1; $A +=eval "$ a { 1 }"; $a=1; $A += eval "$ a { 1 }";
print $A;
Author: Stéphane
Date: 2002-01-25
#!/usr/bin/perl
$SIG{__DIE__} = sub { &${'A--'}; exit};
${"A--"} = sub "A++" { $A++ }; &{'A++'};
print $A;
Author: Stéphane
Date: 2002-01-25
#!/usr/bin/perl
eval '$' . prototype sub (A++) {};
print $A;
Author: BooK
Date: 2002-02-04
#!/usr/bin/perl
$A=(map{$s+=2*$_/$A;$s}1..$A)[-1];
print $A;
Author: BooK
Date: 2002-02-04
#!/usr/bin/perl
$_=$?x$A;s/./$'&&$'/g;$A=y///c/$A;
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-04-12
#!/usr/bin/perl
@x=(4,2,1);
eval('$'.pack"c3",sprintf("0%o"x4,@x[2..2*2,2]),($x[0]*10+$x[1]+1)x2);
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-04-15
#!/usr/bin/perl
$x=sub{$b.=!length($b)?'$':'A'if (length($b)<2);($b.='+')
if (length($b)>=2);++$i<3 and &$x;return($b)};
eval(&$x);
print $A;
Author: Sylvain Lhullier
Date: 2002-04-17
#!/usr/bin/perl
$A += ( (213*417) =~ m/(.)$/ );
print $A;
Author: Sylvain Lhullier
Date: 2002-04-17
#!/usr/bin/perl
$A=int(join("", reverse map {if($f){$_}elsif($_<9){$f=1;$_+1}else{0}}
(reverse(split(//,$A)),0) ));
print $A;
Author: Sylvain Lhullier
Date: 2002-04-17
#!/usr/bin/perl
for( @l=(reverse(split(//,$A)),0) )
{
$_++;
last if($_<=9);
$_=0;
}
$A=int(join("",reverse @l));
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-04-18
#!/usr/bin/perl
map {if ($A){$i=$_ eq (pack
"C",(1<<5)+(1<<1)+1)?$i+int(log($A)/log(0xA))+1:$i+1;($_ eq (pack
"C",(1<<5)+(1<<1)+1)) and $A=$i/(int(log($A)/log(1+(1<<3)+1))+1)}
else{$A=1}}split(//,("$A"x$A).pack "C",(1<<5)+(1<<1)+1);
print $A;
Author: Mtv Europe
Date: 2002-04-21
#!/usr/bin/perl
!$A+++!q!+++A$!;
print $A;
Author: Mtv Europe
Date: 2002-04-21
#!/usr/bin/perl
y zzzcd x
s vv chr length q qaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaq ve x
s vv chr length q qaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaq ve x
s vv chr length q
qaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaq ve x
s vv chr length q qaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaq ve x
eval;
print $A;
Author: Mtv Europe
Date: 2002-04-22
#!/usr/bin/perl
y ccccd x
s vvchr length q qaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaqve x
s vvucve x s vvuc ave x
s vvchr length q qaaaaaaqx length q qaaaaaaqve x eval;
print $A;
Author: Mtv Europe
Date: 2002-04-22
#!/usr/bin/perl
y ccccd x s vvchr oct oct ord uc ave x s vvucve le
s vvuc ave x s vvchr oct oct oct ord uc bve x eval;
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-04-24
#!/usr/bin/perl
$A= $i.reverse(join("",map {!$b and $b=$i=!$b!=$i;$i=!!int(($_+=($i
or ""))/0xA);$_%=012} split(//,reverse($A))));
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-04-24
#!/usr/bin/perl
$A+=(split//,(localtime)[(gmtime)-(1<<2)])[$today];
print $A;
Author: David Landgren
Date: 2002-04-24
#!/usr/bin/perl
$A += length length length $A;
print $A;
Author: Olivier "Init64" Matt
Date: 2002-04-24
#!/usr/bin/perl
${eval("uc substr reverse (scalar 'really fun'),7,1")}=~s/^(.*)$/$1+1/e;
print $A;
Author: Jérôme Quelin
Date: 2002-04-24
#!/usr/bin/perl
use Inline Befunge => "q+1;sulpa:;";
$A=aplus($A);
print $A;
Author: Sylvain Lhullier
Date: 2002-04-24
#!/usr/bin/perl
$A+=chdir('/');
print $A;
Author: Sylvain Lhullier
Date: 2002-04-24
#!/usr/bin/perl
use Date::Manip;
use POSIX qw(strftime);
$A = UnixDate(DateCalc(strftime("%Y%m%d%H:%M:%S",gmtime($A)),1).' GMT',"%s");
print $A;
Author: Sylvain Lhullier
Date: 2002-04-24
#!/usr/bin/perl
eval{die(($A+1)."\n")};
$A=int($@);
print $A;
Author: Sylvain Lhullier
Date: 2002-04-24
#!/usr/bin/perl
open(FILE, "expr $A + 1|" );
$A = int(<FILE>);
close(FILE);
print $A;
Author: Sylvain Lhullier
Date: 2002-04-24
#!/usr/bin/perl
$A=index(('X'x$A).'Xx','x');
print $A;
Author: Sylvain Lhullier
Date: 2002-04-24
#!/usr/bin/perl
$A = log(exp($A)*exp(1));
print $A;
Author: Sylvain Lhullier
Date: 2002-04-24
#!/usr/bin/perl
use DBI;
$r=DBI->connect("dbi:Pg:dbname=base", "login", "passwd")
->prepare("select ?+1");
$r->execute($A);
$A=$r->fetchrow_array();
print $A;
Author: Sylvain Lhullier
Date: 2002-04-24
#!/usr/bin/perl
$t=time();
sleep $A+1;
$A=time()-$t;
print $A;
Author: Sylvain Lhullier
Date: 2002-04-24
#!/usr/bin/perl
$A+=(stat('/'))[1]/2;
print $A;
Author: Sylvain Lhullier
Date: 2002-04-24
#!/usr/bin/perl
use XML::LibXML;
use XML::LibXSLT;
$parser=XML::LibXML->new();
$style_doc=$parser->parse_string(
'<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="html"/><xsl:template match="t"><xsl:value-of select="@a+1"/>
</xsl:template></xsl:stylesheet>');
$stylesheet = XML::LibXSLT->new()->parse_stylesheet($style_doc);
$A=int($stylesheet->output_string($stylesheet->transform(
$parser->parse_string("<t a=\"$A\"/>"))));
print $A;
Author: Maddingue
Date: 2002-04-25
#!/usr/bin/perl
map{s,plus,++,,s,^,\$,}$_="A plus";eval;
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-04-26
#!/usr/bin/perl
pipe(LIT_P,ECRIT_F);
pipe(LIT_F,ECRIT_P);
local($fh)=select ECRIT_F; $|=1;select $fh;
local($fh)=select ECRIT_P; $|=1;select $fh;
if ($pid = fork) {
close LIT_P;close ECRIT_P;
print ECRIT_F "$A\n";
chomp($A=<LIT_F>);
close LIT_F;close ECRIT_F;
waitpid($pid,0);
}
else {
die "Pas moyen : $!" unless defined $pid;
close LIT_F;close ECRIT_F;;
chomp($B=<LIT_P>);
$B+=int(log(2.718282));
print ECRIT_P "$B\n";
close LIT_P;close ECRIT_P;
exit;
};
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-04-30
#!/usr/bin/perl
for (@b=split(//,unpack ("B32", pack("N",$A))) and $i=@b;$b[--$i] or
!($b[$i]=1) or !($A=unpack("N",pack("B32",join("",@b))));$b[$i]=0) {};
print $A;
Author: Jérôme Quelin
Date: 2002-04-30
#!/usr/bin/perl
''=~('('.'?'
.'{'.( '`'|'%').("\["^
'-').('`'| '!').('`'|',').'"'
.'\\'.'$'. ("\`"^ '!').('{'^'[')."\+".
'+'.';'.('!'^('+')). '"'.'}'.')');$:=('.')^
'~';$~='@'|'(';$^=')' ^'[';$/='`'|'.';$_='('^
'}';$,='`'|"\!";$\= ')'^'}';$:='.'^'~';$~='@'|
'(';$^=')'^'[' ;$/='`'|'.';$_='('^'}';$,='`'
|'!';$\=(')')^ '}';$:='.'^'~';$~='@'|'(';$^=')'
^'[';$/='`'|'.' ;$_='('^'}';$,='`'|'!';$\=')'^"\}";
$:='.'^"\~";$~= '@'|'(';$^=')'^'[';$/='`'|'.';$_="\("^
'}';$,='`'|'!'; $\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^
'[';$/='`'|'.' ;$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^
'~';$~='@'|'(' ;$^=')'^'[';$/='`'|'.';$_='('^'}';$,="\`"|
'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.'
;$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=
')'^'[';$/='`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'
^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'|'!'
;$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_=
'('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'
^'[';$/='`'|'.';$_='('^'}';$,='`'|'!';$\=')'^"\}";$:= '.'
^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$, =((
'`'))|'!';$\=')'^'}';$:='.'^'~';$~=('@')| "\(";$^= ')'
^'[';$/='`'|'.';$_='('^'}';$,='`'|'!'; $\=')'^ '}'
;($:) ='.'^'~';$~='@'|'(';$^=')'^'[' ;$/='`' |((
'.'));$_='('^'}';$,='`'|"\!"; $\=')'^ '}'
;$:='.'^ '~';$~='@' |"\("; $^=')' ^+
'[';$/= '`'|'.'; $_='(' ^"\}"; $,
=('`')| "\!";$\= "\)"^ "\}"; (
($:))= '.'^'~'; ($~) ='@'
|"\("; $^=(')')^ '['; ($/)
='`'| "\.";$_= '('^ '}';
($,)= '`'|'!' ;$\= ')'^
'}'; $:='.' ^'~' ;$~=
'@'| '(' ;$^= ')'^
'['; $/= '`' |((
'.' )); $_= '('
^(( '}' )); $,=
'`' |(( '!' ))
;( ($\))= ((
(( ')')) ))
^+ "\}";$:= ((
'.' ))^+ "\~"; $~
=(( '@'))| '('; $^=
')'^ "\[";$/= '`' |'.'
;($_)= ('(')^
"\}";$,= '`'|'!';
print $A;
Author: Jérôme Quelin
Date: 2002-04-30
#!/usr/bin/perl
$A += ((localtime)[2]-(gmtime)[2])/2;
print $A;
Author: Jérôme Quelin
Date: 2002-04-30
#!/usr/bin/perl
$A += (localtime)[2]-(gmtime)[2];
print $A;
Author: Jérôme Quelin
Date: 2002-04-30
#!/usr/bin/perl
use Fcntl;
$A += F_GETFD;
print $A;
Author: Jérôme Quelin
Date: 2002-04-30
#!/usr/bin/perl
use Text::Abbrev;
%operations = abbrev qw( plus addition plusplus A );
$A += grep { /n$/ } values %operations;
print $A;
Author: Jérôme Quelin
Date: 2002-04-30
#!/usr/bin/perl
use Symbol::Approx::Sub;
sub aplusplus { $A++ }
&aplus;
print $A;
Author: Jérôme Quelin
Date: 2002-04-30
#!/usr/bin/perl
use POSIX;
$A += &ENOMEM - &EAGAIN;
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-04-30
#!/usr/bin/perl
sub A {$A[$A]=$A;(!$A and $A=!$A) or (($A-=$A/$A) and A and $A=@A)};A;
print $A;
Author: Jérôme Quelin
Date: 2002-04-30
#!/usr/bin/perl
#define $ /* Money for nothing */
$ A++;
print $A;
Author: Stéphane
Date: 2002-05-01
#!/usr/bin/perl
$A = $A++ ? $A++ : $A++;
print $A;
Author: Stéphane
Date: 2002-05-16
#!/usr/bin/perl
$A += !('_'| !'_') # where !(A|!A) == 1;
print $A;
Author: Sylvain Lhullier
Date: 2002-05-23
#!/usr/bin/perl
rmdir rand($A);
$A += $!/2;
print $A;
Author: Sylvain Lhullier
Date: 2002-05-23
#!/usr/bin/perl
$A += open(F,">/dev/null");
close(F);
print $A;
Author: Sylvain Lhullier
Date: 2002-05-23
#!/usr/bin/perl
for($a=0;$a<=$A;$a++){}
$A=$a;
print $A;
Author: Sylvain Lhullier
Date: 2002-05-23
#!/usr/bin/perl
use LWP::UserAgent;
$c = ( LWP::UserAgent->new()->simple_request(HTTP::Request->new(GET=>
'http://paris.mongueurs.net/aplusplus.html'))->content() =~ m:^(.*)</pre></td>:m )[0];
eval $c;
print $A;
Author: Sylvain Lhullier
Date: 2002-05-23
#!/usr/bin/perl
$A += int(rand(1)+1);
print $A;
Author: Sylvain Lhullier
Date: 2002-05-23
#!/usr/bin/perl
sub A
{
my ($A,@A) = @_;
if ( !defined($A[$A]) ) { ( 1, @A ); }
elsif( ++$A[$A] > 9 ) { $A[$A] = 0; A($A-1,@A); }
else { @A }
}
$A=join"",A(-1,($A=~/(.)/g));
print $A;
Author: Sylvain Lhullier
Date: 2002-05-23
#!/usr/bin/perl
sprintf "%${A}.0f %n", $A, $A;
print $A;
Author: Sylvain Lhullier
Date: 2002-05-23
#!/usr/bin/perl
$A = length sprintf "%${A}.0f ", $A;
print $A;
Author: Sylvain Lhullier
Date: 2002-05-23
#!/usr/bin/perl
$A = ( $A =~ m/(.*)/g )[0] + 1;
print $A;
Author: Stéphane
Date: 2002-05-28
#!/usr/bin/perl
use Inline::Files; open A,'>'; ++$A; eval <A>;
print $A;
Author: Maddingue
Date: 2002-05-29
#!/usr/bin/perl
eval((map{s/^./\$/,s/ //g;$_}(split"$/",<<'')[-1])[0]);
A
A A + +
A A + +
AAAAAAA +++++++ +++++++
A A + +
A A + +;
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-05-30
#!/usr/bin/perl
$x=sub{if (wantarray()){(pack "c",${($_=&$x)}+5)}else{pack "c",$=+1}};
$A =${($_=&$x)}/$=+${(@_=&$x)[0]};
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-05-30
#!/usr/bin/perl
while (1) {
pipe(LIT_P,ECRIT_F);pipe(LIT_F,ECRIT_P);
local($fh)=select ECRIT_F; $|=1;select $fh;
local($fh)=select ECRIT_P; $|=1;select $fh;
if ($pid = fork){
close LIT_P;close ECRIT_P;
print ECRIT_F ($A--,"\n");
chomp($I=<LIT_F>);
$X+=!!$I;
close LIT_F;close ECRIT_F;
waitpid($pid,0);
($I<0) and $A=$X and last;
} else {
die "Pas moyen : $!" unless defined $pid;
close LIT_F;close ECRIT_F;;
chomp($B=<LIT_P>);
(print ECRIT_P ($B,"\n"));
close LIT_P;close ECRIT_P;
exit;
}
};
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-05-31
#!/usr/bin/perl
$_=sub{$~=$|++?$|:${chr($=+=5)}};${chr($=)}=&$_+&$_;
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-06-04
#!/usr/bin/perl
$_=sub {$| or ($|=1 and @_=(1,1,0,0,4,2,3,5));
return (substr("000001",5-shift(@_)))};
${eval(pack "B24",eval(substr('.&$_'x8,1)))}++;
print $A;
Author: François Désarménien
Date: 2002-06-05
#!/usr/bin/perl
use Math::Trig;
$A-=cos(pi);
print $A;
Author: Stéphane
Date: 2002-06-05
#!/usr/bin/perl
$A += ('(A)' =~ m(\(A\)))[0] == ('(A)' =~ m((A)))[0];
print $A;
Author: Stéphane Payrard
Date: 2002-06-05
#!/usr/bin/perl
$A += ('(A)' =~ m|\(A\)|)[0] == ('(A)' =~ m|(A)|)[0];
print $A;
Author: Jean Forget
Date: 2002-06-07
#!/usr/bin/perl
eval v36.65.43.43;
print $A;
Author: Stéphane
Date: 2002-06-08
#!/usr/bin/perl
use constant; my constant $A++;
print $A;
Author: Stéphane
Date: 2002-06-08
#!/usr/bin/perl
sub _ : lvalue { $A }; ++_();
print $A;
Author: Stéphane
Date: 2002-06-08
#!/usr/bin/perl
use Attribute::Handlers;
sub _ : ATTR(SCALAR) { ${$_[2]}++ }
my $A : _ ; $A;
print $A;
Author: Stéphane
Date: 2002-06-14
#!/usr/bin/perl
use Perl6::Currying;
sub add($a, $b) { $a + $b };
$incr = &add.prebind(a=>1);
$A = $incr->($A);
print $A;
Author: Christian Aperghis-Tramoni
Date: 2002-06-21
#!/usr/bin/perl
for ($adn = "ATCACAACATTGATTG";($i<length($adn)) or !($_=(pack "B32",$y))
or !eval();$y.=substr(unpack("B8",substr($adn,$i++,1)),5,2)) {};
print $A;
Author: Maddingue
Date: 2002-06-22
#!/usr/bin/perl
$_="+36+29-22=",s/\G([=+-])(\d*)/$==$1eq'='?$-:eval"$-$1$2",chr($-=$=)/ge,eval;
print $A;
Author: Sylvain Lhullier
Date: 2002-06-24
#!/usr/bin/perl
#Fichier Makefile.PL
use ExtUtils::MakeMaker;
WriteMakefile( NAME => 'PlusPlus', VERSION_FROM => 'PlusPlus.pm');
#Fichier PlusPlus.pm
package PlusPlus;
require DynaLoader;
our @ISA = qw(DynaLoader);
our $VERSION = '0.01';
bootstrap PlusPlus $VERSION;
1;
__END__
/*Fichier PlusPlus.xs */
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
MODULE = PlusPlus PACKAGE = PlusPlus
int
plusplus(input)
int input
CODE:
RETVAL = input+1;
OUTPUT:
RETVAL
#Fichier test.pl
use PlusPlus;
$A = PlusPlus::plusplus( $A );
print $A;
Author: Sylvain Lhullier
Date: 2002-06-24
#!/usr/bin/perl
use IO::Socket;
use Sys::Hostname;
if( ! fork() )
{
$t = ( $s = new IO::Socket::INET(PeerAddr=>hostname(),LocalPort=>8888,Listen=>1) )->accept();
print $t ( <$t> +1)."\n";
close $t; close $s;
exit(0);
}
else
{
sleep 1;
$s = new IO::Socket::INET(PeerAddr=>hostname(),PeerPort=>8888);
print $s "$A\n";
$A = int(<$s>);
close $s;
};
print $A;
Author: Sylvain Lhullier
Date: 2002-06-24
#!/usr/bin/perl
$A += " 1 jour mon prince viendra ... 1 jour on s'aimera ... ";
# or
$A += " 1 day my prince will come... one day... ";
print $A;
Author: Sylvain Lhullier
Date: 2002-06-24
#!/usr/bin/perl
$A=-(-1-$A);
print $A;
Author: Sylvain Lhullier
Date: 2002-06-24
#!/usr/bin/perl
$A = -$A;
$A--;
$A = -$A;
print $A;
Author: Sylvain Lhullier
Date: 2002-06-24
#!/usr/bin/perl
$A = 1 + $A;
print $A;
Author: Sylvain Lhullier
Date: 2002-06-24
#!/usr/bin/perl
++$A;
print $A;
Author: Philippe Bricout
Date: 2002-06-24
#!/usr/bin/perl
($A) = map {$A + $_} $A =~ /$A/;
print $A;
Author: Philippe Bricout
Date: 2002-06-24
#!/usr/bin/perl
$A = eval join '+', map {$_ * 10**$e + 0**$e++} reverse $A=~ m/./g;
print $A;
Author: Stéphane
Date: 2002-07-08
#!/usr/bin/perl
$A += @{ [ ( @{ caller(-1) }, "$A++" ) ] };
print $A;
Author: Sylvain Lhullier
Date: 2002-07-11
#!/usr/bin/perl
use Digest::MD5 qw(md5);
$A -= ( split( //, md5('Et un de plus pour la variable $A !...') ) )[3];
$A += ( split( //, md5('Et un de plus pour la variable $A !...') ) )[3*3];
print $A;
Author: Sylvain Lhullier
Date: 2002-07-11
#!/usr/bin/perl
use POSIX;
$A += int($POSIX::VERSION);
print $A;
Author: Sylvain Lhullier
Date: 2002-07-11
#!/usr/bin/perl
use URI::Escape;
$c = '%2525252524%2525252541%252525252B%252525252B';
while($c) { if( ($c=uri_unescape($c)) eq uri_escape($c) ) { eval $c; last; } };
print $A;
Author: Sylvain Lhullier
Date: 2002-07-11
#!/usr/bin/perl
use URI::Escape;
$c = '%2525252524%2525252541%252525252B%252525252B';
$c=uri_unescape($c) while($c ne uri_escape($c));
eval $c;
print $A;
Author: Sylvain Lhullier
Date: 2002-07-11
#!/usr/bin/perl
use URI::Escape;
eval uri_unescape('%24%41%2B%2B');
print $A;
Author: Philippe Bricout
Date: 2002-07-11
#!/usr/bin/perl
${(sort grep {/^\w/ && /\D/} keys %{(eval "(caller)[0]").'::'})[0]}++;
print $A;
Author: Sylvain Lhullier
Date: 2002-07-11
#!/usr/bin/perl
eval join "", sort { ($a,$b)=($b,$a); 1 } split(//,'+$A+');
print $A;
Author: Sylvain Lhullier
Date: 2002-07-11
#!/usr/bin/perl
eval reverse '++A$';
print $A;
Author: Sylvain Lhullier
Date: 2002-07-11
#!/usr/bin/perl
$A += ( map { tr/P/P/ } split(//,'Perl') )[0];
print $A;
Author: Sylvain Lhullier
Date: 2002-07-11
#!/usr/bin/perl
eval join '', grep { /[^ -#%-*,-\@B-~]/ } qw( 2 f $ a p p A 0 8 + - * = + 4 );
print $A;
Author: Sylvain Lhullier
Date: 2002-07-11
#!/usr/bin/perl
%h = ( '$'=>'+', 'A'=>'A', 'a'=>'$', '+'=>'+' );
eval join '', values(%h);
print $A;
Author: Sylvain Lhullier
Date: 2002-07-11
#!/usr/bin/perl
%h = qw(+ + $ A);
unshift @l, each(%h);
unshift @l, each(%h);
eval join "", @l;
print $A;
Author: Sylvain Lhullier
Date: 2002-07-11
#!/usr/bin/perl
$A += $A !~ santana;
print $A;
Author: Sylvain Lhullier
Date: 2002-07-15
#!/usr/bin/perl
$A += unshift @A, $A;
print $A;
Author: Sylvain Lhullier
Date: 2002-07-15
#!/usr/bin/perl
my %h=();
$A += !exists($h{$A});
print $A;
Author: Sylvain Lhullier
Date: 2002-07-15
#!/usr/bin/perl
$A{$A}=\$A;${$A{$A}}++;
print $A;
Author: Sylvain Lhullier
Date: 2002-07-15
#!/usr/bin/perl
my $c = '';
while( ($b = chr(rand(255)) ) ne '$' ){}; $c .= $b;
while( ($b = chr(rand(255)) ) ne 'A' ){}; $c .= $b;
while( ($b = chr(rand(255)) ) ne '+' ){}; $c .= $b;
while( ($b = chr(rand(255)) ) ne '+' ){}; $c .= $b;
eval $c;
print $A;
Author: Sylvain Lhullier
Date: 2002-07-15
#!/usr/bin/perl
s//$A++/e;
print $A;
Author: Stéphane
Date: 2002-07-22
#!/usr/bin/perl
eval "require 5.8" or $A+=($@ =~ m/\G.*?(\d+)/gc)[ ($] =~ m/(.)$/)[0] ];
print $A;
Author: Stéphane
Date: 2002-07-22
#!/usr/bin/perl
use 5.008;
use Hash::Util lock_keys;
lock keys(%A);
lock_keys(%A);
eval '$A{$A}++' or eval '$' . ($@ =~ m/(.)/)[0] . '++';
print $A;
Author: Stéphane
Date: 2002-07-22
#!/usr/bin/perl
use 5.008; sub A::AUTOLOAD : lvalue { $::A }; &{A::A}()+=1;
print $A;
Author: Stéphane
Date: 2002-07-22
#!/usr/bin/perl
( $B = ( $C ='$A--++') ) =~ s/ ./ $a=$&; ($& =~ m(\w)) ? "($a)" : "(\\$a)" /gex;
eval join '', ( $C =~ m/$B/)[0..1,4..5];
print $A;
Author: Rafael Garcia-Suarez
Date: 2002-07-26
#!/usr/bin/perl
sub PUSHED { bless {} }
sub FILL { $x = readline $_[1]; defined $x ? $x + 1 : undef }
open FH, "<:scalar:via(main)", \"$A"; $A = <FH>; close FH;
print $A;
Author: Jérôme Quelin
Date: 2002-08-06
#!/usr/bin/perl
use Acme::Bleach;
print $A;
Author: Jérôme Quelin
Date: 2002-08-06
#!/usr/bin/perl
use Acme::Morse;
.--.-..--..---.-.--..--.-..--..---.-.--.
..-..-..-.....-.--.-.-..--.-.-..--.---..
.-.-...;
print $A;
Author: Didier Collin
Date: 2002-08-21
#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common;
$A += 9*9*5-new LWP::UserAgent->request(GET 'http://www.oiseaux.net/neant')->code;
print $A;
Author: Court-Jus
Date: 2002-09-25
#!/usr/bin/perl
while ($plop!=1) {$plop=int(rand(42));}
$A+=$plop;
print $A;
Author: BooK
Date: 2002-09-27
#!/usr/bin/perl
use Memoize;
sub plusplus { $_[0]++ }
memoize('plusplus');
plusplus( $A );
print $A;
Author: Stéphane
Date: 2002-09-30
#!/usr/bin/perl
*A::import = sub { shift; eval shift }; $INC{'A.pm'}++; eval q|use A '$A++'|;
print $A;
Author: Philippe Rimbault
Date: 2002-10-28
#!/usr/bin/perl
for($A..$A+1){$A+=$_-$A};
print $A;
Author: Philippe Bricout
Date: 2002-11-03
#!/usr/bin/perl
#--------Free incrementation voucher-----------8<----Cut Here-----------#
$ {
( '$' )
^ 'A' ^
( '=' )
& '$' |
( 'A' )
& '+' &
( '1' )
& ';' }
++ ;
#---Découper suivant les pointilles--->8---Bon d'augmentation gratuit---#;
print $A;
Author: Simon Maréchal
Date: 2002-11-14
#!/usr/bin/perl
$B=1;while(($A& $B)==$B){$B=$B*2+1;}$A^=$B;
print $A;
Author: Simon Maréchal
Date: 2002-11-14
#!/usr/bin/perl
($d,$m,$f)=$A=~/^(.*?)([^9]?)(9*)$/;
$m||=0;
$f=~s/9/0/g;
$m=~tr/0-8/1-9/;
$A="$d$m$f";
print $A;
Author: Stéphane Payrard
Date: 2002-11-19
#!/usr/bin/perl
eval <<'';
$A++;
print $A;
Author: Stéphane Payrard
Date: 2002-11-19
#!/usr/bin/perl
eval '$A'. (<<""
$A++
=~ m|(\W+)|)[0];
print $A;
Author: Stéphane Payrard
Date: 2002-11-24
#!/usr/bin/perl
use strict; my strict $A++;
print $A;
Author: Stéphane Payrard
Date: 2002-11-24
#!/usr/bin/perl
my main $A++;
print $A;
Author: Stéphane Payrard
Date: 2002-11-24
#!/usr/bin/perl
%average::; print probably not my average $A++;
print $A;
Author: Stéphane Payrard
Date: 2002-11-24
#!/usr/bin/perl
$A += nil +1 if nil;
print $A;
Author: Stéphane Payrard
Date: 2002-11-24
#!/usr/bin/perl
$A += !((false or true) != 0);
print $A;
Author: Stéphane Payrard
Date: 2002-11-24
#!/usr/bin/perl
eval( "A++") or (${"A++"}) = $@ =~ m/"(.*)"/; eval '$' . ${"A++"};
print $A;
Author: Stéphane Payrard
Date: 2002-12-01
#!/usr/bin/perl
use less; $A +=require strict if useless; use if;
print $A;
Author: Stéphane Payrard
Date: 2002-12-07
#!/usr/bin/perl
${'A.pm'}++; @INC =[ sub {$A++}] ; eval "require A";
print $A;
Author: Julien Gilles
Date: 2002-12-12
#!/usr/bin/perl
$A = 2**32-~$A;
print $A;
Author: Julien Gilles
Date: 2002-12-12
#!/usr/bin/perl
$A = 2**64-~$A;
print $A;
Author: Stéphane Payrard
Date: 2002-12-19
#!/usr/bin/perl
$
B
=
\
$
A
;
$
A
=
$
$
B
+
1;
print $A;
Author: Stéphane Payrard
Date: 2003-01-10
#!/usr/bin/perl
eval join '', "\044", +::, A::, '+++$A::';
print $A;
Author: Stéphane Payrard
Date: 2003-01-10
#!/usr/bin/perl
$ A+= .5=> .5>= .5;$ A+=(1 =>.5);
print $A;
Author: Stéphane Payrard
Date: 2003-01-31
#!/usr/bin/perl
perl -ce 'BEGIN { $A += $^C }';
print $A;
Author: Sébastien Morin
Date: 2003-02-19
#!/usr/bin/perl
$A -= $#{split(//, $A)};
print $A;
Author: Stéphane Payrard
Date: 2003-03-27
#!/usr/bin/perl
sub q() { 1 } ; $A += &q() + q();
print $A;
Author: Robin Berjon
Date: 2003-05-02
#!/usr/bin/perl
use Lingua::Romana::Perligata;
ao postincresce.;
print $A;
Author: Robin Berjon
Date: 2003-05-02
#!/usr/bin/perl
use XML::SAX::ParserFactory;
XML::SAX::ParserFactory->parser(Handler=>bless\$A,A)->parse_string("<A/>");
sub A::end_element{${$_[0]}++};
print $A;
Author: Nicholas Clark
Date: 2003-05-04
#!/usr/bin/perl
${chr($=+((ord($/))>>$$/$$))}++;
print $A;
Author: Nicholas Clark
Date: 2003-05-05
#!/usr/bin/perl
${~$/&~$;&$^}++;
print $A;
Author: Nicholas Clark
Date: 2003-05-05
#!/usr/bin/perl
perl -le '${~$\&~$;&$^}++';
print $A;
Author: Greg McCaroll
Date: 2003-06-21
#!/usr/bin/perl
$SIG{__WARN__} = sub {};
my @c = qw( $ B + = ; 1 );
my $p;
my $B;
do {
$p='';
$B=41;
for(1..(int(rand(5))+4)) {
$p.=$c[rand @c];
}
eval $p;
} until ($B == 42);
$p =~ s/B/A/g;
eval $p;
print "$p\n";
print $A;
Author: Guillaume Rousse
Date: 2003-06-24
#!/usr/bin/perl
urpmf --name -v -e '($a || ++$a) && 0';
print $A;
Author: François Pons
Date: 2003-06-24
#!/usr/bin/perl
$A = (sub { push @_, -@_ })->(($A) x ($A));
print $A;
Author: François Pons
Date: 2003-06-24
#!/usr/bin/perl
$A = (sub { push @_, +@_ })->(($A) x ($A)) /2 + 1;
print $A;
Author: Philippe Rimbault
Date: 2003-11-13
#!/usr/bin/perl
$A+=`pidof init`;
print $A;
Author: Philippe Rimbault
Date: 2003-11-14
#!/usr/bin/perl
$A=0 unless defined $A;
undef $/;
$_=`lynx -source http://www.google.com/search?q=1%2B$A`;
($A) = />1 \+ $A = (\d*)</;
print $A;
Author: Philippe Rimbault
Date: 2003-12-04
#!/usr/bin/perl
$_=\1/\1;$A +=$_=~ s/(.*)(\.\d).*/($2>0?$1+1:$1+$A)/e;
print $A;
Author: Philippe Rimbault
Date: 2003-12-04
#!/usr/bin/perl
$;=sub{
sub _{
$_[2]=substr($_[0],length($_[0])-1,1) + $_[1];
if (length($_[2])>1 or length($_[0])>1){
$_[2]= _(substr($_[0],0,length($_[0])-1),length($_[2])>1?substr($_[2],0,1):0)
. substr($_[2],length($_[2])-1,1);
}
return ($_[2]);
}
$A=_($_[0],1);
};($A)->$;;
print $A;
Author: Christophe Grosjean
Date: 2004-01-05
#!/usr/bin/perl
$A+= (((((((((())))))))))=([10,9,8,7,6,5,4,3,2,1,FEU]);
print $A;
Author: Stéphane Payrard
Date: 2004-01-19
#!/usr/bin/perl
${*{$main::{A}}{ref \$A}}++;
print $A;
Author: Christophe Renard
Date: 2004-01-19
#!/usr/bin/perl
package A;sub TIESCALAR(){bless[$_[1]],$_[0]}sub FETCH(){$_[0]->[0]+1}
package main; sub A {*a=*{$main::{$_[0]}};tie $a,$_[0],$a;}
A('A');
print $A;
Author: Pied Axioplase
Date: 2004-02-05
#!/usr/bin/perl
use IO::Socket;
$A=aplusplus($A);
sub aplusplus{
$Socket;
$server="paris.mongueurs.net";
$port="80";
$a= &connect($Socket,$server,$port);
$A= eval $a;
}
sub connect(){
my($socket,$host,$port)=@_;
my $time;
my $reply,$title;
$socket = IO::Socket::INET->new(PeerAddr =>$host,
PeerPort => $port,
Proto => "tcp",
Type => SOCK_STREAM)
or die "Couldn't connect to $host : $port\n";
print $socket "GET /aplusplus.html\n";
$reply = <$socket>;
while($reply){
$title=$reply if ($reply=~/<title>/i);
$reply=<$socket>;
}
print $title;
$title=~s#<.{5,6}>##g;
$title=~s/(..)(..)/$2$1/;
print $title;
return $title;
};
print $A;
Author: Olivier Mengué
Date: 2004-02-05
#!/usr/bin/perl
eval pack('N', 608250667);
print $A;
Author: Damien Krotkine
Date: 2004-05-13
#!/usr/bin/perl
$A=()=(0..$A);
print $A;
Author: Rafael Garcia-Suarez
Date: 2004-05-14
#!/usr/bin/perl
$A=~/(?{++$_})(?{$A=$^R})/;
print $A;
Author: Stéphane Payrard
Date: 2004-06-11
#!/usr/bin/perl
${""}="Illegal seek::AUTOLOAD";
*${''} = sub { ${ (split //, "\U${ \__PACKAGE__ }")[1] }++ };
-qq|| => { q|| } -key { };
print $A;
Author: Philippe "BooK" Bruhat
Date: 2004-06-30
#!/usr/bin/perl
use LWP::Simple;
eval qq!@{[get("http://paris.mongueurs.net/aplusplus.html")=~/title>([^<]*)/g]}!;
print $A;
Author: Olivier Mengué
Date: 2004-10-27
#!/usr/bin/perl
echo +ACQ-A+-+- | perl -Mencoding=UTF-7;
print $A;
Author: Philippe "BooK" Bruhat
Date: 2004-10-29
#!/usr/bin/perl
;$A++; # 20g1+20p@;
print $A;
Author: Philippe "BooK" Bruhat
Date: 2004-10-29
#!/usr/bin/perl
# <@p11+1g11
$A++;
print $A;
Author: Olivier Mengué
Date: 2004-10-29
#!/usr/bin/perl
use Unicode::UCD 'charinfo';
my %ascii_by_name = map { charinfo($_)->{name} => $_ } (32..127);
eval join '', map { chr($ascii_by_name{$_}) } ('DOLLAR SIGN', 'LATIN CAPITAL LETTER A', ('PLUS SIGN') x 2);
print $A;
Author: Andrew Savige
Date: 2004-11-03
#!/usr/bin/perl
$A-=$----$----$----$----$----!$-;
print $A;
Author: David Landgren
Date: 2004-12-14
#!/usr/bin/perl
use Math::BaseCalc;
$_ = Math::BaseCalc->new(digits=>[split//,'A+$'])->to_base(58) and eval;
print $A;
Author: David Landgren
Date: 2005-01-27
#!/usr/bin/perl
$A += $^R if "A BUG" =~ /^A(?{1}) (?:BUG(?{#32840}))?$/;
print $A;
Author: Vincent Storez
Date: 2005-05-25
#!/usr/bin/perl
$A += ( $A =~ m+$A$+m );
print $A;
Author: Gaal Yahas
Date: 2005-06-04
#!/usr/bin/perl
our $A; $::(<A>)++;
print $A;
Author: Fabien Venzac
Date: 2005-07-28
#!/usr/bin/perl
$A += (@A = split (/\./,`uname -r`))[1] >> $A[0];
print $A;
Author: Gilles Arcas
Date: 2006-01-29
#!/usr/bin/perl
*_ = *A; s/$/c!0123456789/; 1 while s/9c/c0/; s/^c/0c/; s/(.)c(\d*)!.*\1(.).*/$3$2/;
print $A;
Author: Sébastien "Maddingue" Aperghis-Tramoni
Date: 2006-08-03
#!/usr/bin/perl
$A += !!(!!($!||!$!)x!!($!||!$!))x!!(!!($!||!$!)x!!($!||!$!));
print $A;
Author: Christian Aperghis-Tramoni
Date: 2006-11-28
#!/usr/bin/perl
$B = 1;
while (($A ^= $B) and !($A & $B)) {
$B <<= 1;
};
print $A;
Author: Christian Aperghis-Tramoni
Date: 2006-11-30
#!/usr/bin/perl
sub s {
my $n = @_[0];
($n)?($n + &s($n-1)):0
}
$A = $A?(&s($A)<<1)/$A:1;
print $A;
Author: Damien Krotkine
Date: 2007-01-18
#!/usr/bin/perl
$A += !int\\\y////\\\\y////\\\\y////\\\\y///;
print $A;
Author: Damien Krotkine
Date: 2007-01-18
#!/usr/bin/perl
$A += (\0-\0)/-24;
print $A;
Author: Sébastien "Maddingue" Aperghis-Tramoni
Date: 2007-01-30
#!/usr/bin/perl
$A+=///////////////////////;
print $A;
Author: Sébastien "Maddingue" Aperghis-Tramoni
Date: 2007-01-30
#!/usr/bin/perl
(sub{s,^(.*)$,$1+//,e for@_})->($A);
print $A;
Author: Christian Aperghis-Tramoni
Date: 2007-02-06
#!/usr/bin/perl
AUTOLOAD {ASSEMBLEUR}
set ($B = $A);
if ($B == 0) {goto ZERO};
EMPILE:
push (@l, $B);
subs ($B = $B - 1);
if ($B!=0) {goto EMPILE}
DEPILE:
set ($x = pop(@l));
if (!$x) {goto CALCULE}
add ($B = $B + $x);
goto DEPILE;
CALCULE:
shft ($B = $B << 1);
div ($A = $B / $A);
goto TERMINE;
ZERO:
exor ($A = $A ^ 1);
TERMINE:;
print $A;
Author: David Landgren
Date: 2007-02-07
#!/usr/bin/perl
use Acme::DonMartin;
sittzle shpliple spla pwadak sklork wap splork flif foomp ting rumble
sprizawitz clack;
print $A;
Author: David Landgren
Date: 2007-02-07
#!/usr/bin/perl
use HTTP::Size;
$A += HTTP::Size::get_size('http://www.landgren.net/perl/one-byte.txt');
print $A;
Author: David Landgren
Date: 2007-02-07
#!/usr/bin/perl
tie $A, 'Tie::Increment', $A;
$A;
package Tie::Increment;
sub TIESCALAR { bless {A=>$_[1]}, $_[0] }
sub STORE { ($_[0])->{A} = $_[1] }
sub FETCH { ++(shift)->{A} }
1;
print $A;
Author: Philippe "BooK" Bruhat
Date: 2007-02-07
#!/usr/bin/perl
@ARGV = ( '$c', map { ( $_, '$c.=pop;pop' ) } qw( + + A $ ) );
s//pop/eeeeeee;
print $A;
Author: David Landgren
Date: 2007-02-07
#!/usr/bin/perl
use Inline C => 'int incr(int A) { ++A; return(A); }';
$A = incr($A);
print $A;
Author: David Landgren
Date: 2007-02-07
#!/usr/bin/perl
${(sort grep {$_ eq uc} grep {/\A[^\W_\d]\Z/} keys %::)[0]}++;
print $A;
Author: David Landgren
Date: 2007-02-07
#!/usr/bin/perl
${(sort grep {$_ eq uc} grep {/\A[^\W_\d]\Z/} keys %{
do{__PACKAGE__ if __PACKAGE__ ne 'main'}.'::'})[0]}++;
print $A;
Author: David Landgren
Date: 2007-02-07
#!/usr/bin/perl
$A += do {
my @A = sub {($_[5]+1900,$_[4]+1)}->(localtime);
(Add_Delta_Days(@A,Days_in_Month(@A),1))[-1]
};
print $A;
Author: David Landgren
Date: 2007-02-09
#!/usr/bin/perl
my $p = $$;
while ($A) {
if (fork) {
wait; $A = 1+($?>>8); $p-$$ ? exit $A : last;
}
}
continue {--$A}
exit 1 if $p ne $$;
print $A;