Provided by:
manpages-zh_1.5.2-1_all 
NAME
perlstyle - Perl
DESCRIPTION
-w . "no warnings" $^W . "use strict" . "use sigtrap" "use
diagnostics" .
, Larry . , :
o 4-.
o .
o
o .
o .
o .
o .
o "" ().
o .
o else
o
o .
o ( "and" "or" ).
o .
o .
o .
Larry , .
:
o . Perl , .
open(FOO,$foo) || die "Can't open $foo: $!";
die "Can't open $foo: $!" unless open(FOO,$foo);
print "Starting analysis\n" if $verbose;
$verbose && print "Starting analysis\n";
-v
return print reverse sort num values %array;
return print(reverse(sort num (values(%array))));
vi %
o last "" :
LINE:
for (;;) {
statements;
last LINE if $foo;
next LINE if /^#/;
statements;
}
o --. .
o grep() ( map()) `` , . foreach() system() .
o , eval. , $] ( "English" $PERL_VERSION) . "Config" perl
Configure .
o
o $gotit , . $var_names_like_this $VarNamesLikeThis,.
VAR_NAMES_LIKE_THIS
. Perl "pragma" integer strict. .
o :
$ALL_CAPS_HERE ( perl !)
$Some_Caps_Here global/static
$no_caps_here my() local()
. , $obj->as_string().
.
o "/x" . .
o "and" "or" , && ||. "&".
o here documents print() .
o .
$IDX = $ST_MTIME;
$IDX = $ST_ATIME if $opt_u;
$IDX = $ST_CTIME if $opt_c;
$IDX = $ST_SIZE if $opt_s;
mkdir $tmpdir, 0700 or die "can't mkdir $tmpdir: $!";
chdir($tmpdir) or die "can't chdir $tmpdir: $!";
mkdir 'tmp', 0777 or die "can't mkdir $tmpdir/tmp: $!";
o . STDERR, . :
opendir(D, $dir) or die "can't opendir $dir: $!";
o :
tr [abc]
[xyz];
o . . use strict use warnings ( -w) .
o
o
redcandle <redcandle51@chinaren.com> 20010530
http://cmpp.linuxforum.net