PERL入门求助 - 未名空间MITBBS历史存档

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

Redian新闻

>未名空间

>Unix - 噫吁兮，危乎高哉

PERL入门求助

PERL入门求助# Unix - 噫吁兮，危乎高哉

m*a2002-06-28 07:06

1 楼

想学习用PERL编写小应用，但不知道从哪里开始学。学语言
据说找个例子看看比较容易入手。哪位大侠能帖一个很简单的
例子么？
比如说：一个文件里存的是10进制的数，想转成16进制，如何
实现？
多谢了。

f*n2002-06-28 07:06

2 楼

网上这种入门的东东多的是，随便google一下就可以出来N多，而且简单明了。
“perl tutorial”

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

: 想学习用PERL编写小应用，但不知道从哪里开始学。学语言
: 据说找个例子看看比较容易入手。哪位大侠能帖一个很简单的
: 例子么？
: 比如说：一个文件里存的是10进制的数，想转成16进制，如何
: 实现？
: 多谢了。

l*l2002-06-28 07:06

3 楼

man perl
command perldoc

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

r*o2002-06-28 07:06

4 楼

I just started learning Perl, and I've used your question as an exercise. :)
Suppose the data file looks like: And output (to STDOUT) would be:
// This is data // This is data
10 0xa
20 0x14
12 0xc
34 0x22
123 0x7b
Here is my code, may not be good, but it works:
#! /usr/local/bi

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

p*f2002-06-28 07:06

5 楼

nice try, but probably you need s/\$&/\$1/;
a shorter way is:
#!perl -lp
$_=sprintf("0x%x",$_);

【在 r*****o 的大作中提到】

: I just started learning Perl, and I've used your question as an exercise. :)
: Suppose the data file looks like: And output (to STDOUT) would be:
: // This is data // This is data
: 10 0xa
: 20 0x14
: 12 0xc
: 34 0x22
: 123 0x7b
: Here is my code, may not be good, but it works:
: #! /usr/local/bi

r*o2002-06-28 07:06

6 楼

Yeah, you are right, should have used $1 instead of $&
And I didn't know the -lp way, it's much more convenient.
What if I want some leading zeroes in the hex output, like:
0x000a, 0x0014
Is there any easy way to do that?
Thanks.

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

: nice try, but probably you need s/\$&/\$1/;
: a shorter way is:
: #!perl -lp
: $_=sprintf("0x%x",$_);

p*f2002-06-28 07:06

7 楼

"0x%04x" for sprintf
perldoc -f sprintf

【在 r*****o 的大作中提到】

: Yeah, you are right, should have used $1 instead of $&
: And I didn't know the -lp way, it's much more convenient.
: What if I want some leading zeroes in the hex output, like:
: 0x000a, 0x0014
: Is there any easy way to do that?
: Thanks.