From ad5c9cde750983e406d4c4b9e24abb10f2d44063 Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Wed, 27 May 2020 23:42:46 +0800
Subject: Partial translation of perl tutorial

---
 zh-tw/perl-tw.html.markdown | 348 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 348 insertions(+)
 create mode 100644 zh-tw/perl-tw.html.markdown

(limited to 'zh-tw')

diff --git a/zh-tw/perl-tw.html.markdown b/zh-tw/perl-tw.html.markdown
new file mode 100644
index 00000000..b8daa94d
--- /dev/null
+++ b/zh-tw/perl-tw.html.markdown
@@ -0,0 +1,348 @@
+---
+name: perl
+category: language
+language: perl
+filename: learnperl-tw.pl
+contributors:
+    - ["Korjavin Ivan", "http://github.com/korjavin"]
+    - ["Dan Book", "http://github.com/Grinnz"]
+translators:
+    - ["Kang-min Liu", "https://gugod.org"]
+lang: zh-tw
+---
+
+Perl 5 為超過 25 年以來持續地發展，是具高度能力、豐富機能之程式語言。
+
+自大型主機至攜帶裝置，Perl 5 能於上百種平台上執行，既適於快速打造產品原型、亦合於大規模專案之發展。
+
+
+```perl
+# 註解列皆以井字號為開頭
+
+#### 嚴謹度
+
+use strict;
+use warnings;
+
+# 所有的 perl 程式檔案都應當包含此兩列程式碼。在如變數名稱有拼寫錯誤之時，
+# strict 能使編譯過程失敗。而對於像是將未定義值接到字串中等等易犯之錯誤，
+# warnings 則能提供適當的警告訊息。
+
+#### Perl 變數與其型別
+
+# 變數的開頭皆為一印記（sigil），是為一符號，用以標示其型別。
+# 變數名稱唯有以字母或底線開頭，後接字母、數字、底線若干，方為有效。
+
+### 在 Perl 語言中，主要的變數型別有三種：$純量、@陣列、%雜湊。
+
+## 純量
+#  一個純量變數，只能裝一個值：
+my $animal = "camel";
+my $answer = 42;
+my $display = "You have $answer ${animal}s.\n";
+
+# 純量值可為字串、整數、浮點數。Perl 會自動地在需要之時進行轉換。
+
+# 以單引號括住的字串內容與其字面之值完全相同。而以雙引號括住的字串，其中則能內插變數
+# 與像是表示換列的 "\n" 這種控制碼。
+
+## 陣列
+# 一個陣列，可以裝下很多值：
+my @animals = ("camel", "llama", "owl");
+my @numbers = (23, 42, 69);
+my @mixed   = ("camel", 42, 1.23);
+
+# 陣列元素的存取，需要角括號。前方的印記為 $ 符號，表示只取一個值。
+my $second = $animals[1];
+
+# The size of an array is retrieved by accessing the array in a scalar
+# context, such as assigning it to a scalar variable or using the
+# "scalar" operator.
+
+# 欲知陣列之大小，在純量語境之下使用陣列便可。例如，將陣列裝到一個純量變數中。
+# 又或者是使用 scalar 算符。
+
+my $num_animals = @animals;
+print "Number of numbers: ", scalar(@numbers), "\n";
+
+# 陣列也能夠被安插在雙引號字串之內。各內容元素間隔，預設是一個空白字符。
+
+print "We have these numbers: @numbers\n";
+
+# 雙引號字串中，若有像電子郵件地址的部分，會被視為是在內插某個陣列的內容物。
+# 請稍加留意。
+
+my @example = ('secret', 'array');
+my $oops_email = "foo@example.com"; # 'foosecret array.com'
+my $ok_email = 'foo@example.com';
+
+## Hashes
+#   A hash represents a set of key/value pairs:
+
+my %fruit_color = ("apple", "red", "banana", "yellow");
+
+#  You can use whitespace and the "=>" operator to lay them out more
+#  nicely:
+
+my %fruit_color = (
+  apple  => "red",
+  banana => "yellow",
+);
+
+# Hash elements are accessed using curly braces, again with the $ sigil.
+my $color = $fruit_color{apple};
+
+# All of the keys or values that exist in a hash can be accessed using
+# the "keys" and "values" functions.
+my @fruits = keys %fruit_color;
+my @colors = values %fruit_color;
+
+# Scalars, arrays and hashes are documented more fully in perldata.
+# (perldoc perldata).
+
+#### References
+
+# More complex data types can be constructed using references, which
+# allow you to build arrays and hashes within arrays and hashes.
+
+my $array_ref = \@array;
+my $hash_ref = \%hash;
+my @array_of_arrays = (\@array1, \@array2, \@array3);
+
+# You can also create anonymous arrays or hashes, returning a reference:
+
+my $fruits = ["apple", "banana"];
+my $colors = {apple => "red", banana => "yellow"};
+
+# References can be dereferenced by prefixing the appropriate sigil.
+
+my @fruits_array = @$fruits;
+my %colors_hash = %$colors;
+
+# As a shortcut, the arrow operator can be used to dereference and
+# access a single value.
+
+my $first = $array_ref->[0];
+my $value = $hash_ref->{banana};
+
+# See perlreftut and perlref for more in-depth documentation on
+# references.
+
+#### Conditional and looping constructs
+
+# Perl has most of the usual conditional and looping constructs.
+
+if ($var) {
+  ...
+} elsif ($var eq 'bar') {
+  ...
+} else {
+  ...
+}
+
+unless (condition) {
+  ...
+}
+# This is provided as a more readable version of "if (!condition)"
+
+# the Perlish post-condition way
+print "Yow!" if $zippy;
+print "We have no bananas" unless $bananas;
+
+#  while
+while (condition) {
+  ...
+}
+
+my $max = 5;
+# for loops and iteration
+for my $i (0 .. $max) {
+  print "index is $i";
+}
+
+for my $element (@elements) {
+  print $element;
+}
+
+map {print} @elements;
+
+# implicitly
+
+for (@elements) {
+  print;
+}
+
+# iterating through a hash (for and foreach are equivalent)
+
+foreach my $key (keys %hash) {
+  print $key, ': ', $hash{$key}, "\n";
+}
+
+# the Perlish post-condition way again
+print for @elements;
+
+# iterating through the keys and values of a referenced hash
+print $hash_ref->{$_} for keys %$hash_ref;
+
+#### Regular expressions
+
+# Perl's regular expression support is both broad and deep, and is the
+# subject of lengthy documentation in perlrequick, perlretut, and
+# elsewhere. However, in short:
+
+# Simple matching
+if (/foo/)       { ... }  # true if $_ contains "foo"
+if ($x =~ /foo/) { ... }  # true if $x contains "foo"
+
+# Simple substitution
+
+$x =~ s/foo/bar/;         # replaces foo with bar in $x
+$x =~ s/foo/bar/g;        # replaces ALL INSTANCES of foo with bar in $x
+
+
+#### Files and I/O
+
+# You can open a file for input or output using the "open()" function.
+
+# For reading:
+open(my $in,  "<",  "input.txt")  or die "Can't open input.txt: $!";
+# For writing (clears file if it exists):
+open(my $out, ">",  "output.txt") or die "Can't open output.txt: $!";
+# For writing (appends to end of file):
+open(my $log, ">>", "my.log")     or die "Can't open my.log: $!";
+
+# You can read from an open filehandle using the "<>" operator.  In
+# scalar context it reads a single line from the filehandle, and in list
+# context it reads the whole file in, assigning each line to an element
+# of the list:
+
+my $line  = <$in>;
+my @lines = <$in>;
+
+# You can write to an open filehandle using the standard "print"
+# function.
+
+print $out @lines;
+print $log $msg, "\n";
+
+#### Writing subroutines
+
+# Writing subroutines is easy:
+
+sub logger {
+  my $logmessage = shift;
+
+  open my $logfile, ">>", "my.log" or die "Could not open my.log: $!";
+
+  print $logfile $logmessage;
+}
+
+# Now we can use the subroutine just as any other built-in function:
+
+logger("We have a logger subroutine!");
+
+#### Modules
+
+# A module is a set of Perl code, usually subroutines, which can be used
+# in other Perl code. It is usually stored in a file with the extension
+# .pm so that Perl can find it.
+
+package MyModule;
+use strict;
+use warnings;
+
+sub trim {
+  my $string = shift;
+  $string =~ s/^\s+//;
+  $string =~ s/\s+$//;
+  return $string;
+}
+
+1;
+
+# From elsewhere:
+
+use MyModule;
+MyModule::trim($string);
+
+# The Exporter module can help with making subroutines exportable, so
+# they can be used like this:
+
+use MyModule 'trim';
+trim($string);
+
+# Many Perl modules can be downloaded from CPAN (http://www.cpan.org/)
+# and provide a range of features to help you avoid reinventing the
+# wheel.  A number of popular modules like Exporter are included with
+# the Perl distribution itself. See perlmod for more details on modules
+# in Perl.
+
+#### Objects
+
+# Objects in Perl are just references that know which class (package)
+# they belong to, so that methods (subroutines) called on it can be
+# found there. The bless function is used in constructors (usually new)
+# to set this up. However, you never need to call it yourself if you use
+# a module like Moose or Moo (see below).
+
+package MyCounter;
+use strict;
+use warnings;
+
+sub new {
+  my $class = shift;
+  my $self = {count => 0};
+  return bless $self, $class;
+}
+
+sub count {
+  my $self = shift;
+  return $self->{count};
+}
+
+sub increment {
+  my $self = shift;
+  $self->{count}++;
+}
+
+1;
+
+# Methods can be called on a class or object instance with the arrow
+# operator.
+
+use MyCounter;
+my $counter = MyCounter->new;
+print $counter->count, "\n"; # 0
+$counter->increment;
+print $counter->count, "\n"; # 1
+
+# The modules Moose and Moo from CPAN can help you set up your object
+# classes. They provide a constructor and simple syntax for declaring
+# attributes. This class can be used equivalently to the one above.
+
+package MyCounter;
+use Moo; # imports strict and warnings
+
+has 'count' => (is => 'rwp', default => 0, init_arg => undef);
+
+sub increment {
+  my $self = shift;
+  $self->_set_count($self->count + 1);
+}
+
+1;
+
+# Object-oriented programming is covered more thoroughly in perlootut,
+# and its low-level implementation in Perl is covered in perlobj.
+```
+
+#### FAQ
+
+perlfaq contains questions and answers related to many common tasks, and often provides suggestions for good CPAN modules to use.
+
+#### Further Reading
+
+ - [perl-tutorial](http://perl-tutorial.org/)
+ - [Learn at www.perl.com](http://www.perl.org/learn.html)
+ - [perldoc](http://perldoc.perl.org/)
+ - and perl built-in : `perldoc perlintro`
-- 
cgit v1.2.3


From 6e2693ac6bc04238b86351cc278760da5dac9916 Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Thu, 28 May 2020 08:33:55 +0800
Subject: Translates the section of "Hashes"

---
 zh-tw/perl-tw.html.markdown | 26 ++++++++++----------------
 1 file changed, 10 insertions(+), 16 deletions(-)

(limited to 'zh-tw')

diff --git a/zh-tw/perl-tw.html.markdown b/zh-tw/perl-tw.html.markdown
index b8daa94d..04b58d63 100644
--- a/zh-tw/perl-tw.html.markdown
+++ b/zh-tw/perl-tw.html.markdown
@@ -43,8 +43,8 @@ my $display = "You have $answer ${animal}s.\n";
 
 # 純量值可為字串、整數、浮點數。Perl 會自動地在需要之時進行轉換。
 
-# 以單引號括住的字串內容與其字面之值完全相同。而以雙引號括住的字串，其中則能內插變數
-# 與像是表示換列的 "\n" 這種控制碼。
+# 以單引號括住的字串內容與其字面之值完全相同。而以雙引號括住的字串，
+# 其中則能內插變數與像是這種表示換列字符 "\n" 的控制碼。
 
 ## 陣列
 # 一個陣列，可以裝下很多值：
@@ -55,12 +55,8 @@ my @mixed   = ("camel", 42, 1.23);
 # 陣列元素的存取，需要角括號。前方的印記為 $ 符號，表示只取一個值。
 my $second = $animals[1];
 
-# The size of an array is retrieved by accessing the array in a scalar
-# context, such as assigning it to a scalar variable or using the
-# "scalar" operator.
-
 # 欲知陣列之大小，在純量語境之下使用陣列便可。例如，將陣列裝到一個純量變數中。
-# 又或者是使用 scalar 算符。
+# 又或者是使用 "scalar" 算符。
 
 my $num_animals = @animals;
 print "Number of numbers: ", scalar(@numbers), "\n";
@@ -76,29 +72,27 @@ my @example = ('secret', 'array');
 my $oops_email = "foo@example.com"; # 'foosecret array.com'
 my $ok_email = 'foo@example.com';
 
-## Hashes
-#   A hash represents a set of key/value pairs:
+## 雜湊
+# 一個雜湊，能裝下許多對的鍵與值：
 
 my %fruit_color = ("apple", "red", "banana", "yellow");
 
-#  You can use whitespace and the "=>" operator to lay them out more
-#  nicely:
+# 善用空白與 "=>" 算符，就能將其排得得好看一些：
 
 my %fruit_color = (
   apple  => "red",
   banana => "yellow",
 );
 
-# Hash elements are accessed using curly braces, again with the $ sigil.
+# 雜湊元素的存取，需要大括號。前方的印記仍為 $ 符號，表示只取一個值。
 my $color = $fruit_color{apple};
 
-# All of the keys or values that exist in a hash can be accessed using
-# the "keys" and "values" functions.
+# 以 "keys" 與 "values" 兩個函數，則可一次取得雜湊中的所有鍵、所有值。
 my @fruits = keys %fruit_color;
 my @colors = values %fruit_color;
 
-# Scalars, arrays and hashes are documented more fully in perldata.
-# (perldoc perldata).
+# 關於純量、陣列、雜湊，在 perldata 文件之中，有更完整的描述。
+# (perldoc perldata)
 
 #### References
 
-- 
cgit v1.2.3


From 095c07af91c64e02f4b869f8c74fcddde5f7d6f2 Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Thu, 28 May 2020 23:58:53 +0800
Subject: Fully translated.

---
 zh-tw/perl-tw.html.markdown | 133 +++++++++++++++++++++-----------------------
 1 file changed, 64 insertions(+), 69 deletions(-)

(limited to 'zh-tw')

diff --git a/zh-tw/perl-tw.html.markdown b/zh-tw/perl-tw.html.markdown
index 04b58d63..0286a75d 100644
--- a/zh-tw/perl-tw.html.markdown
+++ b/zh-tw/perl-tw.html.markdown
@@ -94,37 +94,34 @@ my @colors = values %fruit_color;
 # 關於純量、陣列、雜湊，在 perldata 文件之中，有更完整的描述。
 # (perldoc perldata)
 
-#### References
+#### 參照
 
-# More complex data types can be constructed using references, which
-# allow you to build arrays and hashes within arrays and hashes.
+# 以參照能組出結構更為複雜的資料型別。像是在陣列中放入雜湊、在雜湊裡放入陣列的雜湊。
 
 my $array_ref = \@array;
 my $hash_ref = \%hash;
 my @array_of_arrays = (\@array1, \@array2, \@array3);
 
-# You can also create anonymous arrays or hashes, returning a reference:
+# 匿名陣列與匿名雜湊也是參照
 
 my $fruits = ["apple", "banana"];
 my $colors = {apple => "red", banana => "yellow"};
 
-# References can be dereferenced by prefixing the appropriate sigil.
+# 在參照之前補上適當的印記，是為解參照。
 
 my @fruits_array = @$fruits;
 my %colors_hash = %$colors;
 
-# As a shortcut, the arrow operator can be used to dereference and
-# access a single value.
+# 以箭頭算符，便可在解參照同時存取其中一值。
 
 my $first = $array_ref->[0];
 my $value = $hash_ref->{banana};
 
-# See perlreftut and perlref for more in-depth documentation on
-# references.
+# 欲深入了解參照，詳見 perlreftut 與 perlref 兩份文件
 
-#### Conditional and looping constructs
+#### 條件結構與迴圈結構
 
-# Perl has most of the usual conditional and looping constructs.
+# Perl 語言中亦具備常見的條件結講與迴圈結構。
 
 if ($var) {
   ...
@@ -137,9 +134,9 @@ if ($var) {
 unless (condition) {
   ...
 }
-# This is provided as a more readable version of "if (!condition)"
+# 這算是可讀性較好的 "if (!condition)"
 
-# the Perlish post-condition way
+# 倒裝句型算是某「很 Perl 的」寫法
 print "Yow!" if $zippy;
 print "We have no bananas" unless $bananas;
 
@@ -149,7 +146,7 @@ while (condition) {
 }
 
 my $max = 5;
-# for loops and iteration
+# 以 for 迴圈，$i 為迭代變數
 for my $i (0 .. $max) {
   print "index is $i";
 }
@@ -160,68 +157,63 @@ for my $element (@elements) {
 
 map {print} @elements;
 
-# implicitly
-
+# 迭代變數為 $_
 for (@elements) {
   print;
 }
 
-# iterating through a hash (for and foreach are equivalent)
+# 對雜湊進行迭代（for 與 foreach 完全相同）
 
 foreach my $key (keys %hash) {
   print $key, ': ', $hash{$key}, "\n";
 }
 
-# the Perlish post-condition way again
+# 又是「很 Perl 的」倒裝句法
 print for @elements;
 
-# iterating through the keys and values of a referenced hash
+# 對一雜湊參照之中迭代，逐一走過其鍵與值
 print $hash_ref->{$_} for keys %$hash_ref;
 
-#### Regular expressions
-
-# Perl's regular expression support is both broad and deep, and is the
-# subject of lengthy documentation in perlrequick, perlretut, and
-# elsewhere. However, in short:
+#### 正規表示式
 
-# Simple matching
-if (/foo/)       { ... }  # true if $_ contains "foo"
-if ($x =~ /foo/) { ... }  # true if $x contains "foo"
+# Perl 中，對正規表示式的支援既廣亦深，在 perlrequick、perlretut 等各處文件中
+# 都有更加完整的文件。不過，簡而言之：
 
-# Simple substitution
+# 簡易比對
+if (/foo/)       { ... }  # 若 $_ 內含 "foo" 則為真
+if ($x =~ /foo/) { ... }  # 若 $x 內含 "foo" 則為真
 
-$x =~ s/foo/bar/;         # replaces foo with bar in $x
-$x =~ s/foo/bar/g;        # replaces ALL INSTANCES of foo with bar in $x
+# 簡易取代
+$x =~ s/foo/bar/;         # 將 $x 中第一個出現的 foo 換為 bar
+$x =~ s/foo/bar/g;        # 將 $x 中所有出現的 foo 換為 bar
 
+#### 檔案與輸出入
 
-#### Files and I/O
+# 以 "open" 函式開檔後，便可自檔案輸入或對其輸出
 
-# You can open a file for input or output using the "open()" function.
-
-# For reading:
+# 讀檔：
 open(my $in,  "<",  "input.txt")  or die "Can't open input.txt: $!";
-# For writing (clears file if it exists):
+
+# 寫檔（若檔案已經存在，舊內容會被清空）：
 open(my $out, ">",  "output.txt") or die "Can't open output.txt: $!";
-# For writing (appends to end of file):
+
+# 寫檔（若檔案已經存在，會寫到檔尾去）：
 open(my $log, ">>", "my.log")     or die "Can't open my.log: $!";
 
-# You can read from an open filehandle using the "<>" operator.  In
-# scalar context it reads a single line from the filehandle, and in list
-# context it reads the whole file in, assigning each line to an element
-# of the list:
+# 使用 "<>" 算符，能對檔案代號進行讀取。在純量語境下，會自檔案代號讀一列內容。
+# 而在串列語境下，對讀入整個檔案。每一列都會成為串列中一項元素。
 
 my $line  = <$in>;
 my @lines = <$in>;
 
-# You can write to an open filehandle using the standard "print"
-# function.
+# 以 "print" 函式，則可對檔案代號進行輸出。
 
 print $out @lines;
 print $log $msg, "\n";
 
-#### Writing subroutines
+#### 函式之撰寫
 
-# Writing subroutines is easy:
+# 撰寫函式很是容易：
 
 sub logger {
   my $logmessage = shift;
@@ -231,16 +223,19 @@ sub logger {
   print $logfile $logmessage;
 }
 
-# Now we can use the subroutine just as any other built-in function:
+# 之後，使用起來就與內建函式無異：
 
 logger("We have a logger subroutine!");
 
-#### Modules
+#### 模組
 
 # A module is a set of Perl code, usually subroutines, which can be used
 # in other Perl code. It is usually stored in a file with the extension
 # .pm so that Perl can find it.
 
+# 所謂模組，就是一組 Perl 程式碼，由一些函式組成，並可讓其他 Perl 程式碼來利用。
+# 為了讓 perl 能找至，通常模組之副標名為 .pm 。
+
 package MyModule;
 use strict;
 use warnings;
@@ -254,24 +249,21 @@ sub trim {
 
 1;
 
-# From elsewhere:
+# 自他處利用：
 
 use MyModule;
 MyModule::trim($string);
 
-# The Exporter module can help with making subroutines exportable, so
-# they can be used like this:
+# Exporter 模組能將函式出口，好讓它們能被這樣利用：
 
 use MyModule 'trim';
 trim($string);
 
-# Many Perl modules can be downloaded from CPAN (http://www.cpan.org/)
-# and provide a range of features to help you avoid reinventing the
-# wheel.  A number of popular modules like Exporter are included with
-# the Perl distribution itself. See perlmod for more details on modules
-# in Perl.
+# 有許多 Perl 模組能從 CPAN (https://www.cpan.org) 下載下來，各式各樣的機能讓你
+# 能免於重新發明輪子。不少高人氣模組，如 Exporter，則是與 Perl 一同釋出、散佈。
+# 更多關於 Perl 模組的細節，詳見 perlmod 文件。
 
-#### Objects
+#### 物件
 
 # Objects in Perl are just references that know which class (package)
 # they belong to, so that methods (subroutines) called on it can be
@@ -279,6 +271,11 @@ trim($string);
 # to set this up. However, you never need to call it yourself if you use
 # a module like Moose or Moo (see below).
 
+# Perl 中的物件，只是個參照，但同時又知道自己屬於哪個類別（package），於是對自身
+# 調用方法（函式）時方知去何處尋找函式本體。在建構子（通常是 "new"）中，都是以
+# "bless" 函式來標記參照與其類別。只不過，若你使用像 Moose 或 Moo 模組的話，這些
+# 都不必自己來（總之請繼續往下讀）。
+
 package MyCounter;
 use strict;
 use warnings;
@@ -301,21 +298,18 @@ sub increment {
 
 1;
 
-# Methods can be called on a class or object instance with the arrow
-# operator.
-
+# 以箭頭運算符，便可對某類別或某物件呼叫某方法：
 use MyCounter;
 my $counter = MyCounter->new;
 print $counter->count, "\n"; # 0
 $counter->increment;
 print $counter->count, "\n"; # 1
 
-# The modules Moose and Moo from CPAN can help you set up your object
-# classes. They provide a constructor and simple syntax for declaring
-# attributes. This class can be used equivalently to the one above.
+# CPAN 上的 Moose 與 Moo 模組能助你撰寫類別本體。它們提供了建構子，與簡單易懂的
+# 語法能來宣告屬性。前述的類別改寫之後，如下：
 
 package MyCounter;
-use Moo; # imports strict and warnings
+use Moo; # 同時也啟用 strict 與 warnings
 
 has 'count' => (is => 'rwp', default => 0, init_arg => undef);
 
@@ -326,17 +320,18 @@ sub increment {
 
 1;
 
-# Object-oriented programming is covered more thoroughly in perlootut,
-# and its low-level implementation in Perl is covered in perlobj.
+# 物件導向程式設計於 perlootut 文件中有詳盡的說明，同時，perlobj 文件中更函蓋了
+# 底層實做之細節。
 ```
 
-#### FAQ
+#### 常見問答集
 
-perlfaq contains questions and answers related to many common tasks, and often provides suggestions for good CPAN modules to use.
+perlfaq 文件內含了許多問與答，都是關於常遇到的問題與工作，也對其提供一些建議與好
+用的 CPAN 模組。
 
-#### Further Reading
+#### 延伸閱讀
 
  - [perl-tutorial](http://perl-tutorial.org/)
- - [Learn at www.perl.com](http://www.perl.org/learn.html)
+ - [Learn Perl](https://www.perl.org/learn.html)
  - [perldoc](http://perldoc.perl.org/)
- - and perl built-in : `perldoc perlintro`
+ - 內建函式 : `perldoc perlintro`
-- 
cgit v1.2.3


From 63ae3055a02127ed2b9890bb4e72ee925c2994bf Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Fri, 29 May 2020 00:05:12 +0800
Subject: Remove that English paragraph.

---
 zh-tw/perl-tw.html.markdown | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'zh-tw')

diff --git a/zh-tw/perl-tw.html.markdown b/zh-tw/perl-tw.html.markdown
index 0286a75d..86b3ce24 100644
--- a/zh-tw/perl-tw.html.markdown
+++ b/zh-tw/perl-tw.html.markdown
@@ -265,12 +265,6 @@ trim($string);
 
 #### 物件
 
-# Objects in Perl are just references that know which class (package)
-# they belong to, so that methods (subroutines) called on it can be
-# found there. The bless function is used in constructors (usually new)
-# to set this up. However, you never need to call it yourself if you use
-# a module like Moose or Moo (see below).
-
 # Perl 中的物件，只是個參照，但同時又知道自己屬於哪個類別（package），於是對自身
 # 調用方法（函式）時方知去何處尋找函式本體。在建構子（通常是 "new"）中，都是以
 # "bless" 函式來標記參照與其類別。只不過，若你使用像 Moose 或 Moo 模組的話，這些
-- 
cgit v1.2.3


From b9203df246de346ae9d305ba16bd164a76e30a36 Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Fri, 29 May 2020 08:39:07 +0800
Subject: Take the suggestion from @zard1989++

https://twitter.com/zard1989/status/1266074437738213376
---
 zh-tw/perl-tw.html.markdown | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'zh-tw')

diff --git a/zh-tw/perl-tw.html.markdown b/zh-tw/perl-tw.html.markdown
index 86b3ce24..82764d45 100644
--- a/zh-tw/perl-tw.html.markdown
+++ b/zh-tw/perl-tw.html.markdown
@@ -11,10 +11,9 @@ translators:
 lang: zh-tw
 ---
 
-Perl 5 為超過 25 年以來持續地發展，是具高度能力、豐富機能之程式語言。
-
-自大型主機至攜帶裝置，Perl 5 能於上百種平台上執行，既適於快速打造產品原型、亦合於大規模專案之發展。
+Perl 5 是一款強大且功能豐富的程式語言，已經持續發展超過 25 年。
 
+從大型主機到行動裝置，Perl 5 能在上百種平台執行，適合快速打造產品原型，也適合大型專案開發。
 
 ```perl
 # 註解列皆以井字號為開頭
@@ -320,8 +319,7 @@ sub increment {
 
 #### 常見問答集
 
-perlfaq 文件內含了許多問與答，都是關於常遇到的問題與工作，也對其提供一些建議與好
-用的 CPAN 模組。
+perlfaq 是問與答，涵蓋許多常見問題和解法，常常對該用哪些 CPAN 模組有很好的建議。
 
 #### 延伸閱讀
 
-- 
cgit v1.2.3


From 4874b0c0dbca35552b84eb2181512f933f6bafc3 Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Fri, 29 May 2020 08:45:02 +0800
Subject: update the list of translators

---
 zh-tw/perl-tw.html.markdown | 1 +
 1 file changed, 1 insertion(+)

(limited to 'zh-tw')

diff --git a/zh-tw/perl-tw.html.markdown b/zh-tw/perl-tw.html.markdown
index 82764d45..64ea4cab 100644
--- a/zh-tw/perl-tw.html.markdown
+++ b/zh-tw/perl-tw.html.markdown
@@ -8,6 +8,7 @@ contributors:
     - ["Dan Book", "http://github.com/Grinnz"]
 translators:
     - ["Kang-min Liu", "https://gugod.org"]
+    - ["Shih-Kai Chiu", "https://twitter.com/zard1989"]
 lang: zh-tw
 ---
 
-- 
cgit v1.2.3


From 2e397af334d09c7493a6f36f2b847031231dc01e Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Wed, 3 Jun 2020 18:45:15 +0800
Subject: reformat some paragraphs.

... and remove a residual English paragraph that was already
translated.
---
 zh-tw/perl-tw.html.markdown | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

(limited to 'zh-tw')

diff --git a/zh-tw/perl-tw.html.markdown b/zh-tw/perl-tw.html.markdown
index 64ea4cab..55876e2a 100644
--- a/zh-tw/perl-tw.html.markdown
+++ b/zh-tw/perl-tw.html.markdown
@@ -14,7 +14,8 @@ lang: zh-tw
 
 Perl 5 是一款強大且功能豐富的程式語言，已經持續發展超過 25 年。
 
-從大型主機到行動裝置，Perl 5 能在上百種平台執行，適合快速打造產品原型，也適合大型專案開發。
+從大型主機到行動裝置，Perl 5 能在上百種平台執行，適合快速打造產品原型，也適合大
+型專案開發。
 
 ```perl
 # 註解列皆以井字號為開頭
@@ -96,7 +97,8 @@ my @colors = values %fruit_color;
 
 #### 參照
 
-# 以參照能組出結構更為複雜的資料型別。像是在陣列中放入雜湊、在雜湊裡放入陣列的雜湊。
+# 以參照能組出結構更為複雜的資料型別。
+# 像是在陣列中放入雜湊、或是在雜湊裡放入陣列的雜湊。
 
 my $array_ref = \@array;
 my $hash_ref = \%hash;
@@ -229,12 +231,8 @@ logger("We have a logger subroutine!");
 
 #### 模組
 
-# A module is a set of Perl code, usually subroutines, which can be used
-# in other Perl code. It is usually stored in a file with the extension
-# .pm so that Perl can find it.
-
 # 所謂模組，就是一組 Perl 程式碼，由一些函式組成，並可讓其他 Perl 程式碼來利用。
-# 為了讓 perl 能找至，通常模組之副標名為 .pm 。
+# 為了讓 perl 能找至，通常模組之副檔名 .pm 。
 
 package MyModule;
 use strict;
@@ -314,8 +312,8 @@ sub increment {
 
 1;
 
-# 物件導向程式設計於 perlootut 文件中有詳盡的說明，同時，perlobj 文件中更函蓋了
-# 底層實做之細節。
+# 物件導向程式設計於 perlootut 文件中有詳盡的說明。
+# 此外，perlobj 文件中更涵蓋了底層實做之細節。
 ```
 
 #### 常見問答集
-- 
cgit v1.2.3