
Think about Loose Coupling
	PerlMonks

Your Mother's scratchpad

by Your Mother (Archbishop)

on Jun 01, 2004 at 23:15 UTC ( #358778=scratchpad: print w/replies, xml )

Need Help??

Public Scratchpad

Download, Select Code To D/L

Help for this page

Select Code to Download

Select or download this

sub cap_ratio {
    local $_ = shift || return 0;
...
__END__
O HAI, cn u plEAZ hHELPS ME? I IZ CAT.
77%

Select or download this
```
use strict;

...
Hope it works

=cut
```
Select or download this
```
<html>
 <head>
...

</body>
</html>
```

Select or download this

(?:(?:\r\n)?[ \t])*(?:(?:(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:\r\
+n)?[ \t]
)+|\Z|(?=[\["()<>@,;:\\".\[\]]))|"(?:[^\"\r\\]|\\.|(?:(?:\r\n)?[ \t]))
+*"(?:(?:
\r\n)?[ \t])*)(?:\.(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\031]
++(?:(?:(
...
+|\Z|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?:\r\n)?[ \t
+])*)(?:.(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:
+\r\n)?[ \t])+|\Z
|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?:\r\n)?[ \t])*)
+)*\>(?:(
?:\r\n)?[ \t])*))*)?;\s*)

Domain Nodelet^?

www.com | www.net | www.org

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others chilling in the Monastery: (4)

As of 2023-02-09 12:59 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

I prefer not to run the latest version of Perl because:

Results (45 votes). Check out past polls.

Notices^?