Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

belg4mit's scratchpad

by belg4mit (Prior)
on Jun 01, 2004 at 16:26 UTC ( #358185=scratchpad: print w/ replies, xml ) Need Help??

#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
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (8)
As of 2015-06-29 23:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What kind of chocolate gives you the most pleasure?















    Results (774 votes), past polls