view release on metacpan or search on metacpan
lib/PITA/Scheme/Perl/Discovery.pm view on Meta::CPAN
# Check that it is indeed Perl
my @output = `$self->{path} -v`;
chomp @output;
shift @output if $output[0] =~ /^\s*$/;
unless ( $output[0] =~ /^This is perl/ ) {
Carp::croak("The path $self->{path} is not Perl");
}
$self;
}
view release on metacpan or search on metacpan
FR/perltrap.pod view on Meta::CPAN
versions précédentes de perl.
perl -e '$bar=q/not/; print "This is $foo{$bar} perl5"'
# perl4 affiche : This is not perl5
# perl5 affiche : This is perl5
=item * Interpolation de crochets (tableaux) et des accolades (tables de hachage)
Vous devez faire attention à l'interpolation des crochets (tableaux)
et des accolades (tables de hachage).
view release on metacpan or search on metacpan
bin/perl-libextractor view on Meta::CPAN
my (@phase0, @phase1, @phase2);
GetOptions
"verbose|v" => sub { ++$VERBOSE },
"version" => sub {
warn "This is perl-libextractor version $Perl::LibExtractor::VERSION\n";
},
"exedir=s" => \$DIR{exe},
"dlldir=s" => \$DIR{dll},
"bindir=s" => \$DIR{bin},
view release on metacpan or search on metacpan
lib/Perl/Tidy.pm view on Meta::CPAN
return $readable_options;
} ## end sub readable_options
sub show_version {
print {*STDOUT} <<"EOM";
This is perltidy, v$VERSION
Copyright 2000-2025 by Steve Hancock
Perltidy is free software and may be copied under the terms of the GNU
General Public License, which is included in the distribution files.
lib/Perl/Tidy.pm view on Meta::CPAN
} ## end sub show_version
sub usage {
print {*STDOUT} <<EOF;
This is perltidy version $VERSION, a perl script indenter. Usage:
perltidy [ options ] file1 file2 file3 ...
(output goes to file1.tdy, file2.tdy, file3.tdy, ...)
perltidy [ options ] file1 -o outfile
perltidy [ options ] file1 -st >outfile
view release on metacpan or search on metacpan
misc/pX/Common/lrep-compiler/Grammar/Perl6.pm.bak view on Meta::CPAN
, concat(
constant( ';' )
, abort(
sub {
return { bool => 1, tail => $_[0], return => sub {
# XXX This is perl5 code
# this is ugly
eval 'require '. $_[0]->() ->[2]{ident}[0]{ident};
return { require_bareword => $_[0]->() ,}
} };
}
misc/pX/Common/lrep-compiler/Grammar/Perl6.pm.bak view on Meta::CPAN
, concat(
constant( ';' )
, abort(
sub {
return { bool => 1, tail => $_[0], return => sub {
# XXX This is perl5 code
# this is ugly
# eval 'use '. $_[0]->() ->[2]{ident}[0]{ident};
return { use_bareword => $_[0]->() ,}
} };
}
misc/pX/Common/lrep-compiler/Grammar/Perl6.pm.bak view on Meta::CPAN
, concat(
sub { $grammar->code( @_ ) }
, abort(
sub {
return { bool => 1, tail => $_[0], return => sub {
# XXX This is perl5 code
# XXX This is ugly
eval Emitter::Perl5::emit({macro => $_[0]->() });
return { macro => $_[0]->() ,}
} };
}
view release on metacpan or search on metacpan
lib/PerlBench/Results.pm view on Meta::CPAN
my $perldir = "$dir/$hostname/perls/$perl";
my $version_txt = "$perldir/version.txt";
open(my $fh, "<", $version_txt) || die "Can't open $version_txt: $!";
local($_);
while (<$fh>) {
if (/^This is perl, v(\S+)/) {
$perlhash->{version} = $1;
$perlhash->{name} = "perl-$1";
}
if (/^Binary build (\d+.*) provided by ActiveState/) {
$perlhash->{name} .= " build $1";
view release on metacpan or search on metacpan
lib/Perlbal/Manual/Install.pod view on Meta::CPAN
Warning: prerequisite HTTP::Date 0 not found.
Warning: prerequisite HTTP::Response 0 not found.
Warning: prerequisite Sys::Syscall 0 not found.
Writing Makefile for Perlbal
This is perl's way of telling you that since you're installing Perlbal by hand you'll also need to install its prerequisites by hand. Your first choice is to download each of them separately and perform the same installation procedure for each. Unfor...
Alternately, see the following Troubleshooting item: C<No connection to the internet>.
=head3 No connection to the internet
view release on metacpan or search on metacpan
use Perldoc;
my ($options, $input_file) = get_options();
if ($options->{version}) {
warn "This is perl-doc version '$Perldoc::VERSION'\n";
}
elsif ($options->{'kwid-to-html'}) {
my @args = $input_file
? (filepath => $input_file)
: (filehandle => \*STDIN);
view release on metacpan or search on metacpan
local/lib/perl5/Perl/Tidy.pm view on Meta::CPAN
return $readable_options;
} ## end sub readable_options
sub show_version {
print STDOUT <<"EOM";
This is perltidy, v$VERSION
Copyright 2000-2023, Steve Hancock
Perltidy is free software and may be copied under the terms of the GNU
General Public License, which is included in the distribution files.
local/lib/perl5/Perl/Tidy.pm view on Meta::CPAN
} ## end sub show_version
sub usage {
print STDOUT <<EOF;
This is perltidy version $VERSION, a perl script indenter. Usage:
perltidy [ options ] file1 file2 file3 ...
(output goes to file1.tdy, file2.tdy, file3.tdy, ...)
perltidy [ options ] file1 -o outfile
perltidy [ options ] file1 -st >outfile
view release on metacpan or search on metacpan
tlib/Test/Tech.pm view on Meta::CPAN
# Different Perls keep the have different internal formats for numbers. Some
# keep them as binary numbers, while others as strings. The ones that keep
# them as strings may be well spec. In any case they have been let loose in
# the wild so the test scripts that use Data::Dumper must deal with them.
#
# This is perl, v5.6.1 built for MSWin32-x86-multi-thread
# (with 1 registered patch, see perl -V for more detail)
#
# Copyright 1987-2001, Larry Wall
#
# Binary build 631 provided by ActiveState Tool Corp. http://www.ActiveState.com
view release on metacpan or search on metacpan
lib/Remote/Use.pod view on Meta::CPAN
The version in the client is 10.0:
casiano@beowulf:/tmp/Remote-Use-0.04$ perl -v
This is perl, v5.10.0 built for i486-linux-gnu-thread-multi
The version in the server is 5.8.8
casiano@beowulf:/tmp/Remote-Use-0.04$ ssh orion perl -v
This is perl, v5.8.8 built for i486-linux-gnu-thread-multi
=back
=head1 ACKNOWLEDGMENTS
view release on metacpan or search on metacpan
lib/Robotics/Tecan/Gemini.pm view on Meta::CPAN
else {
# found cygwin-perl
}
# Assume running under cygwin+ActiveState Perl or cmd.exe+ActiveState Perl
# or cygwin+cygwin-perl
# Tested under: "This is perl, v5.10.0 built for MSWin32-x86-multi-thread"
# Tested under: "This is perl, v5.10.0 built for cygwin-thread-multi-64int"
$PIPENAME="\\\\.\\pipe\\gemini";
# For compatibility reasons, always use Win32::Pipe to access this pipe.
if (-d "c:/Program Files/Tecan/Gemini") {
# For Win32 support only
my $incompatibility = "Win32::Process::List";
view release on metacpan or search on metacpan
README-JA.md view on Meta::CPAN
> システムã«å…¥ã£ã¦ã„ã‚‹Perlãƒãƒ¼ã‚¸ãƒ§ãƒ³ã‚’確èªã—ã¦ãã ã•ã„。
```shell
$ perl -v
This is perl 5, version 30, subversion 0 (v5.30.0) built for darwin-2level
Copyright 1987-2019, Larry Wall
...
$ cd /usr/local/src
view release on metacpan or search on metacpan
t/projects.t view on Meta::CPAN
# make sure our extra properties made it into the report
$mech->content_contains('GCC Version');
$mech->content_contains('gcc version 4.1.2');
$mech->content_contains('Perl version');
$mech->content_contains('This is perl, v5.8.8');
$mech->content_contains('uname');
$mech->content_contains('Linux localhost.localdomain 2.6.20-1.2952.fc6');
# individual report files
$mech->get_ok("/app/projects/test_file_report_details/$proj1/0");
view release on metacpan or search on metacpan
t/make_56_interwork.pl view on Meta::CPAN
This length difference should only happen on perl 5.6.x configured with IVs as
long long on Unix, OS/2 or any platform that runs the Configure stript (ie not
MS Windows)
This is perl $], sizeof(long) is $Config{longsize}, IVs are '$ivtype', sizeof(IV) is $ivsize,
byteorder is '$Config{byteorder}', Storable $Storable::VERSION writes a byteorder of '$storebyteorder'
EOM
exit; # Grr '
}
view release on metacpan or search on metacpan
t/make_56_interwork.pl view on Meta::CPAN
This length difference should only happen on perl 5.6.x configured with IVs as
long long on Unix, OS/2 or any platform that runs the Configure stript (ie not
MS Windows)
This is perl $], sizeof(long) is $Config{longsize}, IVs are '$ivtype', sizeof(IV) is $ivsize,
byteorder is '$Config{byteorder}', Storable $Storable::VERSION writes a byteorder of '$storebyteorder'
EOM
exit; # Grr '
}
view release on metacpan or search on metacpan
Multibyte.pm view on Meta::CPAN
but does not split into the C<@_> array.
If empty string is specified as C<SEPARATOR>, splits the specified string
into characters.
$bytes->strsplit('', 'This is perl.', 7);
# ('T', 'h', 'i', 's', ' ', 'i', 's perl.')
=back
=head2 Character Range
view release on metacpan or search on metacpan
misc/bench.pl view on Meta::CPAN
recursive 1447/s -- -0% -0%
manual 1449/s 0% -- -0%
leaker 1454/s 0% 0% --
This is perl, v5.8.0 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2002, Larry Wall
Binary build 806 provided by ActiveState Corp. http://www.ActiveState.com
view release on metacpan or search on metacpan
lib/Test/LectroTest/FailureRecorder.pm view on Meta::CPAN
sub _platform {
shift->{platform} ||= do {
# first try to grab version line from `perl -v`
eval {
local $_ = `$^X -v`;
$_ && /^This is perl,(.*)/im && "perl$1";
}
# if that fails, build our own version line
||
sprintf("perl v%vd on %s", $^V,
# if uname works, get the platform info from it
view release on metacpan or search on metacpan
on Strawberry Perl 5.12.3"
Made the explicit socket shutdown for 'cygwin' applicable to MSWin32
as well. I was able to reproduce the issue with:
This is perl 5, version 14, subversion 1 (v5.14.1) built for
MSWin32-x64-multi-thread
================================================
Plus 8 releases after 2011-04-24 00:00:00 +0000.
================================================
view release on metacpan or search on metacpan
lib/Docs/Site_SVD/Test_Tech.pm view on Meta::CPAN
the difference in Perl
~~~~~
######
# This is perl, v5.6.1 built for MSWin32-x86-multi-thread
# (with 1 registered patch, see perl -V for more detail)
#
# Copyright 1987-2001, Larry Wall
#
# Binary build 631 provided by ActiveState Tool Corp. http://www.ActiveState.com
lib/Docs/Site_SVD/Test_Tech.pm view on Meta::CPAN
the difference in Perl
~~~~~
######
# This is perl, v5.6.1 built for MSWin32-x86-multi-thread
# (with 1 registered patch, see perl -V for more detail)
#
# Copyright 1987-2001, Larry Wall
#
# Binary build 631 provided by ActiveState Tool Corp. http://www.ActiveState.com
view release on metacpan or search on metacpan
lib/Test/Unit/Lite.pm view on Meta::CPAN
local $SIG{__WARN__} = sub { require Carp; Carp::confess("Warning: $_[0]") };
all_tests;
This is perl equivalent of shell command line:
perl -Iinc -Ilib -MTest::Unit::Lite -w -e all_tests
=head1 SEE ALSO
view release on metacpan or search on metacpan
t/corpus/padre_download_ubuntu.trac view on Meta::CPAN
{{{
# in your $HOME
cd $HOME
perl -v
# This is perl, v5.10.1 (*) built for i686-linux-gnu-thread-multi
# This is called system perl
# Install local::lib into your $HOME
wget http://search.cpan.org/CPAN/authors/id/G/GE/GETTY/local-lib-1.006007.tar.gz
tar xfz local-lib-1.006007.tar.gz
view release on metacpan or search on metacpan
lib/Vim/Perl.pm view on Meta::CPAN
Separator of values in $list.
=back
This is perl implementation of
vimscript function F_ChooseFromPrompt(dialog, list, sep, ...)
in funcs.vim
=cut
view release on metacpan or search on metacpan
VERSION
0.07
Built and tested with:
This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi
(with 51 registered patches, see perl -V for more detail)
REQUIREMENTS
perl >= v5.10
view release on metacpan or search on metacpan
#########################
my($rc, $stdout, $stderr) = execCMD('perl -v', 1, 0);
is($rc, 1, 'execCMD - RC');
like($stdout, qr/This is perl/, 'execCMD - STDOUT');
is($stderr, '', 'execCMD - STDERR');
view release on metacpan or search on metacpan
man1/zoiduser.pod view on Meta::CPAN
zoid$ mplayer -vo sdl -ao sdl my_favorite_movie.avi
Perl code between brackets:
zoid$ { print "This is perl code." }
A subroutine call to an object loaded in Zoidberg,
perl code with a little source filtering:
zoid$ ->Help->help
man1/zoiduser.pod view on Meta::CPAN
zoid$ sql{ SELECT * FROM users WHERE clue > 0 }
And as said all of these can be combined:
zoid$ cd /usr/local && { print "This is perl code." } | less || sql{SELECT * FROM users WHERE clue > 0}
This will first execute C<cd /usr/local>, on succes followed by C<{ print "This is perl code." } | less>
and if one of these failed we get to see the result of C<< sql{SELECT * FROM users WHERE clue > 0} >>
This makes the precedence of this example as follows.
( ( 1 and ( 2 pipe 3 ) ) or 4 )
1 = cd /usr/local
2 = { print "This is perl code." }
3 = less
4 = sql{SELECT * FROM users WHERE clue > 0}
=head2 Notes
view release on metacpan or search on metacpan
local/lib/perl5/Perl/Tidy.pm view on Meta::CPAN
return $readable_options;
} ## end sub readable_options
sub show_version {
print STDOUT <<"EOM";
This is perltidy, v$VERSION
Copyright 2000-2022, Steve Hancock
Perltidy is free software and may be copied under the terms of the GNU
General Public License, which is included in the distribution files.
local/lib/perl5/Perl/Tidy.pm view on Meta::CPAN
} ## end sub show_version
sub usage {
print STDOUT <<EOF;
This is perltidy version $VERSION, a perl script indenter. Usage:
perltidy [ options ] file1 file2 file3 ...
(output goes to file1.tdy, file2.tdy, file3.tdy, ...)
perltidy [ options ] file1 -o outfile
perltidy [ options ] file1 -st >outfile