sh2

#!/bin/bash

for BINLOG in $@; do
  echo $BINLOG $(mysqlbinlog $BINLOG 2>/dev/null | awk '/^#[0-9]/ { print $1, $2 }' | head -1)
done

==

$ ./list.sh mysql/binlog/*
mysql/binlog/mysql-binlog.000001 #140206 18:14:57

sh2

CREATE TABLE `customer` (
  `c_id` int(11) NOT NULL,
  `c_d_id` tinyint(4) NOT NULL,
  `c_w_id` smallint(6) NOT NULL,
  `c_first` varchar(16) DEFAULT NULL,
  `c_middle` char(2) DEFAULT NULL,
  `c_last` varchar(16) DEFAULT NULL,
  `c_street_1` varchar(20) DEFAULT NULL,
  `c_street_2` varchar(20) DEFAULT NULL,
  `c_city` varchar(20) DEFAULT NULL,

sh2

#!/usr/bin/env perl

use strict;
use warnings;

use File::Temp qw/tempfile/;

my ($state, $nprocs) = (0, 0);
my ($fh, $tempfile, @settings);

sh2

set nocompatible

set t_Co=256
colorscheme default

if has('vim_starting')
    set runtimepath+=~/.vim/bundle/neobundle.vim/
endif

call neobundle#rc(expand('~/.vim/bundle/'))

sh2

package wikipedia.searcher;

import java.sql.Connection;
import java.sql.DriverManager;
import java.sql.PreparedStatement;
import java.sql.ResultSet;
import java.sql.SQLException;
import java.sql.Statement;
import java.util.ArrayDeque;
import java.util.ArrayList;

sh2

#!/usr/bin/perl

use strict;
use warnings;

my $count = 0;

while (my $line = <STDIN>) {
    print $line;

sh2

escape ^z^z

altscreen on
autodetach on
defscrollback 10000
startup_message off
vbell off

caption always '%?%F%{= bW}%:%{= KW}%?%2n%f%06=%t'
hardstatus alwayslastline '%Y/%m/%d %0c %{= .b}%H%{-} %-w%{= bW}%n %t%{-}%+w'

sh2

Sub Main
	oFilePicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
	oFilePicker.appendFilter("Response Files (*_r.csv)", "*_r.csv")
	oFilePicker.appendFilter("All Files (*.*)", "*.*")
	
	If oFilePicker.execute() = com.sun.star.ui.dialogs.ExecutableDialogResults.OK Then
		sFiles() = oFilePicker.getFiles()
		oSheet = ThisComponent.getSheets.getByName("Data")
		oSheet.link(sFiles(0), "", "Text - txt - csv (StarCalc)", "44,34,76,1", com.sun.star.sheet.SheetLinkMode.NORMAL)
		oSheet.setLinkMode(com.sun.star.sheet.SheetLinkMode.NONE)

sh2

#!/usr/bin/perl

use strict;
use warnings;

my (%sequential, %random);
my ($type, $blocksize, $ratio, $iodepth, $header);


while (my $line = <STDIN>) {

sh2

-- dimension tables

CREATE TABLE warehouse (
  w_warehouse_sk    INT NOT NULL,
  w_warehouse_id    CHAR(16) NOT NULL,
  w_warehouse_name  VARCHAR(20),
  w_warehouse_sq_ft BIGINT,
  w_street_number   CHAR(10),
  w_street_name     VARCHAR(60),
  w_street_type     CHAR(15),