Perl Puzzles Key(standard)
来源:互联网 发布:淘宝联盟电话 编辑:程序博客网 时间:2024/05/23 01:14
Perl Puzzles Key
This is the key for the Perl puzzles. Corrections welcome.
Answers
credit for noting that the two foo's are unrelated.
a b
c and 3
$a is set to the eight character string consisting of foo='/' followed by a newline. $b is set to the eight character string $c='/'/n.
credit for noting that empty line will be printed for empty lines and those consisting solely of the character 0 (zero).
credit for noting that one outcome is that the Perl interpreter may crash if foo doesn't give consistent answers.
The crash possibility was the documented behavior prior to 5.005, but apparently has been at least partially addressed in 5.005. The man page perl5005delta(1) describes sort as now "resistant to inconsistent comparison functions". Strangely, it doesn't describe it as "immune", so this bug may still exist in some form. (Thanks to AP for pointing this out.)
It sets the initial index of arrays.
$x is set to the number 6. $y is set to the string sort.
prints 36
nothing, it's a syntax error. extra credit for noting that a fix is $mt = (stat($file))[8];
credit for noting that it depends on whether @foo exists, and if it does, depends on Perl's complex algorithm or "guess". major extra credit if you actually know the algorithm.
credit for noting that it depends on whether somefunc() is evaluated in a list or scalar context.
credit for noting that it might call handler immediately, depending on how handler is currently defined.
credit for noting that it depends on whether x is currently defined as a sub, whether it was defined with a prototype and which prototype was used.
It reads all lines of the standard input and replaces the second element of @foo with the first line read, discarding the rest of the lines read.
credit for noting that the last doesn't exit the current do/while loop, but rather will exit an enclosing loop (if present) or cause an error.
credit for noting that "exists" will be printed if the key merely exists, whereas the key must have a defined value in the hash in order for "defined" to be printed.
It'll read the first ten lines and never print anything (unless $_ has been defined elsewhere).
It will assign to $f string fooa if a file with that name exists in the current directory, or else it will assign string foob if a file with that name exists in the current directory, or else it will assign string foor if a file with that name exists in the current directory, or else it will assign the empty string.
foo-11-1 or 1-1foo-1
a floating point value corresponding to zero minus the square root of two.
This was supposed to show you how the left "0" would get interpreted as a string and the right "0" interpreted as a number, but perl 5.8.0 (at least) seems to interpret both as numbers, in apparent contradiction to the perlop man page. Major extra credit if you knew that the documentation and implementation of this feature is out of sync.
[The answer was supposed to be "credit for noting that the second expression is a number whose binary representation is all ones (the one's complement of zero, etc.), and for noting that the first expression is a one-character string where the ASCII value for the character is the ASCII value for the zero character with its bits flipped."]
(Thanks to Bob Miller for help with this.)
(The code given in the question doesn't actually do what I thought it did. I actually don't understand what it's doing. If you know, I'd love to hear an explanation.)
55 5 5
credit for noting that length & $print_blanks fails and is not equivalent to, say, length() & $print_blanks.
It prints the first line only.
It sets $sos to the empty string.
© 2001 Mike Coleman
Last modified: Fri Jun 13 23:43:38 CDT 2003
- Perl Puzzles Key(standard)
- key to perl puzzles(from smth)
- 标 题: (zz)Perl Puzzles
- Puzzles
- puzzles
- puzzles
- -Puzzles
- Puzzles
- Puzzles
- Puzzles
- Learning Perl: 5.1. Input from Standard Input
- Learning Perl: 5.4. Output to Standard Output
- Perl Learning: 5.10. Reopening a Standard Filehandle
- Perl Regex: Extract Key Value Pair
- standard
- Word Puzzles
- C puzzles
- C puzzles
- 完成了从Mantis-1.0.0a2到Mantis-1.0.0a3的升级工作
- 如何把一个lib库文件加入到VC.NET项目中去
- Jsp 好的入门文章
- 网络字节顺序 流操作
- [爆笑网文]我终于成材了!一个大学毕业生的学业汇报
- Perl Puzzles Key(standard)
- JAVA & 日期
- 06.06.2005 林大打球日记——鞋底坏了和不在状态
- 自己设计的一个简单高速加密算法
- JSP生成验证码源程序
- JAVA基础知识(1)
- JAVA基础知识(2)
- JAVA基础知识(3)
- JAVA基础知识(4)