作者 主題: 如何判斷奇數或偶數?  (閱讀 8334 次)

0 會員 與 1 訪客 正在閱讀本文。

riche

  • 可愛的小學生
  • *
  • 文章數: 13
    • 檢視個人資料
如何判斷奇數或偶數?
« 於: 2002-09-18 15:16 »
大家好
sorry,對perl不熟
請問在perl要如何判斷奇數或偶數,
我的程式是
#!/usr/bin/perl
open BLAH,"test.txt";
$i=1;
while ()
{
 if ($i eq 奇數)
 {
    ....
  }
  else
  {
   ......
   }
  $i++;
}

我想要對奇數和偶數個別做不同的處理
之前在delphi底下是用2來除,用是否有餘數來判斷.不知perl要如何做?
謝謝大家

日京三子

  • 全區板主
  • 俺是博士!
  • *****
  • 文章數: 8830
    • 檢視個人資料
    • http://www.24online.cjb.net
如何判斷奇數或偶數?
« 回覆 #1 於: 2002-09-18 15:18 »
您好!

沒記錯的話,是將數值抓去除以二;有餘數的,自然就是奇數啦~
哈克不愛的多合一輸入平台----->新香草口味
過去的時間不斷流逝,抹去的眼淚已成追憶;
乾枯的雙手無力阻止,再會了我遠去的曾經。

riche

  • 可愛的小學生
  • *
  • 文章數: 13
    • 檢視個人資料
如何判斷奇數或偶數?
« 回覆 #2 於: 2002-09-18 15:28 »
如果是
$i=1;
$j=$i/2;

$j會是0.5,請問perl要如何知道這個是有小數點的呢,還是他也有求餘數的函數呢?
oh 對了,請問有沒有perl函式庫的書,剛剛去了龍軒沒看到 :-?
謝謝

netman

  • 管理員
  • 俺是博士!
  • *****
  • 文章數: 17464
    • 檢視個人資料
    • http://www.study-area.org
如何判斷奇數或偶數?
« 回覆 #3 於: 2002-09-18 15:38 »
perl 我不知到,若在 bash 中:

i=7
let j=($i % 2)
if [ "$j" = 1 ]; then
echo odd
else
echo even
fi

riche

  • 可愛的小學生
  • *
  • 文章數: 13
    • 檢視個人資料
如何判斷奇數或偶數?
« 回覆 #4 於: 2002-09-18 15:53 »
netman謝謝您
就是這個%

tony

  • 活潑的大學生
  • ***
  • 文章數: 204
    • 檢視個人資料
如何判斷奇數或偶數?
« 回覆 #5 於: 2002-09-19 22:17 »
你也可以用int()函式啦!!
#!/usr/bin/perl
chomp($num=<>);
print "$num is odd.\n" if(int($num/2)!=($num/2));
-=-=-=
Powered by Linux
=-=-=-=-=-=-=-=-=

學飛的小鳥

  • 活潑的大學生
  • ***
  • 文章數: 349
    • 檢視個人資料
如何判斷奇數或偶數?
« 回覆 #6 於: 2002-09-21 14:00 »
我覺得用...

if ($i & 1) { //奇數
...

應該比較清楚, 又簡單 快速... :wink: