perl指定位置输出

Vic_Yu

UID: 11771
帖子: 184
积分: 423
在线时间: 1 天 22 小时

1^# Vic_Yu 发表于 2008-01-02 09:46

perl指定位置输出

有一个文本，内容类似如下：
... ...
aaa = 2008 ao yun hui
bbb = 2009 2009
... ...

这样的一个文本文件，我如何用Perl定位到aaa，然后将等号后面的"2008 ao yun hui"输出呢．请帮忙咯！～！！！！

忘记说啦一点，文本文件是用UNICODE做的．这个怎么解决呢？？？

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

2^# ly5066113 发表于 2008-01-02 10:05

这样行不行呢？
perl -F'=' -lane 'print $F[1] if /^aaa/'

Vic_Yu

UID: 11771
帖子: 184
积分: 423
在线时间: 1 天 22 小时

3^# Vic_Yu 发表于 2008-01-02 10:12

嘿嘿，我看不懂这种方式，有时间的话，讲解具体点，或者用一个其他方式．还有，这个文本是ＵＮＩＣＯＤ编码方式的．

joewish

UID: 17074
帖子: 1
积分: 2
在线时间: 10 分钟

4^# joewish 发表于 2008-01-02 10:15

@a=<>;
foreach(@a){
      s/\.*=$ //;
      print OUT
}

等号忘了该不该用反斜杠忘了
我写的比较弱  期待高手

Vic_Yu

UID: 11771
帖子: 184
积分: 423
在线时间: 1 天 22 小时

5^# Vic_Yu 发表于 2008-01-02 10:23

QUOTE:

原帖由 joewish 于 2008-1-2 10:15 发表
@a=;
foreach(@a){
      s/\.*=$ //;
      print OUT
}

等号忘了该不该用反斜杠忘了
我写的比较弱  期待高手

嘿嘿，似乎代码有一些问题

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

6^# ly5066113 发表于 2008-01-02 10:24

QUOTE:

原帖由 Vic_Yu 于 2008-1-2 10:12 发表
嘿嘿，我看不懂这种方式，有时间的话，讲解具体点，或者用一个其他方式．还有，这个文本是ＵＮＩＣＯＤ编码方式的．

ＵＮＩＣＯＤ编码我不懂，我那个命令后面直接加你的文件名就可以了，试试看。

perl -F'=' -lane 'print $F[1] if /^aaa/' urfile

joewish

UID: 17074
帖子: 1
积分: 2
在线时间: 10 分钟

7^# joewish 发表于 2008-01-02 10:41

@a=<>;
foreach(@a){
s/\.*=$ //;
print OUT
}

句柄一类的我都没给你写我的意思是把你所有 =号左面的连同等号去掉直接把右面输出
你自己可以改变下直接写成^aaa 代替模式

zhangkeyijian

UID: 25387
帖子: 142
积分: 326
在线时间: 1 天 3 小时

8^# zhangkeyijian 发表于 2008-01-02 11:00

Config::INI::Reader
....还有很多
如果你的文本格式像INI文件的话，你就可以用这个模块

Vic_Yu

UID: 11771
帖子: 184
积分: 423
在线时间: 1 天 22 小时

9^# Vic_Yu 发表于 2008-01-02 11:07

QUOTE:

原帖由 zhangkeyijian 于 2008-1-2 11:00 发表
Config::INI::Reader
....还有很多
如果你的文本格式像INI文件的话，你就可以用这个模块

关键是不是呢，是一个ＳＥＲＶＥＲ上跟踪的纪录，我需要知道他里面的具体细节，ＵＮＩＣＯＤＥ是美国公司ＳＥＲＶＥＲ的需求．．．．．．

Vic_Yu

UID: 11771
帖子: 184
积分: 423
在线时间: 1 天 22 小时

10^# Vic_Yu 发表于 2008-01-02 11:11

QUOTE:

原帖由 ly5066113 于 2008-1-2 10:24 发表

ＵＮＩＣＯＤ编码我不懂，我那个命令后面直接加你的文件名就可以了，试试看。

perl -F'=' -lane 'print $F[1] if /^aaa/' urfile

嘿嘿，按照你的意思，但是似乎我这里出错，我是在ＷＩＮＤＯＷＳ环境下运行perl的，错误信息："Bad name after F' at C:\Documents and Settings....."