2007-11-16から1日間の記事一覧
#!/usr/bin/perl use strict; use warnings; my @list = ('apple', 'banana', 'orange'); my @list2 = @list; map { s/a/A/g } @list; print join("\n", @list), "\n\n"; # Apple - bAnAnA - orAnge print join("\n", map { s/a/A/g } @list2), "\n"; # 1 - …