Psyphi Blog v5

history|awk '{print $2}'|sort|uniq -c|sort -rn|head
135 prove
 80 svn
 71 make
 27 cover
 27 HARNESS_PERL_SWITCHES=-MDevel::Cover
 23 scripts/yaml_dumper
 22 open
 21 perl
 18 ls
 11 pwd

history|awk '{print $2}'|sort|uniq -c|sort -rn|head
  149 ls
   51 perl
   45 svn
   42 cd
   24 tail
   15 df
   14 rm
   11 less
   11 cat
    9 grep

SELECT cycle FROM goldcrest WHERE id_run = ?

EXPLAIN SELECT cycle FROM goldcrest WHERE id_run = 231;
+----+-------------+-----------+------+---------------+---------+---------+-------+--------+-------------+
| id | select_type | table     | type | possible_keys | key     | key_len | ref   | rows   | Extra       |
+----+-------------+-----------+------+---------------+---------+---------+-------+--------+-------------+
|  1 | SIMPLE      | goldcrest | ref  | g_idrun       | g_idrun |       8 | const | 262792 | Using where | 
+----+-------------+-----------+------+---------------+---------+---------+-------+--------+-------------+

SELECT MIN(cycle),MAX(cycle) FROM goldcrest WHERE id_run = ?

ALTER TABLE goldcrest ADD INDEX(id_run,cycle);
Query OK, 37589514 rows affected (23 min 6.17 sec)
Records: 37589514  Duplicates: 0  Warnings: 0

EXPLAIN SELECT MIN(cycle),MAX(cycle) FROM goldcrest WHERE id_run = 231;
+----+-------------+-------+------+---------------+------+---------+------+------+------------------------------+
| id | select_type | table | type | possible_keys | key  | key_len | ref  | rows | Extra                        |
+----+-------------+-------+------+---------------+------+---------+------+------+------------------------------+
|  1 | SIMPLE      | NULL  | NULL | NULL          | NULL |    NULL | NULL | NULL | Select tables optimized away | 
+----+-------------+-------+------+---------------+------+---------+------+------+------------------------------+
SELECT MIN(cycle),MAX(cycle) FROM goldcrest WHERE id_run = 231;
+------------+------------+
| MIN(cycle) | MAX(cycle) |
+------------+------------+
|          1 |         37 | 
+------------+------------+
1 row in set (0.01 sec)

sub clone_type {
  my ($self, $clone_type, $clone) = @_;
  my %clone_type;
  if($clone and $clone_type) {
    $clone_type{$clone} = $clone_type;
    return $clone_type{$clone};
  }
  return;
}

sub clone_type {
  my ($self, $clone_type, $clone) = @_;
  if($clone and $clone_type) {
    return $clone_type;
  }
  return;
}