50伪币：请教perl代码差错的问题！多谢啦！ - 未名空间MITBBS历史存档

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

Redian新闻

>未名空间

>Programming - 葵花宝典

50伪币：请教perl代码差错的问题！多谢啦！

50伪币：请教perl代码差错的问题！多谢啦！# Programming - 葵花宝典

e*62011-04-28 07:04

1 楼

安必奇生物科技有限公司是一家新型的生物和化学产品研发服务的公司，成立于2005年
，总部位于美国纽约州，是一家创新型企业。公司依托深厚的国际资源背景、经验丰富
的留美科研人员致力于生物产品和化学产品的研发服务，在北京、成都、西安、兰州均
设立有子公司，公司坚持以美国总公司为主导，子公司专业经营的联合运营体系作为公
司高效运营的组织基础，经过几年的不懈努力，公司已初具规模，目前已为300多家国
际领先的制药公司和科研机构提供产品和服务，客户遍布欧美、日本、新加坡等各个国
家，我们奋斗的目标是创立自己的企业品牌，成为全球知名药企。
北京安必奇生物科技有限公司是美国集团总部在国内设立的一家重要的子公司，目前正
处于飞速发展时期，现由于业务发展的需要，招聘以下工作岗位的优秀人才。工作经验
不限。
公司十分重视人才建设，对于优秀人才，年薪在20万以上，对于国外正规大学博士可解
决北京户口。
工作地点：北京、西安
联系人：郝女士
516-858-1159 （美国总部）
E-mail：a*******[email protected]
英语专业人才
职责描述：
1、直接与国外客户联系，维持客户关系
2、销售跟单和售后跟进
3、在美国总部任职联络员
4、领导安排的临时任务
任职资格：
1、英语专业八级；非英语专业六级
2、出色的英语会话和写作能力，有与外国人沟通的经验
3、熟练使用office软件
4、高度责任感和团队精神，吃苦耐劳，能够在压力下高效工作
5、性格开朗，擅长与人打交道
6、有生物或化学行业背景者优先
待遇：
1 工资待遇￥8000/ 月
2 提供赴美培训机会

p*l2011-04-28 07:04

2 楼

请教一下，拿H1B签证的准海龟是不是必须交social security和medicare呢？
每个月扣掉那么多钱，难道等几十年后我还能在中国享受美国的退休福利？？

y*62011-04-28 07:04

3 楼

【以下文字转载自 Mathematics 讨论区】
发信人: netghost (Up to Isomorphism), 信区: Mathematics
标题: Re: 田刚被抓和方静被抓
发信站: BBS 未名空间站 (Fri Jul 17 01:13:36 2009, 美东)
倒是是啥事啊？？？

b*e2011-04-28 07:04

4 楼

是道测试题了，周五早上之前给出答案才有效。
希望有PERL经验的同学指点一下，多谢啦！
There are errors in the following code, both in logic
and in syntax. Find the errors and provide the correct
fixes.
# this function prints something to stdout, unless
# the option parameter is set to STDERR, and then it
# prints out to stderr
sub writeOut
{
my $message = shift;
my $option = shift; #optional
if( $option eq 'STDERR' )
{
print STDERR $message . "\n";
}
else
{
print $message . "\n";
}
}
# this function gets the system UUID, with or without
# dashes depending on the option
sub getUUID()
{
my $option = shift; #optional
my $uuid = "8f5de6fd-5f97-4b27-be35-861c3bbbb1f1";
if( $option eq 'nodash' )
{
$uuid =~ s/-//g;
}
return $uuid;
}

S*Y2011-04-28 07:04

5 楼

yes
no

【在 p***l 的大作中提到】

: 请教一下，拿H1B签证的准海龟是不是必须交social security和medicare呢？
: 每个月扣掉那么多钱，难道等几十年后我还能在中国享受美国的退休福利？？

e*d2011-04-28 07:04

6 楼

Check whether $option is defined or not before doing
the eq comparison.

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

: 是道测试题了，周五早上之前给出答案才有效。
: 希望有PERL经验的同学指点一下，多谢啦！
: There are errors in the following code, both in logic
: and in syntax. Find the errors and provide the correct
: fixes.
: # this function prints something to stdout, unless
: # the option parameter is set to STDERR, and then it
: # prints out to stderr
: sub writeOut
: {

b*n2011-04-28 07:04

7 楼

万米就是通过这种渠道来加倍剥削外来劳力的

【在 p***l 的大作中提到】

: 请教一下，拿H1B签证的准海龟是不是必须交social security和medicare呢？
: 每个月扣掉那么多钱，难道等几十年后我还能在中国享受美国的退休福利？？

b*e2011-04-28 07:04

8 楼

I guess this doesn't matter.
Someone points out that should change eq to ne to get semantically correct.

W*e2011-04-28 07:04

9 楼

H1B holder can not get these taxes back, and sadly you can not get any
benefit even after your retirement if you return to China.

【在 p***l 的大作中提到】

: 请教一下，拿H1B签证的准海龟是不是必须交social security和medicare呢？
: 每个月扣掉那么多钱，难道等几十年后我还能在中国享受美国的退休福利？？

b*e2011-04-28 07:04

10 楼

多谢啦！！！！
这2道题我都搞明白了！
第一个是语义理解上的问题。
第二题是因为
# Functions with a prototype of () are potential candidates for inlining.
# So, it's supposed no arguments.

b*e2011-04-28 07:04

11 楼

# For this function, I think the original one is semantically wrong.
# Based on the description, I think it always needs to print to STDERR.
# However, when the option is not STDERR, it needs to print to STDOUT as
well.
#
# Besides, I may improve it by add some the restrict to input or add more
match pattern to the option, Ex:
# 1. I may trim the $option before compare.
# 1. The input option might be 'stderr', I may modify it to .
# 2. There might no input option, or no input message.
sub my_writeOut
{
my $message = shift;
my $option = shift; #optional

exit 0 if (!$message); # exit if $message is null
if( &trim($option) ne 'STDERR' )
{
print $message . "\n";
}
print STDERR $message . "\n";
}
# Functions with a prototype of () are potential candidates for inlining.
# So, the original one is supposed no arguments.
# Also, I may change the function to get $uuid from input parameters.
# Further, I may use some functions to get the system UUID.
sub my_getUUID
{
my $uuid = shift;
my $option = shift; #optional
# my $uuid = "8f5de6fd-5f97-4b27-be35-861c3bbbb1f1";
exit 0 if (!$uuid); # exit if $uuid is null
if( &trim($option) eq 'nodash' )
{
$uuid =~ s/-//g;
}
return $uuid;
}