Re: help for sed

R p wrote:
> 
> hi everyone.

Hello,

> i am trying to use sed in order to change all my batch
> script.

Sorry, I'll have to show you a Perl solution.  :-)

> the pb is:
> 
> i have the following batch:
> @echo on
> TIMETHIS.exe k:\Validation\Soft\abc.exe
> k:\test_1.sct k:\Validation\PlugIn\abc.link >>
> k:\test_1.log
> @echo off
> exit
> ------------------------------------
> i want to delete all character after abc.link

ALL characters or just all characters on the same line?


> how can i do with the command sed.
> i have written this. but it does not work
> --------------------------------------
> chem=K:/Validation/try
> cd $chem
> 
> echo "Creation Of All '*.bat files ..."
> find -type f -iname '*.bat' > list.txt
> 
> for i in `cat list.txt`
> do
>   echo "Processing File $i .."
>   if [ -f $i.new ]; then rm -f $i.new ;fi;
>   sed  -e ' s/^>>//g' $i > temp
>   mv temp $i
> done
> echo "Done."


#!/usr/bin/perl -w
use strict;
use File::Find;

local $^I = '';
local $/;
local @ARGV;

find( sub { -f and /\.bat$/i and push @ARGV, $File::Find::name }, '.' );

while ( <> ) {
    # remove everything after "abc.link" on the first line found
    s/abc\.link.*$/abc.link/m;
#   # remove everything after "abc.link" on all lines
#   s/abc\.link.*$/abc.link/mg;
#   # remove everything after "abc.link" to the end of the file
#   s/abc\.link.*/abc.link\n/s;
    }

__END__


John
-- 
use Perl;
program
fulfillment

• help for sed by r p
• Re: help for sed by Bill Akins
• Re: help for sed by John W. Krahn
• Re: help for sed by Michael Kelly