| User since: | Mar 03, 2004 at 09:25 UTC |
| Last here: | Apr 11, 2013 at 11:53 UTC (6 weeks ago) |
| Experience: | 3879 |
| Level: | Curate (13) |
| Writeups: | 415 |
| Location: | The Netherlands |
| User's localtime: | May 24, 2013 at 23:34 CEST |
| Scratchpad: | View |
|
| Date | Category | Title |
| Jan 2013 | Meditations | Hungarian notation, kind of |
| Sep 2010 | SoPW | A matter of style: how to perform a simple action based on a simple condition? |
| Feb 2007 | SoPW | UTF-8 text files with Byte Order Mark |
| Jun 2006 | SoPW | How is perl able to handle the null byte? |
| Sep 2004 | Meditations | A "but" operator. |
| Sep 2004 | SoPW | Extract subroutines from a Perl script. OR: "Only perl can parse Perl." But can it help me to do so? |
| Aug 2004 and onward | Meditations / Regex tutorials | Regexp do's and don'ts |
| Jul 2004 | Meditations | HTML - separating design and logic |
| May 2004 | SoPW | Change the parent of an instance |
| Mar 2004 | SoPW | So, now what are taints? |
| Mar 2004 | SoPW | See if a certain package has a certain sub, without executing that sub |
tye and me having a little fun in the chatterbox.
[muba]: my $is_string = ($scalar ^ $scalar) eq ("$scalar" ^ "$scalar");
[tye]: my $isNumber = $scalar ^ '00' eq $scalar;
[tye]: my $isNumber = do { my $warn= 0; local $SIG{__WARN__}= sub { $warn= 1 }; use warnings; $scalar^=''; $warn };
tye]: my $isNumber = ( $scalar ^ "$scalar" ) =~ /\d/;