- 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
- 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], $
+_, $$_ }'
- 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'
- or download this
#!/bin/bash
declare -x PLV_STRING
function perl_v_in_use
...
PLV_STRING='0_INVALID'
fi
}
- or download this
use File::stat;
my @alog =
...
map { [ stat($_)->mtime , $_ ] }
grep {-s && -r}
bsd_glob(Global_tf . $fileglobbing_patt, GLOB_TILDE|GLOB
+_ERR);
- or download this
use File::stat ();
[ ... ]
...
grep {-s && -r}
bsd_glob(Global_tf . $fileglobbing_patt, GLOB_TILDE|GLOB
+_ERR);
- or download this
use strict;
use Proc::ProcessTable;
...
for (my $num=1; $num < @flname; ++$num) {
printf qq[%u : %s\n], $num, $flname[$num];
}
- or download this
1 : uid
2 : pid
3 : ppid
...
7 : start
8 : ttynum
9 : state
- or download this
use Proc::ProcessTable;
$FORMAT = "%-6s %-10s %-8s %-24s %s\n";
...
$p->cmndline # NOPE!
);
}
- or download this
sub weirdnessFILE
{
...
$FILE_name_from_perl = substr(
$FILE_name_from_perl , rindex($FILE_name_from_perl,q[
+]) + 1)
}
- or download this
# YAML 1.1:
---
...
'XDG_CONFIG_DIRS' => ''
};
- or download this
print STDERR Dump([q[BaseDirectorySpec]=> $listing]);
print STDERR Data::Dumper->Dump([$listing],[q/BaseDirectorySpec/]
+);
- or download this
$(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -
+e '<?>' || $(MAKE) minitest
- or download this
-e '<?>'
- 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
- 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
- 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'
- or download this
# script by somian (Sören Andersen)
use strict;
...
}
printf "%s\n", $_->as_string for @M;
- or download this
perl -MYAML=Dump -MCPANPLUS::Backend -le \
'$c=CPANPLUS::Backend->new()->configure_object;'
-e 'for($c->conf) { print Dump(@$_) for $_->conf->{hosts} }'
- or download this
---
- host: ftp.cpan.org
path: /pub/CPAN/
...
- host: ftp.funet.fi
path: /pub/languages/perl/CPAN/
scheme: ftp
- 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
- or download this
---
United States:
...
- http://ubuntu.uni-klu.ac.at/ubuntu/
- http://gd.tuwien.ac.at/opsys/linux/ubuntu/archive/
- or download this
package HTML::Element;
sub that_is_empty {
...
}
$lkr=~/\A[[:blank:][:cntrl:]\x{a0}]*\Z/;
}
- or download this
sub somian_paths2tree
...
while ( $n_repls );
$hr
}
- 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;'
- or download this
function dump_arch_dep
{
...
done
if [[ -n $Discovered_GLIBC ]]; then dump_arch_dep $Discovered_GLIB
+C; fi
}
- or download this
$ find /dev/disk/by-uuid -lname '*/sdb?' -printf '%l %f\n'|sed 's:^\
+.\./\.\./:/dev/:'
- or download this
[[ ":$PATH:" == *:$dir:* ]] && PATH="$dir:$PATH "
- 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}
- or download this
*** Module::AutoInstall version 1.030
*** Checking for Perl dependencies...
...
- Pod::Simple ...loaded. (3.040)
- File::Spec ...missing. (would need 3.19)
- 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.
- or download this
perltest ()
{
...
';
return 0
}
- 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 ****
#------------------
- 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() ."}" };
- 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
- or download this
use strict;
use Tk;
...
$pixframe->pack();
MainLoop;
exit 0;
- or download this
#!/usr/bin/env perl
# Last MODIFIED: Mon Aug 11 12:34:52 UTC 2008
...
$pixframe->pack(); MainLoop;
exit 0;
- 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
- or download this
package ExtUtils::MakeMaker::Config;
...
1;
__END__
- or download this
set bell-style none
...
"\e[F": end-of-line
"\e[7~": beginning-of-line
"\e[8~": end-of-line
- 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
- 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
- or download this
open (OUTFILE,">dll.def");
print OUTFILE "EXPORTS\n";
...
nm file.dll > dll.fil
perl dll.pl
- or download this
#! /usr/bin/perl
# whatperl.pl - show that some code is b0rken.
...
- 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
- 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
- or download this
sub hIppO {
my %nonStyle = { "BACKGROUND" => "background-image"
...
}
return ($hsd,$ila);
}
- 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 )'
- or download this
my @Str = map { my $wholho=$_;
s#^( (?:ht|f)tp:// )
( [^/]+ )/.*$ #$2#x;
[ $_,$wholho ]
} @{$CPAN::Config->{urllist}};
- or download this
my $m_l_p = stat($mirr_list_file_path);
...
}
}
- or download this
use warnings;
use strict;
...
</body>
</html>
- or download this
use warnings;
use strict;
...
</body>
</html>
- or download this
#! /usr/bin/perl -w
use strict;
...
print STDOUT 'Part 3:', join(qq[\n], @$postD, q[]);
exit 0;