用perl 如何读取txt中的数据？求大侠帮忙
现在要读取txt文件中的数据，内容如下:
-1744891292|2011-11-21 00:00:00|河北|北京|127681
-1742221113|2011-11-21 00:00:00|河北|唐山|121681
我要读取这文件中的数据，取一个值都要单独取出来，放到数据库的一张表里，求助。
[解决办法]
你别这么急嘛，我给你个思路，我用python给你写个流程
假设文件在11.txt里
file = open('11.txt', 'r+')
print file
a = file.read()
print a
result = a.split('|')
print result
print result[0]
print result[1]
print result[2]
剩下的事情，就是你去搜搜 perl 下的read和split 实现了。
