Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

AI::Perlog -- Q&A

by Ovid (Cardinal)
on Aug 02, 2002 at 16:31 UTC ( #187143=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
        $pg->owns( qw/ $Who gold / );
  2. or download this
        my $a = shift @important;
        while( my $z = shift @important ) {
            $a = $z;
        return 1;
  3. or download this
        sub _check_path {
            my ( $self, $predicate, $lvl1, $lvl2, $arg1, $arg2 ) = @_;
                exists $self->{_arg_levels}{$predicate}[$lvl1]{$arg1}[$lvl
            return; # nope, didn't find it
  4. or download this
      $pg->add_fact( owns => qw/ Ovid socks / );
      $pg->add_fact( gives => qw/ grep grief Ovid / );

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://187143]
[stevieb]: use metamod::DateTime. Don't fsck around. Seriously. As someone who's done sensitive date/time stuff, don't roll your own. Use what is available and known stable. Do not guess.
[stevieb]: Date::Time even
[stevieb]: ffs I can't make DateTime link properly, so there.
[atcroft]: .oO(It is a well-known, well-tried module that has probably encountered more corner-cases and oddities than the average mortal programmer can imagine when trying to roll their own...)

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2017-04-29 04:19 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (531 votes). Check out past polls.