提兩個(gè)問(wèn)題：判別日期 和 16進(jìn)制提取

wangchick

最近在寫腳本的時(shí)候遇到些問(wèn)題，請(qǐng)能人指點(diǎn)

1. 判別日期
如何才能判斷一個(gè)鍵盤輸入是否1~12（或者1~31）的自然數(shù)？

2.16進(jìn)制提取
一個(gè)string如果是"1001001",我需要把它判別成二進(jìn)制，然后轉(zhuǎn)化成十進(jìn)制進(jìn)行計(jì)算；有時(shí)我又需要將他判別為十六進(jìn)制，然后進(jìn)行計(jì)算，這該如何做？

thanks in advance!

HonestQiao

1~12

1. if ($strSource =~ m/^[0-9]|1[0-2]$/) {
   
2.        
   
3. } else {
   
4.        
   
5. }

復(fù)制代碼

1~31

1. if ($strSource =~ m/^[0-9]|[1-2][0-9]|3[01]$/) {
   
2.        
   
3. } else {
   
4.        
   
5. }
   

復(fù)制代碼

難道怎么判別的沒有規(guī)則么？

wangchick

多謝斑竹!
第一個(gè)問(wèn)題后來(lái)我想能不能這樣做:
grep $input (1..31)

第2個(gè)問(wèn)題我沒說(shuō)清楚，簡(jiǎn)單說(shuō)，我只想將一個(gè)string (比如“1101”)判別為一個(gè)二進(jìn)制數(shù)，而不是一個(gè)文本，該怎么做？
目前我是將他讀進(jìn)來(lái)，然后查表，1101對(duì)應(yīng)13，然后用13進(jìn)行計(jì)算..但這樣太土了吧。。

HonestQiao

[quote]原帖由 "wangchick" 發(fā)表：
多謝斑竹!
第一個(gè)問(wèn)題后來(lái)我想能不能這樣做:
grep $input (1..31)

第2個(gè)問(wèn)題我沒說(shuō)清楚，簡(jiǎn)單說(shuō)，我只想將一個(gè)string (比如“1101”)判別為一個(gè)二進(jìn)制數(shù)，而不是一個(gè)文本，該怎么做？
目前我是將他讀進(jìn)來(lái)，然

怒劍狂嘯

原帖由 "wangchick" 發(fā)表：
多謝斑竹!
第一個(gè)問(wèn)題后來(lái)我想能不能這樣做:
grep $input (1..31)

具有很好的可讀性！
第二個(gè)問(wèn)題的意思不太清楚，是不是想進(jìn)行進(jìn)制轉(zhuǎn)換？我通常是用windows自帶的計(jì)算器做的，是不是也很土？呵呵，你可以試試這句，print oct("0b$a";其中$a為二進(jìn)制串！應(yīng)該還有更簡(jiǎn)潔的辦法，不過(guò)我不知道！

apile

用pack....
給你叁考

1. 
   
2. #!/usr/bin/perl
   
3. $byte=pack('B*','00001101');
   
4. print $byte."\n";
   
5. $byte=unpack('C*',$byte);
   
6. print $byte."\n";
   

復(fù)制代碼

把那四碼數(shù)字..先用sprintf轉(zhuǎn)成8碼..前面補(bǔ)0...
然後用pack..再unpack..就是你要的...

[ 本帖最后由 apile 于 2005-10-31 13:52 編輯 ]

wangchick

原帖由 apile 于 2005-10-27 09:51 發(fā)表
[code]
#!/usr/bin/perl
$byte=pack('B*','00001101');
print $byte."n";
$byte=unpack('C*',$byte);
print $byte."n";
[ ...

我這里看到的格式都不對(duì)了，不知道是不是論壇更新的原因
能否再發(fā)一遍？

apile

新論壇把很多帖子里面的特殊字符都改掉了.....
實(shí)在很難理解....