Chinaunix

标题: 請問在perl該如何做呢? [打印本页]

作者: inmolee 时间: 2003-12-24 12:32
标题: 請問在perl該如何做呢?
假設有個檔案為info.txt,內容如下:
#P 19.38387 14.77658 r20 P 18 0 N
#P 19.43887 14.66908 r20 P 18 0 N
#P 19.28387 14.48658 r20 P 18 0 N
#P 19.66387 14.89158 r20 P 18 0 N
#P 19.28887 14.52658 r20 P 18 0 N
#P 19.52637 15.01158 r20 P 18 0 N

用shell時要取出第二個(19....)及第三個(14....)字串並輸成檔案
grep '^#P' /tmp/info.txt | awk -F' ' '{print $2}' >;>; /tmp/info2.txt
grep '^#P' /tmp/info.txt | awk -F' ' '{print $3}' >;>; /tmp/info3.txt

請問在perl中該如何做呢?

作者: 怒剑狂啸 时间: 2003-12-24 16:26
标题: 請問在perl該如何做呢?
$a="#P 19.38387 14.77658 r20 P 18 0 N ";
@a=(split(/\s+/))[1,2];
print "@a";

作者: inmolee 时间: 2003-12-24 17:20
标题: 請問在perl該如何做呢?
[quote]原帖由 "怒剑狂啸"]rint "@a";[/quote 发表：

謝謝你.........

作者: iwanthome 时间: 2003-12-24 17:36
标题: 請問在perl該如何做呢?
$_="#P 19.38387 14.77658 r20 P 18 0 N ";
($str1,$str2)=/\w+\s+(\d+\.\d+)\s+(\d+\.\d+)/
不知道这个是否可行

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)