There is not much more to show. Most is boring data manipulation that leads to the final array. The array holds only numbers. Nothing embedded.
my $conn = MongoDB::Connection->new;
my $db = $conn->mydb || die "$!";
my ($col, $cols, @cols, $q, $doc, @b, @c, @new, $x, $date, $l, $host);
+
@cols = $db->collection_names;
foreach $cols (@cols) {
Above a loop through some collections and for each make the new array. Then I try to replace the array.
if ( @new > 1 ){
foreach my $xxx (@new){ print '@new = '.strftime('%Y-%m-%d', l
+ocaltime($xxx))."\n"; }
$col->update(
{ "host" => $host },
{
'$set' => { "timestamp" => @new }
},
{ 'multiple' => 1, 'safe' => 1 }
) || die "$!";
The foreach loop above is just to show there is data in @new. That works :). The update fails. The documentation for MongoDB is a bit sparse. I assume my syntax is wrong. Alas, I cannot figure how.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.