Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Intrepid's scratchpad

by Intrepid (Deacon)
on Jun 03, 2004 at 13:48 UTC ( #360135=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    # Now set the remaining arguments depending on which SHELL we
    # are going to use.  COMSPEC (assumed to be command.com) or
    ...
       __.DIVSEP-sh-yes *:= \\\
       __.DIVSEP-sh-no  *:= \\
    .ENDIF
    
  2. or download this
    YIKES='SHELL,PERL5SHELL,PERL5OPT,COMSPEC,MAKE,MAKESTARTUP' perl -MEnv=
    +$YIKES -le \
    '$iu=$ENV{YIKES}; for (split q[,],$iu) { printf qq[macros %s: %s\n], $
    +_, $$_ }'
    
  3. or download this
    Script started on Thu, 08 Nov, 2012  5:46:16 AM
    ----------------------------------------------------------------------
    +--------------------------------
    ...
    Failed 2/9 test programs. 3/39 subtests failed.
    dmake:  Error code 255, while making 'test_dynamic'
    
  4. or download this
    #!/bin/bash
    declare -x PLV_STRING
    function perl_v_in_use
    ...
                 PLV_STRING='0_INVALID'
        fi
    }
    
  5. or download this
    use File::stat;
    my @alog =
    ...
          map { [ stat($_)->mtime , $_ ] }
           grep {-s && -r}
                  bsd_glob(Global_tf . $fileglobbing_patt, GLOB_TILDE|GLOB
    +_ERR);
    
  6. or download this
    use File::stat ();
        [ ... ]
    ...
           grep {-s && -r}
                  bsd_glob(Global_tf . $fileglobbing_patt, GLOB_TILDE|GLOB
    +_ERR);
    
  7. or download this
    use strict;
    use Proc::ProcessTable;
    
    ...
    for (my $num=1; $num < @flname; ++$num) {
        printf qq[%u : %s\n], $num, $flname[$num];
    }
    
  8. or download this
    1 : uid
    2 : pid
    3 : ppid
    ...
    7 : start
    8 : ttynum
    9 : state
    
  9. or download this
    use Proc::ProcessTable;
    
     $FORMAT = "%-6s %-10s %-8s %-24s %s\n";
    ...
              $p->cmndline    # NOPE!
      );
     }
    
  10. or download this
        sub weirdnessFILE
             {
    ...
                  $FILE_name_from_perl = substr(
                    $FILE_name_from_perl , rindex($FILE_name_from_perl,q[ 
    +]) + 1)
             }
    
  11. or download this
    # YAML 1.1:
    ---
    ...
                           'XDG_CONFIG_DIRS' => ''
                         };
    
  12. or download this
         print STDERR Dump([q[BaseDirectorySpec]=> $listing]);
    
         print STDERR Data::Dumper->Dump([$listing],[q/BaseDirectorySpec/]
    +);
    
  13. or download this
        $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -
    +e '<?>' || $(MAKE) minitest
    
  14. or download this
       -e '<?>'
    
  15. or download this
        $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter\
      -e '$$al=eval q|<?akefil?>|; if ((not $$@) and $$al){ \
     -e q|t| and printf qq[%s\n], qq[Ok to `make minitest`]; exit 0 } exit
    + 1' || $(MAKE) minitest
    
  16. or download this
    LD_LIBRARY_PATH=/home/amphibole/SRC.BUILD/RECHK/perl-5.12.3 /home/amph
    +ibole/SRC.BUILD/RECHK/perl-5.12.3/preload /home/amphibole/SRC.BUILD/R
    +ECHK/perl-5.12.3/libperl5_12.so  ./miniperl -w -Ilib -MExporter\
      -e '$al=eval q|<?akefil?>|; if ((not $@) and $al){ \
     -e q|t| and printf qq[%s\n], qq[Ok to `make minitest`]; exit 0 } exit
    + 1' || make minitest
    
  17. or download this
    /bin/pwd: couldn't find directory entry in `..' with matching i-node
    Can't locate DBIx/Simple.pm in @INC
    ...
    
     [THIS MAY BE A PROBLEM!] at /usr/lib/perl5/5.12.2/CPANPLUS/Internals.
    +pm line 204
    [ERROR] Could not load source engine 'CPANPLUS::Internals::Source::SQL
    +ite'
    
  18. or download this
    # script by somian (Sören Andersen)
    use strict;
    ...
    }
    
    printf "%s\n", $_->as_string for @M;
    
  19. or download this
    perl -MYAML=Dump -MCPANPLUS::Backend -le \
         '$c=CPANPLUS::Backend->new()->configure_object;'
     -e  'for($c->conf)  { print Dump(@$_) for $_->conf->{hosts} }'
    
  20. or download this
    ---
    - host: ftp.cpan.org
      path: /pub/CPAN/
    ...
    - host: ftp.funet.fi
      path: /pub/languages/perl/CPAN/
      scheme: ftp
    
  21. or download this
    Bad file descriptor open3: exec of
       /usr/bin/sudo PERL5LIB="/opt/cpan-installed/perl/lib/perl5:/opt/cpa
    +n-installed/perl/module-lib/5.10/arch/i486-linux-gnu-thread-multi:/op
    +t/cpan-installed/perl/module-lib/5.10/lib"
         /usr/bin/make install
    failed at /opt/cpan-installed/perl/lib/perl5/IPC/Cmd.pm line 505
    
  22. or download this
    ---
    United States:
    ...
      - http://ubuntu.uni-klu.ac.at/ubuntu/
      - http://gd.tuwien.ac.at/opsys/linux/ubuntu/archive/
    
  23. or download this
    package HTML::Element;
    sub that_is_empty {
    ...
        }
       $lkr=~/\A[[:blank:][:cntrl:]\x{a0}]*\Z/;
    }
    
  24. or download this
    
    sub somian_paths2tree
    ...
            while ( $n_repls );
            $hr
    }
    
  25. or download this
    perl \
      -e 'chomp (my(@sn)=(`uname -m`, `uname -s`));' \
    ...
      -e 'my $crv=<$scf>; close $scf;' \
      -e '$crv=~m/[ ]version[ ]([^ ,]{1,4})/ && (push @sn, "gnu_libc_v$1")
    + }' \
      -e 'printf "%s\n", join q/_/=> map{"\L$_"}@sn;'
    
  26. or download this
    function dump_arch_dep
    {
    ...
        done
        if [[ -n $Discovered_GLIBC ]]; then dump_arch_dep $Discovered_GLIB
    +C; fi
    }
    
  27. or download this
      $ find /dev/disk/by-uuid -lname '*/sdb?' -printf '%l %f\n'|sed 's:^\
    +.\./\.\./:/dev/:'
    
  28. or download this
    [[ ":$PATH:" == *:$dir:* ]] && PATH="$dir:$PATH "
    
  29. or download this
    In Windows we see 5B76039A52D8 in the raw USB storage device described
    + as:
      \Device\0000009d = USBSTOR#Disk&Ven_Kingston&Prod_DataTraveler_2.0&R
    +ev_PMAP#5B76039A52D8&0#{53f56307-b6bf-11d0-94f2-00a0c91efb8b}
    
    In Windows we see 5B76039A52D8 in the Disk Volume device described by:
    \Device\HarddiskVolume9 = STORAGE#Volume#1&19f7e59c&0&_??_USBSTOR#Disk
    +&Ven_Kingston&Prod_DataTraveler_2.0&Rev_PMAP#5B76039A52D8&0#{53f56307
    +-b6bf-11d0-94f2-00a0c91efb8b}#{53f5630d-b6bf-11d0-94f2-00a0c91efb8b}
    
  30. or download this
    *** Module::AutoInstall version 1.030
    *** Checking for Perl dependencies...
    ...
    - Pod::Simple               ...loaded. (3.040)
    - File::Spec                ...missing. (would need 3.19)
    
  31. or download this
    Trying to open a subshell in the build directory...
    Fetching with LWP:
    ...
    panic: MUTEX_LOCK (45) [pad.c:1356] at /usr/lib/perl5/vendor_perl/5.8/
    +cygwin/Term/ReadLine/Gnu.pm line 680.
    panic: MUTEX_LOCK (45) [op.c:354] at /usr/lib/perl5/vendor_perl/5.8/cy
    +gwin/Term/ReadLine/Gnu.pm line 680.
    
  32. or download this
    perltest () 
    { 
    ...
    ';
        return 0
    }
    
  33. or download this
    use ExtUtils::MakeMaker;
    # See lib/ExtUtils/MakeMaker.pm for details of how to influence
    # the contents of the Makefile that is written.
    ...
        } #**** E O S ****
    #------------------
    
  34. or download this
      use constant eXEO   # the object created from the main src module.
          => quotemeta q/a-visprint\$(EXEEXT)/;
    ...
          => quotemeta q/alpha-visprint.o/;
      my $r_exeo = eval { "qr{".eXEO() ."}" };
      my $r_exef = eval { "qr{".eXEF() ."}" };
    
  35. or download this
    [HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices]
    "\\DosDevices\\C:" = 5d e2 5d e2 00 7e 00 00 00 00 00 00
    "\\DosDevices\\E:" = 5d e2 5d e2 00 40 11 95 04 00 00 00
    "\\DosDevices\\F:" = 05 e6 5e 09 00 7e 00 00 00 00 00 00
    "\\DosDevices\\S:" = 5d e2 5d e2 00 7c f3 0a 04 00 00 00
    
  36. or download this
    use strict;
    use Tk;
    ...
    $pixframe->pack();
    MainLoop;
    exit 0;
    
  37. or download this
    #!/usr/bin/env perl
    # Last MODIFIED: Mon Aug 11 12:34:52 UTC 2008
    ...
    
    $pixframe->pack(); MainLoop;
    exit 0;
    
  38. or download this
    sh-prompt $ perl -MText::Wrap='wrap,$columns' \
       -MText::Textile=textile \
       -lp000we \
       'INIT{$columns=78} s{\cM?\cJ} [ ]g;
        $_=wrap(q[],q[   ],textile($_)).$\;' DRAFT.TMP
    
  39. or download this
    package ExtUtils::MakeMaker::Config;
    
    ...
    1;
    
    __END__
    
  40. or download this
    set bell-style none
    
    ...
    "\e[F": end-of-line
    "\e[7~": beginning-of-line
    "\e[8~": end-of-line
    
  41. or download this
    $ cpan-precheck
    "/usr/local/buildstuff/.cpan/sources/MIRRORED.BY" was last MODIFIED: F
    +ri Sep 10 07:46:50 2004
    ...
    206.252.192.18                        9999 ms  30 hops    0% ok
    206.252.192.19                        9999 ms  30 hops    0% ok
      108 mirrors.rcn.net
    
  42. or download this
    @ECHO OFF
    :: Run Gvim as source viewer from Opera, with our preferences loaded a
    +s they
    ...
    
    :RUNGVIM
    START /D%STIN% C:\AdditionalPrograms\vim6\vim63\gvim.exe -U %MyHome%/A
    +PPLIC~1/Vim/_creamrc -c ":colorscheme Autumn | cd %STIN%" %1
    
  43. or download this
       open (OUTFILE,">dll.def");
       print OUTFILE "EXPORTS\n";
    ...
    
       nm file.dll > dll.fil
       perl dll.pl
    
  44. or download this
    #! /usr/bin/perl
    # whatperl.pl - show that some code is b0rken.
    ...
    
    
    
  45. or download this
    2004.Dec.17 $ h2xs -XAn Term::VTxxx::ColorTweak
    Writing Term/VTxxx/ColorTweak/ColorTweak.pm
    ...
    Writing Term/VTxxx/ColorTweak/test.pl
    Writing Term/VTxxx/ColorTweak/Changes
    Writing Term/VTxxx/ColorTweak/MANIFEST
    
  46. or download this
    " File First created: 28 Nov 2004 17:15:08 EST
    " File Last MODIFIED: 28 Nov 2004 17:49:18
    ...
    "    append( My_CLine, strpart(My_Text, 
    endfu
    
  47. or download this
      sub hIppO        {
           my %nonStyle = { "BACKGROUND" => "background-image"
    ...
           }
           return ($hsd,$ila);
      }
    
  48. or download this
    perl -MCPAN -le 'CPAN::Config->init;$fulp=$INC{q[CPAN/Config.pm]}; pri
    +ntf qq[%-72s %o\n],$fulp,((stat $fulp)[2]& 07777 )'
    
  49. or download this
         my @Str = map { my $wholho=$_;
                     s#^( (?:ht|f)tp:// )
                        ( [^/]+ )/.*$ #$2#x;
                 [ $_,$wholho ]
                      }  @{$CPAN::Config->{urllist}};
    
  50. or download this
    
        my $m_l_p = stat($mirr_list_file_path);
    ...
        }
        }
    
  51. or download this
    use warnings;
    use strict;
    
    ...
    </body>
    </html>
    
  52. or download this
    use warnings;
    use strict;
    ...
    </body>
    </html>
    
  53. or download this
    #! /usr/bin/perl -w
    use strict;
    
    ...
    print STDOUT 'Part 3:', join(qq[\n], @$postD, q[]);
    
    exit 0;
    

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 having an uproarious good time at the Monastery: (5)
As of 2014-12-20 11:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

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





    Results (95 votes), past polls