#A hierarchy of six classes is used: "|", "/\", "[]", "{}",
#"()", and "<>". When two smushing sub-characters are from
#different classes, the one from the latter class will be used.
s%(?:\||([/\\])|([[]])|([{}])|([()])|([<>]))\000
(?:\||([/\\])|([[]])|([{}])|([()])|([<>]))%
$5||$10 || $4||$9 || $3||$8 || $2||$7 || $1||$6%egx
=>
s{ [|/\\\[\]{}()<>]\0(?:=[<>])
| [|/\\\[\]{}()] \0(?:=[()])
| [|/\\\[\]{}] \0(?:=[{}])
| [|/\\\[\]] \0(?:=[\[\]])
| [|/\\] \0(?=[/\\])
| [|] \0(?=[|])
| (?<=[<>]) \0[|/\\\[\]{}()]
| (?<=[()]) \0[|/\\\[\]{}]
| (?<=[{}]) \0[(|/\\\[\]]
| (?<=[[]]) \0[|/\\\[]
| (?<=[/\\]) \0[|]
}
{}gx
reverse LIST
print reverse <>; # line tac, last line first
undef $/; # for efficiency of <>
print scalar reverse <>; # character tac, last line tsrif
In list context, returns a list value consisting of the
elements of LIST in the opposite order.
In scalar context, concatenates the elements of LIST and
returns a string value with all characters in the opposite
order. Used without an argument, reverse() reverses $_.
This operator is also handy for inverting a hash, although
there are some caveats. If a value is duplicated in the
original hash, only one of those can be represented as a
key in the inverted hash. Also, this has to unwind one
hash and build a whole new one, which may take some time
on a large hash, such as from a DBM file.
%by_name = reverse %by_address; # Invert the hash
CLI:
╻ ╻┏━╸╻ ╻ ┏━┓ ╻ ╻┏━┓┏━┓╻ ╺┳┓ =~ s/\/ /og;
┣━┫┣╸ ┃ ┃ ┃ ┃ ┃╻┃┃ ┃┣┳┛┃ ┃┃ =~ s/\/ /og;
╹ ╹┗━╸┗━╸┗━╸┗━┛ ┗┻┛┗━┛╹┗╸┗━╸╺┻┛ =~ s/\/ /og;
╻ ╻┏━╸╻ ╻ ┏━┓ ╻ ╻┏━┓┏━┓╻ ╺┳┓
┣━┫┣╸ ┃ ┃ ┃ ┃ ┃╻┃┃ ┃┣┳┛┃ ┃┃
╹ ╹┗━╸┗━╸┗━╸┗━┛ ┗┻┛┗━┛╹┗╸┗━╸╺┻┛
Test Literal:
╻ ╻┏━╸╻ ╻ ┏━┓ ^? ╻ ╻┏━┓┏━┓╻ ╺┳┓ =~ s/\^?/ /og;
┣━┫┣╸ ┃ ┃ ┃ ┃ ^? ┃╻┃┃ ┃┣┳┛┃ ┃┃ =~ s/\^?/ /og;
╹ ╹┗━╸┗━╸┗━╸┗━┛ ^? ┗┻┛┗━┛╹┗╸┗━╸╺┻┛ =~ s/\^?/ /og;
╻ ╻┏━╸╻ ╻ ┏━┓ ^? ╻ ╻┏━┓┏━┓╻ ╺┳┓
┣━┫┣╸ ┃ ┃ ┃ ┃ ^? ┃╻┃┃ ┃┣┳┛┃ ┃┃
╹ ╹┗━╸┗━╸┗━╸┗━┛ ^? ┗┻┛┗━┛╹┗╸┗━╸╺┻┛
Test Octal:
╻ ╻┏━╸╻ ╻ ┏━┓ ^? ╻ ╻┏━┓┏━┓╻ ╺┳┓ =~ s/(?-xism:\177)/ /og;
┣━┫┣╸ ┃ ┃ ┃ ┃ ^? ┃╻┃┃ ┃┣┳┛┃ ┃┃ =~ s/(?-xism:\177)/ /og;
╹ ╹┗━╸┗━╸ ┗━╸ ┗━┛ ^? ┗┻┛┗━┛╹┗╸┗━╸ ╺┻┛ =~ s/(?-xism:\177)/ /og;
╻ ╻┏━╸╻ ╻ ┏━┓ ^? ╻ ╻┏━┓┏━┓╻ ╺┳┓
┣━┫┣╸ ┃ ┃ ┃ ┃ ^? ┃╻┃┃ ┃┣┳┛┃ ┃┃
╹ ╹┗━╸┗━╸ ┗━╸ ┗━┛ ^? ┗┻┛┗━┛╹┗╸┗━╸ ╺┻┛
THE W. J. Yo
+uden
NORMAL
LAW OF ERROR
STANDS OUT IN THE
EXPERIENCE OF MANKIND
AS ONE OF THE BROADEST
GENERALIZATIONS OF NATURAL
PHILOSOPHY * IT SERVES AS THE
GUIDING INSTRUMENT IN RESEARCHES
IN THE PHYSICAL AND SOCIAL SCIENCES AND
IN MEDICINE AGRICULTURE AND ENGINEERING *
IT IS AN INDENSPENSIBLE TOOL FOR THE ANALYSIS AND THE
INTERPRETATION OF THE BASIC DATA OBTAINED BY OBSERVATION AND EXPERI
+MENT
#use Test::Without::Module 'Mail::Mailer';
use Mail::Mailer;
if( $INC{'Mail/Mailer.pm'} ){
warn("joy\n");
}
else{
#No email alerts
warn ("death\n");
}
__END__
$VERSION = 0.06;
$ perl -MTest::Without::Module=Mail::Mailer mod23.pl
Mail/Mailer.pm did not return a true value at mod23.pl line 3.
BEGIN failed--compilation aborted at mod23.pl line 3.
Fedora perl sucks:
Error: Can't locate Net/IP.pm in @INC (@INC contains: /opt/src/CPAN/b
+uild/Net-DNS-0.55/blib/lib/5.8.5/i386-linux-thread-multi /opt/src/CPA
+N/build/Net-DNS-0.55/blib/lib/5.8.5 /opt/src/CPAN/build/Net-DNS-0.55/
+blib/lib/i386-linux-thread-multi /opt/src/CPAN/build/Net-DNS-0.55/bli
+b/lib/5.8.4 /opt/src/CPAN/build/Net-DNS-0.55/blib/lib/5.8.3 /opt/src/
+CPAN/build/Net-DNS-0.55/blib/lib/5.8.2 /opt/src/CPAN/build/Net-DNS-0.
+55/blib/lib/5.8.1 /opt/src/CPAN/build/Net-DNS-0.55/blib/lib/5.8.0 /op
+t/src/CPAN/build/Net-DNS-0.55/blib/lib /opt/src/CPAN/build/Net-DNS-0.
+55/blib/arch/5.8.5/i386-linux-thread-multi /opt/src/CPAN/build/Net-DN
+S-0.55/blib/arch/5.8.5 /opt/src/CPAN/build/Net-DNS-0.55/blib/arch/i38
+6-linux-thread-multi /opt/src/CPAN/build/Net-DNS-0.55/blib/arch/5.8.4
+ /opt/src/CPAN/build/Net-DNS-0.55/blib/arch/5.8.3 /opt/src/CPAN/build
+/Net-DNS-0.55/blib/arch/5.8.2 /opt/src/CPAN/build/Net-DNS-0.55/blib/a
+rch/5.8.1 /opt/src/CPAN/build/Net-DNS-0.55/blib/arch/5.8.0 /opt/src/C
+PAN/build/Net-DNS-0.55/blib/arch /usr/lib/perl5/5.8.5/i386-linux-thre
+ad-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5/i386-linu
+x-thread-multi/5.8.5 /usr/lib/perl5/5.8.5/i386-linux-thread-multi/i38
+6-linux-thread-multi /usr/lib/perl5/5.8.5/i386-linux-thread-multi/5.8
+.4 /usr/lib/perl5/5.8.5/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/
+5.8.5/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/5.8.5/i386-linux-t
+hread-multi/5.8.1 /usr/lib/perl5/5.8.5/i386-linux-thread-multi/5.8.0
+/usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5/5.8
+.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5/5.8.5 /usr/lib/perl5/
+5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5/5.8.4 /usr/lib/per
+l5/5.8.5/5.8.3 /usr/lib/perl5/5.8.5/5.8.2 /usr/lib/perl5/5.8.5/5.8.1
+/usr/lib/perl5/5.8.5/5.8.0 /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_p
+erl/5.8.5/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/
+lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.5 /usr/lib/perl
+5/site_perl/5.8.5/i386-linux-thread-multi/i386-linux-thread-multi /us
+r/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.4 /usr/lib/pe
+rl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/site
+_perl/5.8.5/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/site_perl/5.
+8.5/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/site_perl/5.8.5/i386
+-linux-thread-multi/5.8.0 /usr/lib/perl5/site_perl/5.8.5/i386-linux-t
+hread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi/5.
+8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux
+-thread-multi/5.8.5 /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-
+multi/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-lin
+ux-thread-multi/5.8.4 /usr/lib/perl5/site_perl/5.8.4/i386-linux-threa
+d-multi/5.8.3 /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi/
+5.8.2 /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi/5.8.1 /u
+sr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi/5.8.0 /usr/lib/p
+erl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl
+/5.8.3/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib
+/perl5/site_perl/5.8.3/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/s
+ite_perl/5.8.3/i386-linux-thread-multi/i386-linux-thread-multi /usr/l
+ib/perl5/site_perl/5.8.3/i386-linux-thread-multi/5.8.4 /usr/lib/perl5
+/site_perl/5.8.3/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/site_pe
+rl/5.8.3/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/site_perl/5.8.3
+/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/site_perl/5.8.3/i386-li
+nux-thread-multi/5.8.0 /usr/lib/perl5/site_perl/5.8.3/i386-linux-thre
+ad-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi/5.8.5
+/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-th
+read-multi/5.8.5 /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-mul
+ti/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-
+thread-multi/5.8.4 /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-m
+ulti/5.8.3 /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi/5.8
+.2 /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi/5.8.1 /usr/
+lib/perl5/site_perl/5.8.2/i386-linux-thread-multi/5.8.0 /usr/lib/perl
+5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.
+8.1/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/pe
+rl5/site_perl/5.8.1/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/site
+_perl/5.8.1/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/
+perl5/site_perl/5.8.1/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/si
+te_perl/5.8.1/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/site_perl/
+5.8.1/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/site_perl/5.8.1/i3
+86-linux-thread-multi/5.8.1 /usr/lib/perl5/site_perl/5.8.1/i386-linux
+-thread-multi/5.8.0 /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-
+multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/5.8.5/i3
+86-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-threa
+d-multi/5.8.5 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/
+i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thr
+ead-multi/5.8.4 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-mult
+i/5.8.3 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/5.8.2
+/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/5.8.1 /usr/lib
+/perl5/site_perl/5.8.0/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/s
+ite_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5
+/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/5.8.5 /
+usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/
+site_perl/5.8.5/5.8.4 /usr/lib/perl5/site_perl/5.8.5/5.8.3 /usr/lib/p
+erl5/site_perl/5.8.5/5.8.2 /usr/lib/perl5/site_perl/5.8.5/5.8.1 /usr/
+lib/perl5/site_perl/5.8.5/5.8.0 /usr/lib/perl5/site_perl/5.8.5 /usr/l
+ib/perl5/site_perl/5.8.4/5.8.5/i386-linux-thread-multi /usr/lib/perl5
+/site_perl/5.8.4/5.8.5 /usr/lib/perl5/site_perl/5.8.4/i386-linux-thre
+ad-multi /usr/lib/perl5/site_perl/5.8.4/5.8.4 /usr/lib/perl5/site_per
+l/5.8.4/5.8.3 /usr/lib/perl5/site_perl/5.8.4/5.8.2 /usr/lib/perl5/sit
+e_perl/5.8.4/5.8.1 /usr/lib/perl5/site_perl/5.8.4/5.8.0 /usr/lib/perl
+5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3/5.8.5/i386-linux-thr
+ead-multi /usr/lib/perl5/site_perl/5.8.3/5.8.5 /usr/lib/perl5/site_pe
+rl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/5.8.4
+ /usr/lib/perl5/site_perl/5.8.3/5.8.3 /usr/lib/perl5/site_perl/5.8.3/
+5.8.2 /usr/lib/perl5/site_perl/5.8.3/5.8.1 /usr/lib/perl5/site_perl/5
+.8.3/5.8.0 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.
+8.2/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/5.8.
+5 /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/per
+l5/site_perl/5.8.2/5.8.4 /usr/lib/perl5/site_perl/5.8.2/5.8.3 /usr/li
+b/perl5/site_perl/5.8.2/5.8.2 /usr/lib/perl5/site_perl/5.8.2/5.8.1 /u
+sr/lib/perl5/site_perl/5.8.2/5.8.0 /usr/lib/perl5/site_perl/5.8.2 /us
+r/lib/perl5/site_perl/5.8.1/5.8.5/i386-linux-thread-multi /usr/lib/pe
+rl5/site_perl/5.8.1/5.8.5 /usr/lib/perl5/site_perl/5.8.1/i386-linux-t
+hread-multi /usr/lib/perl5/site_perl/5.8.1/5.8.4 /usr/lib/perl5/site_
+perl/5.8.1/5.8.3 /usr/lib/perl5/site_perl/5.8.1/5.8.2 /usr/lib/perl5/
+site_perl/5.8.1/5.8.1 /usr/lib/perl5/site_perl/5.8.1/5.8.0 /usr/lib/p
+erl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0/5.8.5/i386-linux-
+thread-multi /usr/lib/perl5/site_perl/5.8.0/5.8.5 /usr/lib/perl5/site
+_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/5.
+8.4 /usr/lib/perl5/site_perl/5.8.0/5.8.3 /usr/lib/perl5/site_perl/5.8
+.0/5.8.2 /usr/lib/perl5/site_perl/5.8.0/5.8.1 /usr/lib/perl5/site_per
+l/5.8.0/5.8.0 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl
+/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/li
+b/perl5/site_perl/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.
+8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /us
+r/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/p
+erl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-mul
+ti/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i38
+6-linux-thread-multi/5.8.5 /usr/lib/perl5/vendor_perl/5.8.5/i386-linu
+x-thread-multi/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8
+.5/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/vendor_perl/5.8.5/i38
+6-linux-thread-multi/5.8.3 /usr/lib/perl5/vendor_perl/5.8.5/i386-linu
+x-thread-multi/5.8.2 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thre
+ad-multi/5.8.1 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-mul
+ti/5.8.0 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /us
+r/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/5.8.5/i386-linu
+x-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-mul
+ti/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/i38
+6-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thre
+ad-multi/5.8.4 /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-mul
+ti/5.8.3 /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/5.8
+.2 /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/5.8.1 /us
+r/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi/5.8.0 /usr/lib/
+perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor
+_perl/5.8.3/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /us
+r/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/5.8.5 /usr/lib/
+perl5/vendor_perl/5.8.3/i386-linux-thread-multi/i386-linux-thread-mul
+ti /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/5.8.4 /us
+r/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/5.8.3 /usr/lib/
+perl5/vendor_perl/5.8.3/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/
+vendor_perl/5.8.3/i386-linux-thread-multi/5.8.1 /usr/lib/perl5/vendor
+_perl/5.8.3/i386-linux-thread-multi/5.8.0 /usr/lib/perl5/vendor_perl/
+5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-l
+inux-thread-multi/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor
+_perl/5.8.2/i386-linux-thread-multi/5.8.5 /usr/lib/perl5/vendor_perl/
+5.8.2/i386-linux-thread-multi/i386-linux-thread-multi /usr/lib/perl5/
+vendor_perl/5.8.2/i386-linux-thread-multi/5.8.4 /usr/lib/perl5/vendor
+_perl/5.8.2/i386-linux-thread-multi/5.8.3 /usr/lib/perl5/vendor_perl/
+5.8.2/i386-linux-thread-multi/5.8.2 /usr/lib/perl5/vendor_perl/5.8.2/
+i386-linux-thread-multi/5.8.1 /usr/lib/perl5/vendor_perl/5.8.2/i386-l
+inux-thread-multi/5.8.0 /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-t
+hread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi/
+5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-l
+inux-thread-multi/5.8.5 /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-t
+hread-multi/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/
+i386-linux-thread-multi/5.8.4 /usr/lib/perl5/vendor_perl/5.8.1/i386-l
+inux-thread-multi/5.8.3 /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-t
+hread-multi/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-
+multi/5.8.1 /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi/
+5.8.0 /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/l
+ib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/5.8.5/i386-linux-t
+hread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/
+5.8.5 /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/i386-l
+inux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-
+multi/5.8.4 /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/
+5.8.3 /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/5.8.2
+/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/5.8.1 /usr/l
+ib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/5.8.0 /usr/lib/per
+l5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_pe
+rl/5.8.5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8
+.5/5.8.5 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /us
+r/lib/perl5/vendor_perl/5.8.5/5.8.4 /usr/lib/perl5/vendor_perl/5.8.5/
+5.8.3 /usr/lib/perl5/vendor_perl/5.8.5/5.8.2 /usr/lib/perl5/vendor_pe
+rl/5.8.5/5.8.1 /usr/lib/perl5/vendor_perl/5.8.5/5.8.0 /usr/lib/perl5/
+vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4/5.8.5/i386-linux-t
+hread-multi /usr/lib/perl5/vendor_perl/5.8.4/5.8.5 /usr/lib/perl5/ven
+dor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8
+.4/5.8.4 /usr/lib/perl5/vendor_perl/5.8.4/5.8.3 /usr/lib/perl5/vendor
+_perl/5.8.4/5.8.2 /usr/lib/perl5/vendor_perl/5.8.4/5.8.1 /usr/lib/per
+l5/vendor_perl/5.8.4/5.8.0 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/
+perl5/vendor_perl/5.8.3/5.8.5/i386-linux-thread-multi /usr/lib/perl5/
+vendor_perl/5.8.3/5.8.5 /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-t
+hread-multi /usr/lib/perl5/vendor_perl/5.8.3/5.8.4 /usr/lib/perl5/ven
+dor_perl/5.8.3/5.8.3 /usr/lib/perl5/vendor_perl/5.8.3/5.8.2 /usr/lib/
+perl5/vendor_perl/5.8.3/5.8.1 /usr/lib/perl5/vendor_perl/5.8.3/5.8.0
+/usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2/5.8
+.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/5.8.5 /us
+r/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/
+vendor_perl/5.8.2/5.8.4 /usr/lib/perl5/vendor_perl/5.8.2/5.8.3 /usr/l
+ib/perl5/vendor_perl/5.8.2/5.8.2 /usr/lib/perl5/vendor_perl/5.8.2/5.8
+.1 /usr/lib/perl5/vendor_perl/5.8.2/5.8.0 /usr/lib/perl5/vendor_perl/
+5.8.2 /usr/lib/perl5/vendor_perl/5.8.1/5.8.5/i386-linux-thread-multi
+/usr/lib/perl5/vendor_perl/5.8.1/5.8.5 /usr/lib/perl5/vendor_perl/5.8
+.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/5.8.4 /us
+r/lib/perl5/vendor_perl/5.8.1/5.8.3 /usr/lib/perl5/vendor_perl/5.8.1/
+5.8.2 /usr/lib/perl5/vendor_perl/5.8.1/5.8.1 /usr/lib/perl5/vendor_pe
+rl/5.8.1/5.8.0 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor
+_perl/5.8.0/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/
+5.8.0/5.8.5 /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
+/usr/lib/perl5/vendor_perl/5.8.0/5.8.4 /usr/lib/perl5/vendor_perl/5.8
+.0/5.8.3 /usr/lib/perl5/vendor_perl/5.8.0/5.8.2 /usr/lib/perl5/vendor
+_perl/5.8.0/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0/5.8.0 /usr/lib/per
+l5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thre
+ad-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/
+i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/per
+l5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/
+vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/ven
+dor_perl ./5.8.5/i386-linux-thread-multi ./5.8.5 ./i386-linux-thread-
+multi ./5.8.4 ./5.8.3 ./5.8.2 ./5.8.1 ./5.8.0 . /usr/lib/perl5/5.8.5/
+i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl
+/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-li
+nux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-mul
+ti /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/pe
+rl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/
+5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib
+/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/
+site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_pe
+rl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i3
+86-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thr
+ead-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /u
+sr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5
+/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl
+/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/
+lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib
+/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/pe
+rl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at /opt/src/CPAN/
+build/Net-DNS-0.55/blib/lib/Net/DNS/Resolver/Base.pm line 24.
PV (and DateTime's use of it) sucks:
Params::Validate::validate calls
$VAR1 = {
'DateTime::truncate' => 1886,
'DateTime::Span::from_datetimes' => 54,
'DateTime::from_epoch' => 1,
'DateTime::add_duration' => 2018,
'DateTime::Format::Strptime::new' => 1,
'DateTime::TimeZone::new' => 1968,
'DateTime::Locale::registered_id' => 7,
'DateTime::Locale::_register' => 299,
'DateTime::from_object' => 1964,
'DateTime::new' => 4067,
'DateTime::Duration::new' => 2325
};
for my $i (43, 47..57, 61, 65..90, 97..122){
my $x = rand()*26;
my $y = rand()*26;
unless( $F[$x]->[$y] ){
$F{chr($i)} = chr(65+$x).chr(65+$y);
$F[$x]->[$y] = chr($i); }
else{
print "Redoing $i(", chr($i), ")\n";
redo; }
}
#use Data::Dumper;
#print Data::Dumper->Dump([\%F]);
while(<>){
$_ = uc($_);
push @G, map($F{$_}, split('', $_));
}
for(my $i=0;$i<26;$i++){
For a referrer log of the format where <- whence
#!/usr/bin/perl -w -l -n -a -F <-
BEGIN{
use strict;
use vars qw'@F %H';
use CGI::Minimal;
use List::Util 'sum';
}
chomp(@F);
if( index($F[0], '%3A') > 0 ){
${' '. CGI::Minimal->url_decode((split(/\?/, $F[0]))[1])}++;
}
else{
$H{$F[1]}++ if $F[1] ne ' -' && $F[1] ne ' [unknown origin]';
}
END{
my @bad = qw(search google yahoo);
foreach my $URI ( sort { $a cmp $b } keys %H ){
next if sum(map(index($URI, $_), @bad)) != -scalar @bad;
print $URI, ': ', $H{$URI};
}
}
$ perl -wle "open(FOO, '-|') || exec 'perl someprog'; print <FOO>"
%DCL-W-IVVERB, unrecognized command verb - check validity and spelling
+ \$\
%DCL-W-IVVERB, unrecognized command verb - check validity and spelling
+ \$\
but the very new three arg version does.
$ perl -wle "open(FOO, '-|', 'perl bug'); print <FOO>"
2
I suspect it's a PerlIO thing.
$ perl -v
This is perl, v5.7.2 built for VMS_AXP
Bookmarks
Deep Thoughts
sexeger
(OT) Security Rant
Why study SCALAR?
Diversions
I just want to siiiing!
PID Roulette
3-D Stereogram, Self replicating source.
Lunar Lander (Re: Games in Perl)
spiraling quine
Sierpinski Triangle
Perl Spots
Camel Time
Txet Maglning Glof, Ayobndy?
Mandelbrot flythrough
Trans-OS PONG simulator!
Utilities
ForkBlock
Wx Regex Tester
A killall for Windows
Spool
Shift, Pop, Unshift and Push with Impunity!
(tye)Re: A question of style
Why I like functional programming
Life at the Monastery. Chapter 1
Re: Re: SQL INSERT creator
Universally unimportant and overused
Re: Perl please
Connection: Keep-Alive and Perl
Re: Regex to encode entities in XML
Here, doccy doccy. nice doccy. heredoc, treat.
Re: Here, doccy doccy. nice doccy. heredoc, treat.
Re: More Fun with Zero!
Re (tilly) 1: More Fun with Zero!
Why does Devel::DProf report so much time in BEGIN?
On-demand single-pixel GIFs
(tye)Re: Win32 executable AS PerlApp, perl2exe, perlcc, ??
Re: Daemons???
Re: The true PerlMonks Experience
perl modules
Sort Data::Dumper Output
(tye)Re: Finding all Combinations
Resorting to Sorting
perl scripts as daemons
How can I download the file by rtsp protocol?
Re: interpolation with filetest operators
Array sifting, maintaining order
Two-arg open() considered dangerous
Re: catch hup, restart
Re: Re: Easy one for my fellow Monks
Loops, the scalar range operator, and objects
Re: Local(*FILE);
Multi shell/perl output problem
Matching bits of 2 strings
Re: New CPAN feature: bug reporting
What is it adding to my symbol table?
•Re: Linux: force commands that expect filename args to accept piped input
1st Monasterians
Timing Web Page Requests
You have moved into a dark place.
SQLite vs CDB_File vs BerkeleyDB
Subroutine reference in @INC
Searching with MySQL (and REGEXPs)
Re: CLOSE-WAIT sockets
Mystery PerlMonks Theater
Autodidact
Re: Namespace variable gathering
Re: debugging trick of the week: fatal warnings
Using-T and Untainting SQL
Re: Re: Re: Sprite animation with SDL_perl
Similarity of strings
Sub::Lexical
Re: 'perl -p' ne 'cat'
•Re: Editing Files In Place
Re(3): Why is my reputation falling?
Dprof and main::BEGIN
Re^2: The plural of "athlete's foot" is... (on heredocs)
Language::MySort
Avoiding the Use of @ISA = qw(Foo::Bar);
Mastermind in 2 lines
Prettified Perl Inheritance
Re: Re: Lumberjack
Generating regex strings with a regex
Fun With Reserved Keywords
Invoking the debugger on yourself
Balls!
Re: Int-3 equivalent?
Re: awk...ward
Generating Visually Distinct Colors
JavaScript::Parse::PurePerl (was Parse::JavaScript)
Printing the Unprintable
Chatterbox to Festival Server (TTS output)
Re^2: The plural of "athlete's foot" is... (on heredocs)
POD Figlet titles
GPM mouse handling
k-Means Clustering demo program with Tk
Re^3: Help performing "random" access on very very large file
Word Math
Re: Daemons???
k-Means Clustering demo program with Tk
Re^2: Better maps with Math::Geometry::Voronoi, and a Challenge for Math Monks
Word Math
Word Math
|