#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if $running_under_some_shell; my $startperl; my $perlpath; ($startperl = <<'/../') =~ s/\s*\z//; #!/usr/bin/perl /../ ($perlpath = <<'/../') =~ s/\s*\z//; /usr/bin/perl /../ $0 =~ s/^.*?(\w+)[\.\w]*$/$1/; # (p)sed - a stream editor # History: Aug 12 2000: Original version. # Mar 25 2002: Rearrange generated Perl program. # Jul 23 2007: Fix bug in regex stripping (M.Thorland) use strict; use integer; use Symbol; =head1 NAME psed - a stream editor =head1 SYNOPSIS psed [-an] script [file ...] psed [-an] [-e script] [-f script-file] [file ...] s2p [-an] [-e script] [-f script-file] =head1 DESCRIPTION A stream editor reads the input stream consisting of the specified files (or standard input, if none are given), processes is line by line by applying a script consisting of edit commands, and writes resulting lines to standard output. The filename `C<->' may be used to read standard input. The edit script is composed from arguments of B<-e> options and script-files, in the given order. A single script argument may be specified as the first parameter. If this program is invoked with the name F, it will act as a sed-to-Perl translator. See L<"sed Script Translation">. B returns an exit code of 0 on success or >0 if an error occurred. =head1 OPTIONS =over 4 =item B<-a> A file specified as argument to the B edit command is by default opened before input processing starts. Using B<-a>, opening of such files is delayed until the first line is actually written to the file. =item B<-e> I