PERL入门求助# Unix - 噫吁兮，危乎高哉
m*a
1 楼
想学习用PERL编写小应用，但不知道从哪里开始学。学语言
据说找个例子看看比较容易入手。哪位大侠能帖一个很简单的
例子么？
比如说：一个文件里存的是10进制的数，想转成16进制，如何
实现？
多谢了。
据说找个例子看看比较容易入手。哪位大侠能帖一个很简单的
例子么？
比如说：一个文件里存的是10进制的数，想转成16进制，如何
实现？
多谢了。
f*n
2 楼
网上这种入门的东东多的是， 随便google一下就可以出来N多， 而且简单明了。
“perl tutorial”
【在 m***a 的大作中提到】
: 想学习用PERL编写小应用，但不知道从哪里开始学。学语言
: 据说找个例子看看比较容易入手。哪位大侠能帖一个很简单的
: 例子么？
: 比如说：一个文件里存的是10进制的数，想转成16进制，如何
: 实现？
: 多谢了。
“perl tutorial”
【在 m***a 的大作中提到】
: 想学习用PERL编写小应用，但不知道从哪里开始学。学语言
: 据说找个例子看看比较容易入手。哪位大侠能帖一个很简单的
: 例子么？
: 比如说：一个文件里存的是10进制的数，想转成16进制，如何
: 实现？
: 多谢了。
l*l
3 楼
man perl
command perldoc
【在 m***a 的大作中提到】
: 想学习用PERL编写小应用，但不知道从哪里开始学。学语言
: 据说找个例子看看比较容易入手。哪位大侠能帖一个很简单的
: 例子么？
: 比如说：一个文件里存的是10进制的数，想转成16进制，如何
: 实现？
: 多谢了。
command perldoc
【在 m***a 的大作中提到】
: 想学习用PERL编写小应用，但不知道从哪里开始学。学语言
: 据说找个例子看看比较容易入手。哪位大侠能帖一个很简单的
: 例子么？
: 比如说：一个文件里存的是10进制的数，想转成16进制，如何
: 实现？
: 多谢了。
r*o
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进制，如何
: 实现？
: 多谢了。
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
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
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
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",$_);
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
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.
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.
相关阅读
[转载] 问个小问题key map in solarisperls questions //bowAIX/ksh/xterm怎么设置可以在程序退出后恢复原来的屏[转载] "socketbits.h" is in which software?script to restart a process， 巨菜问题欢迎访问操作系统论坛用上箭头键找以前运行过的命令Help about printing through network!how to get date in unix?[转载] C 程序计算结果 在 Unix / Linux 下不同偶的solaris截图在flickr上[转载] 请教: intel fortran 的 segmentation fa[转载] 请推荐一个比较好的c/c++的教程A simple questionsolaris恢复硬盘分区表？Have anyone installed FreeBSD on your PCdos 下有没有相当于 du 的命令?how to uninstll perl?One question on Solaris Emacs