perl script 求教 (Getopt::Long) - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Programming - 葵花宝典

perl script 求教 (Getopt::Long)

perl script 求教 (Getopt::Long)# Programming - 葵花宝典

W*e2011-11-16 08:11

1 楼

【以下文字转载自 Stock 讨论区】
发信人: Warfare (German==Arschloch), 信区: Stock
标题: 亚洲煤炭基准价下降至13个月低点
发信站: BBS 未名空间站 (Thu Dec 4 07:03:41 2008)
慧聪化工网讯：受中国煤炭库存增加和电力需求下降等消息影响，亚洲煤炭交易的基准
价格——澳大利亚纽卡斯尔港(Newcastle)煤炭报价今天大跌了8.7%，创下了13个月来
的新低。
在全球煤炭价格监测机构globalCOAL NEWC Index制定的煤炭价格指数报告中，纽
卡斯尔港动力煤报价下跌了7.50美元，至78.19美元/吨，与上周相比降幅达8.7%。这是
该报价自2007年10月26日以来创下的最低水平，突显全球经济放缓对煤炭等大宗原材料
商品价格的影响。
澳大利亚麦格里集团(Macquarie Group Ltd)今天发表报告称，作为世界最大的煤
炭生产国和消费国——中国10月份煤炭产量与去年同期相比增加了19%，而发电量与去
年同期相比却下降了5.3%，这导致澳大利亚对华煤炭出口减少。
自今年初以来，纽卡斯尔港煤炭

l*e2011-11-16 08:11

2 楼

最近右眼角一直特别痒，仔细看两只眼睛也看不出什么区别来，就是痒
买什么眼药水或者眼药膏比较好啊？
多谢

L*d2011-11-16 08:11

3 楼

HTC菜鸟求教. 想买一个二手的HTC, 手机GPS两用. budget在$100左右, 请问这样的二
手HTC有哪些推荐? 需要unlock carrier吗? 如果原来没有unlock, 自己能unlock么?
谢谢!

t*y2011-11-16 08:11

4 楼

练习使用Getopt, 写了下面一小段. 运行的command: perl temp.pl -ribo Y,
结果输出是:
temp.pl -ribo at temp.pl line 16.
错在那儿呢?:( 多谢
--------------------------------------------
use strict;
use warnings;
use IO::File;
use Getopt::Long;
my $usage= "temp.pl -ribo ";
my %options=(
ribo => undef
);
&GetOptions(
'ribo=s' => \$options{ribo}
);
die $usage unless (-s $options{ribo});
if ($options{ribo} eq "Y"){print "good-try\n";}
exit;

p*n2011-11-16 08:11

5 楼

山西煤老板的second, third Milks收入会下降吗？

f*w2011-11-16 08:11

6 楼

和unlock无关， windows mobile的都应该可以，不过最重要的应该是要屏幕够大，
不然看都看不清

【在 L******d 的大作中提到】

: HTC菜鸟求教. 想买一个二手的HTC, 手机GPS两用. budget在$100左右, 请问这样的二
: 手HTC有哪些推荐? 需要unlock carrier吗? 如果原来没有unlock, 自己能unlock么?
: 谢谢!

j*a2011-11-16 08:11

7 楼

Change line 16 to:
die $usage unless (exists $options{ribo});

z*e2011-11-16 08:11

8 楼

这轮商品大跌搞死多少人啊。凡是屯货的，死的连毛都不剩了。而且商品多半都是L型
，没个大底，很难段时间就起来了。

【以下文字转载自 Stock 讨论区】
发信人: Warfare (German==Arschloch), 信区: Stock
标题: 亚洲煤炭基准价下降至13个月低点
发信站: BBS 未名空间站 (Thu Dec 4 07:03:41 2008)
慧聪化工网讯：受中国煤炭库存增加和电力需求下降等消息影响，亚洲煤炭交易的基准
价格——澳大利亚纽卡斯尔港(Newcastle)煤炭报价今天大跌了8.7%，创下了13个月来
的新低。
在全球煤炭价格监测机构globalCOAL NEWC Index制定的煤炭价格指数报告中，纽
卡斯尔港动力煤报价下跌了7.50美元，至78.19美元/吨，与上周相比降幅达8.7%。这是
该报价自2007年10月26日以来创下的最低水平，突显全球经济放缓对煤炭等大宗原材料
商品价格的影响。
澳大利亚麦格里集团(Macquarie Group Ltd)今天发表报告称，作为世界最大的煤
炭生产国和消费国——中国10月份煤炭产量与去年同期相比增加

【在 W*****e 的大作中提到】

: 【以下文字转载自 Stock 讨论区】
: 发信人: Warfare (German==Arschloch), 信区: Stock
: 标题: 亚洲煤炭基准价下降至13个月低点
: 发信站: BBS 未名空间站 (Thu Dec 4 07:03:41 2008)
: 慧聪化工网讯：受中国煤炭库存增加和电力需求下降等消息影响，亚洲煤炭交易的基准
: 价格——澳大利亚纽卡斯尔港(Newcastle)煤炭报价今天大跌了8.7%，创下了13个月来
: 的新低。
: 在全球煤炭价格监测机构globalCOAL NEWC Index制定的煤炭价格指数报告中，纽
: 卡斯尔港动力煤报价下跌了7.50美元，至78.19美元/吨，与上周相比降幅达8.7%。这是
: 该报价自2007年10月26日以来创下的最低水平，突显全球经济放缓对煤炭等大宗原材料

l*e2011-11-16 08:11

9 楼

100块，不好买吧！

d*n2011-11-16 08:11

10 楼

He should use "defined",
die $usage unless (defined $options{ribo} );
cause %options already has key ribo.
so exists $options{ribo} is always True.

a*s2011-11-16 08:11

11 楼

年初的时候我二手的att tilt还买了150，现在可能降价了

【在 L******d 的大作中提到】

j*a2011-11-16 08:11

12 楼

Your are right.

【在 d****n 的大作中提到】

: He should use "defined",
: die $usage unless (defined $options{ribo} );
: cause %options already has key ribo.
: so exists $options{ribo} is always True.

L*d2011-11-16 08:11

13 楼

Touch HD屏幕够大, 可惜目前太贵.
看来还是老老实实上个Cx20了.

t*y2011-11-16 08:11

14 楼

多谢, 多谢:). 两种修改都对
die $usage unless (exists $options{ribo});
die $usage unless (defined $options{ribo});
能推荐一些好的Getopt::Long 用法的例子吗?
我用-s是看了别人的例子, 不是很懂为什么......

【在 j*****a 的大作中提到】

: Your are right.

L*d2011-11-16 08:11

15 楼

Titlt/Tytn可以上iGO么? 好像据说没有GPS功能?

【在 a*******s 的大作中提到】

: 年初的时候我二手的att tilt还买了150，现在可能降价了