Changes between Version 16 and Version 17 of Perl

Timestamp:

10/26/06 00:51:26 (18 years ago)

Author:

atzm

Comment:

--

Perl

@@ -446 +446 @@
 $SIG{__WARN__} = \&Carp::cluck;
 }}}
+
+== ステップつきスライス ==
+ * つまるところ Python での {{{list[start:end:step]}}}．
+{{{
+#!perl
+my @array = (100 .. 150);
+my $step  = 3;
+
+print join(", ", &slice(\@array, 0, $#array, $step)), "\n";
+print join(", ", &slice(\@array, 1, $#array, $step)), "\n";
+print join(", ", &slice(\@array, 2, $#array, $step)), "\n";
+
+sub slice($$$$) {
+  my ($array, $start, $end, $step) = @_;
+
+  my @subs = grep { $_ % $step == $start } ($start .. $end);
+
+  return @{$array}[@subs];
+}
+}}}
+ * 実行結果
+{{{
+100, 103, 106, 109, 112, 115, 118, 121, 124, 127, 130, 133, 136, 139, 142, 145, 148
+101, 104, 107, 110, 113, 116, 119, 122, 125, 128, 131, 134, 137, 140, 143, 146, 149
+102, 105, 108, 111, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141, 144, 147, 150
+}}}