#!/usr/bin/perl
# rexname - Larry's filename fixer
#
# Modified by Brian Mathis to add testing and verbose
#
use strict;
use Getopt::Long;
my $usage = <
rexname expr [files]
rexname --test expr [files]
rexname --verbose expr [files]
Options:
--test (-t)
Don't actually do anything (implies -v)
--verbose (-v)
Display output of changes as they are made
USAGE
my($test, $verbose);
GetOptions("test" => \$test, "verbose" => \$verbose);
if($test) { $verbose = 1; }
my $op = shift or die $usage;
chomp(@ARGV =
for (@ARGV) {
my $was = $_;
eval $op;
die $@ if $@;
print "$was \t-> $_\n" if $verbose;
@echo off
C:
chdir C:\cygwin\bin
rxvt -e bash --login -i
Used with cygwin. Helpful when using rxvt as the cygwin terminal.
xterm*foreground: gray
xterm*background: black
xterm*geometry: 132x50
xterm*saveLines: 1000
xterm*scrollBar: true
xterm*rightScrollBar: true
xterm*loginShell: true
rxvt*foreground: gray
rxvt*background: black
rxvt*geometry: 132x50
rxvt*saveLines: 1000
rxvt*scrollBar: true
rxvt*scrollBar_right: true
rxvt*loginShell: true
rxvt*font: DejaVu Sans Mono-13