find_by_tag_name 获取值

node2:/root/pachong/yylc#cat test.html 
     <tr>
                    <th>项目名</th>
                    <th>年利率</th>
                    <th>期　限</th>
                    <th>起购金额</th>
                    <th>进度</th>
                    <th>项目状态</th>
                    <th>操作</th>
                </tr>
                                <tr>
                	<td><div class="fresh"><p class="text-ellipsis-2"><i class="fresh-icon"></i><a href="/detail/31640-260-500-695-5301.htm">房易贷3502号</a></p></div></td>
                    <td>12.00 %</td>
                    <td>15天</td>
                    <td>10.00元</td>
                    <td>
                    	<div class="wyd-list-bar">
                    				                    	<div class="wyd-inner-bar-1" style="99.89%;"></div>
		                                            </div>
                        	                        		<p class="wyd-list-txt">已融资<i>99.89%</i> | 剩余<span>820.00</span>元</p>
                        	                    </td>
                    <td >
                    				            	投标中
			                                </td>
                    <td>
	                    <p class="pro-btn">
	                    					            	<a href="/detail/31640-261-500-003-5499.htm" class="icon-n-sprite icon-n-3" id="Btn">投 标</a>
				            	                    </p>


node2:/root/pachong/yylc#cat t100.pl 
  use  LWP::UserAgent;  
  use POSIX;  
  use HTML::TreeBuilder::XPath;   
  use Encode;   
  use HTML::TreeBuilder;  
   my $tree= HTML::TreeBuilder::XPath->new;  
            $tree->parse_file( "t100.html");
            my @arr1= $tree->find_by_tag_name("tr") ;
            foreach my $row ( @arr1) {  
                my @arr2= $row->content_list;  
      
                my $str1= $arr2[0]->as_text;     
                my $str2= $arr2[1]->as_text;     
                my $str3= $arr2[2]->as_text;     
                my $str4= $arr2[3]->as_text;     
                my $str5= $arr2[4]->as_text;     
                my $str6= $arr2[5]->as_text;     
                print $str1,$str2,$str3,$str4,$str5,$str6."
"; 
                }; 
				
										
node2:/root/pachong/yylc#perl t100.pl 

项目名年利率期　限起购金额进度项目状态
房易贷3502号12.00 %15天10.00元已融资99.89% | 剩余820.00元 投标中