討論區快速選單
知識庫快速選單
政府補助!學嵌入式+物聯網 最紅的App開發語言:Kotlin
[ 回上頁 ] [ 討論區發言規則 ]
關於split切割的問題
更改我的閱讀文章字型大小
作者 : synnex89853(sssssaaaa)
[ 貼文 9 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2012/9/13 上午 01:21:22
open FILE, "<time.txt";
for (<FILE>) {
($s1,$s2)= split (/\s+/,$_);
if ($s2 > $max_so_far){
$max_so_far = $s2;
print "最大值為$max_so_far";
}
close (FILE);}
其中$S2 算是陣列嗎..
因為我要print出來 卻是整個S2都PRINT 不知道問題出在哪裡
我期望他能出現2012/07/21 3221
這個數值
希望大家幫幫我
time.txt如下
2012/07/19 12
2012/07/19 31
2012/07/19 244
2012/07/20 231
2012/07/20 2441
2012/07/20 231
2012/07/21 3221
2012/07/21 323
2012/07/21 0
作者 : xwolf(XWolf)
[ 貼文 1 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/3/20 下午 02:22:45
要先確認 $_ 是字串
再來就是 有沒有需要斷行的問題 有的話先用 split('\n', $_) 分行 再split by space

再來建議用array

my @temp = split(' ', $_);

if ( $temp[1] > $max_so_far )


希望能幫到你
作者 : john0341(johnny)
[ 貼文 17 | 人氣 8 | 評價 50 | 評價/貼文 2.94 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/8/21 上午 08:55:02
這樣應該可以

#!/usr/local/bin/perl
my @max= ("init", 0) ;

open (F, "< time.txt");
for (<F>){
  chomp;
  @tmp = split(/\s+/, $_);
  if ($tmp[1] > $max[1]) {
    @max = @tmp;
  }
}
close(F);
print "The max is ==> " .$max[0]." ".$max[1]."\n";



>open FILE, '<time.txt';
>for (<FILE>) {
>($s1,$s2)= split (/\s+/,$_);
>if ($s2 > $max_so_far){
>$max_so_far = $s2;
>print '最大值為$max_so_far';
>}
>close (FILE);}
>其中$S2 算是陣列嗎..
>因為我要print出來 卻是整個S2都PRINT 不知道問題出在哪裡
>我期望他能出現2012/07/21 3221
>這個數值
>希望大家幫幫我
>time.txt如下
>2012/07/19 12
>2012/07/19 31
>2012/07/19 244
>2012/07/20 231
>2012/07/20 2441
>2012/07/20 231
>2012/07/21 3221
>2012/07/21 323
>2012/07/21 0
作者 : pduh(pduh)
[ 貼文 8 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/10/4 上午 06:25:31
你想要印出最大的那行是嗎?
要先跑完全部才會知道那一行最大。
 板主 : 徵求中
 > Perl - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Perl - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Perl
1 HKLN.net 2850 
2 Benson 480 
3 Jsn 470 
4 pail 240 
5 可愛處理器 170 
6 菜鳥小德 160 
7 mrhsuap 160 
8 kalua 120 
9 110 
10 jackkon 100 
Perl
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.0625