多くの方かに増加

するにはどうしたらいいのか、変数の値による。

すぐに思い浮かぶのは二つのオプション:

  • 使ンクリメントオペレーター ++
  • オペレーター += を追加する変数

がどの明らかなようにできるバンチの選択肢としてあります。

そのページ http://paris.mongueurs.net/aplusplus.html  掲載309(!!!) 方がどのような変数 $A の値 ユニットです。

このページを含むすべてのこれらのオプションの機会を走らせることにブラウザです。 その全てのオプションがあります。

  • 一部のオプションの追加、変数などが若干異なる。 例えば、 97, 116
  • 一部明らかに冗談— 35.
  • 一部の働かない— 45
  • オプションがありすることができる一部のPerlバージョンおよび動作しない。 298 上5.8いませんで5.30

一部の働いていないブラウザのための制限のサービス https://PerlBanjo.com : (コードのサービスなインターネットへアクセスできるとはできません追加インストールモジュール.

しかし多くの事例がいくつかの絶対名品、例えば:

  • 43 plus plus A;
  • 68 use less
  • 69 more.pm
  • 78 dollar A plusplus;
  • 83 obfuscated
  • 142 qaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaq
  • 144 keyword only
  • 184 A++
  • 225 vertical
  • 273 (((((((((())))))))))
  • 300 "assembly language"

以下のリストは"全ての発明について追加方法の一つに多くの注目を集めています。

1

著者: Moun's

▶ Run
#!/usr/bin/perl

$A++;

print $A;

2

著者: Moun's

▶ Run
#!/usr/bin/perl

$A += 1;

print $A;

3

著者: Moun's

▶ Run
#!/usr/bin/perl

$A = $A + 1;

print $A;

4

著者: Moun's

▶ Run
#!/usr/bin/perl

$A = eval { $A + 1 };

print $A;

5

著者: Moun's

日時:1999-12-07

▶ Run
#!/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;

6

著者: Moun's

日時:1999-12-15

▶ Run
#!/usr/bin/perl

$A = ($A*$A-1)/($A-1);

print $A;

7

著者: Moun's

▶ Run
#!/usr/bin/perl

