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

#!/bin/bash

TARGET_HOST=localhost
TARGET_FILE=/tmp/test.log
TARGET_LINE='^CRIT'

ssh $TARGET_HOST perl <<_EOF_
    use strict;
    use warnings;
    

sh2

[mysqld]
console

## character set
character_set_server = utf8mb4
collation_server = utf8mb4_general_ci

## sql
sql_mode = TRADITIONAL
transaction_isolation = READ-COMMITTED

sh2

#!/usr/bin/perl

use strict;
use warnings;

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


while (my $line = <STDIN>) {

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

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

#!/usr/bin/perl

use strict;
use warnings;

my $count = 0;

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

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

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

#!/usr/bin/env perl

use strict;
use warnings;

use File::Temp qw/tempfile/;

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