X7ROOT File Manager
Current Path:
/usr/bin
usr
/
bin
/
ðŸ“
..
📄
7za
(46 B)
📄
GET
(15.84 KB)
📄
Mail
(408.89 KB)
📄
[
(53.67 KB)
📄
aclocal
(35.62 KB)
📄
aclocal-1.16
(35.62 KB)
📄
addr2line
(33.41 KB)
📄
animate
(11.84 KB)
📄
ar
(61.96 KB)
📄
arch
(37.41 KB)
📄
arpaname
(11.82 KB)
📄
as
(889.91 KB)
📄
aspell
(159.5 KB)
📄
at
(1.01 KB)
📄
atq
(1.01 KB)
📄
atrm
(1.02 KB)
📄
autoconf
(14.42 KB)
📄
autoheader
(8.33 KB)
📄
autom4te
(31.43 KB)
📄
automake
(251.9 KB)
📄
automake-1.16
(251.9 KB)
📄
autoreconf
(20.57 KB)
📄
autoscan
(16.72 KB)
📄
autoupdate
(33.08 KB)
📄
awk
(669.77 KB)
📄
b2sum
(57.76 KB)
📄
base32
(41.55 KB)
📄
base64
(41.56 KB)
📄
basename
(37.49 KB)
📄
bash
(1.1 MB)
📄
bashbug-64
(7.18 KB)
📄
batch
(137 B)
📄
bison
(437.72 KB)
📄
bunzip2
(36.86 KB)
📄
bzcat
(36.86 KB)
📄
bzcmp
(2.08 KB)
📄
bzdiff
(2.08 KB)
📄
bzgrep
(1.64 KB)
📄
bzip2
(36.86 KB)
📄
bzip2recover
(16.44 KB)
📄
bzless
(1.23 KB)
📄
bzmore
(1.23 KB)
📄
c++
(1.21 MB)
📄
c++filt
(28.89 KB)
📄
c89
(224 B)
📄
c99
(215 B)
📄
cagefs_enter.proxied
(1.03 KB)
📄
cal
(65.98 KB)
📄
captoinfo
(85.31 KB)
📄
cat
(37.54 KB)
📄
catchsegv
(3.21 KB)
📄
cc
(1.21 MB)
📄
chcon
(70.43 KB)
📄
chgrp
(66.35 KB)
📄
chmod
(62.29 KB)
📄
chown
(70.39 KB)
📄
chrt
(37.18 KB)
📄
cksum
(37.46 KB)
📄
cldetect
(10.35 KB)
📄
clear
(12.54 KB)
📄
clusterdb
(70.23 KB)
📄
cmp
(103.76 KB)
📄
col
(29 KB)
📄
colcrt
(16.48 KB)
📄
colrm
(24.88 KB)
📄
column
(49.47 KB)
📄
comm
(41.63 KB)
📄
compare
(11.85 KB)
📄
composite
(11.84 KB)
📄
conjure
(11.84 KB)
📄
convert
(11.84 KB)
📄
cp
(148.05 KB)
📄
cpan
(8.17 KB)
📄
cpp
(1.21 MB)
📄
createdb
(70.22 KB)
📄
createuser
(74.63 KB)
📄
crontab
(1.36 KB)
📄
crontab.cagefs
(54.16 KB)
📄
csplit
(53.76 KB)
📄
curl
(230.09 KB)
📄
cut
(49.59 KB)
📄
date
(106.03 KB)
📄
dbiprof
(6.06 KB)
📄
dd
(78.05 KB)
📄
delv
(42.46 KB)
📄
df
(91.16 KB)
📄
diff
(268.01 KB)
📄
diff3
(128.6 KB)
📄
dig
(162.19 KB)
📄
dir
(139.97 KB)
📄
dircolors
(49.63 KB)
📄
dirname
(33.44 KB)
📄
display
(11.84 KB)
📄
dnstap-read
(20.43 KB)
📄
dropdb
(66.02 KB)
📄
dropuser
(65.99 KB)
📄
du
(107.1 KB)
📄
easy_install-3
(0 B)
📄
echo
(37.43 KB)
📄
egrep
(28 B)
📄
enc2xs
(40.97 KB)
📄
enchant
(21.08 KB)
📄
enchant-lsmod
(13.09 KB)
📄
env
(41.43 KB)
📄
eps2eps
(639 B)
📄
eqn
(232.16 KB)
📄
ex
(1.13 MB)
📄
expand
(41.66 KB)
📄
expr
(49.65 KB)
📄
factor
(86.05 KB)
📄
false
(33.39 KB)
📄
fc-cache
(132 B)
📄
fc-cache-64
(20.35 KB)
📄
fc-cat
(16.35 KB)
📄
fc-conflist
(12.25 KB)
📄
fc-list
(12.25 KB)
📄
fc-match
(16.26 KB)
📄
fc-pattern
(12.26 KB)
📄
fc-query
(12.24 KB)
📄
fc-scan
(12.26 KB)
📄
fc-validate
(16.26 KB)
📄
fgrep
(28 B)
📄
file
(24.68 KB)
📄
find
(223.3 KB)
📄
flex
(428.45 KB)
📄
flex++
(428.45 KB)
📄
flock
(33.2 KB)
📄
fmt
(45.57 KB)
📄
fold
(41.48 KB)
📄
free
(20.79 KB)
📄
freetype-config
(4.31 KB)
📄
funzip
(36.63 KB)
📄
g++
(1.21 MB)
📄
gawk
(669.77 KB)
📄
gcc
(1.21 MB)
📄
gcc-ar
(36.66 KB)
📄
gcc-nm
(36.66 KB)
📄
gcc-ranlib
(36.66 KB)
📄
gcov
(1.31 MB)
📄
gcov-dump
(570.88 KB)
📄
gcov-tool
(607.75 KB)
📄
gem
(542 B)
📄
gencat
(24.84 KB)
📄
geoiplookup
(21.89 KB)
📄
geoiplookup6
(21.65 KB)
📄
geqn
(232.16 KB)
📄
getconf
(32.46 KB)
📄
getent
(33.13 KB)
📄
getopt
(20.52 KB)
📄
ghostscript
(12.35 KB)
📄
git
(3.67 MB)
📄
git-receive-pack
(3.67 MB)
📄
git-shell
(2.13 MB)
📄
git-upload-archive
(3.67 MB)
📄
git-upload-pack
(3.67 MB)
📄
gm
(7.82 KB)
📄
gmake
(235.32 KB)
📄
gneqn
(908 B)
📄
gnroff
(3.23 KB)
📄
gpg
(1.04 MB)
📄
gpg-agent
(419.29 KB)
📄
gpg-error
(34.16 KB)
📄
gpg-zip
(3.44 KB)
📄
gpgsplit
(87.02 KB)
📄
gpgv
(451.58 KB)
📄
gpic
(293.84 KB)
📄
gprof
(103.36 KB)
📄
grep
(193.63 KB)
📄
groff
(124.92 KB)
📄
grops
(191.14 KB)
📄
grotty
(141.9 KB)
📄
groups
(37.47 KB)
📄
gs
(12.35 KB)
📄
gsnd
(277 B)
📄
gsoelim
(42.55 KB)
📄
gtar
(448.99 KB)
📄
gtbl
(154.61 KB)
📄
gtroff
(805.02 KB)
📄
gunzip
(2.29 KB)
📄
gzexe
(6.23 KB)
📄
gzip
(94.67 KB)
📄
h2ph
(28.69 KB)
📄
h2xs
(59.44 KB)
📄
head
(45.58 KB)
📄
hexdump
(57.5 KB)
📄
host
(142.3 KB)
📄
hostid
(33.41 KB)
📄
hostname
(21.16 KB)
📄
hunspell
(144.7 KB)
📄
iconv
(61.44 KB)
📄
id
(45.52 KB)
📄
identify
(11.84 KB)
📄
idn
(39.41 KB)
📄
ifnames
(4.03 KB)
📄
import
(11.84 KB)
📄
infocmp
(61.05 KB)
📄
infotocap
(85.31 KB)
📄
install
(156.25 KB)
📄
instmodsh
(4.1 KB)
📄
ionice
(28.98 KB)
📄
ipcrm
(28.99 KB)
📄
ipcs
(53.39 KB)
📄
isosize
(24.88 KB)
📄
ispell
(988 B)
📄
join
(53.77 KB)
📄
kill
(37.27 KB)
📄
ld
(1.71 MB)
📄
ld.bfd
(1.71 MB)
📄
ldd
(5.31 KB)
📄
less
(173.76 KB)
📄
lessecho
(12.4 KB)
📄
lesskey
(21.99 KB)
📄
lesspipe.sh
(3.07 KB)
📄
lex
(428.45 KB)
📄
libnetcfg
(15.41 KB)
📄
libtool
(359.11 KB)
📄
libtoolize
(126.17 KB)
📄
link
(33.41 KB)
📄
ln
(70.57 KB)
📄
locale
(56.45 KB)
📄
localedef
(307.47 KB)
📄
logger
(49.98 KB)
📄
login
(40.96 KB)
📄
logname
(33.42 KB)
📄
look
(16.45 KB)
📄
ls
(139.97 KB)
📄
lynx
(1.84 MB)
📄
m4
(185.56 KB)
📄
mail
(408.89 KB)
📄
mailx
(408.89 KB)
📄
make
(235.32 KB)
📄
make-dummy-cert
(610 B)
📄
mariadb
(4.34 MB)
📄
mariadb-access
(109.34 KB)
📄
mariadb-admin
(3.88 MB)
📄
mariadb-binlog
(4.14 MB)
📄
mariadb-check
(3.88 MB)
📄
mariadb-dump
(3.96 MB)
📄
mariadb-find-rows
(3.21 KB)
📄
mariadb-import
(3.87 MB)
📄
mariadb-show
(3.87 MB)
📄
mariadb-waitpid
(3.56 MB)
📄
mc
(1.3 MB)
📄
mcdiff
(1.3 MB)
📄
mcedit
(1.3 MB)
📄
mcookie
(33.26 KB)
📄
mcview
(1.3 MB)
📄
md5sum
(45.62 KB)
📄
mesg
(16.36 KB)
📄
mkdir
(82.79 KB)
📄
mkfifo
(66.56 KB)
📄
mknod
(70.55 KB)
📄
mktemp
(45.73 KB)
📄
mogrify
(11.84 KB)
📄
montage
(11.84 KB)
📄
more
(44.94 KB)
📄
msql2mysql
(1.41 KB)
📄
mv
(144.03 KB)
📄
my_print_defaults
(3.56 MB)
📄
mysql
(4.34 MB)
📄
mysql_config
(4.6 KB)
📄
mysql_find_rows
(3.21 KB)
📄
mysql_waitpid
(3.56 MB)
📄
mysqlaccess
(109.34 KB)
📄
mysqladmin
(3.88 MB)
📄
mysqlbinlog
(4.14 MB)
📄
mysqlcheck
(3.88 MB)
📄
mysqldump
(3.96 MB)
📄
mysqlimport
(3.87 MB)
📄
mysqlshow
(3.87 MB)
📄
namei
(33.1 KB)
📄
nano
(247.94 KB)
📄
neqn
(908 B)
📄
nice
(37.41 KB)
📄
nl
(45.63 KB)
📄
nm
(50.38 KB)
📄
nohup
(37.48 KB)
📄
nproc
(37.48 KB)
📄
nroff
(3.23 KB)
📄
nslookup
(146.26 KB)
📄
nsupdate
(73.05 KB)
📄
numfmt
(65.71 KB)
📄
objcopy
(240.07 KB)
📄
objdump
(419.76 KB)
📄
od
(73.88 KB)
📄
openssl
(745.95 KB)
📄
pango-list
(11.88 KB)
📄
pango-view
(57.44 KB)
📄
passwd
(1.02 KB)
📄
paste
(37.46 KB)
📄
patch
(206.46 KB)
📄
pathchk
(37.41 KB)
📄
pdf2dsc
(698 B)
📄
pdf2ps
(909 B)
📄
perl
(12.44 KB)
📄
perl5.26.3
(12.44 KB)
📄
perlbug
(44.39 KB)
📄
perldoc
(118 B)
📄
perlivp
(10.56 KB)
📄
perlml
(6.86 KB)
📄
perlthanks
(44.39 KB)
📄
pg_dump
(399.43 KB)
📄
pg_dumpall
(107.11 KB)
📄
pg_restore
(173.34 KB)
📄
pgrep
(28.84 KB)
📄
php
(937 B)
📄
pic
(293.84 KB)
📄
piconv
(8.08 KB)
📄
pinentry
(2.35 KB)
📄
pinentry-curses
(77.89 KB)
📄
ping
(66.13 KB)
📄
pinky
(41.53 KB)
📄
pip-3
(0 B)
📄
pip3
(0 B)
📄
pkg-config
(40.04 KB)
📄
pkgconf
(40.04 KB)
📄
pkill
(28.84 KB)
📄
pl2pm
(4.43 KB)
📄
pmap
(32.78 KB)
📄
pod2html
(4.04 KB)
📄
pod2man
(14.68 KB)
📄
pod2text
(10.55 KB)
📄
pod2usage
(3.86 KB)
📄
podchecker
(3.57 KB)
📄
podselect
(2.47 KB)
📄
post-grohtml
(238.73 KB)
📄
pr
(82.23 KB)
📄
pre-grohtml
(130.55 KB)
📄
precat
(5.52 KB)
📄
preunzip
(5.52 KB)
📄
prezip
(5.52 KB)
📄
prezip-bin
(11.98 KB)
📄
printenv
(33.4 KB)
📄
printf
(53.64 KB)
📄
prove
(13.24 KB)
📄
ps
(134.75 KB)
📄
ps2ascii
(631 B)
📄
ps2epsi
(2.69 KB)
📄
ps2pdf
(272 B)
📄
ps2pdf12
(215 B)
📄
ps2pdf13
(215 B)
📄
ps2pdf14
(215 B)
📄
ps2pdfwr
(1.07 KB)
📄
ps2ps
(647 B)
📄
ps2ps2
(669 B)
📄
psql
(644.33 KB)
📄
ptx
(78.07 KB)
📄
pwd
(37.5 KB)
📄
pwdx
(12.68 KB)
📄
pydoc-3
(0 B)
📄
pydoc3
(0 B)
📄
python2
(7.84 KB)
📄
python2.7
(7.84 KB)
📄
python3
(11.59 KB)
📄
python3.6
(11.59 KB)
📄
python3.6m
(11.59 KB)
📄
pyvenv-3
(0 B)
📄
ranlib
(61.98 KB)
📄
raw
(16.49 KB)
📄
readelf
(624.54 KB)
📄
readlink
(45.96 KB)
📄
realpath
(50.02 KB)
📄
recode
(47.03 KB)
📄
reindexdb
(70.32 KB)
📄
rename
(16.5 KB)
📄
renew-dummy-cert
(725 B)
📄
renice
(16.46 KB)
📄
reset
(24.76 KB)
📄
rev
(12.45 KB)
📄
rm
(70.47 KB)
📄
rmdir
(45.54 KB)
📄
rnano
(247.94 KB)
📄
rsync
(510.15 KB)
📄
ruby
(11.84 KB)
📄
run-with-aspell
(85 B)
📄
runcon
(37.45 KB)
📄
rvi
(1.13 MB)
📄
rview
(1.13 MB)
📄
rvim
(2.93 MB)
📄
scalar
(2.18 MB)
📄
scl
(36.87 KB)
📄
scl_enabled
(258 B)
📄
scl_source
(1.82 KB)
📄
scp
(102.85 KB)
📄
screen
(482.46 KB)
📄
script
(36.79 KB)
📄
sdiff
(105.33 KB)
📄
sed
(115.48 KB)
📄
selectorctl
(7.63 KB)
📄
seq
(53.52 KB)
📄
setsid
(16.38 KB)
📄
setterm
(45.12 KB)
📄
sftp
(159.74 KB)
📄
sh
(1.1 MB)
📄
sha1sum
(45.63 KB)
📄
sha224sum
(45.66 KB)
📄
sha256sum
(45.66 KB)
📄
sha384sum
(45.66 KB)
📄
sha512sum
(45.66 KB)
📄
shred
(61.94 KB)
📄
shuf
(58.16 KB)
📄
size
(33.25 KB)
📄
skill
(28.8 KB)
📄
slabtop
(20.84 KB)
📄
sleep
(37.47 KB)
📄
snice
(28.8 KB)
📄
soelim
(42.55 KB)
📄
sort
(123.55 KB)
📄
spell
(122 B)
📄
splain
(18.7 KB)
📄
split
(58.13 KB)
📄
sprof
(28.67 KB)
📄
sqlite3
(1.28 MB)
📄
ssh
(757.54 KB)
📄
ssh-add
(346.13 KB)
📄
ssh-agent
(325.58 KB)
📄
ssh-copy-id
(10.44 KB)
📄
ssh-keygen
(427.16 KB)
📄
ssh-keyscan
(428.57 KB)
📄
stat
(86.23 KB)
📄
stdbuf
(49.58 KB)
📄
strace
(1.94 MB)
📄
stream
(11.83 KB)
📄
strings
(37.43 KB)
📄
strip
(240.09 KB)
📄
stty
(77.68 KB)
📄
sum
(45.61 KB)
📄
sync
(37.43 KB)
📄
tabs
(16.55 KB)
📄
tac
(41.57 KB)
📄
tail
(74.2 KB)
📄
tar
(448.99 KB)
📄
taskset
(37.25 KB)
📄
tbl
(154.61 KB)
📄
tclsh
(9.04 KB)
📄
tclsh8.6
(9.04 KB)
📄
tee
(41.55 KB)
📄
test
(53.63 KB)
📄
tic
(85.31 KB)
📄
timeout
(41.93 KB)
📄
tload
(16.76 KB)
📄
tmpwatch
(35.47 KB)
📄
toe
(16.45 KB)
📄
top
(121.7 KB)
📄
touch
(94.02 KB)
📄
tput
(24.8 KB)
📄
tr
(49.7 KB)
📄
traceroute
(70.97 KB)
📄
troff
(805.02 KB)
📄
true
(33.4 KB)
📄
truncate
(41.44 KB)
📄
tset
(24.76 KB)
📄
tsort
(41.57 KB)
📄
tty
(33.39 KB)
📄
tzselect
(15.01 KB)
📄
uapi
(1.02 KB)
📄
ul
(20.58 KB)
📄
uname
(37.41 KB)
📄
unexpand
(45.68 KB)
📄
uniq
(49.72 KB)
📄
unlink
(33.41 KB)
📄
unversioned-python
(0 B)
📄
unzip
(201.88 KB)
📄
unzipsfx
(101.48 KB)
📄
uptime
(12.59 KB)
📄
users
(37.47 KB)
📄
utmpdump
(28.66 KB)
📄
vacuumdb
(78.46 KB)
📄
vdir
(139.97 KB)
📄
vi
(1.13 MB)
📄
view
(1.13 MB)
📄
vim
(2.93 MB)
📄
vimdiff
(2.93 MB)
📄
vimtutor
(2.07 KB)
📄
vmstat
(36.79 KB)
📄
watch
(29.19 KB)
📄
wc
(49.72 KB)
📄
wget
(521.41 KB)
📄
whereis
(29.27 KB)
📄
which
(29.44 KB)
📄
who
(53.68 KB)
📄
whoami
(33.41 KB)
📄
word-list-compress
(11.99 KB)
📄
x86_64-redhat-linux-c++
(1.21 MB)
📄
x86_64-redhat-linux-g++
(1.21 MB)
📄
x86_64-redhat-linux-gcc
(1.21 MB)
📄
x86_64-redhat-linux-gcc-8
(1.21 MB)
📄
xargs
(74.11 KB)
📄
xmlcatalog
(20.38 KB)
📄
xmllint
(73.37 KB)
📄
xmlwf
(32.96 KB)
📄
xsltproc
(28.47 KB)
📄
xsubpp
(4.96 KB)
📄
xxd
(20.52 KB)
📄
yes
(33.45 KB)
📄
zcat
(1.94 KB)
📄
zcmp
(1.64 KB)
📄
zdiff
(5.74 KB)
📄
zegrep
(29 B)
📄
zfgrep
(29 B)
📄
zforce
(2.03 KB)
📄
zgrep
(7.4 KB)
📄
zip
(229 KB)
📄
zipcloak
(102.91 KB)
📄
zipgrep
(2.88 KB)
📄
zipinfo
(201.88 KB)
📄
zipnote
(97.76 KB)
📄
zipsplit
(97.76 KB)
📄
zless
(2.15 KB)
📄
zmore
(1.8 KB)
📄
znew
(4.45 KB)
📄
zsoelim
(42.55 KB)
Editing: splain
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if $running_under_some_shell; BEGIN { pop @INC if $INC[-1] eq '.' } =head1 NAME diagnostics, splain - produce verbose warning diagnostics =head1 SYNOPSIS Using the C<diagnostics> pragma: use diagnostics; use diagnostics -verbose; enable diagnostics; disable diagnostics; Using the C<splain> standalone filter program: perl program 2>diag.out splain [-v] [-p] diag.out Using diagnostics to get stack traces from a misbehaving script: perl -Mdiagnostics=-traceonly my_script.pl =head1 DESCRIPTION =head2 The C<diagnostics> Pragma This module extends the terse diagnostics normally emitted by both the perl compiler and the perl interpreter (from running perl with a -w switch or C<use warnings>), augmenting them with the more explicative and endearing descriptions found in L<perldiag>. Like the other pragmata, it affects the compilation phase of your program rather than merely the execution phase. To use in your program as a pragma, merely invoke use diagnostics; at the start (or near the start) of your program. (Note that this I<does> enable perl's B<-w> flag.) Your whole compilation will then be subject(ed :-) to the enhanced diagnostics. These still go out B<STDERR>. Due to the interaction between runtime and compiletime issues, and because it's probably not a very good idea anyway, you may not use C<no diagnostics> to turn them off at compiletime. However, you may control their behaviour at runtime using the disable() and enable() methods to turn them off and on respectively. The B<-verbose> flag first prints out the L<perldiag> introduction before any other diagnostics. The $diagnostics::PRETTY variable can generate nicer escape sequences for pagers. Warnings dispatched from perl itself (or more accurately, those that match descriptions found in L<perldiag>) are only displayed once (no duplicate descriptions). User code generated warnings a la warn() are unaffected, allowing duplicate user messages to be displayed. This module also adds a stack trace to the error message when perl dies. This is useful for pinpointing what caused the death. The B<-traceonly> (or just B<-t>) flag turns off the explanations of warning messages leaving just the stack traces. So if your script is dieing, run it again with perl -Mdiagnostics=-traceonly my_bad_script to see the call stack at the time of death. By supplying the B<-warntrace> (or just B<-w>) flag, any warnings emitted will also come with a stack trace. =head2 The I<splain> Program While apparently a whole nuther program, I<splain> is actually nothing more than a link to the (executable) F<diagnostics.pm> module, as well as a link to the F<diagnostics.pod> documentation. The B<-v> flag is like the C<use diagnostics -verbose> directive. The B<-p> flag is like the $diagnostics::PRETTY variable. Since you're post-processing with I<splain>, there's no sense in being able to enable() or disable() processing. Output from I<splain> is directed to B<STDOUT>, unlike the pragma. =head1 EXAMPLES The following file is certain to trigger a few errors at both runtime and compiletime: use diagnostics; print NOWHERE "nothing\n"; print STDERR "\n\tThis message should be unadorned.\n"; warn "\tThis is a user warning"; print "\nDIAGNOSTIC TESTER: Please enter a <CR> here: "; my $a, $b = scalar <STDIN>; print "\n"; print $x/$y; If you prefer to run your program first and look at its problem afterwards, do this: perl -w test.pl 2>test.out ./splain < test.out Note that this is not in general possible in shells of more dubious heritage, as the theoretical (perl -w test.pl >/dev/tty) >& test.out ./splain < test.out Because you just moved the existing B<stdout> to somewhere else. If you don't want to modify your source code, but still have on-the-fly warnings, do this: exec 3>&1; perl -w test.pl 2>&1 1>&3 3>&- | splain 1>&2 3>&- Nifty, eh? If you want to control warnings on the fly, do something like this. Make sure you do the C<use> first, or you won't be able to get at the enable() or disable() methods. use diagnostics; # checks entire compilation phase print "\ntime for 1st bogus diags: SQUAWKINGS\n"; print BOGUS1 'nada'; print "done with 1st bogus\n"; disable diagnostics; # only turns off runtime warnings print "\ntime for 2nd bogus: (squelched)\n"; print BOGUS2 'nada'; print "done with 2nd bogus\n"; enable diagnostics; # turns back on runtime warnings print "\ntime for 3rd bogus: SQUAWKINGS\n"; print BOGUS3 'nada'; print "done with 3rd bogus\n"; disable diagnostics; print "\ntime for 4th bogus: (squelched)\n"; print BOGUS4 'nada'; print "done with 4th bogus\n"; =head1 INTERNALS Diagnostic messages derive from the F<perldiag.pod> file when available at runtime. Otherwise, they may be embedded in the file itself when the splain package is built. See the F<Makefile> for details. If an extant $SIG{__WARN__} handler is discovered, it will continue to be honored, but only after the diagnostics::splainthis() function (the module's $SIG{__WARN__} interceptor) has had its way with your warnings. There is a $diagnostics::DEBUG variable you may set if you're desperately curious what sorts of things are being intercepted. BEGIN { $diagnostics::DEBUG = 1 } =head1 BUGS Not being able to say "no diagnostics" is annoying, but may not be insurmountable. The C<-pretty> directive is called too late to affect matters. You have to do this instead, and I<before> you load the module. BEGIN { $diagnostics::PRETTY = 1 } I could start up faster by delaying compilation until it should be needed, but this gets a "panic: top_level" when using the pragma form in Perl 5.001e. While it's true that this documentation is somewhat subserious, if you use a program named I<splain>, you should expect a bit of whimsy. =head1 AUTHOR Tom Christiansen <F<tchrist@mox.perl.com>>, 25 June 1995. =cut use strict; use 5.009001; use Carp; $Carp::Internal{__PACKAGE__.""}++; our $VERSION = '1.36'; our $DEBUG; our $VERBOSE; our $PRETTY; our $TRACEONLY = 0; our $WARNTRACE = 0; use Config; use Text::Tabs 'expand'; my $privlib = $Config{privlibexp}; if ($^O eq 'VMS') { require VMS::Filespec; $privlib = VMS::Filespec::unixify($privlib); } my @trypod = ( "$privlib/pod/perldiag.pod", "$privlib/pods/perldiag.pod", ); # handy for development testing of new warnings etc unshift @trypod, "./pod/perldiag.pod" if -e "pod/perldiag.pod"; (my $PODFILE) = ((grep { -e } @trypod), $trypod[$#trypod])[0]; $DEBUG ||= 0; local $| = 1; local $_; local $.; my $standalone; my(%HTML_2_Troff, %HTML_2_Latin_1, %HTML_2_ASCII_7); CONFIG: { our $opt_p = our $opt_d = our $opt_v = our $opt_f = ''; unless (caller) { $standalone++; require Getopt::Std; Getopt::Std::getopts('pdvf:') or die "Usage: $0 [-v] [-p] [-f splainpod]"; $PODFILE = $opt_f if $opt_f; $DEBUG = 2 if $opt_d; $VERBOSE = $opt_v; $PRETTY = $opt_p; } if (open(POD_DIAG, '<', $PODFILE)) { warn "Happy happy podfile from real $PODFILE\n" if $DEBUG; last CONFIG; } if (caller) { INCPATH: { for my $file ( (map { "$_/".__PACKAGE__.".pm" } @INC), $0) { warn "Checking $file\n" if $DEBUG; if (open(POD_DIAG, '<', $file)) { while (<POD_DIAG>) { next unless /^__END__\s*# wish diag dbase were more accessible/; print STDERR "podfile is $file\n" if $DEBUG; last INCPATH; } } } } } else { print STDERR "podfile is <DATA>\n" if $DEBUG; *POD_DIAG = *main::DATA; } } if (eof(POD_DIAG)) { die "couldn't find diagnostic data in $PODFILE @INC $0"; } %HTML_2_Troff = ( 'amp' => '&', # ampersand 'lt' => '<', # left chevron, less-than 'gt' => '>', # right chevron, greater-than 'quot' => '"', # double quote "Aacute" => "A\\*'", # capital A, acute accent # etc ); %HTML_2_Latin_1 = ( 'amp' => '&', # ampersand 'lt' => '<', # left chevron, less-than 'gt' => '>', # right chevron, greater-than 'quot' => '"', # double quote "Aacute" => "\xC1" # capital A, acute accent # etc ); %HTML_2_ASCII_7 = ( 'amp' => '&', # ampersand 'lt' => '<', # left chevron, less-than 'gt' => '>', # right chevron, greater-than 'quot' => '"', # double quote "Aacute" => "A" # capital A, acute accent # etc ); our %HTML_Escapes; *HTML_Escapes = do { if ($standalone) { $PRETTY ? \%HTML_2_Latin_1 : \%HTML_2_ASCII_7; } else { \%HTML_2_Latin_1; } }; *THITHER = $standalone ? *STDOUT : *STDERR; my %transfmt = (); my $transmo = <<EOFUNC; sub transmo { #local \$^W = 0; # recursive warnings we do NOT need! EOFUNC my %msg; my $over_level = 0; # We look only at =item lines at the first =over level { print STDERR "FINISHING COMPILATION for $_\n" if $DEBUG; local $/ = ''; local $_; my $header; my @headers; my $for_item; my $seen_body; while (<POD_DIAG>) { sub _split_pod_link { $_[0] =~ m'(?:([^|]*)\|)?([^/]*)(?:/("?)(.*)\3)?'s; ($1,$2,$4); } unescape(); if ($PRETTY) { sub noop { return $_[0] } # spensive for a noop sub bold { my $str =$_[0]; $str =~ s/(.)/$1\b$1/g; return $str; } sub italic { my $str = $_[0]; $str =~ s/(.)/_\b$1/g; return $str; } s/C<<< (.*?) >>>|C<< (.*?) >>|[BC]<(.*?)>/bold($+)/ges; s/[IF]<(.*?)>/italic($1)/ges; s/L<(.*?)>/ my($text,$page,$sect) = _split_pod_link($1); defined $text ? $text : defined $sect ? italic($sect) . ' in ' . italic($page) : italic($page) /ges; s/S<(.*?)>/ $1 /ges; } else { s/C<<< (.*?) >>>|C<< (.*?) >>|[BC]<(.*?)>/$+/gs; s/[IF]<(.*?)>/$1/gs; s/L<(.*?)>/ my($text,$page,$sect) = _split_pod_link($1); defined $text ? $text : defined $sect ? qq '"$sect" in $page' : $page /ges; s/S<(.*?)>/ $1 /ges; } unless (/^=/) { if (defined $header) { if ( $header eq 'DESCRIPTION' && ( /Optional warnings are enabled/ || /Some of these messages are generic./ ) ) { next; } $_ = expand $_; s/^/ /gm; $msg{$header} .= $_; for my $h(@headers) { $msg{$h} .= $_ } ++$seen_body; undef $for_item; } next; } # If we have not come across the body of the description yet, then # the previous header needs to share the same description. if ($seen_body) { @headers = (); } else { push @headers, $header if defined $header; } if ( ! s/=item (.*?)\s*\z//s || $over_level != 1) { if ( s/=head1\sDESCRIPTION//) { $msg{$header = 'DESCRIPTION'} = ''; undef $for_item; } elsif( s/^=for\s+diagnostics\s*\n(.*?)\s*\z// ) { $for_item = $1; } elsif( /^=over\b/ ) { $over_level++; } elsif( /^=back\b/ ) { # Stop processing body here $over_level--; if ($over_level == 0) { undef $header; undef $for_item; $seen_body = 0; next; } } next; } if( $for_item ) { $header = $for_item; undef $for_item } else { $header = $1; $header =~ s/\n/ /gs; # Allow multi-line headers } # strip formatting directives from =item line $header =~ s/[A-Z]<(.*?)>/$1/g; # Since we strip "(\.\s*)\n" when we search a warning, strip it here as well $header =~ s/(\.\s*)?$//; my @toks = split( /(%l?[dxX]|%[ucp]|%(?:\.\d+)?[fs])/, $header ); if (@toks > 1) { my $conlen = 0; for my $i (0..$#toks){ if( $i % 2 ){ if( $toks[$i] eq '%c' ){ $toks[$i] = '.'; } elsif( $toks[$i] =~ /^%(?:d|u)$/ ){ $toks[$i] = '\d+'; } elsif( $toks[$i] =~ '^%(?:s|.*f)$' ){ $toks[$i] = $i == $#toks ? '.*' : '.*?'; } elsif( $toks[$i] =~ '%.(\d+)s' ){ $toks[$i] = ".{$1}"; } elsif( $toks[$i] =~ '^%l*([pxX])$' ){ $toks[$i] = $1 eq 'X' ? '[\dA-F]+' : '[\da-f]+'; } } elsif( length( $toks[$i] ) ){ $toks[$i] = quotemeta $toks[$i]; $conlen += length( $toks[$i] ); } } my $lhs = join( '', @toks ); $lhs =~ s/(\\\s)+/\\s+/g; # Replace lit space with multi-space match $transfmt{$header}{pat} = " s^\\s*$lhs\\s*\Q$header\Es\n\t&& return 1;\n"; $transfmt{$header}{len} = $conlen; } else { my $lhs = "\Q$header\E"; $lhs =~ s/(\\\s)+/\\s+/g; # Replace lit space with multi-space match $transfmt{$header}{pat} = " s^\\s*$lhs\\s*\Q$header\E\n\t && return 1;\n"; $transfmt{$header}{len} = length( $header ); } print STDERR __PACKAGE__.": Duplicate entry: \"$header\"\n" if $msg{$header}; $msg{$header} = ''; $seen_body = 0; } close POD_DIAG unless *main::DATA eq *POD_DIAG; die "No diagnostics?" unless %msg; # Apply patterns in order of decreasing sum of lengths of fixed parts # Seems the best way of hitting the right one. for my $hdr ( sort { $transfmt{$b}{len} <=> $transfmt{$a}{len} } keys %transfmt ){ $transmo .= $transfmt{$hdr}{pat}; } $transmo .= " return 0;\n}\n"; print STDERR $transmo if $DEBUG; eval $transmo; die $@ if $@; } if ($standalone) { if (!@ARGV and -t STDIN) { print STDERR "$0: Reading from STDIN\n" } while (defined (my $error = <>)) { splainthis($error) || print THITHER $error; } exit; } my $olddie; my $oldwarn; sub import { shift; $^W = 1; # yup, clobbered the global variable; # tough, if you want diags, you want diags. return if defined $SIG{__WARN__} && ($SIG{__WARN__} eq \&warn_trap); for (@_) { /^-d(ebug)?$/ && do { $DEBUG++; next; }; /^-v(erbose)?$/ && do { $VERBOSE++; next; }; /^-p(retty)?$/ && do { print STDERR "$0: I'm afraid it's too late for prettiness.\n"; $PRETTY++; next; }; # matches trace and traceonly for legacy doc mixup reasons /^-t(race(only)?)?$/ && do { $TRACEONLY++; next; }; /^-w(arntrace)?$/ && do { $WARNTRACE++; next; }; warn "Unknown flag: $_"; } $oldwarn = $SIG{__WARN__}; $olddie = $SIG{__DIE__}; $SIG{__WARN__} = \&warn_trap; $SIG{__DIE__} = \&death_trap; } sub enable { &import } sub disable { shift; return unless $SIG{__WARN__} eq \&warn_trap; $SIG{__WARN__} = $oldwarn || ''; $SIG{__DIE__} = $olddie || ''; } sub warn_trap { my $warning = $_[0]; if (caller eq __PACKAGE__ or !splainthis($warning)) { if ($WARNTRACE) { print STDERR Carp::longmess($warning); } else { print STDERR $warning; } } goto &$oldwarn if defined $oldwarn and $oldwarn and $oldwarn ne \&warn_trap; }; sub death_trap { my $exception = $_[0]; # See if we are coming from anywhere within an eval. If so we don't # want to explain the exception because it's going to get caught. my $in_eval = 0; my $i = 0; while (my $caller = (caller($i++))[3]) { if ($caller eq '(eval)') { $in_eval = 1; last; } } splainthis($exception) unless $in_eval; if (caller eq __PACKAGE__) { print STDERR "INTERNAL EXCEPTION: $exception"; } &$olddie if defined $olddie and $olddie and $olddie ne \&death_trap; return if $in_eval; # We don't want to unset these if we're coming from an eval because # then we've turned off diagnostics. # Switch off our die/warn handlers so we don't wind up in our own # traps. $SIG{__DIE__} = $SIG{__WARN__} = ''; $exception =~ s/\n(?=.)/\n\t/gas; die Carp::longmess("__diagnostics__") =~ s/^__diagnostics__.*?line \d+\.?\n/ "Uncaught exception from user code:\n\t$exception" /re; # up we go; where we stop, nobody knows, but i think we die now # but i'm deeply afraid of the &$olddie guy reraising and us getting # into an indirect recursion loop }; my %exact_duplicate; my %old_diag; my $count; my $wantspace; sub splainthis { return 0 if $TRACEONLY; for (my $tmp = shift) { local $\; local $!; ### &finish_compilation unless %msg; s/(\.\s*)?\n+$//; my $orig = $_; # return unless defined; # get rid of the where-are-we-in-input part s/, <.*?> (?:line|chunk).*$//; # Discard 1st " at <file> line <no>" and all text beyond # but be aware of messages containing " at this-or-that" my $real = 0; my @secs = split( / at / ); return unless @secs; $_ = $secs[0]; for my $i ( 1..$#secs ){ if( $secs[$i] =~ /.+? (?:line|chunk) \d+/ ){ $real = 1; last; } else { $_ .= ' at ' . $secs[$i]; } } # remove parenthesis occurring at the end of some messages s/^\((.*)\)$/$1/; if ($exact_duplicate{$orig}++) { return &transmo; } else { return 0 unless &transmo; } my $short = shorten($orig); if ($old_diag{$_}) { autodescribe(); print THITHER "$short (#$old_diag{$_})\n"; $wantspace = 1; } elsif (!$msg{$_} && $orig =~ /\n./s) { # A multiline message, like "Attempt to reload / # Compilation failed" my $found; for (split /^/, $orig) { splainthis($_) and $found = 1; } return $found; } else { autodescribe(); $old_diag{$_} = ++$count; print THITHER "\n" if $wantspace; $wantspace = 0; print THITHER "$short (#$old_diag{$_})\n"; if ($msg{$_}) { print THITHER $msg{$_}; } else { if (0 and $standalone) { print THITHER " **** Error #$old_diag{$_} ", ($real ? "is" : "appears to be"), " an unknown diagnostic message.\n\n"; } return 0; } } return 1; } } sub autodescribe { if ($VERBOSE and not $count) { print THITHER &{$PRETTY ? \&bold : \&noop}("DESCRIPTION OF DIAGNOSTICS"), "\n$msg{DESCRIPTION}\n"; } } sub unescape { s { E< ( [A-Za-z]+ ) > } { do { exists $HTML_Escapes{$1} ? do { $HTML_Escapes{$1} } : do { warn "Unknown escape: E<$1> in $_"; "E<$1>"; } } }egx; } sub shorten { my $line = $_[0]; if (length($line) > 79 and index($line, "\n") == -1) { my $space_place = rindex($line, ' ', 79); if ($space_place != -1) { substr($line, $space_place, 1) = "\n\t"; } } return $line; } 1 unless $standalone; # or it'll complain about itself __END__ # wish diag dbase were more accessible
Upload File
Create Folder