do{s/^(\d+)/'\'x$1.".\(${\(++$*)}."/e}
        while(s/\(\*.\.*\()(\d*)/$1.${\($*=$2*length$1)}/e);

print $A;

8

著者: BooK 

▶ Run
#!/usr/bin/perl

$A+=$A>>31|~$A>>31;

print $A;

9

著者: BooK 

▶ Run
#!/usr/bin/perl

$A+=3>>2|1<<0;

print $A;

10

著者: BooK 

日時:1999-11-04

▶ Run
#!/usr/bin/perl

$A+=0<<1|2<<3>>4;

print $A;

11

著者: BooK 

日時:1999-11-04

▶ Run
#!/usr/bin/perl

$A=~s/($A)/$1+1/e;

print $A;

12

著者: BooK 

日時:1999-12-07

▶ Run
#!/usr/bin/perl

$A=~s/$A/$A+1/e;

print $A;

13

著者: BooK 

日時:1999-12-07

▶ Run
#!/usr/bin/perl

$A=~s/$A/++$A/e;

print $A;

14

著者: BooK 

日時:2000-02-18

▶ Run
#!/usr/bin/perl

$A+=@{[$A]};

print $A;

15

日時:2000-02-18

▶ Run
#!/usr/bin/perl

$A+=do{qq{@{[cos$A!=$A]}}};

print $A;

16

著者: BooK 

日:2000-03-13

▶ Run
#!/usr/bin/perl

$A =~ s/(-)?(\d+(?:\.\d*)?)/ $1.($2+($1?-1:1))/e;

print $A;

17

著者: BooK 

日:2000-03-13

▶ Run
#!/usr/bin/perl

$A=~s/(-)?(\d+(?:\.\d*)?)/"$1 1+"x$2.'1'/egoisme;

print $A;

18

日時:2000-03-22

▶ Run
#!/usr/bin/perl

$A+=1;

print $A;

19

著者: BooK 

日時:2000-03-24

▶ Run
#!/usr/bin/perl

$A=~s/(-)?(\d+(?:\.\d*)?)/#les filles c'est des cloches (Souchon)
                      "$1 1+"x$2.'1'/sexisme;

print $A;

20

著者: BooK 

日時:2000-04-01

▶ Run
#!/usr/bin/perl

A:goto(A)if$A!=$A+++1;

print $A;

21

日時:2000-04-05

▶ Run
#!/usr/bin/perl

$A = do{ while(1&$A){$A>>=1} continue{++$AA} ($A|1)<<$AA};

print $A;

22

著者: BooK 

日時:2000-04-06

▶ Run
#!/usr/bin/perl

$A = $A{$A} ? &{$A{$A}}($A) : &{$A{$A} = sub{1+shift}} ($A);

print $A;

23

日時:2000-04-06

▶ Run
#!/usr/bin/perl

$A = do{$_=!$_;$_<<=1 while($A&$_<<1<=$A);
($A&$_|1) + ($A&$_&&$A&~$_|1||$A&~$_)};

print $A;

24

著者: BooK 

日時:2000-04-12

▶ Run
#!/usr/bin/perl

$A=1/$A*(reverse map{$A+=$_}(1..$A,$A=0))[0];

print $A;

25

著者: Stéphane

日時:2000-04-12

▶ Run
#!/usr/bin/perl

${ '`' | '!' } -= $#$ + ${""} - ${''};

print $A;

26

著者: Stéphane

日時:2000-04-12

▶ Run
#!/usr/bin/perl

$ {'`'| '!'}-=-- +$#$+ $ { ""}- --$ { ''};

print $A;

27

著者: Stéphane + BooK

日時:2000-04-12

▶ Run
#!/usr/bin/perl

${'@'|'!'&~'"'}-=$#$+${""}-${''};

print $A;

28

著者: Stéphane

日時:2000-04-23

▶ Run
#!/usr/bin/perl

${"A\0comme quoi perl n'ignore pas partout les \0"}++;

print $A;

29

著者: BooK 

▶ Run
#!/usr/bin/perl

$A=scalar@{[eval'0,'x$A.0]};

print $A;

30

著者: BooK 

日時:1999-12-07

▶ Run
#!/usr/bin/perl

$A=eval q.@{[.."0,"x$A.qq|0]}|;

print $A;

31

著者: BooK 

日時:2000-12-07

▶ Run
#!/usr/bin/perl

$A=($A='$A'.'$A'x$A)=~s/\$A/=/g;

print $A;

32

著者: BooK 

日時:2000-03-30

▶ Run
#!/usr/bin/perl

$A=@{[($A)x$A,$A]};

print $A;

33

著者: BooK 

日時:2000-03-30

▶ Run
#!/usr/bin/perl

$A=~s/([0-8]?9*)$/$1+1/e;

print $A;

34

日時:2000-04-12

▶ Run
#!/usr/bin/perl

use Cobol;
PROCEDURE DIVISION
ADD 1 TO A GIVING B
MOVE B TO A;

print $A;

35

著者: Stéphane

日時:2000-04-13

▶ Run
#!/usr/bin/perl

use AI;
Increment variable A value by 1 # $A++

print $A;

36

著者: BooK 

▶ Run
#!/usr/bin/perl

*A=\($A+1);

print $A;

37

著者: BooK 

日時:2000-04-24

▶ Run
#!/usr/bin/perl

$A+=$A/$A;

print $A;

38

著者: Moun's

日時:2000-04-25

▶ Run
#!/usr/bin/perl

$A+=($A)?($A/$A):(1);

print $A;

39

著者: BooK 

日時:2000-04-26

▶ Run
#!/usr/bin/perl

1?$A+=.5:$A+=.5;

print $A;

40

著者: BooK 

日時:2000-04-26

▶ Run
#!/usr/bin/perl

$A = @{[0..$A]};

print $A;

41

日:2000-05-03

▶ Run
#!/usr/bin/perl

foreach(qw{36 29 -22 0}){$A{A}.=chr($A{AA}+=$_)}eval$A{A};

print $A;

42

著者: BooK 

▶ Run
#!/usr/bin/perl

${*A{SCALAR}}++;

print $A;

43

著者: BooK 

日時:2000-05-10

▶ Run
#!/usr/bin/perl

sub plus {\(${$_[0]}+=.5)}
plus plus A;

print $A;

44

著者: D0vid

日:2000-05-22

▶ Run
#!/usr/bin/perl

qq{D@{[$a++]}vid} # heuh, ça fait quoi au juste ?;

print $A;

45

著者: BooK 

日時:2000-06-22

▶ Run
#!/usr/bin/perl

/${1}def/#{def}def/;{/A}def/++{add}def/A 1 def
; $ A ++ # % Mon imprimante, elle sait compter;

print $A;

46

著者: BooK 

日:2000-06-27

▶ Run
#!/usr/bin/perl

qq$@{[\$A++]}$;

print $A;

47

著者: Alain Tesio

日時:2000-08-11

▶ Run
#!/usr/bin/perl

while ($Z!=1) { $Z+=(1-$Z)/2; $A+=1-$Z };

print $A;

48

著者: Robin

日時:2000-07-27

▶ Run
#!/usr/bin/perl

${uc((**{PACKAGE}=~/(.)/g)[1])}++;

print $A;

49

著者: Robin

日時:2000-07-27

▶ Run
#!/usr/bin/perl

${*A{join'',(split /(A)/,'RASCAL')[-3,1,-1,3,0]}}++;

print $A;

50

著者: BooK 

日時:2000-07-27

▶ Run
#!/usr/bin/perl

eval join'', q"$_=0;sub A{ ++$b; ++$c}" =~ m/(?:\s|^)(\S)\S*/g;

print $A;

51

著者: Stéphane

日時:2000-08-01

▶ Run
#!/usr/bin/perl

$A -= system malfunction;

print $A;

52

著者: Eric

日:2000-08-03

▶ Run
#!/usr/bin/perl

use Filter::cpp;
#define INCREMENT 1
$A += INCREMENT;

print $A;

53

著者: BooK 

日時:2000-08-07

▶ Run
#!/usr/bin/perl

$A = split/AA/,'A'.'AA'x$A;

print $A;

54

著者: Stéphane

▶ Run
#!/usr/bin/perl

@_ = grep { (0 x $_) !~ m/^(..+)(?:\1)+$/ && $_ } 0 .. 666 ;
${chr eval eval "'0x'. $_[$_[$_[4]-$_[0]]]"}++;

print $A;

55

著者: Artur

▶ Run
#!/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;

56

著者: David Rigaudiere

日時:2000-08-11

▶ Run
#!/usr/bin/perl

$A += print '';

print $A;

57

著者: Stéphane

日:2000-08-15

▶ Run
#!/usr/bin/perl

tie $A, A; print $A;
package A;
sub TIESCALAR { my $A; bless \$A, shift}
sub FETCH { shift; ++$${shift}};

print $A;

58

著者: Stéphane

日時:2000-08-26

▶ Run
#!/usr/bin/perl

$A += !!/_/ || m|_/\_|m || !!\_;

print $A;

59

著者: Stéphane

日時:2000-08-26

▶ Run
#!/usr/bin/perl

$A += !!/_/ ||  m|/\|m  || !!\_;

print $A;

60

著者: Stéphane

日時:2000-08-26

▶ Run
#!/usr/bin/perl

$A += !!/_/ ||  m|/\|m | | !!\_;

print $A;

61

著者: Stéphane

日時:2000-08-27

▶ Run
#!/usr/bin/perl

${ eval v65 }++;

print $A;

62

著者: Stéphane

日時:2000-08-27

▶ Run
#!/usr/bin/perl

eval eval join '.', map { ord } split '', '$A++';

print $A;

63

著者: Stéphane

▶ Run
#!/usr/bin/perl

${($a = [ { un => 1, 'A' => 2 }, 1, A ])->{A}} += $a->{un};

print $A;

64

著者: Stéphane

日時:2000-08-30

▶ Run
#!/usr/bin/perl

use Symbol; $*{$a = ${+gensym}}{SCALAR} = 'A'; ${$*{$a}{SCALAR}}++;

print $A;

65

著者: BooK 

日時:2000-09-05

▶ Run
#!/usr/bin/perl

q = 0 #=;sub A{$A};$
A = 1 + A;

print $A;

66

著者: Stéphane

日:2000-09-06

▶ Run
#!/usr/bin/perl

( # ) VARIABLE A 0 A ! : $A++; A @ 1+ A ! ; : :-) ; : ); :-) ;
);
$A++;

print $A;

67

著者: Stéphane

日時:2000-09-07

▶ Run
#!/usr/bin/perl

; q
(setq A (if (boundp 'A) (+ 1 A) 1) ) ; $A++;

print $A;

68

著者: Stéphane

日時:2000-08-27

▶ Run
#!/usr/bin/perl

use less $A++;

print $A;

69

著者: Stéphane

日時:2000-09-10

▶ Run
#!/usr/bin/perl

BEGIN { $INC{'more.pm'}++ }
use more $A++;

print $A;

70

著者: Stéphane

日:2000-09-11

▶ Run
#!/usr/bin/perl

use 5.6;
'obfuscation'=~m/(.{2,}?)(?{$a.=$1;})$/;
${eval sprintf"v%1.1f",scalar split'',$a}++;

print $A;

71

著者: Julien Bordet

日時:2000-09-12

▶ Run
#!/usr/bin/perl

*B = *A; $B += !defined($C);

print $A;

72

著者: BooK 

日:2000-09-13

▶ Run
#!/usr/bin/perl

s]]aAaa]|s~a~A^e~e|s}aa}BC^ih}e|eval;

print $A;

73

▶ Run
#!/usr/bin/perl

$A+=-d'/';

print $A;

74

日:2000-09-26

▶ Run
#!/usr/bin/perl

sub AUTOLOAD {*A=*AUTOLOAD;*$A=sub{substr($A,1+rindex($A,q(_)))+1};&$A;}
$A = &{"_$A"};

print $A;

75

著者: Kai

日:2000-09-26

▶ Run
#!/usr/bin/perl

