Changes between Version 10 and Version 11 of Perl

Timestamp:

09/19/06 21:48:18 (19 years ago)

Author:

atzm

Comment:

--

Perl

@@ -390 +390 @@
 $child->child();
 }}}
+
+== マジカルインクリメント ==
+ * 出展: http://www.takaaki.info/archives/000101.html
+=== "perl" と表示 ===
+{{{
+#!perl
+my $A="a";for(1..285075){$A++;}print"$A";
+}}}
+
+=== "atzm" と表示 ===
+{{{
+#!perl
+my $A="a";for(1..31784){$A++;}print"$A";
+}}}
+
+=== 調べる ===
+{{{
+#!perl
+my $A="a";for(my $i=0;;$i++,$A++){printf'my $A="a";for(1..%d){$A++;}print"$A";%s',$i,"\n"and last if $A eq $ARGV[0];}
+}}}