PERLSTYLE(7)           Perl Programmers Reference Guide           PERLSTYLE(7)


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

<?>
       <?><?><?><?><?><?><?><?><?> man <?><?><?><?><?><?><?><?>
       <?><?> man <?><?><?><?><?><?>https://github.com/man-pages-zh/manpages-
       zh

perl v5.8.3                       2003-11-25                      PERLSTYLE(7)