ÉN használt a következő szkriptet


cd pathname
"Y" az "ls *";
tesz sed "S / ABCD / DCBA / g" $ y> temp; mv temp $ y;
kész


és ez munkás finom és-cserével vonósok nevek stb minden fájlt a megadott elérési utat.

Próbálok helyett egy sor álló út (location of file)

mondjuk helyett ABCD én helyére c: / mydocuments / képek
d: / mypics / személyes, mint metakarakter szokás keresni a Unix a szkript nem helyettesíteni a húr, amely egy utat benne.

így most a szkript


cd pathname
"Y" az "ls *";
tesz sed "s /" c: / mydocuments / pictures '/' d: / mypics / személyes '/ g "$ y> temp; mv temp $ y;
kész




Én fáradt, hogy az ösvény egy-és kétágyas quotes quotes, de látom hiba

sed: Parancs elrontott: s / "c: / mydocuments / pictures '/' d: / mypics / személyes '/ g


És az összes tartalmát a fájlok elérési útját törlésre kerül.


Is próbált a következő használatával sed --


sed -e "s! AAA! BBB! g"
sed \u003d e "s + + AAA BBB + g"

mivel a string van / a fájl helyének elérési útját

Van-e bármilyen más módon, hogy ezt meg.

Köszönöm

Próba

cd pathname
for y in `ls *`;
do 
   sed 's_c:/mydocuments/pictures_d:/mypics/personal_' $y > temp; mv temp $y;
done

alatt küldött a script hiba

sed: Parancs tapasztalhatja:

Volt egy hibás / a sed parancsot.
Előző post módosult.

Jean-Pierre.

Aposztrófokat válik rendes karakterekkel belül idézőjelek. Úgy meg tudod csinálni:

echo "That's OK"

és ez nem hiba, vagy open-quote. Úgy elhelyezés egyágyas idézőjelek belsejében idézett sedexpressziós rendben van, de nem idézem a szöveg között.

A fenti kódot: Jean-Pierre néz OK nekem.

Most már működik, az egyik _ hiányzik az én sed parancsot.

Köszönet mindenkinek, aki válaszolt 2

#! / usr / bin /perl
a bash # #. / ff.pl - prod \ / opt \ / WebSphere5 - cob \ / opt \ / was6mig \ / WebSphere5-bázis

használata File:: Find;
használat Getopt:: Long;
# $ dmPath \u003d "/ scratch / optcob / cells.dmgr.tmp";
# Módosítsa a Basepath új másolt WAS5 másolt helyre.
$ basePath \u003d "/ opt/IBM/WAS6.1/IBMIHS/CI_CNV_CRD_HTTPServer";
$ dmPath \u003d "/ DM5" # Ne aggódj ez $ basePath \u003d "/ app/WebSphere6/profiles";
$ tmpf \u003d "/ tmp / tmpf";
albekezdése ModFileByRegex (
my ($ tok, $ repl, $ fpat, $ path) \u003d (@_);
my $ cnt \u003d 0;
albekezdése fwanted (
-f & &
$ File:: Find:: name \u003d ~ / $ fpat / & & do (
open (INF, $ File:: Find:: name) | | die "can't open $ File:: Find:: name: $!";
open (TMPF, "> $ tmpf") | | die "can't open $ tmpf for writing: $!";
my @ input \u003d <INF>;
my $ change \u003d grep (s / $ tok / $ repl / g) @ bemenet;
if ($ változás> 0) (
szoros INF;
print TMPF @ bemenet;
szoros TMPF;
print "frissítése és takarékpénztárak másolatát $ File:: Find:: name \ n";
rename $ File:: Find:: name, $ File:: Find:: name. ". org";
print "cp-p $ tmpf $ File:: Find:: name \ n";
$ cnt + +;
)
)
)
print "$ Path keresést dollár tok állományában hívott fpat $ \ n";
find (\ & fwanted, $ path);
return ($ cnt);
)
albekezdése findDirByRegex (
my ($ tok, $ repl, $ path) \u003d (@_);
my $ cnt \u003d 0;
sub akart (
-d & &
$ File:: Find:: name \u003d ~ / $ tok [\ w \ .]*?$/ & &
push @ DIRL, $ File:: Find:: name;
)
print "Keresi a könyvtárakat $ $ Path nevű tok \ n";
find (\ & akarta, $ path);
while ($ _ \u003d pop @ DIRL) (
$ src \u003d $ _;
s / $ tok ([\ w \ .]*)?$/$ repl $ 1 /;
print "rename $ src, $ _ \ n";
rename $ src, $ _ | | warn "nem sikerült átnevezni utolsó fájl, kérjük";
$ cnt + +;
)
return ($ cnt);
)
optctl% \u003d ();
GetOptions (\% optctl, "prod \u003d s", "csutka \u003d s", "dmgr", "alap");
print "options set: \ n \ n";
print "prod rendszer (forrás rendszer):". optctl $ ( "prod"). "\ n" print "csutka rendszer (célrendszer):". optctl $ ( "csutka"). "\ n" print "Ne Deployment Manager \ n" if ($ optctl ( "dmgr") \u003d\u003d 1) print "Ne Base WebSphere \ n" if ($ optctl ( "alap") \u003d\u003d 1);
print "\ n \ n";
if ($ optctl ( "dmgr") \u003d\u003d 1) (
print "frissítése Deployment Manager XML-fájlokat \ n";
$ cnt \u003d ModFileByRegex ($ optctl ( "prod"), $ optctl ( "csutka"), ".*", $ dmPath);
print "$ cnt XML fájlok frissített \ n";)
if ($ optctl ( "alap") \u003d\u003d 1) (
print "frissítése WebSphere Base XML fájlokat \ n";
$ cnt \u003d ModFileByRegex ($ optctl ( "prod"), $ optctl ( "csutka"), ".*", $ basePath);
print "$ cnt XML fájlok frissített \ n";)
if ($ optctl ( "dmgr") \u003d\u003d 1) (
print "frissítése Deployment Manager base Directory Names \ n";
$ cnt \u003d findDirByRegex ($ optctl ( "prod"), $ optctl ( "csutka"), $ dmPath);
print "$ cnt könyvtárnevek updated \ n";)
if ($ optctl ( "alap") \u003d\u003d 1) (
print "frissítése WebSphere alap Directory Names \ n";
$ cnt \u003d findDirByRegex ($ optctl ( "prod"), $ optctl ( "csutka"), $ basePath);
print "$ cnt könyvtárnevek updated \ n";)