PERLFORM 7

中文man手册

PERLFORM

NAME
DESCRIPTION æè¿°
NOTES
WARNINGS è¦å
ä¸æçç»´æ¤äºº
ä¸æçææ°æ´æ°
ä¸ææåé¡µç¿»è¯è®¡å

NAME

perlform - Perl æ ¼å¼

DESCRIPTION æè¿°

è¾åºæ ¼å¼çè¯æ³å¦ä¸ï¼

format NAME =
FORMLIST
.

	1.		æ³¨éï¼comment), ä»¥ç¬¦å·â#âç½®äºæ¯è¡çå¼å¤´ã
	2.		å¾æ¡è¡(picture line)ï¼è§å®äºåä¸è¡çæ ¼å¼åå¤è§ã
	3.		åæ°è¡, æä¾ä¸äºæ°å¼ä»¥å¯¹åºåé¢çå¾æ¡è¡ã

ä¾å¦ï¼

# a report on the /etc/passwd file
format STDOUT_TOP =
Passwd File
Name Login Office Uid Gid Home
------------------------------------------------------------------
.
format STDOUT =
@<<<<<<<<<<<<<<<<<< @⎪⎪⎪⎪⎪⎪⎪ @<<<<<<@>>>> @>>>> @<<<<<<<<<<<<<<<<<
$name, $login, $office,$uid,$gid, $home
.

# a report from a bug report form
format STDOUT_TOP =
Bug Reports
@<<<<<<<<<<<<<<<<<<<<<<< @⎪⎪⎪ @>>>>>>>>>>>>>>>>>>>>>>>
$system, $%, $date
------------------------------------------------------------------
.
format STDOUT =
Subject: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$subject
Index: @<<<<<<<<<<<<<<<<<<<<<<<<<<<< ˆ<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$index, $description
Priority: @<<<<<<<<<< Date: @<<<<<<< ˆ<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$priority, $date, $description
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ˆ<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$from, $description
Assigned to: @<<<<<<<<<<<<<<<<<<<<<< ˆ<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$programmer, $description
˜ ˆ<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$description
˜ ˆ<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$description
˜ ˆ<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$description
˜ ˆ<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$description
˜ ˆ<<<<<<<<<<<<<<<<<<<<<<<...
$description
.

Format Variables æ ¼å¼åé

å½åçæ ¼å¼åç§°ä¸åé½æ¯å- æ¾äº$˜è¿ä¸ªç¹æ®åéå($FORMAT_NAME)ï¼èæ¯é¡µçå¼å¤´æ ¼å¼åå- æ¾å¨$ˆ($FORMAT-TOP_NAME)ï¼è¾åºé¡µä¸º$%($FORMAT_PAGE_NUMBER)ï¼æ¯é¡µè¡æ°æ¯$= ($FORMAT_LINE_PER_PAGE)ï¼èªå¨è¾åºæ¼å¼æ¯æ¾å¨$⎪($OUTPUT_AUTOFLUSH)ãè¦è¾åºå°æ¯é¡µå¼å¤´é¨ä»½çå- ä¸²åæ¾å¨$ˆL ($FORMAT-FORMFEED)ãè¿äºåéçææèå´ï¼é½æ¯ä»¥æä¸ä¸ªæä»¶å¥æä¸ºååãå æ- ¤ãä½ å¿é¡»è°ç¨select()å½æ°æ¥è°ç¨éå½çæä»¶å¥ææ¥æ¹ååéåå®¹ã

select((select(OUTF),
$˜ = "My_Other_Format",
$ˆ = "My_Top_Format"
)[0]);

$ofh = select(OUTF);
$˜ = "My_Other_Format";
$ˆ = "My_Top_Format";
select($ofh);

å¦æä½ ä½¿ç¨Englishæ¨¡åï¼ä½ çè³å¯ä»¥è¾å¥è±æåéåç§°

use English ’-no_match_vars’;
$ofh = select(OUTF);
$FORMAT_NAME = "My_Other_Format";
$FORMAT_TOP_NAME = "My_Top_Format";
select($ofh);

use FileHandle;
format_name OUTF "My_Other_Format";
format_top_name OUTF "My_Top_Format";

å¥½å¤äºå§ï¼

NOTES

format Ident =
@<<<<<<<<<<<<<<<
&commify($n)
.

å¨æ ä½è¾å¥çæ£ç@ æˆç¬¦å·ï¼

format Ident =
I have an @ here.
"@"
.

å°æ´è¡åç½®ä¸å¯¹é½ï¼

format Ident =
@⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪
"Some text line"
.

$format = "format STDOUT = \n"
. ’ˆ’ . ’<’ x $cols . "\n"
. ’$entry’ . "\n"
. "\tˆ" . "<" x ($cols-8) . "˜˜\n"
. ’$entry’ . "\n"
. ".\n";
print $format if $Debugging;
eval $format;
die $@ if $@;

å®å¯è½åå°åºä¸åæ ¼å¼å¤è²ï¼

format STDOUT =
ˆ<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$entry
ˆ<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<˜˜
$entry
.

ä¸é¢æ¯ä¸ä¸ªæç¹ç±»ä¼¼fmt(1)çå°ç¨å¼ï¼

format =
ˆ<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ˜˜
$_

$/ = ’’;
while (<>) {
s/\s*\n\s*/ /g;
write;
}

Footers é¡µè

Accessing Formatting Internals æ ¼å¼å¤ççæ ¸å¿

è³äºä½é¶æ ¼å¼çæºå¶ï¼ä½ å¯è°ç¨formlin()å½æ°ç´æ¥å¤ç$ˆAåé($ACCUMUNATOR)ã

ä¾å¦ï¼

$str = formline <<’END’, 1,2,3;
@<<< @⎪⎪⎪ @>>>
END

print "Wow, I just stored ‘$ˆA’ in the accumulator!\n";

ææ¯è®¾è®¡ä¸ä¸ªåç¨å¼swrite()ãå®å¯¹äº write çèè²ç¸å½äºsprint å¯¹äº printã

use Carp;
sub swrite {
croak "usage: swrite PICTURE ARGS" unless @_;
my $format = shift;
$ˆA = "";
formline($format,@_);
return $ˆA;
}

$string = swrite(<<’END’, 1, 2, 3);
Check me out
@<<< @⎪⎪⎪ @>>>
END
print $string;

WARNINGS è¦å

$value =˜ tr/\n\t\f/ /; å°å¼ºå¶æ§å¦å°æ°è¡ã

ä¸æçç»´æ¤äºº

å°é«ã<you@email.com>

ä¸æçææ°æ´æ°

2001å¹´12æ9æ¥æææ¥

ä¸ææåé¡µç¿»è¯è®¡å

http://cmpp.linuxforum.net

è·

æ¬é¡µé¢ä¸æçç±ä¸æ man æåé¡µè®¡åæä¾ã
ä¸æ man æåé¡µè®¡åï¼https://github.com/man-pages-zh/manpages-zh

手册导航

man1

man2

man3

man4

man5

man6

man7

man8