- or download this
#!/usr/bin/perl -w
use strict;
...
$out .= $txt;
print Text::Wrap::wrap('', ' ' x $indent, $out), "\n";
}
- or download this
{
my $c = 0;
...
print ${counter()}, "\n" for 1..3;
${counter()} = 99;
print ${counter()}, "\n" for 1..3;
- or download this
# Use a sub to generate closures to be used as settable counters.
sub new_counter {
...
print '$c2: ' . ${&$c2}, "\n" for 1..3;
${&$c2} = 99;
print '$c2: ' . ${&$c2}, "\n" for 1..3;
- or download this
sub new_lvalue_counter {
my $c = 0;
...
print &$c3, "\n" for 1..3;
&$c3 = 10;
print &$c3, "\n" for 1..3;
- or download this
{
my @c;
...
counter(1) = 100;
print counter(0), "\n";
print counter(1), "\n";
- or download this
#!/usr/bin/perl -wl
use strict;
...
print /$pattern/ ? ' ': 'no ', "match: '$_'" for @good;
print 'BAD Tests';
print /$pattern/ ? ' ': 'no ', "match: '$_'" for @bad;
- or download this
GOOD Tests
match: '0e0'
...
match: '1.1a'
match: '1a.1'
match: '1.a1'
- or download this
<S_Shrum> our? never seen that one...Kewl...I'll research and impleme
+nt if
that does the trick...thanks
...
<theorbtwo> Yes, [kodo|sir]! Not that she hasn't been trying, sir!
* castaway .oO( gone .. )
<djantzen> [sauoq] is not and never has been a troll [merlyn].
- or download this
...
...
<sauoq> [Corion] Sshh... don't tell anyone else I'm not gnat... I woul
+dn't
want that to get around. ;-)
* sauoq chuckles.