Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

comment on
( [id://3333]=superdoc: print w/replies, xml ) Need Help??
When and why does this ever happen???

As for why, I don't know. But it does. On this old debian box: 

qwurx [shmem] ~> libdirs=`perl -E 'say for @INC'`
qwurx [shmem] ~> perl -lne 'print "$ARGV: $_" if /\$(\w+)\s+=\s+\$\1\s
+*\?/' `(for d in $libdirs; do find $d -type f; done)`
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.pm:   $semantic = 
+$semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.pm:   $semantic = 
+$semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.pm:   $semantic = 
+$semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.pm:   $semantic = 
+$semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.yp:   $semantic = 
+$semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.yp:   $semantic = 
+$semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.yp:   $semantic = 
+$semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.yp:   $semantic = 
+$semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/eyapp: $opt_s = $opt_s ? 1 : 
+0;
/usr/local/share/perl/5.20.2/Parse/Eyapp/eyapp: $opt_n = $opt_n ? 0 : 
+1;
/usr/local/share/perl/5.20.2/Net/EmptyPort.pm:     $proto = $proto ? l
+c($proto) : 'tcp';
/usr/local/share/perl/5.20.2/Net/EmptyPort.pm:     $proto = $proto ? l
+c($proto) : 'tcp';
/usr/local/share/perl/5.20.2/Net/EmptyPort.pm:     $proto = $proto ? l
+c($proto) : 'tcp';
Can't open /usr/local/share/perl/5.20.2/.Inline.pm.swp: Permission den
+ied at -e line 1, <> line 524147.
/usr/local/share/perl/5.20.2/ExtUtils/ParseXS.pm:     $externC = $exte
+rnC ? qq[extern "C"] : "";
/usr/local/share/perl/5.20.2/Test/Builder/Tester.pm:         $got = $g
+ot ? "$got\n$g" : $g;
/usr/local/share/perl/5.20.2/Test/Builder/Tester.pm:         $wanted =
+ $wanted ? "$wanted\n$w" : $w;
/usr/local/share/perl/5.20.2/Test/Builder.pm:     $test = $test ? 1 : 
+0;
/usr/local/share/perl/5.20.2/Test/Tester/Capture.pm:     $test = $test
+ ? 1 : 0;
/usr/local/share/perl/5.20.2/Test2/Compare/Bool.pm:     $match = $matc
+h ? 0 : 1 if $self->{+NEGATE};
/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Provider.pm:     $parser
+ = $parser ? $parser->_dump() : '<no parser>';
/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Provider.pm:            
+ $prev = $prev ? "#$lut->{ $prev }<-": '<undef>';
/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Provider.pm:            
+ $next = $next ? "->#$lut->{ $next }": '<undef>';
/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Directive.pm:     $line 
+= $line ? " (starting line $line)" : '';
/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Directive.pm:     $args 
+= $args ? "$args, $alias" : ", undef, $alias"
/usr/lib/x86_64-linux-gnu/perl5/5.20/DBI/SQL/Nano.pm:     if ($neg) { 
+$match = $match ? 0 : 1; }
/usr/share/perl5/SQL/Translator/Producer/Oracle.pm:                 $i
+ndex_name = $index_name ? mk_name( $index_name )
/usr/share/perl5/SQL/Translator/Producer/Oracle.pm:                 $i
+ndex_name = $index_name ? mk_name( $index_name )
/usr/share/perl5/SQL/Translator/Producer/Oracle.pm:                 $i
+ndex_name = $index_name ? mk_name( $index_name )
/usr/share/perl5/SQL/Translator/Producer/Oracle.pm:                 $d
+efault = $default ? "'1'" : "'0'";
/usr/share/perl5/SQL/Abstract.pm:   $sql = $sql ? $self->_sqlcase(' wh
+ere ') . "( $sql )" : '';
/usr/share/perl5/Parse/RecDescent.pm:             $lookahead = $lookah
+ead ? -$lookahead : -1;
/usr/share/perl5/Parse/RecDescent.pm:             $lookahead = $lookah
+ead ? $lookahead : 1;
/usr/share/perl5/HTTP/Cookies/Netscape.pm:     $expires = $expires ? $
+expires - $HTTP::Cookies::EPOCH_OFFSET : 0;
/usr/share/perl5/HTTP/Cookies/Netscape.pm:     $secure = $secure ? "TR
+UE" : "FALSE";
/usr/share/perl5/Config/Tiny.pm:     $encoding    = $encoding ? "<:$en
+coding" : '<';
/usr/share/perl5/Config/Tiny.pm:     $encoding    = $encoding ? ">:$en
+coding" : '>';
/usr/share/perl5/Mojo/DOM.pm:   $start  = $start  ? ($#$tree + 1) : _s
+tart($tree);
/usr/share/perl5/Mojo/DOM.pm:   $offset = $offset ? $#$tree       : 0;
/usr/share/perl5/Font/TTF/OldMort.pm:                         $_ = $_ 
+? $_ - ($mappingTables / 2) : undef;
/usr/share/perl5/Font/TTF/Mort/Contextual.pm:             $_ = $_ ? $_
+ - ($mappingTables / 2) : undef;
/usr/share/perl5/Net/EmptyPort.pm:         $proto = $proto ? lc($proto
+) : 'tcp';
/usr/share/perl5/Net/EmptyPort.pm:         $proto = $proto ? lc($proto
+) : 'tcp';
/usr/share/perl5/Net/SNMP/Transport/IPv6.pm:    $s = $s ? sprintf('%%%
+u', $s) : q{};
/usr/share/perl5/Net/SNMP/Transport/IPv6.pm:    $s = $s ? pack('N', $s
+) : q{};
/usr/share/perl5/UNIVERSAL/isa.pm:     $extra = $extra ? " ($extra)" :
+ '';
/usr/share/perl5/IO/Socket/Socks.pm:     $status = $status ? AUTHREPLY
+_SUCCESS : 1; #XXX AUTHREPLY_FAILURE broken
/usr/share/perl5/Text/CSV_PP.pm:         $v =~ m/^[0-9]/ or $v = $v ? 
+1 : 0; # default for true/false
/usr/share/perl5/Text/CSV_PP.pm:         $v =~ m/^[0-9]/ or $v = $v ? 
+1 : 0; # default for true/false
/usr/share/perl5/Lintian/Tags.pm:                     $found = $found 
+? 0 : 1;
/usr/share/perl5/Excel/Writer/XLSX/Drawing.pm:     $underline = $under
+line ? 'sng' : 'none';
/usr/share/perl5/Excel/Writer/XLSX/Drawing.pm:     $strike = $strike ?
+ 'Strike' : 'noStrike';
/usr/share/perl5/Test/Toolbox.pm:     $is = $is ? 'true' : 'false';
/usr/share/perl5/Test/Toolbox.pm:     $should = $should ? 'true' : 'fa
+lse';
/usr/share/perl5/Test/Toolbox.pm:     $ok = $ok ? 1 : 0;
/usr/share/perl5/Spreadsheet/WriteExcel/Worksheet.pm:         $visible
+ = $visible                   ? 0x0000 : 0x0002;
/usr/share/perl5/Spreadsheet/WriteExcel/Worksheet.pm:         $visible
+ = $visible                   ? 0x0002 : 0x0000;
/usr/share/perl5/Spreadsheet/ParseExcel/Utility.pm:             $doubl
+e_quote = $double_quote ? 0 : 1;
/usr/share/perl5/Spreadsheet/XLSX/Utility2007.pm:             $iDblQ =
+ $iDblQ? 0: 1;
/usr/share/perl5/Zoidberg/StringParser.pm:                 $expr = $ex
+pr ? '('.$expr.')|' : '';
/usr/share/perl5/Image/ExifTool/QuickTime.pm:         $lang = $lang ? 
+"($lang) " : '';
/usr/share/perl5/Image/ExifTool/QuickTime.pm:             $lang = $lan
+g ? "($lang) " : '';
/usr/share/perl5/Image/ExifTool/QuickTime.pm:             $lang = $lan
+g ? "($lang) " : '';
/usr/share/perl5/Image/ExifTool/QuickTime.pm:             $lang = $lan
+g ? "($lang) " : '';
/usr/share/perl5/Image/ExifTool/QuickTime.pm:             $lang = $lan
+g ? "($lang) " : '';
/usr/share/perl5/Image/ExifTool/XMPStruct.pl:         $delim = $delim 
+? "\\$delim|,|\\||\$" : ',|\\||$';
/usr/share/perl5/Image/ExifTool/BuildTagLookup.pm:             $rowCla
+ss = $rowClass ? '' : " class=b";
/usr/share/perl5/Image/ExifTool/ASF.pm:             $_ = $_ ? 'True' :
+ 'False';
/usr/share/perl5/Image/ExifTool.pm:     $tagInfo = $tagInfo ? { Name =
+> $tagInfo } : { } unless ref $tagInfo eq 'HASH';
/usr/share/perl5/Type/Params.pm:             $constraint = $constraint
+ ? Any : Optional[Any];
/usr/share/perl5/CGI/Compile.pm:     $proto = $proto ? "($proto)" : ''
+;
/usr/share/perl5/assert.pl:     $w = $w ? '@ = ' : '$ = ';
/usr/share/perl5/IPC/Run.pm:    $r = $r ? '' : " ERROR $!";
/usr/share/perl5/IPC/Run.pm:                $out = $out ? 'b' : 'w'   
+     if vec( $self->{WIN}, $_, 1 );
/usr/share/perl5/IPC/Run.pm:                $out = $out ? uc( $out ) :
+ 'x' if vec( $self->{EIN}, $_, 1 );
/usr/share/perl5/IPC/Run.pm:                $out = $out ? 'b' : 'w'   
+     if vec( $self->{WOUT}, $_, 1 );
/usr/share/perl5/IPC/Run.pm:                $out = $out ? uc( $out ) :
+ 'x' if vec( $self->{EOUT}, $_, 1 );
/usr/share/perl5/AppConfig/State.pm:         $value = $value ? 0 : 1 i
+f $negate;
./SQL/Translator/Producer/Oracle.pm:                 $index_name = $in
+dex_name ? mk_name( $index_name )
./SQL/Translator/Producer/Oracle.pm:                 $index_name = $in
+dex_name ? mk_name( $index_name )
./SQL/Translator/Producer/Oracle.pm:                 $index_name = $in
+dex_name ? mk_name( $index_name )
./SQL/Translator/Producer/Oracle.pm:                 $default = $defau
+lt ? "'1'" : "'0'";
./SQL/Abstract.pm:   $sql = $sql ? $self->_sqlcase(' where ') . "( $sq
+l )" : '';
./Parse/RecDescent.pm:             $lookahead = $lookahead ? -$lookahe
+ad : -1;
./Parse/RecDescent.pm:             $lookahead = $lookahead ? $lookahea
+d : 1;
./HTTP/Cookies/Netscape.pm:     $expires = $expires ? $expires - $HTTP
+::Cookies::EPOCH_OFFSET : 0;
./HTTP/Cookies/Netscape.pm:     $secure = $secure ? "TRUE" : "FALSE";
./Config/Tiny.pm:     $encoding    = $encoding ? "<:$encoding" : '<';
./Config/Tiny.pm:     $encoding    = $encoding ? ">:$encoding" : '>';
./Mojo/DOM.pm:   $start  = $start  ? ($#$tree + 1) : _start($tree);
./Mojo/DOM.pm:   $offset = $offset ? $#$tree       : 0;
./Font/TTF/OldMort.pm:                         $_ = $_ ? $_ - ($mappin
+gTables / 2) : undef;
./Font/TTF/Mort/Contextual.pm:             $_ = $_ ? $_ - ($mappingTab
+les / 2) : undef;
./Net/EmptyPort.pm:         $proto = $proto ? lc($proto) : 'tcp';
./Net/EmptyPort.pm:         $proto = $proto ? lc($proto) : 'tcp';
./Net/SNMP/Transport/IPv6.pm:    $s = $s ? sprintf('%%%u', $s) : q{};
./Net/SNMP/Transport/IPv6.pm:    $s = $s ? pack('N', $s) : q{};
./UNIVERSAL/isa.pm:     $extra = $extra ? " ($extra)" : '';
./IO/Socket/Socks.pm:     $status = $status ? AUTHREPLY_SUCCESS : 1; #
+XXX AUTHREPLY_FAILURE broken
./Text/CSV_PP.pm:         $v =~ m/^[0-9]/ or $v = $v ? 1 : 0; # defaul
+t for true/false
./Text/CSV_PP.pm:         $v =~ m/^[0-9]/ or $v = $v ? 1 : 0; # defaul
+t for true/false
./Lintian/Tags.pm:                     $found = $found ? 0 : 1;
./Excel/Writer/XLSX/Drawing.pm:     $underline = $underline ? 'sng' : 
+'none';
./Excel/Writer/XLSX/Drawing.pm:     $strike = $strike ? 'Strike' : 'no
+Strike';
./Test/Toolbox.pm:     $is = $is ? 'true' : 'false';
./Test/Toolbox.pm:     $should = $should ? 'true' : 'false';
./Test/Toolbox.pm:     $ok = $ok ? 1 : 0;
./Spreadsheet/WriteExcel/Worksheet.pm:         $visible = $visible    
+               ? 0x0000 : 0x0002;
./Spreadsheet/WriteExcel/Worksheet.pm:         $visible = $visible    
+               ? 0x0002 : 0x0000;
./Spreadsheet/ParseExcel/Utility.pm:             $double_quote = $doub
+le_quote ? 0 : 1;
./Spreadsheet/XLSX/Utility2007.pm:             $iDblQ = $iDblQ? 0: 1;
./Zoidberg/StringParser.pm:                 $expr = $expr ? '('.$expr.
+')|' : '';
./Image/ExifTool/QuickTime.pm:         $lang = $lang ? "($lang) " : ''
+;
./Image/ExifTool/QuickTime.pm:             $lang = $lang ? "($lang) " 
+: '';
./Image/ExifTool/QuickTime.pm:             $lang = $lang ? "($lang) " 
+: '';
./Image/ExifTool/QuickTime.pm:             $lang = $lang ? "($lang) " 
+: '';
./Image/ExifTool/QuickTime.pm:             $lang = $lang ? "($lang) " 
+: '';
./Image/ExifTool/XMPStruct.pl:         $delim = $delim ? "\\$delim|,|\
+\||\$" : ',|\\||$';
./Image/ExifTool/BuildTagLookup.pm:             $rowClass = $rowClass 
+? '' : " class=b";
./Image/ExifTool/ASF.pm:             $_ = $_ ? 'True' : 'False';
./Image/ExifTool.pm:     $tagInfo = $tagInfo ? { Name => $tagInfo } : 
+{ } unless ref $tagInfo eq 'HASH';
./Type/Params.pm:             $constraint = $constraint ? Any : Option
+al[Any];
./CGI/Compile.pm:     $proto = $proto ? "($proto)" : '';
./assert.pl:     $w = $w ? '@ = ' : '$ = ';
./IPC/Run.pm:    $r = $r ? '' : " ERROR $!";
./IPC/Run.pm:                $out = $out ? 'b' : 'w'        if vec( $s
+elf->{WIN}, $_, 1 );
./IPC/Run.pm:                $out = $out ? uc( $out ) : 'x' if vec( $s
+elf->{EIN}, $_, 1 );
./IPC/Run.pm:                $out = $out ? 'b' : 'w'        if vec( $s
+elf->{WOUT}, $_, 1 );
./IPC/Run.pm:                $out = $out ? uc( $out ) : 'x' if vec( $s
+elf->{EOUT}, $_, 1 );
./AppConfig/State.pm:         $value = $value ? 0 : 1 if $negate;

[download]

So, it looks like there are plenty of use cases ;)

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

In reply to Re^5: RFC: "assignary" operator ?= : by shmem
in thread RFC: "assignary" operator ?= : by richard.sharpe

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":


  • Are you posting in the right place? Check out Where do I post X? to know for sure.
  • Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
    <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
  • Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
  • Want more info? How to link or How to display code and escape characters are good places to start.
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2024-04-19 05:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found