- or download this
#! perl -w -l
...
print "UNTIE $this";
}
}
- or download this
> "perl" test.pl
Use of uninitialized value $value in concatenation (.) or string at te
+st.pl line 32.
...
FETCH from MyTie=SCALAR(0x326328): 123
123
DESTROY MyTie=SCALAR(0x326328)
- or download this
#! perl -w
use utf8;
...
}
print "/[$class]/\n";
- or download this
/[\u00e0-\u00e5\u0101\u0103\u0105]/ - or download this
#! perl -w
...
suppress => sub { (my $x = $s)=~s/ .*//; return $x<=>100 },
substr => sub { return substr($s, 0, index $s, ' ')<=>100 },
};
- or download this
Rate capture local suppress lexical substr cle
+an
capture 195157/s -- -25% -73% -86% -88% -9
+2%
...
lexical 1371744/s 603% 425% 90% -- -18% -4
+3%
substr 1679632/s 761% 543% 133% 22% -- -3
+1%
clean 2427737/s 1144% 830% 236% 77% 45%
+--
- or download this
use DBIx::Simple;
unlink 'testdb.sqlite'; # drop the database file
...
local($\, $,) = ("\n", "\t");
print map { defined $_ ? $_ : 'NULL' } @$_;
}
- or download this
YYYNY
1 foo one 1
3 baz three 3
4 bar replaces NULL
- or download this
<perl>
warn "first block";
...
<perl>
warn "second block";
</perl>
- or download this
Syntax error on line 33 of /etc/apache2/listen.conf:
syntax error at /etc/apache2/listen.conf line 36, near "perl>"\n
- or download this
<perl>
warn "first block";
...
# ";
warn "second block";
</perl>
- or download this
first block at /etc/apache2/listen.conf line 33.
second block at /etc/apache2/listen.conf line 39.
Syntax OK
- or download this
C:\Documents and Settings\Bart\Mijn Documenten>perl -MExtUtils::Liblis
+t -MData::Dumper -le "print Dumper(ExtUtils::Liblist->ext('-lJudy', 1
+))"
Set up gcc environment - 3.4.5 (mingw-vista special r3)
...
C:\Documents and Settings\Bart\Mijn Documenten>
- or download this
perl reconnect.pl G: H:
- or download this
#! perl -wl
my %net_use;
...
# print $unpack;
return grep $_->[2] =~ /^\\\\/, map [ unpack $unpack, $_ ], @net;
}
- or download this
.chatfrom_599759:after {
content:" ...";
...
span.chatfrom_599759:hover:after {
content: "";
}
- or download this
print ignore_css(qw(190859 599759));
...
}
return "";
}
- or download this
#! perl -w
{
...
print;
}
}
- or download this
The Start
Store outside
...
Fetch outside
outside
The End
- or download this
local *_ = \undef;
- or download this
# The metrics_path is used to locate metrics files
#
...
$metrics_path =~ tr&\\&/& if $path_sep eq ';';
my @metrics_path = split(/$path_sep/, $metrics_path);
foreach (@metrics_path) { s,/$,, } # remove trailing slashes
- or download this
--- C:\Documents and Settings\All Users\Documenten\Downloads\Font\AFM.
+pm Sun Dec 25 22:20:34 2005
+++ C:\PERL\site\lib\Font\AFM.pm Wed Jun 27 08:26:12 2001
...
my $self = bless { }, $class;
local($/, $_) = ("\n", undef); # ensure correct $INPUT_RECORD_SEP
+ARATOR
while (<AFM>) {
- or download this
package HexDump;
...
}
1;