perl中分隔符是|,该怎么分割

kejiake

一个很简单的文件:

aaaa|bbb|ccc
ddd|ee|ff
gf|tt

目的是取第一个字段，代码也简单:
#!/usr/bin/perl

use strict;
open( IN, "test0612.txt" ) || die("txt not find!");
while (<IN>) {
        chomp;
        my @tmp = split ("|");

        print "$tmp[0]\n";
}
close IN;

应该是输出:
aaaa
ddd
gf
可这样就是不行，如果将文件的分隔符改成“,”，代码里也改成“,”，就没有问题。不知是什么原因？

iamlimeng

split /\|/

kejiake

谢谢。| 也算特殊字符要屏蔽。