(defvar cperl-short-docs 'please-ignore-this-line
;; Perl4 version was written by Johan Vromans (jvromans@squirrel.nl)
- "# based on '@(#)@ perl-descr.el 1.9 - describe-perl-symbol' [Perl 5]
-... Range (list context); flip/flop [no flop when flip] (scalar context).
-! ... Logical negation.
-... != ... Numeric inequality.
-... !~ ... Search pattern, substitution, or translation (negated).
-$! In numeric context: errno. In a string context: error string.
-$\" The separator which joins elements of arrays interpolated in strings.
-$# The output format for printed numbers. Default is %.15g or close.
-$$ Process number of this script. Changes in the fork()ed child process.
-$% The current page number of the currently selected output channel.
-
- The following variables are always local to the current block:
-
-$1 Match of the 1st set of parentheses in the last match (auto-local).
-$2 Match of the 2nd set of parentheses in the last match (auto-local).
-$3 Match of the 3rd set of parentheses in the last match (auto-local).
-$4 Match of the 4th set of parentheses in the last match (auto-local).
-$5 Match of the 5th set of parentheses in the last match (auto-local).
-$6 Match of the 6th set of parentheses in the last match (auto-local).
-$7 Match of the 7th set of parentheses in the last match (auto-local).
-$8 Match of the 8th set of parentheses in the last match (auto-local).
-$9 Match of the 9th set of parentheses in the last match (auto-local).
-$& The string matched by the last pattern match (auto-local).
-$' The string after what was matched by the last match (auto-local).
-$` The string before what was matched by the last match (auto-local).
-
-$( The real gid of this process.
-$) The effective gid of this process.
-$* Deprecated: Set to 1 to do multiline matching within a string.
-$+ The last bracket matched by the last search pattern.
-$, The output field separator for the print operator.
-$- The number of lines left on the page.
-$. The current input line number of the last filehandle that was read.
-$/ The input record separator, newline by default.
-$0 Name of the file containing the current perl script (read/write).
-$: String may be broken after these characters to fill ^-lines in a format.
-$; Subscript separator for multi-dim array emulation. Default \"\\034\".
-$< The real uid of this process.
-$= The page length of the current output channel. Default is 60 lines.
-$> The effective uid of this process.
-$? The status returned by the last ``, pipe close or `system'.
-$@ The perl error message from the last eval or do @var{EXPR} command.
-$ARGV The name of the current file used with <> .
-$[ Deprecated: The index of the first element/char in an array/string.
-$\\ The output record separator for the print operator.
-$] The perl version string as displayed with perl -v.
-$^ The name of the current top-of-page format.
-$^A The current value of the write() accumulator for format() lines.
-$^D The value of the perl debug (-D) flags.
-$^E Information about the last system error other than that provided by $!.
-$^F The highest system file descriptor, ordinarily 2.
-$^H The current set of syntax checks enabled by `use strict'.
-$^I The value of the in-place edit extension (perl -i option).
-$^L What formats output to perform a formfeed. Default is \f.
-$^M A buffer for emergency memory allocation when running out of memory.
-$^O The operating system name under which this copy of Perl was built.
-$^P Internal debugging flag.
-$^T The time the script was started. Used by -A/-M/-C file tests.
-$^W True if warnings are requested (perl -w flag).
-$^X The name under which perl was invoked (argv[0] in C-speech).
-$_ The default input and pattern-searching space.
-$| Auto-flush after write/print on current output channel? Default 0.
-$~ The name of the current report format.
-... % ... Modulo division.
-... %= ... Modulo division assignment.
-%ENV Contains the current environment.
-%INC List of files that have been require-d or do-ne.
-%SIG Used to set signal handlers for various signals.
-... & ... Bitwise and.
-... && ... Logical and.
-... &&= ... Logical and assignment.
-... &= ... Bitwise and assignment.
-... * ... Multiplication.
-... ** ... Exponentiation.
-*NAME Glob: all objects refered by NAME. *NAM1 = *NAM2 aliases NAM1 to NAM2.
-&NAME(arg0, ...) Subroutine call. Arguments go to @_.
-... + ... Addition. +EXPR Makes EXPR into scalar context.
-++ Auto-increment (magical on strings). ++EXPR EXPR++
-... += ... Addition assignment.
-, Comma operator.
-... - ... Subtraction.
--- Auto-decrement (NOT magical on strings). --EXPR EXPR--
-... -= ... Subtraction assignment.
--A Access time in days since script started.
--B File is a non-text (binary) file.
--C Inode change time in days since script started.
--M Age in days since script started.
--O File is owned by real uid.
--R File is readable by real uid.
--S File is a socket .
--T File is a text file.
--W File is writable by real uid.
--X File is executable by real uid.
--b File is a block special file.
--c File is a character special file.
--d File is a directory.
--e File exists .
--f File is a plain file.
--g File has setgid bit set.
--k File has sticky bit set.
--l File is a symbolic link.
--o File is owned by effective uid.
--p File is a named pipe (FIFO).
--r File is readable by effective uid.
--s File has non-zero size.
--t Tests if filehandle (STDIN by default) is opened to a tty.
--u File has setuid bit set.
--w File is writable by effective uid.
--x File is executable by effective uid.
--z File has zero size.
-. Concatenate strings.
-.. Range (list context); flip/flop (scalar context) operator.
-.= Concatenate assignment strings
-... / ... Division. /PATTERN/ioxsmg Pattern match
-... /= ... Division assignment.
-/PATTERN/ioxsmg Pattern match.
-... < ... Numeric less than. <pattern> Glob. See <NAME>, <> as well.
-<NAME> Reads line from filehandle NAME (a bareword or dollar-bareword).
-<pattern> Glob (Unless pattern is bareword/dollar-bareword - see <NAME>).
-<> Reads line from union of files in @ARGV (= command line) and STDIN.
-... << ... Bitwise shift left. << start of HERE-DOCUMENT.
-... <= ... Numeric less than or equal to.
-... <=> ... Numeric compare.
-... = ... Assignment.
-... == ... Numeric equality.
-... =~ ... Search pattern, substitution, or translation
-... > ... Numeric greater than.
-... >= ... Numeric greater than or equal to.
-... >> ... Bitwise shift right.
-... >>= ... Bitwise shift right assignment.
-... ? ... : ... Condition=if-then-else operator. ?PAT? One-time pattern match.
-?PATTERN? One-time pattern match.
-@ARGV Command line arguments (not including the command name - see $0).
-@INC List of places to look for perl scripts during do/include/use.
-@_ Parameter array for subroutines; result of split() unless in list context.
-\\ Creates reference to what follows, like \$var, or quotes non-\w in strings.
-\\0 Octal char, e.g. \\033.
-\\E Case modification terminator. See \\Q, \\L, and \\U.
-\\L Lowercase until \\E . See also \l, lc.
-\\U Upcase until \\E . See also \u, uc.
-\\Q Quote metacharacters until \\E . See also quotemeta.
-\\a Alarm character (octal 007).
-\\b Backspace character (octal 010).
-\\c Control character, e.g. \\c[ .
-\\e Escape character (octal 033).
-\\f Formfeed character (octal 014).
-\\l Lowercase the next character. See also \\L and \\u, lcfirst.
-\\n Newline character (octal 012 on most systems).
-\\r Return character (octal 015 on most systems).
-\\t Tab character (octal 011).
-\\u Upcase the next character. See also \\U and \\l, ucfirst.
-\\x Hex character, e.g. \\x1b.
-... ^ ... Bitwise exclusive or.
-__END__ Ends program source.
-__DATA__ Ends program source.
-__FILE__ Current (source) filename.
-__LINE__ Current line in current source.
-__PACKAGE__ Current package.
-ARGV Default multi-file input filehandle. <ARGV> is a synonym for <>.
-ARGVOUT Output filehandle with -i flag.
-BEGIN { ... } Immediately executed (during compilation) piece of code.
-END { ... } Pseudo-subroutine executed after the script finishes.
-CHECK { ... } Pseudo-subroutine executed after the script is compiled.
-INIT { ... } Pseudo-subroutine executed before the script starts running.
-DATA Input filehandle for what follows after __END__ or __DATA__.
-accept(NEWSOCKET,GENERICSOCKET)
-alarm(SECONDS)
-atan2(X,Y)
-bind(SOCKET,NAME)
-binmode(FILEHANDLE)
-caller[(LEVEL)]
-chdir(EXPR)
-chmod(LIST)
-chop[(LIST|VAR)]
-chown(LIST)
-chroot(FILENAME)
-close(FILEHANDLE)
-closedir(DIRHANDLE)
-... cmp ... String compare.
-connect(SOCKET,NAME)
-continue of { block } continue { block }. Is executed after `next' or at end.
-cos(EXPR)
-crypt(PLAINTEXT,SALT)
-dbmclose(%HASH)
-dbmopen(%HASH,DBNAME,MODE)
-defined(EXPR)
-delete($HASH{KEY})
-die(LIST)
-do { ... }|SUBR while|until EXPR executes at least once
-do(EXPR|SUBR([LIST])) (with while|until executes at least once)
-dump LABEL
-each(%HASH)
-endgrent
-endhostent
-endnetent
-endprotoent
-endpwent
-endservent
-eof[([FILEHANDLE])]
-... eq ... String equality.
-eval(EXPR) or eval { BLOCK }
-exec(LIST)
-exit(EXPR)
-exp(EXPR)
-fcntl(FILEHANDLE,FUNCTION,SCALAR)
-fileno(FILEHANDLE)
-flock(FILEHANDLE,OPERATION)
-for (EXPR;EXPR;EXPR) { ... }
-foreach [VAR] (@ARRAY) { ... }
-fork
-... ge ... String greater than or equal.
-getc[(FILEHANDLE)]
-getgrent
-getgrgid(GID)
-getgrnam(NAME)
-gethostbyaddr(ADDR,ADDRTYPE)
-gethostbyname(NAME)
-gethostent
-getlogin
-getnetbyaddr(ADDR,ADDRTYPE)
-getnetbyname(NAME)
-getnetent
-getpeername(SOCKET)
-getpgrp(PID)
-getppid
-getpriority(WHICH,WHO)
-getprotobyname(NAME)
-getprotobynumber(NUMBER)
-getprotoent
-getpwent
-getpwnam(NAME)
-getpwuid(UID)
-getservbyname(NAME,PROTO)
-getservbyport(PORT,PROTO)
-getservent
-getsockname(SOCKET)
-getsockopt(SOCKET,LEVEL,OPTNAME)
-gmtime(EXPR)
-goto LABEL
-... gt ... String greater than.
-hex(EXPR)
-if (EXPR) { ... } [ elsif (EXPR) { ... } ... ] [ else { ... } ] or EXPR if EXPR
-index(STR,SUBSTR[,OFFSET])
-int(EXPR)
-ioctl(FILEHANDLE,FUNCTION,SCALAR)
-join(EXPR,LIST)
-keys(%HASH)
-kill(LIST)
-last [LABEL]
-... le ... String less than or equal.
-length(EXPR)
-link(OLDFILE,NEWFILE)
-listen(SOCKET,QUEUESIZE)
-local(LIST)
-localtime(EXPR)
-log(EXPR)
-lstat(EXPR|FILEHANDLE|VAR)
-... lt ... String less than.
-m/PATTERN/iogsmx
-mkdir(FILENAME,MODE)
-msgctl(ID,CMD,ARG)
-msgget(KEY,FLAGS)
-msgrcv(ID,VAR,SIZE,TYPE.FLAGS)
-msgsnd(ID,MSG,FLAGS)
-my VAR or my (VAR1,...) Introduces a lexical variable ($VAR, @ARR, or %HASH).
-our VAR or our (VAR1,...) Lexically enable a global variable ($V, @A, or %H).
-... ne ... String inequality.
-next [LABEL]
-oct(EXPR)
-open(FILEHANDLE[,EXPR])
-opendir(DIRHANDLE,EXPR)
-ord(EXPR) ASCII value of the first char of the string.
-pack(TEMPLATE,LIST)
-package NAME Introduces package context.
-pipe(READHANDLE,WRITEHANDLE) Create a pair of filehandles on ends of a pipe.
-pop(ARRAY)
-print [FILEHANDLE] [(LIST)]
-printf [FILEHANDLE] (FORMAT,LIST)
-push(ARRAY,LIST)
-q/STRING/ Synonym for 'STRING'
-qq/STRING/ Synonym for \"STRING\"
-qx/STRING/ Synonym for `STRING`
-rand[(EXPR)]
-read(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
-readdir(DIRHANDLE)
-readlink(EXPR)
-recv(SOCKET,SCALAR,LEN,FLAGS)
-redo [LABEL]
-rename(OLDNAME,NEWNAME)
-require [FILENAME | PERL_VERSION]
-reset[(EXPR)]
-return(LIST)
-reverse(LIST)
-rewinddir(DIRHANDLE)
-rindex(STR,SUBSTR[,OFFSET])
-rmdir(FILENAME)
-s/PATTERN/REPLACEMENT/gieoxsm
-scalar(EXPR)
-seek(FILEHANDLE,POSITION,WHENCE)
-seekdir(DIRHANDLE,POS)
-select(FILEHANDLE | RBITS,WBITS,EBITS,TIMEOUT)
-semctl(ID,SEMNUM,CMD,ARG)
-semget(KEY,NSEMS,SIZE,FLAGS)
-semop(KEY,...)
-send(SOCKET,MSG,FLAGS[,TO])
-setgrent
-sethostent(STAYOPEN)
-setnetent(STAYOPEN)
-setpgrp(PID,PGRP)
-setpriority(WHICH,WHO,PRIORITY)
-setprotoent(STAYOPEN)
-setpwent
-setservent(STAYOPEN)
-setsockopt(SOCKET,LEVEL,OPTNAME,OPTVAL)
-shift[(ARRAY)]
-shmctl(ID,CMD,ARG)
-shmget(KEY,SIZE,FLAGS)
-shmread(ID,VAR,POS,SIZE)
-shmwrite(ID,STRING,POS,SIZE)
-shutdown(SOCKET,HOW)
-sin(EXPR)
-sleep[(EXPR)]
-socket(SOCKET,DOMAIN,TYPE,PROTOCOL)
-socketpair(SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL)
-sort [SUBROUTINE] (LIST)
-splice(ARRAY,OFFSET[,LENGTH[,LIST]])
-split[(/PATTERN/[,EXPR[,LIMIT]])]
-sprintf(FORMAT,LIST)
-sqrt(EXPR)
-srand(EXPR)
-stat(EXPR|FILEHANDLE|VAR)
-study[(SCALAR)]
-sub [NAME [(format)]] { BODY } sub NAME [(format)]; sub [(format)] {...}
-substr(EXPR,OFFSET[,LEN])
-symlink(OLDFILE,NEWFILE)
-syscall(LIST)
-sysread(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
-system(LIST)
-syswrite(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
-tell[(FILEHANDLE)]
-telldir(DIRHANDLE)
-time
-times
-tr/SEARCHLIST/REPLACEMENTLIST/cds
-truncate(FILE|EXPR,LENGTH)
-umask[(EXPR)]
-undef[(EXPR)]
-unless (EXPR) { ... } [ else { ... } ] or EXPR unless EXPR
-unlink(LIST)
-unpack(TEMPLATE,EXPR)
-unshift(ARRAY,LIST)
-until (EXPR) { ... } EXPR until EXPR
-utime(LIST)
-values(%HASH)
-vec(EXPR,OFFSET,BITS)
-wait
-waitpid(PID,FLAGS)
-wantarray Returns true if the sub/eval is called in list context.
-warn(LIST)
-while (EXPR) { ... } EXPR while EXPR
-write[(EXPR|FILEHANDLE)]
-... x ... Repeat string or array.
-x= ... Repetition assignment.
-y/SEARCHLIST/REPLACEMENTLIST/
-... | ... Bitwise or.
-... || ... Logical or.
-~ ... Unary bitwise complement.
-#! OS interpreter indicator. If contains `perl', used for options, and -x.
-AUTOLOAD {...} Shorthand for `sub AUTOLOAD {...}'.
-CORE:: Prefix to access builtin function if imported sub obscures it.
-SUPER:: Prefix to lookup for a method in @ISA classes.
-DESTROY Shorthand for `sub DESTROY {...}'.
-... EQ ... Obsolete synonym of `eq'.
-... GE ... Obsolete synonym of `ge'.
-... GT ... Obsolete synonym of `gt'.
-... LE ... Obsolete synonym of `le'.
-... LT ... Obsolete synonym of `lt'.
-... NE ... Obsolete synonym of `ne'.
-abs [ EXPR ] absolute value
-... and ... Low-precedence synonym for &&.
-bless REFERENCE [, PACKAGE] Makes reference into an object of a package.
-chomp [LIST] Strips $/ off LIST/$_. Returns count. Special if $/ eq ''!
-chr Converts a number to char with the same ordinal.
-else Part of if/unless {BLOCK} elsif {BLOCK} else {BLOCK}.
-elsif Part of if/unless {BLOCK} elsif {BLOCK} else {BLOCK}.
-exists $HASH{KEY} True if the key exists.
-format [NAME] = Start of output format. Ended by a single dot (.) on a line.
-formline PICTURE, LIST Backdoor into \"format\" processing.
-glob EXPR Synonym of <EXPR>.
-lc [ EXPR ] Returns lowercased EXPR.
-lcfirst [ EXPR ] Returns EXPR with lower-cased first letter.
-grep EXPR,LIST or grep {BLOCK} LIST Filters LIST via EXPR/BLOCK.
-map EXPR, LIST or map {BLOCK} LIST Applies EXPR/BLOCK to elts of LIST.
-no PACKAGE [SYMBOL1, ...] Partial reverse for `use'. Runs `unimport' method.
-not ... Low-precedence synonym for ! - negation.
-... or ... Low-precedence synonym for ||.
-pos STRING Set/Get end-position of the last match over this string, see \\G.
-quotemeta [ EXPR ] Quote regexp metacharacters.
-qw/WORD1 .../ Synonym of split('', 'WORD1 ...')
-readline FH Synonym of <FH>.
-readpipe CMD Synonym of `CMD`.
-ref [ EXPR ] Type of EXPR when dereferenced.
-sysopen FH, FILENAME, MODE [, PERM] (MODE is numeric, see Fcntl.)
-tie VAR, PACKAGE, LIST Hide an object behind a simple Perl variable.
-tied Returns internal object for a tied data.
-uc [ EXPR ] Returns upcased EXPR.
-ucfirst [ EXPR ] Returns EXPR with upcased first letter.
-untie VAR Unlink an object from a simple Perl variable.
-use PACKAGE [SYMBOL1, ...] Compile-time `require' with consequent `import'.
-... xor ... Low-precedence synonym for exclusive or.
-prototype \&SUB Returns prototype of the function given a reference.
-=head1 Top-level heading.
-=head2 Second-level heading.
-=head3 Third-level heading (is there such?).
-=over [ NUMBER ] Start list.
-=item [ TITLE ] Start new item in the list.
-=back End list.
-=cut Switch from POD to Perl.
-=pod Switch from Perl to POD.
-")
+ "")
(defun cperl-switch-to-doc-buffer ()
"Go to the perl documentation buffer and insert the documentation."