map{$_++}$A;

print $A;

76

著者: BooK 

▶ Run
#!/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;

77

著者: Stéphane

日時:2000-10-03

▶ Run
#!/usr/bin/perl

$__ = ($_) = qr|(\ua)| =~ qr|(a)|i; $$_+=$__;

print $A;

78

著者: Kai

日時:2000-10-06

▶ Run
#!/usr/bin/perl

package plusplus;
sub AUTOLOAD{${(caller(0))[3]}=~/$_[0]::(.*)$/;$1.'++'}
package main;
sub dollar{eval'$'.shift;}
dollar A plusplus;

print $A;

79

著者: Stéphane

日時:2000-10-08

▶ Run
#!/usr/bin/perl

${ chr split '', $_ =
 '____/\____||!
                          / \Q
$ Dirac ** 2+| |
$ Chomsky**2 \ /'
} += eval $_;

print $A;

80

著者: BooK 

日時:2000-10-10

▶ Run
#!/usr/bin/perl

$A+=\$A/bless\$A||/\A/;

print $A;

81

著者: BooK 

日時:2000-10-10

▶ Run
#!/usr/bin/perl

$A+=\$A//\A//bless\$A;

print $A;

82

著者: Julien Bordet

日:2000-10-12

▶ Run
#!/usr/bin/perl

