k12u

$ ps -ef -E |grep ssh-a[g]ent  | perl -lne 'm/SSH_AUTH_SOCK=([^ ]+)/;print $1'
/tmp/launch-aaaaaa/Listeners

k12u

mysql> show create table m\G
*************************** 1. row ***************************
       Table: m
Create Table: CREATE TABLE `m` (
  `id` int(11) NOT NULL,
  `status` varchar(64) DEFAULT NULL,
  `value` int(11) DEFAULT NULL,
  PRIMARY KEY (`id`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1
1 row in set (0.00 sec)

k12u

#!/usr/bin/perl

use strict;
#use warnings;

use Getopt::Std;

my $svn_info = `svn info|grep URL`;
die "not http repository: $svn_info" unless $svn_info =~ /^URL: https?.+$/sm;
die "trunk/branches directory not found in svn info: $svn_info" unless $svn_info =~ m#^URL: https?.+/(branches|tags|trunk)#sm;

k12u

#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Std;

my %opts;
Getopt::Std::getopts('b:t:', \%opts);

k12u

#!/usr/bin/perl

use strict;
#use warnings;

use Getopt::Std;

my $svn_info = `svn info|grep URL`;
die "not http repository: $svn_info" unless $svn_info =~ /^URL: https?.+$/sm;
die "trunk/branches directory not found in svn info: $svn_info" unless $svn_info =~ m#^URL: https?.+/(branches|tags|trunk)#sm;