2011å¹´06æ09æ¥17:45 ã«ãã´ãªLightweight Languages perl - åæã«æ·»å - each vs. splice ä»ã®ã¯ã¾ããã£ãããã²ããã¡ã é ãeachã®ä»£ããã«ä½¿ãspliceã®ã¡ãªããããã¡ãªãã | ãã«ã«ã¯ï¼ ã§ãä»åã¯é ãeachã使ã代ããã«é«éãªspliceã¯ã©ãã§ãããï¼ã£ã¦è©±ã eachã¨spliceã®éãæ¯è¼ç¨ã³ã¼ã â Gist ããã«ããã£ã¦ãåæåãæ¾ãæãããªãã¦! # ⦠my %mapping = my @mapping = map {$_ => $_} (1..100); # ããã§åæåãã¦ãããã©â¦ cmpthese -1, { splice => sub { while (my ($key, $value) = splice @mapping, 0, 2) {} }, # ⦠}; use strict; us

{{#tags}}- {{label}}
{{/tags}}