blabos-zz

open(PROG, 'foobar') || die ('Cannot execute foobar');
while (<PROG>) {
    $line = $_;
    chmop($line);
    
    if ($line =~ /SOME_PATTERN/) {
        $global_error = 1;
        last;
    }
    

blabos-zz

user@host:~$ wc -l sys_errors.csv 
65536 sys_errors.csv
user@host:~$ sort sys_errors.csv | uniq | wc -l
2519

blabos-zz

#!/usr/bin/env perl
use lib '../lib/';
use local::lib;

use Dancer;
use DancerTest;
dance;

blabos-zz

#!/usr/bin/env perl
use lib '/home/user/perl5/lib/perl5';
use local::lib;

use Dancer ':syntax';
use FindBin '$RealBin';
use Plack::Handler::FCGI;

# For some reason Apache SetEnv directives dont propagate
# correctly to the dispatchers, so forcing PSGI and env here 

blabos-zz

RewriteEngine On
RewriteCond %{REQUEST_URI} !^/?TestApp/public/dispatch.fcgi
RewriteRule ^(.*)$ TestApp/public/dispatch.fcgi/$1 [PT,L]

blabos-zz

/**
 * bellman-ford.cpp
 *
 *  Created on: Nov 29, 2010
 *      Author: blabos
 */
#include <iostream>


using namespace std;

blabos-zz

/*
 * kruskal.cpp
 *
 *  Created on: Nov 28, 2010
 *      Author: blabos
 */
#include <iostream>
#include <set>
#include <queue>
#include <stack>

blabos-zz

/**
 * search.cpp
 *
 *  Created on: Nov 28, 2010
 *      Author: blabos 
 */
#include <iostream>
#include <queue>
#include <stack>

blabos-zz

;	+----+----+----+
;	|  1 |  2 |  3 |	row0
;	+----+----+----+
;	|  4 |  5 |  6 |	row1
;	+----+----|----+
;	|  7 |  8 |  9 |	row2
;	+----+----+----+
;	|  A |  0 |  B |	row3
;	+----+----+----+
;	 col0 col1 col2

blabos-zz

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

package Model;

use ORLite {
    'file'      => 'bars.db',