~$ uname -a Linux xxxxxxxxx 4.4.0-102-generic #125-Ubuntu SMP Tue Nov 21 15:13:42 +UTC 2017 i686 i686 i686 GNU/Linux $ perl -v This is perl 5, version 22, subversion 1 (v5.22.1) built for i686-linu +x-gnu-thread-multi-64int (with 60 registered patches, see perl -V for more detail) $ perl -MO=Concise -e 'for ($x=0; $x!=100_000_000; ++$x) {}' h <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 1 -e:1) v:{ ->3 5 <2> sassign vKS/2 ->6 3 <$> const[IV 0] s ->4 - <1> ex-rv2sv sKRM*/1 ->5 4 <#> gvsv[*x] s ->5 6 <0> unstack v* ->7 g <2> leaveloop vK/2 ->h 7 <{> enterloop(next->9 last->g redo->8) v ->c - <1> null vK/1 ->g f <|> and(other->8) vK/1 ->g e <2> ne sK/2 ->f - <1> ex-rv2sv sK/1 ->d c <#> gvsv[*x] s ->d d <$> const[IV 100000000] s ->e - <@> lineseq vK ->- - <@> scope vK ->9 8 <0> stub v ->9 a <1> preinc vK/1 ->b - <1> ex-rv2sv sKRM/1 ->a 9 <#> gvsv[*x] s ->a b <0> unstack v ->c
In reply to Re^2: perl process slower and slower when loop number increase
by Anonymous Monk
in thread perl process slower and slower when loop number increase
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |