m***a
发帖数: 9 | 1 想学习用PERL编写小应用，但不知道从哪里开始学。学语言
据说找个例子看看比较容易入手。哪位大侠能帖一个很简单的
例子么？
比如说：一个文件里存的是10进制的数，想转成16进制，如何
实现？
多谢了。 |
f****n
发帖数: 4615 | 2 网上这种入门的东东多的是， 随便google一下就可以出来N多， 而且简单明了。
“perl tutorial”
【在 m***a 的大作中提到】
: 想学习用PERL编写小应用，但不知道从哪里开始学。学语言
: 据说找个例子看看比较容易入手。哪位大侠能帖一个很简单的
: 例子么？
: 比如说：一个文件里存的是10进制的数，想转成16进制，如何
: 实现？
: 多谢了。
|
l*l
发帖数: 225 | 3 man perl
command perldoc
【在 m***a 的大作中提到】
: 想学习用PERL编写小应用，但不知道从哪里开始学。学语言
: 据说找个例子看看比较容易入手。哪位大侠能帖一个很简单的
: 例子么？
: 比如说：一个文件里存的是10进制的数，想转成16进制，如何
: 实现？
: 多谢了。
|
r*****o
发帖数: 28 | 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 的大作中提到】
: 想学习用PERL编写小应用，但不知道从哪里开始学。学语言
: 据说找个例子看看比较容易入手。哪位大侠能帖一个很简单的
: 例子么？
: 比如说：一个文件里存的是10进制的数，想转成16进制，如何
: 实现？
: 多谢了。
|
p******f
发帖数: 162 | 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*****o
发帖数: 28 | 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******f
发帖数: 162 | 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.
|
