view release on metacpan or search on metacpan
lib/Elatin8.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Elatin8.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Elatin8
view release on metacpan or search on metacpan
lib/Elatin9.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Elatin9.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Elatin9
view release on metacpan or search on metacpan
lib/Eoldutf8.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Eoldutf8.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Eoldutf8
view release on metacpan or search on metacpan
lib/Esjis.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Esjis.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Esjis
view release on metacpan or search on metacpan
lib/Etis620.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Etis620.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Etis620
view release on metacpan or search on metacpan
lib/Euhc.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Euhc.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Euhc
view release on metacpan or search on metacpan
lib/Eusascii.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Eusascii.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Eusascii
view release on metacpan or search on metacpan
lib/Eutf2.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Eutf2.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Eutf2
view release on metacpan or search on metacpan
lib/Ewindows1252.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Ewindows1252.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Ewindows1252
view release on metacpan or search on metacpan
lib/Ewindows1258.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Ewindows1258.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Ewindows1258
view release on metacpan or search on metacpan
Graph/Gnuplot.pm view on Meta::CPAN
if (!(ref($dataset) eq "ARRAY")) {
carp "Column data must be a reference to an array";
return 0;
}
if ($#{$dataset} != $#{$columns[$[]}) {
carp "All columns must be of same length";
return 0;
}
}
if ($#{$columns[$[]} == 0) {
carp "Warning: Columns have no data!";
}
open (DATA, ">$file");
for (my $i = 0; $i <= $#{$columns[$[]}; $i++) {
foreach my $dataset ( @columns ) {
print DATA "$dataset->[$i]\t";
}
print DATA "\n";
}
view release on metacpan or search on metacpan
t/02_chains.t view on Meta::CPAN
'C=C' => [ 2, 1 ],
'C#N' => [ 2, 1 ],
'CC#CC' => [ 4, 3 ],
'CCC=O' => [ 4, 3 ],
'[Rh-](Cl)(Cl)(Cl)(Cl)$[Rh-](Cl)(Cl)(Cl)Cl' => [ 10, 9 ],
'C-C' => [ 2, 1 ],
'CCC(CC)CO' => [ 7, 6 ],
'CC(C)C(=O)C(C)C' => [ 8, 7 ],
view release on metacpan or search on metacpan
lib/Chess4p/Pgn/Reader.pm view on Meta::CPAN
| -- | Z0 | 0000 | @@@@
| O-O(?:-O)?
| 0-0(?:-0)?
| [?!]{1,2}
| \* | 1-0 | 0-1 | 1/2-1/2
| \$[0-9]+ # NAG
| \{.* # Game comment
| ;.* # PGN file comment
| \( # Variation start
| \) # Variation end
'xo;
view release on metacpan or search on metacpan
contrib/vim/syntax/perl.vim view on Meta::CPAN
" too slow. And what is after the -> is *not* considered as part of the
" variable - there again, too complicated and too slow.
" Special variables first ($^A, ...) and ($|, $', ...)
syn match perlVarPlain "$^[ADEFHILMOPSTWX]\="
syn match perlVarPlain "$[\\\"\[\]'&`+*.,;=%~!?@#$<>(-]"
syn match perlVarPlain "$\(0\|[1-9][0-9]*\)"
" Same as above, but avoids confusion in $::foo (equivalent to $main::foo)
syn match perlVarPlain "$:[^:]"
" These variables are not recognized within matches.
syn match perlVarNotInMatches "$[|)]"
" This variable is not recognized within matches delimited by m//.
syn match perlVarSlash "$/"
" And plain identifiers
syn match perlPackageRef "\(\h\w*\)\=\(::\|'\)\I"me=e-1 contained
view release on metacpan or search on metacpan
lib/Class/Framework.pm view on Meta::CPAN
use strict;
use Class::Accessor ();
use Class::MethodVars ();
our $VERSION = '1.'.qw $Rev: 228 $[1];
sub insert_base($$) {
my ($package,$base) = @_;
eval "unshift(\@${package}::ISA,q($base))" unless $package->isa($base);
}
view release on metacpan or search on metacpan
lib/Class/MethodMaker/Engine.pm view on Meta::CPAN
} else {
croak "Argument $_ for type $type not understood\n";
}
} elsif ( UNIVERSAL::isa($_, 'HASH') ) {
while ( my ($k, $v) = each %$_ ) {
if ( index($k, '*') > $[-1 ) {
$renames{$k} = $v;
} else {
$k =~ s/^-//;
$options{$k} = $v;
}
view release on metacpan or search on metacpan
lib/Class/Rebirth.pm view on Meta::CPAN
my $dump = shift;
my $target;
# relace var with own var
$dump =~ s/^(\$[a-z0-9]+)/\$target/i;
eval $dump;
if ($@){die $@};
view release on metacpan or search on metacpan
lib/Classic/Perl.pm view on Meta::CPAN
package Classic::Perl;
my %features = map +($_ => undef) =>=> qw< $[ split $* >;
sub import{
shift;
for(@_) {
die
lib/Classic/Perl.pm view on Meta::CPAN
next if $] < 5.0089999;
$_ eq '$*' and &_enable_multiline;
next if $] < 5.0109999;
$_ eq 'split' and $^H{Classic_Perl__split} = 1;
# next if $] < 5.0150029;
# $_ eq '$[' and $^H{'Classic_Perl__$['} = 0;
}
return if @_;
return if $] < 5.0089999;
&_enable_multiline;
return if $] < 5.0109999;
$^H{Classic_Perl__split} = 1;
# return if $] < 5.0150029;
# $^H{'Classic_Perl__$['} = 0;
return;
}
sub _enable_multiline {
$^H{'Classic_Perl__$*'} = 0,
lib/Classic/Perl.pm view on Meta::CPAN
. join(" line ", (caller)[1,2]) . ".\n"
unless exists $features{$_};
delete $^H{"Classic_Perl__$_"};
}
return if @_;
# if($^H{'Classic_Perl__$['}) {
# Array::Base->unimport;
# String::Base->unimport;
# }
if(exists $^H{'Classic_Perl__$*'} and $] > 5.0130069 and $INC{"re.pm"}) {
unimport re:: "/m";
lib/Classic/Perl.pm view on Meta::CPAN
sub VERSION {
my @features;
push @features, '$*' if $_[1] < 5.0089999;
push @features, 'split' if $_[1] < 5.0109999;
# push @features, '$[' if $_[1] < 5.0150029;
Classic::Perl->import(@features) if @features;
}
__THE__=>__END__
lib/Classic/Perl.pm view on Meta::CPAN
@_ = ();
split //, "smat";
print join " ", @_;
# prints "s m a t" in perl 5.10.x; nothing in 5.12
use Classic::Perl '$[';
$[ = 1;
print qw(a b c d)[2]; # prints "b"
use Classic::Perl '$*';
$* = 1;
print "yes\n" if "foo\nbar" =~ /^bar/; # prints yes
lib/Classic/Perl.pm view on Meta::CPAN
# ... features off here ...
To enable or disable a specific set of features, pass them as arguments to
C<use> or C<no>:
use Classic::Perl qw< $[ split $* >;
To enable features that still existed in a given version of perl, put
I<four> colons in your C<use> statement, followed by the perl version. Only
plain numbers (C<5.008>) are currently supported. Don't use v-strings
(C<v5.8.0>).
use Classic::::Perl 5.016; # does nothing (yet)
use Classic::::Perl 5.014; # enables $[, but not split or $*
use Classic::::Perl 5.010; # enables $[ and split, but not $*
use Classic::::Perl 5.008; # enables everything
This is not guaranteed to do anything reasonable if used with C<no>.
=head1 THE FEATURES THEMSELVES
=over
=item $[
This feature provides the C<$[> variable, which, when set to an integer
other than zero, offsets indices into arrays and strings. For example,
setting it to 1 (almost the only non-zero value actually used) means
that the first element in an array has index 1 rather than the usual 0.
The index offset is lexically scoped, as C<$[> has been as of Perl 5.10,
unlike its behaviour in Perl 5.0-5.8 (file-scoped) and Perl 1-4 (global).
This is deprecated in Perl, but has not yet been removed. If it is
removed, Classic::Perl will continue to provide it.
lib/Classic/Perl.pm view on Meta::CPAN
This feature provides the C<$*> variable, which, when set to an integer
other than zero, puts an implicit C</m> on every regular expression.
Unlike the C<$*> variable in perl 5.8 and earlier, this only works at
compile-time and is lexically
scoped (like C<$[> in 5.10-5.14). It only works with constant values.
C<$* = $val> does not work.
<$*> was removed in perl 5.9.
=back
lib/Classic/Perl.pm view on Meta::CPAN
C<autovivification> module and tweaked. The F<ptable.h> file was taken
straight from his module without modifications. (I have been subsequently
informed that he stole it from B::Hooks::OP::Check, which pilfered it from
autobox, which filched it from perl. :-)
Andrew Main (Zefram) added support for C<$[> in 5.16.
=head1 SINE QUIBUS NON
L<perl> 5 or higher
lib/Classic/Perl.pm view on Meta::CPAN
=head1 SEE ALSO
L<Array::Base>, L<String:Base>,
L<perl>, L<C<split> in perlfunc|perlfunc/split>,
L<C<$*> in perlvar|perlvar/$*>,
C<C<$[> in perlvar|perlvar/$[>
L<any::feature> is an experimental module that backports new Perl features
to older versions.
The L<Modern::Perl> module enables various pragmata which are currently