RubeRad

#! /bin/perl

# diffnum.pl

use Getopt::Std;
$opt{t} = 0.0;
getopts('t:', \%opt);

$f1 = shift @ARGV;
$f2 = shift @ARGV;

RubeRad

#! /bin/perl

# multi.pl

# Parse command-line switches
use Getopt::Std;
%opt = ();
getopts('htqorlgO:', \%opt);

$usage  = "Usage: multi.pl [-hqorlt] cmd before_pat after_pat [files]\n";

RubeRad

#! /bin/perl

# subinplace.pl

use Getopt::Std;
%opt = ();
getopts('tvsSh', \%opt);
$usage  = "Usage:\n";
$usage .= "subinplace.pl [-htv] 'before_pat' 'after_pat' files...\n";
$usage .= "     -h    _h_elp\n";

RubeRad

#! /bin/perl

# txt2tff.pl

use Getopt::Std;
$opt{x} = 1;
getopts('x:o:', \%opt);

# determine the dimensions, create an empty 2D matrix
$_ = <>;