討論區快速選單
知識庫快速選單
手把手帶你Android開發實務 傑米的攝影旅遊筆記 網路投保旅行平安險
[ 回上頁 ] [ 討論區發言規則 ]
關於重覆的日期
更改我的閱讀文章字型大小
作者 : synnex89853(sssssaaaa)
[ 貼文 9 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2012/8/22 下午 11:26:50
大家好 過了幾天 我又遇到了個問題
我需要 找出 日期 需要一定次數的重覆 才能跳下一天

EX

2012/07/23
2012/07/23
2012/07/23
2012/07/24
2012/07/24
2012/07/24
2012/07/25
2012/07/25

須要找出 沒有三次重覆
也就是2012/07/25
只重覆兩次 需要 print 出來
需要怎麼寫呢?
不之到該從何下手
作者 : kunkun(阿昆)
[ 貼文 9 | 人氣 0 | 評價 80 | 評價/貼文 8.89 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2012/8/23 上午 04:53:54
用正規表示式應該就能解決 建議先去研究一下正規表示式的相關資訊~
作者 : synnex89853(sssssaaaa)
[ 貼文 9 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2012/8/29 下午 11:13:36
但是日期需要怎麼變呢
因為數字要變
正規式 中 ($input =~ /(日期){3}/)
需要怎麼改呢?
作者 : jason680(Jsn) 貼文超過200則
[ 貼文 209 | 人氣 1 | 評價 810 | 評價/貼文 3.88 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人synnex89853註記此篇回應為最佳解答 2012/9/9 下午 03:30:59
[code]
use strict;
use warnings;

my $sCnt = 0;
my $sLast = "";
while(<DATA>){
  chomp;
  # next if(m/^\s*(#|$)/);
  if($sLast ne $_){
    print "$sLast\n" if($sCnt >=1 && $sCnt <=2);
    $sCnt = 0;
  }
  $sCnt++;
  $sLast = $_;

}
print "$sLast\n" if($sCnt >=1 && $sCnt <=2);

__DATA__
2012/07/23
2012/07/23
2012/07/23
2012/07/24
2012/07/24
2012/07/24
2012/07/25
2012/07/25
[/code]
作者 : synnex89853(sssssaaaa)
[ 貼文 9 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2012/9/13 上午 01:24:50
可以問一下ne 是什麼嗎
因為我剛入門很多東西都不懂
看了那些網站 卻查不到 不然就是英文 不是很懂
my $sCnt = 0;
my $sLast = ""; 這兩行代表什麼 意思呢
希望可以透漏一下 謝謝 QQ
作者 : kunkun(阿昆)
[ 貼文 9 | 人氣 0 | 評價 80 | 評價/貼文 8.89 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2012/9/13 上午 02:49:54
ne 表"不等於"
eq 表"等於"
 板主 : 徵求中
 > 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.03125