* substitute delimited words
@ 1993-04-25 17:13 Ed Kubaitis - CCSO
0 siblings, 0 replies; only message in thread
From: Ed Kubaitis - CCSO @ 1993-04-25 17:13 UTC (permalink / raw)
To: sam-fans
Here's a script that uses the sam command pipe to save keystrokes when
substituting delimited words.
Ed
==============================================================================
#! /usr/local/bin/perl
#
# sam_sw - generate sam command to substitute delimited words
#
# usage: !sam_sw [-X] [-,] from to
while($_ = $ARGV[0], /^-/) {
shift;
if (m!^-X$!) { $XFlag++; $CommaFlag++; }
elsif (m!^-,$!) { $CommaFlag++; }
else { &usage; }
}
($from,$to, @toomany) = @ARGV;
&usage if @toomany || !$from || !$to;
$command = "X " if $XFlag;
$command .= "," if $CommaFlag;
$from =~ s/([()*[\]\\^\$+?!])/\\$1/g; # escape meta characters
$to =~ s/([()*[\]\\^\$+?!])/\\$1/g;
$command .= "s!(^|[^A-Za-z0-9_])$from(\$|[^A-Za-z0-9_])!\\1$to\\2!g\n";
&sampipe($command);
sub sampipe {
local($commands) = @_;
$user = $ENV{'USER'};
$user = $ENV{'LOGNAME'} unless $user;
$user || die "$0: no USER or LOGNAME environment variable.\n";
$pipe = ".sam.$user";
$pipe .= ".$ENV{'DISPLAY'}" if $ENV{'DISPLAY'};
$Pipe = "/tmp/$pipe";
$Pipe = "/usr/tmp/$pipe" unless -p $Pipe;
-p $Pipe || die "$0: no sam pipe($pipe) in /tmp or /usr/tmp\n";
open(Pipe, ">$Pipe") || die "$0: $Pipe: $!\n";
print Pipe "$commands";
close(Pipe);
}
sub usage { die "usage: !sam_sw [-X] [-,] from to\n"; }
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~1993-04-25 17:14 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1993-04-25 17:13 substitute delimited words Ed Kubaitis - CCSO
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).