eval pack("C4", <DATA> =~ m#(\d{2})#g);
__DATA__
36654343;

print $A;

83

日:2000-10-12

▶ Run
#!/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;

84

▶ Run
#!/usr/bin/perl

{my @r = sort {$A+=(my$r=$a<=>$b);$r} map {hex} unpack'a2'x
  (length(q(2a4c4760020d2d440258420e4b4614045f112d30070b363218))>>1),
  '1f5d200f4e02590816402a31214a18321b292c515e4e2f3a47';};

print $A;

85

著者: Jean

日時:2000-10-26

▶ Run
#!/usr/bin/perl

for($A^=$B=1;!($A&$B);$A^=$B<<=1){};

print $A;

86

日時:2000-10-26

▶ Run
#!/usr/bin/perl

$A^=$B=1;while(!($A&$B)){$A^=$B<<=1};

print $A;

87

著者: Jean

日:2000-11-15

▶ Run
#!/usr/bin/perl

($A=sprintf "0b0%b", $A)=~s/0(1*)$/"1".(0 x length($1))/e;$A=oct($A);

print $A;

88

日:2000-11-15

▶ Run
#!/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;

89

日:2000-11-15

▶ Run
#!/usr/bin/perl

&{$_=sub{$A+=$^W}};

print $A;

90

著者: BooK 

日:2000-11-22

▶ Run
#!/usr/bin/perl

eval join'',sort{ord($a)|(8&ord$a)<<3<=>ord($b)|(8&ord$b)<<3}qw/+ A + $/;

print $A;

91

著者: David Rigaudiere

日:2000-11-22

▶ Run
#!/usr/bin/perl

$;=[];ref$;=~/^(.)/;$$1+=!$|;

print $A;

92

著者: Maddingue

日時:2000-11-23

▶ Run
#!/usr/bin/perl

${substr(++($b='Z'),0,1)}++;

print $A;

93

著者: Jean

日時:2000-11-23

▶ Run
#!/usr/bin/perl

use Math::Complex;
$A -= exp(i * pi);

print $A;

94

著者: BooK 

日時:2000-11-27

▶ Run
#!/usr/bin/perl

$A -= fork ? die : wait ? wait : die;

print $A;

95

日時:2000-11-27

▶ Run
#!/usr/bin/perl

$A = (($A<<1)+(1<<1))>>1;

print $A;

96

日時:2000-11-27

▶ Run
#!/usr/bin/perl

my $B = $A+1;do {$A+=int(rand()*(1<<9))-(1<<8)} until $A==$B;

print $A;

97

日時:2000-11-27

▶ Run
#!/usr/bin/perl

$A += 1e-6 for 1..1e6;

print $A;

98

日時:2000-12-02

▶ Run
#!/usr/bin/perl

$A = do 'A'if open A,'>A'and print A"$A+unlink'A'"and close A;

print $A;

99

日時:2000-12-05

▶ Run
#!/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;

100

日時:2000-12-05

▶ Run
#!/usr/bin/perl

$A = length " @{[do{$\" = '';(1)x$A}]}";

print $A;

101

著者: Xavier Canehan

日:2000-12-06

▶ Run
#!/usr/bin/perl

$A+=sub{open($A,'>-');fileno $A}->();

print $A;

102

著者: BooK 

日:2000-12-06

▶ Run
#!/usr/bin/perl

$A += fileno STDOUT;

print $A;

103

日:2000-12-06

▶ Run
#!/usr/bin/perl

$A = substr($A,0,1) eq '-'?'-'.length(substr('-' x substr($A,1), 1)) :
length('-'.'-' x $A) ;

print $A;

104

日:2000-12-06

▶ Run
#!/usr/bin/perl

$A = 2*(-0.5+($A==abs $A)) * push @_, ((2*($A!=abs $A))..abs $A);

print $A;

105

日時:2000-12-08

▶ Run
#!/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;

106

日時:2000-12-18

▶ Run
#!/usr/bin/perl

$A = ($A,++$A,$A++,--$A,$A)[rand(5)];

print $A;

107

著者: arhuman

日時:2001-02-12

▶ Run
#!/usr/bin/perl

$A += do { reset " " };

print $A;

108

著者: arhuman

日時:2001-02-12

▶ Run
#!/usr/bin/perl

my %un;bless \%un,1; $A+=ref \%un;

print $A;

109

著者: [beatnik]

日時:2001-06-04

▶ Run
#!/usr/bin/perl

$A += ord("1")-48;

print $A;

110

著者: [beatnik]

日時:2001-06-04

▶ Run
#!/usr/bin/perl

$A += $A**0;

print $A;

111

著者: [beatnik]

日時:2001-06-04

▶ Run
#!/usr/bin/perl

$A -= -1;

print $A;

112

著者: François Désarménien

日時:2001-07-23

▶ Run
#!/usr/bin/perl

$A += 42 == 42;

print $A;

113

著者: Stéphane

日時:2001-09-10

▶ Run
#!/usr/bin/perl

${<@ >|< !>&~< ">}++;

print $A;

114

著者: Init64

日時:2001-09-10

▶ Run
#!/usr/bin/perl

$A+=(~$A^$A)>>((log((~$A|$A)+1)/log(2)-1));

print $A;

115

著者: Stéphane

日時:2001-09-11

▶ Run
#!/usr/bin/perl

`echo 1 >1`;open 1,1; $A += chomp ($a = <1>);

print $A;

116

著者: Jérôme Abela

日時:2001-09-11

▶ Run
#!/usr/bin/perl

$iter = 1000000;
for($n=0 ; $n<$iter ; $n++) {
  $sum += rand(2);
}
$A += $sum/$iter;

print $A;

117

著者: Jérôme Abela

日時:2001-09-11

▶ Run
#!/usr/bin/perl

$A_original = $A;
while($A != $A_original+1) {};

print $A;

118

著者: Stéphane

日時:2001-09-17

▶ Run
#!/usr/bin/perl

$A += japh =~ japh;

print $A;

119

著者: Stéphane

日時:2001-09-17

▶ Run
#!/usr/bin/perl

$A += qr|japh| =~ ':';

print $A;

120

著者: Stéphane

日時:2001-09-20

▶ Run
#!/usr/bin/perl

perl -we 'use strict; our $A += qr|japh| =~ ":"; print $A';

print $A;

121

著者: Stéphane

日時:2001-09-17

▶ Run
#!/usr/bin/perl

eval qq|\$@{ [(join( "\0",qw( Abbot Abbey Amen ))=~
                m/^([^\0]*)[^\0]*(\0\1[^\0]*)*$/)[0]]}++|;

print $A;

122

著者: Eric

日:2001-09-26

▶ Run
#!/usr/bin/perl

use MIME::Base64;
$A += decode_base64("MQ==");

print $A;

123

著者: François Désarménien

日:2001-10-24

▶ Run
#!/usr/bin/perl

*Z=*A;
$Z++;

print $A;

124

著者: Stéphane

▶ Run
#!/usr/bin/perl

$A += VIM::Windows();

print $A;

125

著者: Stéphane

日時:2001-11-03

▶ Run
#!/usr/bin/perl

package Aplus;
use Filter::Simple sub { s/A\+/\$A++/ };
BEGIN { $INC{'Aplus.pm'}++; }
use Aplus;
A+;

print $A;

126

著者: Stéphane

日:2001-11-21

▶ Run
#!/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;

127

著者: BooK 

日時:2001-11-27

▶ Run
#!/usr/bin/perl

${substr(\substr($$,0,0),2,1)}++;

print $A;

128

著者: Wesley

日時:2002-01-03

▶ Run
#!/usr/bin/perl

$A += +$A-- -$A++ +$A-- -++$A;

print $A;

129

著者: Olivier Poitrey

日時:2002-01-11

▶ Run
#!/usr/bin/perl

use overload '--'=>sub{++${$_[0]}}, '""'=>sub{${$_[0]}};
$A = bless(\($B=$A));
$A--;

print $A;

130

著者: Stéphane

日時:2002-01-21

▶ Run
#!/usr/bin/perl

$ a { 1 } = 1; $A +=eval "$ a { 1 }"; $a=1; $A += eval "$ a { 1 }";

print $A;

131

著者: Stéphane

日時:2002-01-25

▶ Run
#!/usr/bin/perl

$SIG{__DIE__} = sub { &${'A--'};  exit};
${"A--"} = sub "A++" { $A++ };  &{'A++'};

print $A;

132

著者: Stéphane

日時:2002-01-25

▶ Run
#!/usr/bin/perl

eval '$' . prototype sub (A++) {};

print $A;

133

著者: BooK 

日時:2002-02-04

▶ Run
#!/usr/bin/perl

$A=(map{$s+=2*$_/$A;$s}1..$A)[-1];

print $A;

134

著者: BooK 

日時:2002-02-04

▶ Run
#!/usr/bin/perl

$_=$?x$A;s/./$'&&$'/g;$A=y///c/$A;

print $A;

135

著者: Christian Aperghis-Tramoni

日時:2002-04-12

▶ Run
#!/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;

136

著者: Christian Aperghis-Tramoni

日時:2002-04-15

▶ Run
#!/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;

137

著者: Sylvain Lhullier

日時:2002-04-17

▶ Run
#!/usr/bin/perl

$A += ( (213*417) =~ m/(.)$/ );

print $A;

138

著者: Sylvain Lhullier

日時:2002-04-17

▶ Run
#!/usr/bin/perl

$A=int(join("", reverse map {if($f){$_}elsif($_<9){$f=1;$_+1}else{0}}
(reverse(split(//,$A)),0) ));

print $A;

139

著者: Sylvain Lhullier

日時:2002-04-17

▶ Run
#!/usr/bin/perl

for( @l=(reverse(split(//,$A)),0) )
{
   $_++;
   last if($_<=9);
   $_=0;
}
$A=int(join("",reverse @l));

print $A;

140

著者: Christian Aperghis-Tramoni

日時:2002-04-18

▶ Run
#!/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;

141

著者: Mtv Europe

日時:2002-04-21

▶ Run
#!/usr/bin/perl

!$A+++!q!+++A$!;

print $A;

142

著者: Mtv Europe

日時:2002-04-21

▶ Run
#!/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;

143

著者: Mtv Europe

日時:2002-04-22

▶ Run
#!/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;

144

著者: Mtv Europe

日時:2002-04-22

▶ Run
#!/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;

145

著者: Christian Aperghis-Tramoni

日:2002-04-24

▶ Run
#!/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;

146

著者: Christian Aperghis-Tramoni

日:2002-04-24

▶ Run
#!/usr/bin/perl

$A+=(split//,(localtime)[(gmtime)-(1<<2)])[$today];

print $A;

147

日:2002-04-24

▶ Run
#!/usr/bin/perl

$A += length length length $A;

print $A;

148

著者: Olivier "Init64" Matt

日:2002-04-24

▶ Run
#!/usr/bin/perl

${eval("uc substr reverse (scalar 'really fun'),7,1")}=~s/^(.*)$/$1+1/e;

print $A;

149

日:2002-04-24

▶ Run
#!/usr/bin/perl

use Inline Befunge => "q+1;sulpa:;";
$A=aplus($A);

print $A;

150

著者: Sylvain Lhullier

日:2002-04-24

▶ Run
#!/usr/bin/perl

$A+=chdir('/');

print $A;

151

著者: Sylvain Lhullier

日:2002-04-24

▶ Run
#!/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;

152

著者: Sylvain Lhullier

日:2002-04-24

▶ Run
#!/usr/bin/perl

eval{die(($A+1)."\n")};
$A=int($@);

print $A;

153

著者: Sylvain Lhullier

日:2002-04-24

▶ Run
#!/usr/bin/perl

open(FILE, "expr $A + 1|" );
$A = int(<FILE>);
close(FILE);

print $A;

154

著者: Sylvain Lhullier

日:2002-04-24

▶ Run
#!/usr/bin/perl

$A=index(('X'x$A).'Xx','x');

print $A;

155

著者: Sylvain Lhullier

日:2002-04-24

▶ Run
#!/usr/bin/perl

$A = log(exp($A)*exp(1));

print $A;

156

著者: Sylvain Lhullier

日:2002-04-24

▶ Run
#!/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;

157

著者: Sylvain Lhullier

日:2002-04-24

▶ Run
#!/usr/bin/perl

$t=time();
sleep $A+1;
$A=time()-$t;

print $A;

158

著者: Sylvain Lhullier

日:2002-04-24

▶ Run
#!/usr/bin/perl

$A+=(stat('/'))[1]/2;

print $A;

159

著者: Sylvain Lhullier

日:2002-04-24

▶ Run
#!/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;

160

著者: Maddingue

日:2002-04-25

▶ Run
#!/usr/bin/perl

map{s,plus,++,,s,^,\$,}$_="A plus";eval;

print $A;

161

著者: Christian Aperghis-Tramoni

日:2002-04-26

▶ Run
#!/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;

162

著者: Christian Aperghis-Tramoni

日時:2002-04-30

▶ Run
#!/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;

163

日時:2002-04-30

▶ Run
#!/usr/bin/perl

''=~('('.'?'
           .'{'.(                   '`'|'%').("\["^
        '-').('`'|                '!').('`'|',').'"'
 .'\\'.'$'.  ("\`"^              '!').('{'^'[')."\+".
'+'.';'.('!'^('+')).            '"'.'}'.')');$:=('.')^
'~';$~='@'|'(';$^=')'          ^'[';$/='`'|'.';$_='('^
  '}';$,='`'|"\!";$\=        ')'^'}';$:='.'^'~';$~='@'|
       '(';$^=')'^'['      ;$/='`'|'.';$_='('^'}';$,='`'
      |'!';$\=(')')^     '}';$:='.'^'~';$~='@'|'(';$^=')'
     ^'[';$/='`'|'.'   ;$_='('^'}';$,='`'|'!';$\=')'^"\}";
    $:='.'^"\~";$~=   '@'|'(';$^=')'^'[';$/='`'|'.';$_="\("^
    '}';$,='`'|'!';  $\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^
    '[';$/='`'|'.'  ;$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^
    '~';$~='@'|'('  ;$^=')'^'[';$/='`'|'.';$_='('^'}';$,="\`"|
    '!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.'
    ;$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=
     ')'^'[';$/='`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'
     ^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'|'!'
      ;$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_=
       '('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'
        ^'[';$/='`'|'.';$_='('^'}';$,='`'|'!';$\=')'^"\}";$:= '.'
         ^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,  =((
          '`'))|'!';$\=')'^'}';$:='.'^'~';$~=('@')| "\(";$^=  ')'
            ^'[';$/='`'|'.';$_='('^'}';$,='`'|'!';  $\=')'^   '}'
             ;($:) ='.'^'~';$~='@'|'(';$^=')'^'['   ;$/='`'   |((
                   '.'));$_='('^'}';$,='`'|"\!";    $\=')'^   '}'
                   ;$:='.'^    '~';$~='@' |"\(";     $^=')'   ^+
                   '[';$/=     '`'|'.';   $_='('     ^"\}";  $,
                   =('`')|     "\!";$\=   "\)"^       "\}";  (
                   ($:))=      '.'^'~';   ($~)         ='@'
                   |"\(";     $^=(')')^   '[';         ($/)
                    ='`'|     "\.";$_=    '('^         '}';
                    ($,)=     '`'|'!'     ;$\=         ')'^
                    '}';     $:='.'       ^'~'         ;$~=
                    '@'|     '('          ;$^=         ')'^
                    '[';      $/=         '`'          |((
                    '.'        ));       $_=           '('
                    ^((         '}'     ));            $,=
                    '`'          |((   '!'              ))
                    ;(             ($\))=               ((
                    ((              ')'))               ))
                    ^+             "\}";$:=             ((
                   '.'            ))^+ "\~";            $~
                  =((           '@'))|  '(';           $^=
                 ')'^         "\[";$/=   '`'          |'.'
               ;($_)=                                ('(')^
             "\}";$,=                               '`'|'!';

print $A;

164

日時:2002-04-30

▶ Run
#!/usr/bin/perl

$A += ((localtime)[2]-(gmtime)[2])/2;

print $A;

165

日時:2002-04-30

▶ Run
#!/usr/bin/perl

$A += (localtime)[2]-(gmtime)[2];

print $A;

166

日時:2002-04-30

▶ Run
#!/usr/bin/perl

use Fcntl;
$A += F_GETFD;

print $A;

167

日時:2002-04-30

▶ Run
#!/usr/bin/perl

use Text::Abbrev;
%operations = abbrev qw( plus addition plusplus A );
$A += grep { /n$/ } values %operations;

print $A;

168

日時:2002-04-30

▶ Run
#!/usr/bin/perl

use Symbol::Approx::Sub;
sub aplusplus { $A++ }
&aplus;

print $A;

169

日時:2002-04-30

▶ Run
#!/usr/bin/perl

use POSIX;
$A += &ENOMEM - &EAGAIN;

print $A;

170

著者: Christian Aperghis-Tramoni

日時:2002-04-30

▶ Run
#!/usr/bin/perl

sub A {$A[$A]=$A;(!$A and $A=!$A) or (($A-=$A/$A) and A and $A=@A)};A;

print $A;

171

日時:2002-04-30

▶ Run
#!/usr/bin/perl

#define $ /* Money for nothing */
$ A++;

print $A;

172

著者: Stéphane

日時:2002-05-01

▶ Run
#!/usr/bin/perl

$A = $A++ ? $A++ : $A++;

print $A;

173

著者: Stéphane

日時:2002-05-16

▶ Run
#!/usr/bin/perl

$A += !('_'| !'_')  # where !(A|!A) == 1;

print $A;

174

著者: Sylvain Lhullier

日時:2002-05-23

▶ Run
#!/usr/bin/perl

rmdir rand($A);
$A += $!/2;

print $A;

175

著者: Sylvain Lhullier

日時:2002-05-23

▶ Run
#!/usr/bin/perl

$A += open(F,">/dev/null");
close(F);

print $A;

176

著者: Sylvain Lhullier

日時:2002-05-23

▶ Run
#!/usr/bin/perl

for($a=0;$a<=$A;$a++){}
$A=$a;

print $A;

177

著者: Sylvain Lhullier

日時:2002-05-23

▶ Run
#!/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;

178

著者: Sylvain Lhullier

日時:2002-05-23

▶ Run
#!/usr/bin/perl

$A += int(rand(1)+1);

print $A;

179

著者: Sylvain Lhullier

日時:2002-05-23

▶ Run
#!/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;

180

著者: Sylvain Lhullier

日時:2002-05-23

▶ Run
#!/usr/bin/perl

sprintf "%${A}.0f %n", $A, $A;

print $A;

181

著者: Sylvain Lhullier

日時:2002-05-23

▶ Run
#!/usr/bin/perl

$A = length sprintf "%${A}.0f ", $A;

print $A;

182

著者: Sylvain Lhullier

日時:2002-05-23

▶ Run
#!/usr/bin/perl

$A = ( $A =~ m/(.*)/g )[0] + 1;

print $A;

183

著者: Stéphane

日時:2002-05-28

▶ Run
#!/usr/bin/perl

use Inline::Files;  open A,'>'; ++$A; eval <A>;

print $A;

184

著者: Maddingue

日:2002-05-29

▶ Run
#!/usr/bin/perl

eval((map{s/^./\$/,s/ //g;$_}(split"$/",<<'')[-1])[0]);
     A
    A A        +       +
   A   A       +       +
  AAAAAAA   +++++++ +++++++
 A       A     +       +
A         A    +       +;

print $A;

185

著者: Christian Aperghis-Tramoni

日時:2002-05-30

▶ Run
#!/usr/bin/perl

$x=sub{if (wantarray()){(pack "c",${($_=&$x)}+5)}else{pack "c",$=+1}};
$A =${($_=&$x)}/$=+${(@_=&$x)[0]};

print $A;

186

著者: Christian Aperghis-Tramoni

日時:2002-05-30

▶ Run
#!/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;

187

著者: Christian Aperghis-Tramoni

日時:2002-05-31

▶ Run
#!/usr/bin/perl

$_=sub{$~=$|++?$|:${chr($=+=5)}};${chr($=)}=&$_+&$_;

print $A;

188

著者: Christian Aperghis-Tramoni

日時:2002-06-04

▶ Run
#!/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;

189

著者: François Désarménien

日時:2002-06-05

▶ Run
#!/usr/bin/perl

use Math::Trig;
$A-=cos(pi);

print $A;

190

著者: Stéphane

日時:2002-06-05

▶ Run
#!/usr/bin/perl

$A += ('(A)' =~ m(\(A\)))[0] == ('(A)' =~ m((A)))[0];

print $A;

191

日時:2002-06-05

▶ Run
#!/usr/bin/perl

$A += ('(A)' =~ m|\(A\)|)[0] == ('(A)' =~ m|(A)|)[0];

print $A;

192

著者: Jean Forget

日時:2002-06-07

▶ Run
#!/usr/bin/perl

eval v36.65.43.43;

print $A;

193

著者: Stéphane

日時:2002-06-08

▶ Run
#!/usr/bin/perl

use constant; my constant $A++;

print $A;

194

著者: Stéphane

日時:2002-06-08

▶ Run
#!/usr/bin/perl

sub _ : lvalue { $A }; ++_();

print $A;

195

著者: Stéphane

日時:2002-06-08

▶ Run
#!/usr/bin/perl

use Attribute::Handlers;
sub _ : ATTR(SCALAR) { ${$_[2]}++ }
my $A : _ ; $A;

print $A;

196

著者: Stéphane

日時:2002-06-14

▶ Run
#!/usr/bin/perl

use Perl6::Currying;
sub add($a, $b) { $a + $b };
$incr = &add.prebind(a=>1);
$A = $incr->($A);

print $A;

197

著者: Christian Aperghis-Tramoni

日:2002-06-21

▶ Run
#!/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;

198

著者: Maddingue

日時:2002-06-22

▶ Run
#!/usr/bin/perl

$_="+36+29-22=",s/\G([=+-])(\d*)/$==$1eq'='?$-:eval"$-$1$2",chr($-=$=)/ge,eval;

print $A;

199

著者: Sylvain Lhullier

日時:2002-06-24

▶ Run
#!/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;

200

著者: Sylvain Lhullier

日時:2002-06-24

▶ Run
#!/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;

201

著者: Sylvain Lhullier

日時:2002-06-24

▶ Run
#!/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;

202

著者: Sylvain Lhullier

日時:2002-06-24

▶ Run
#!/usr/bin/perl

$A=-(-1-$A);

print $A;

203

著者: Sylvain Lhullier

日時:2002-06-24

▶ Run
#!/usr/bin/perl

$A = -$A;
$A--;
$A = -$A;

print $A;

204

著者: Sylvain Lhullier

日時:2002-06-24

▶ Run
#!/usr/bin/perl

$A = 1 + $A;

print $A;

205

著者: Sylvain Lhullier

日時:2002-06-24

▶ Run
#!/usr/bin/perl

++$A;

print $A;

206

日時:2002-06-24

▶ Run
#!/usr/bin/perl

($A) = map {$A + $_} $A =~ /$A/;

print $A;

207

日時:2002-06-24

▶ Run
#!/usr/bin/perl

$A = eval join '+', map {$_ * 10**$e + 0**$e++} reverse $A=~ m/./g;

print $A;

208

著者: Stéphane

日時:2002-07-08

▶ Run
#!/usr/bin/perl

$A +=  @{ [ ( @{ caller(-1) }, "$A++" ) ] };

print $A;

209

著者: Sylvain Lhullier

日時:2002-07-11

▶ Run
#!/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;

210

著者: Sylvain Lhullier

日時:2002-07-11

▶ Run
#!/usr/bin/perl

use POSIX;
$A += int($POSIX::VERSION);

print $A;

211

著者: Sylvain Lhullier

日時:2002-07-11

▶ Run
#!/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;

212

著者: Sylvain Lhullier

日時:2002-07-11

▶ Run
#!/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;

213

著者: Sylvain Lhullier

日時:2002-07-11

▶ Run
#!/usr/bin/perl

use URI::Escape;
eval uri_unescape('%24%41%2B%2B');

print $A;

214

日時:2002-07-11

▶ Run
#!/usr/bin/perl

${(sort grep {/^\w/ && /\D/} keys %{(eval "(caller)[0]").'::'})[0]}++;

print $A;

215

著者: Sylvain Lhullier

日時:2002-07-11

▶ Run
#!/usr/bin/perl

eval join "", sort { ($a,$b)=($b,$a); 1 } split(//,'+$A+');

print $A;

216

著者: Sylvain Lhullier

日時:2002-07-11

▶ Run
#!/usr/bin/perl

eval reverse '++A$';

print $A;

217

著者: Sylvain Lhullier

日時:2002-07-11

▶ Run
#!/usr/bin/perl

$A += ( map { tr/P/P/ } split(//,'Perl') )[0];

print $A;

218

著者: Sylvain Lhullier

日時:2002-07-11

▶ Run
#!/usr/bin/perl

eval join '', grep { /[^ -#%-*,-\@B-~]/ } qw( 2 f $ a p p A 0 8 + - * = + 4 );

print $A;

219

著者: Sylvain Lhullier

日時:2002-07-11

▶ Run
#!/usr/bin/perl

%h = ( '$'=>'+', 'A'=>'A', 'a'=>'$', '+'=>'+' );
eval join '', values(%h);

print $A;

220

著者: Sylvain Lhullier

日時:2002-07-11

▶ Run
#!/usr/bin/perl

%h = qw(+ + $ A);
unshift @l, each(%h);
unshift @l, each(%h);
eval join "", @l;

print $A;

221

著者: Sylvain Lhullier

日時:2002-07-11

▶ Run
#!/usr/bin/perl

$A += $A !~ santana;

print $A;

222

著者: Sylvain Lhullier

日時:2002-07-15

▶ Run
#!/usr/bin/perl

$A += unshift @A, $A;

print $A;

223

著者: Sylvain Lhullier

日時:2002-07-15

▶ Run
#!/usr/bin/perl

my %h=();
$A += !exists($h{$A});

print $A;

224

著者: Sylvain Lhullier

日時:2002-07-15

▶ Run
#!/usr/bin/perl

$A{$A}=\$A;${$A{$A}}++;

print $A;

225

著者: Sylvain Lhullier

日時:2002-07-15

▶ Run
#!/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;

226

著者: Sylvain Lhullier

日時:2002-07-15

▶ Run
#!/usr/bin/perl

s//$A++/e;

print $A;

227

著者: Stéphane

日時:2002-07-22

▶ Run
#!/usr/bin/perl

eval "require 5.8" or $A+=($@ =~ m/\G.*?(\d+)/gc)[ ($] =~ m/(.)$/)[0] ];

print $A;

228

著者: Stéphane

日時:2002-07-22

▶ Run
#!/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;

229

著者: Stéphane

日時:2002-07-22

▶ Run
#!/usr/bin/perl

use 5.008; sub A::AUTOLOAD : lvalue { $::A }; &{A::A}()+=1;

print $A;

230

著者: Stéphane

日時:2002-07-22

▶ Run
#!/usr/bin/perl

( $B = ( $C ='$A--++') ) =~ s/ ./  $a=$&; ($& =~  m(\w)) ? "($a)"  : "(\\$a)"   /gex;
eval join '',  ( $C =~ m/$B/)[0..1,4..5];

print $A;

231

著者: Rafael Garcia-Suarez

日:2002-07-26

▶ Run
#!/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;

232

日時:2002-08-06

▶ Run
#!/usr/bin/perl

use Acme::Bleach;

print $A;

233

日時:2002-08-06

▶ Run
#!/usr/bin/perl

use Acme::Morse;
.--.-..--..---.-.--..--.-..--..---.-.--.
..-..-..-.....-.--.-.-..--.-.-..--.---..
.-.-...;

print $A;

234

著者: Didier Collin

日:2002-08-21

▶ Run
#!/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;

235

著者: Court-Jus

日:2002-09-25

▶ Run
#!/usr/bin/perl

while ($plop!=1) {$plop=int(rand(42));}
$A+=$plop;

print $A;

236

著者: BooK 

日:2002-09-27

▶ Run
#!/usr/bin/perl

use Memoize;
sub plusplus { $_[0]++ }
memoize('plusplus');
plusplus( $A );

print $A;

237

著者: Stéphane

日時:2002-09-30

▶ Run
#!/usr/bin/perl

*A::import = sub { shift; eval shift }; $INC{'A.pm'}++; eval q|use A '$A++'|;

print $A;

238

著者: Philippe Rimbault

日時:2002-10-28

▶ Run
#!/usr/bin/perl

for($A..$A+1){$A+=$_-$A};

print $A;

239

日時:2002-11-03

▶ Run
#!/usr/bin/perl

#--------Free incrementation voucher-----------8<----Cut Here-----------#
$                                                                       {
(                                  '$'                                  )
^                                  'A'                                  ^
(                                  '='                                  )
&                                  '$'                                  |
(                                  'A'                                  )
&                                  '+'                                  &
(                                  '1'                                  )
&                                  ';'                                  }
++                                                                      ;
#---Découper suivant les pointilles--->8---Bon d'augmentation gratuit---#;

print $A;

240

著者: Simon Maréchal

日時:2002-11-14

▶ Run
#!/usr/bin/perl

$B=1;while(($A& $B)==$B){$B=$B*2+1;}$A^=$B;

print $A;

241

著者: Simon Maréchal

日時:2002-11-14

▶ Run
#!/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;

242

日時:2002-11-19

▶ Run
#!/usr/bin/perl

eval <<'';
$A++;

print $A;

243

日時:2002-11-19

▶ Run
#!/usr/bin/perl

eval '$A'.  (<<""
$A++

=~ m|(\W+)|)[0];

print $A;

244

日時:2002-11-24

▶ Run
#!/usr/bin/perl

use strict; my  strict $A++;

print $A;

245

日時:2002-11-24

▶ Run
#!/usr/bin/perl

my main $A++;

print $A;

246

日時:2002-11-24

▶ Run
#!/usr/bin/perl

%average::; print probably not my average $A++;

print $A;

247

日時:2002-11-24

▶ Run
#!/usr/bin/perl

$A += nil +1  if  nil;

print $A;

248

日時:2002-11-24

▶ Run
#!/usr/bin/perl

$A += !((false or true) != 0);

print $A;

249

日時:2002-11-24

▶ Run
#!/usr/bin/perl

eval( "A++") or (${"A++"}) = $@ =~ m/"(.*)"/;  eval '$' . ${"A++"};

print $A;

250

日時:2002-12-01

▶ Run
#!/usr/bin/perl

use less; $A +=require  strict if useless; use if;

print $A;

251

日時:2002-12-07

▶ Run
#!/usr/bin/perl

${'A.pm'}++; @INC =[ sub {$A++}] ; eval "require A";

print $A;

252

著者: Julien Gilles

日時:2002-12-12

▶ Run
#!/usr/bin/perl

$A = 2**32-~$A;

print $A;

253

著者: Julien Gilles

日時:2002-12-12

▶ Run
#!/usr/bin/perl

$A = 2**64-~$A;

print $A;

254

日時:2002-12-19

▶ Run
#!/usr/bin/perl

$
B
=
\
$
A
;
$
A
=
$
$
B
+
1;

print $A;

255

日時:2003-01-10

▶ Run
#!/usr/bin/perl

eval  join '',  "\044", +::, A::, '+++$A::';

print $A;

256

日時:2003-01-10

▶ Run
#!/usr/bin/perl

$  A+= .5=> .5>= .5;$ A+=(1  =>.5);

print $A;

257

日時:2003-01-31

▶ Run
#!/usr/bin/perl

perl -ce 'BEGIN { $A += $^C }';

print $A;

258

著者: Sébastien Morin

日:2003-02-19

▶ Run
#!/usr/bin/perl

$A -= $#{split(//, $A)};

print $A;

259

日時:2003-03-27

▶ Run
#!/usr/bin/perl

sub q() { 1 } ; $A +=  &q() + q();

print $A;

260

著者: Robin Berjon

日時:2003-05-02

▶ Run
#!/usr/bin/perl

use Lingua::Romana::Perligata;
ao postincresce.;

print $A;

261

著者: Robin Berjon

日時:2003-05-02

▶ Run
#!/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;

262

著者: Nicholas Clark

日時:2003-05-04

▶ Run
#!/usr/bin/perl

${chr($=+((ord($/))>>$$/$$))}++;

print $A;

263

著者: Nicholas Clark

日時:2003-05-05

▶ Run
#!/usr/bin/perl

${~$/&~$;&$^}++;

print $A;

264

著者: Nicholas Clark

日時:2003-05-05

▶ Run
#!/usr/bin/perl

perl -le '${~$\&~$;&$^}++';

print $A;

265

著者: Greg McCaroll

日時:2003-06-21

▶ Run
#!/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;

266

著者: Guillaume Rousse

日:2003-06-24

▶ Run
#!/usr/bin/perl

urpmf --name -v -e  '($a || ++$a) && 0';

print $A;

267

著者: François Pons

日:2003-06-24

▶ Run
#!/usr/bin/perl

$A = (sub { push @_, -@_ })->(($A) x ($A));

print $A;

268

著者: François Pons

日:2003-06-24

▶ Run
#!/usr/bin/perl

$A = (sub { push @_, +@_ })->(($A) x ($A)) /2 + 1;

print $A;

269

著者: Philippe Rimbault

日時:2003-11-13

▶ Run
#!/usr/bin/perl

$A+=`pidof init`;

print $A;

270

著者: Philippe Rimbault

日時:2003-11-14

▶ Run
#!/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;

271

著者: Philippe Rimbault

日時:2003-12-04

▶ Run
#!/usr/bin/perl

$_=\1/\1;$A +=$_=~ s/(.*)(\.\d).*/($2>0?$1+1:$1+$A)/e;

print $A;

272

著者: Philippe Rimbault

日時:2003-12-04

▶ Run
#!/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;

273

著者: Christophe Grosjean

日時:2004-01-05

▶ Run
#!/usr/bin/perl

$A+= (((((((((())))))))))=([10,9,8,7,6,5,4,3,2,1,FEU]);

print $A;

274

日時:2004-01-19

▶ Run
#!/usr/bin/perl

${*{$main::{A}}{ref \$A}}++;

print $A;

275

著者: Christophe Renard

日時:2004-01-19

▶ Run
#!/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;

276

著者: Pied Axioplase

日時:2004-02-05

▶ Run
#!/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;

277

著者: Olivier Mengué

日時:2004-02-05

▶ Run
#!/usr/bin/perl

eval pack('N', 608250667);

print $A;

278

著者: Damien Krotkine

日時:2004-05-13

▶ Run
#!/usr/bin/perl

$A=()=(0..$A);

print $A;

279

著者: Rafael Garcia-Suarez

日時:2004-05-14

▶ Run
#!/usr/bin/perl

$A=~/(?{++$_})(?{$A=$^R})/;

print $A;

280

日時:2004-06-11

▶ Run
#!/usr/bin/perl

${""}="Illegal seek::AUTOLOAD";
*${''} = sub { ${ (split //, "\U${ \__PACKAGE__ }")[1] }++  };
 -qq|| => { q||  } -key {  };

print $A;

281

著者: Philippe "BooK" Bruhat

日:2004-06-30

▶ Run
#!/usr/bin/perl

use LWP::Simple;
eval qq!@{[get("http://paris.mongueurs.net/aplusplus.html")=~/title>([^<]*)/g]}!;

print $A;

282

著者: Olivier Mengué

日:2004-10-27

▶ Run
#!/usr/bin/perl

echo +ACQ-A+-+- | perl -Mencoding=UTF-7;

print $A;

283

著者: Philippe "BooK" Bruhat

日時:2004-10-29

▶ Run
#!/usr/bin/perl

;$A++; # 20g1+20p@;

print $A;

284

著者: Philippe "BooK" Bruhat

日時:2004-10-29

▶ Run
#!/usr/bin/perl

# <@p11+1g11
$A++;

print $A;

285

著者: Olivier Mengué

日時:2004-10-29

▶ Run
#!/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;

286

著者: Andrew Savige

日:2004-11-03

▶ Run
#!/usr/bin/perl

$A-=$----$----$----$----$----!$-;

print $A;

287

日:2004-12-14

▶ Run
#!/usr/bin/perl

use Math::BaseCalc;
$_ = Math::BaseCalc->new(digits=>[split//,'A+$'])->to_base(58) and eval;

print $A;

288

日時:2005-01-27

▶ Run
#!/usr/bin/perl

$A += $^R if "A BUG" =~ /^A(?{1}) (?:BUG(?{#32840}))?$/;

print $A;

289

著者: Vincent Storez

日:2005-05-25

▶ Run
#!/usr/bin/perl

$A += ( $A =~ m+$A$+m );

print $A;

290

著者: Gaal Yahas

日時:2005-06-04

▶ Run
#!/usr/bin/perl

our $A; $::(<A>)++;

print $A;

291

著者: Fabien Venzac

日時:2005-07-28

▶ Run
#!/usr/bin/perl

$A += (@A = split (/\./,`uname -r`))[1] >> $A[0];

print $A;

292

著者: Gilles Arcas

日時:2006-01-29

▶ Run
#!/usr/bin/perl

*_ = *A; s/$/c!0123456789/; 1 while s/9c/c0/; s/^c/0c/; s/(.)c(\d*)!.*\1(.).*/$3$2/;

print $A;

293

著者: Sébastien "Maddingue" Aperghis-Tramoni

日時:2006-08-03

▶ Run
#!/usr/bin/perl

$A += !!(!!($!||!$!)x!!($!||!$!))x!!(!!($!||!$!)x!!($!||!$!));

print $A;

294

著者: Christian Aperghis-Tramoni

日時:2006-11-28

▶ Run
#!/usr/bin/perl

$B = 1;
while (($A ^= $B) and !($A & $B)) {
 $B <<= 1;
};

print $A;

295

著者: Christian Aperghis-Tramoni

日時:2006-11-30

▶ Run
#!/usr/bin/perl

sub s {
  my $n = @_[0];
  ($n)?($n + &s($n-1)):0
}
$A = $A?(&s($A)<<1)/$A:1;

print $A;

296

著者: Damien Krotkine

日時:2007-01-18

▶ Run
#!/usr/bin/perl

$A += !int\\\y////\\\\y////\\\\y////\\\\y///;

print $A;

297

著者: Damien Krotkine

日時:2007-01-18

▶ Run
#!/usr/bin/perl

$A += (\0-\0)/-24;

print $A;

298

著者: Sébastien "Maddingue" Aperghis-Tramoni

日時:2007-01-30

▶ Run
#!/usr/bin/perl

$A+=///////////////////////;

print $A;

299

著者: Sébastien "Maddingue" Aperghis-Tramoni

日時:2007-01-30

▶ Run
#!/usr/bin/perl

(sub{s,^(.*)$,$1+//,e for@_})->($A);

print $A;

300

著者: Christian Aperghis-Tramoni

日時:2007-02-06

▶ Run
#!/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;

301

日:2007-02-07

▶ Run
#!/usr/bin/perl

use Acme::DonMartin;
sittzle shpliple spla pwadak sklork wap splork flif foomp ting rumble
sprizawitz clack;

print $A;

302

日:2007-02-07

▶ Run
#!/usr/bin/perl

use HTTP::Size;
$A += HTTP::Size::get_size('http://www.landgren.net/perl/one-byte.txt');

print $A;

303

日:2007-02-07

▶ Run
#!/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;

304

著者: Philippe "BooK" Bruhat

日:2007-02-07

▶ Run
#!/usr/bin/perl

@ARGV = ( '$c', map { ( $_, '$c.=pop;pop' ) } qw( + + A $ ) );
s//pop/eeeeeee;

print $A;

305

日:2007-02-07

▶ Run
#!/usr/bin/perl

use Inline C => 'int incr(int A) { ++A; return(A); }';
$A = incr($A);

print $A;

306

日:2007-02-07

▶ Run
#!/usr/bin/perl

${(sort grep {$_ eq uc} grep {/\A[^\W_\d]\Z/} keys %::)[0]}++;

print $A;

307

日:2007-02-07

▶ Run
#!/usr/bin/perl

${(sort grep {$_ eq uc} grep {/\A[^\W_\d]\Z/} keys %{
do{__PACKAGE__ if __PACKAGE__ ne 'main'}.'::'})[0]}++;

print $A;

308

日:2007-02-07

▶ Run
#!/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;

309

日時:2007-02-09

▶ Run
#!/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;

その他の記事