在Perl中，切割字符串很简单。
my ($k, $v) = split(/\t/, $string);
但如果数据中含有不止一个分隔符\t呢，比如这样：
a\tb\tc
此时，需要给spilit第三个参数，一个正整数，表示至多分为多少组。比如我们想只使用第1个分隔符，切分为2部分，则输入2。
my($first, $rest) = split(/\t/, $string, 2);
[......]
Perl中切割字符串 限定分为几组
Leave a reply
Category Archives: Perl
Perl中如何让Hash的值为数组
这涉及到Perl的scalar和Array语境问题。
有问题的代码：
$new_hash{$some_key1} = @some_array1;
foreach($newhash{$some_key1}) {
print $_
}
打印的结果是只输出了一个元素，其值为数组的长度。
这里的问题是，赋值给Hash的Value是数组的长度，需要强制使用数组语境@{$hash{$key}}：
@{$new_hash{$some_key1}} = @some_array[......]
[转]Perl使用Getopt获取命令行参数
代码示例如下：
use Getopt::Std;
my %opt;
getopts('d:f:p', \%opt);
if($opt{p}){
...
}
if($opt{d}){
$dFile=$opt{d};
}
解释一下"d:f:p"，d和f后有冒号，表示-d，-f后面要跟参数。p后面没有冒号，表示-p后面不带参数。
而且-d，-f后所跟的参数分别赋给变量$opt_d和$opt_f。对于变量$opt_p，若命[......]
Perl读书笔记(2)
Learning Perl 6th
Chapter 3 and Chapter 4
1、List是Scalar变量的有序集合，Array是List集合所对应的具体变量（List是数据，Array是对应的存储空间）。
2、与Python类似，Perl的List中变量可以是不同的Scalar元素。
3、Array的定义、下标访问如下：
#!/usr/bin/perl
$a[0] = 1;
$a[1] = "2";
$a[2] = 3;
print[......]
Perl读书笔记(1)
Learning Perl 6th
Chapter 1 and Chapter 2
1、Perl的优点：开发相对快速（比较于C），功能强大，执行效率较高（相对于Python），可移植性。
2、Perl脚本中，直接用`cmd`执行其他Shell命令，类似于SH脚本。
#!/usr/bin/perl
$result=`ls -alh`;
print $result;
3、上述$是scalar变量（标量，单一变量），而@表示Array变量（数组）。
4、Perl支持In[......]