請問在perl該如何做呢?

inmolee

假設有個檔案為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中該如何做呢?

怒剑狂啸

$a="#P 19.38387 14.77658 r20 P 18 0 N ";
@a=(split(/\s+/))[1,2];
print "@a";

inmolee

[quote]原帖由 "怒剑狂啸"]rint "@a";[/quote 发表：


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

iwanthome

$_="#P 19.38387 14.77658 r20 P 18 0 N ";
($str1,$str2)=/\w+\s+(\d+\.\d+)\s+(\d+\.\d+)/
不知道这个是否可行