- 论坛徽章:
- 0
|
举例说明如下: /etc/paswd 的内容我就不贴了
more testformat.pl
#!/usr/bin/perl
$username;
$realname;
format OUTFILE =
===========================================
| @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
"username:".$username
| @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
"realname:".$realname
====================================
.
open PASS,"/etc/passwd" or die "Can't.";
open OUTFILE,">format.log" or die "Can't.";
while(<PASS>){
chomp;
my @items = split(/:/);
$username = $items[0];
$realname = $items[4];
write (OUTFILE);
}
执行结果为:
===========================================
| username:root |
| realname:root |
====================================
===========================================
| username:bin |
| realname:bin |
====================================
...
而我想要的结果是把 bin呈现在root的后面,即如下格式:
======================================================================================
| username:root || username:bin |
| realname:root || realname:bin |
========================================================================
应该算是没整个思路,主要卡在如何把bin放到第二列里面. 请高手明示该如何做到
[ 本帖最后由 slk3411 于 2009-8-5 22:34 编辑 ] |
|