Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
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 drinking their drinks and smoking their pipes about the Monastery: (7)
As of 2014-12-26 01:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (163 votes), past polls