allagh enos string se polla arxeia

[dominant]

exo ena folder me 10ades arxeia kai 8elo na allakso ena string se kati allo se ola ta arxeia me thn mia.

 

ola ta arxeia einai text.

 

euxaristo

[Kserolas]

to Total Commander exei tetoia ergaleia. http://www.ghisler.com/

[dominant]

an kai den vrika pos na kano replace se ola toulaxiston vrike to string pattern se ola. tespa

[lionheart]

dominant dwse ena paradeigma! Pws akribws einai ta arxeia kai ti 8eleis na kaneis!

[Teoulas]

Δοκίμασε το dsFSR από εδώ:

http://freezip.cjb.net/freeware/

 

Μικρό στο μάτι...

[wraeththu]

Ή αυτό:

http://www.antp.be/software/renamer

 

Edit: Άκυρο γιατί νόμιζα πως αναφέρεσαι σε filenames.

[Kserolas]

To Total Commander exei to ergaleio pollaplis metonomasias. allazeis: onoma, eyros, epektasi, imerominia, ora.....

H kaneis sysxetisi epektaseon me programata ktl....

[dominant]

exo 10.000 php arxeia kai 8elo na allakso mia sunarthsh counter() se counter_new() h opoia vriskete se parapano apo ta misa arxeia.

 

Diladi to counter string na ginei se counter_new se ola ta arxeia pou to periexoun.

[hayzel]

mporw na sou dwsw apantish sto linux an tixon to exeis... h' mporeis na xrisimopoihseis kapoio live cd:

 

1. kane ena backup twn arxeiwn sou.

2. pigaine sto fakelo pou exei ta 10000 arxeia.

3. estw oti ta arxeia exoun pattern file*.php

4. estw oti theleis to counter() na allaksei se counter_new()

5. ektelese sto termatiko (bash) to parakatw :

 

for i in $( ls file*.php ); do replace "counter()" "counter_new()" "counter()" "counter_new()" -- $i; done

 

se mia seira ...

 

elpizw na boithisa....

hayzel

[baxter]

file dominant,

eiha to idio provlima alla me arheia cgi

eftiaxa ena script loipon se perl pou kanei afti ti douleia

 

arhika sou zitaei "file to find : " ,ekei valtou afto -> \.php

meta "dir to start : ", dwstou to dit me ena "\" sto telos

meta sou zitaei "palia lexi" (i protasi pou tha adikatastathei)

kai meta "nea lexi" (i protasi pou tha bei sti thesi tis palias)

 

prin to hrisimopoiiseis kane ena backup!!! (POLY SIMADIKO)

tin eiha pathei arhika alla eftihws vrika tropo na to epanaferw...

 

to mono pou tha prepei na prosexeis einai na hrisimopoieis to escape char "\" sto input pou dineis stin palia lexi..

 

px. an thes na adikatastiseis to keimeno "counter()" tote eisai ok

an omws thes na adikatastiseis to keimeno " counter("a") " tote tha prepei na to grapseis etsi : counter(\"a\")

to idio simvainei kai me haraktires opws ".","*","$","\" klp ...

 

loipon, afto einai to DIORTHWMENO script to opoio koitaei kai se ypokatalogous :

 

>
#!/usr/bin/perl

use File::Copy;


print "windows users use \"/\" instead of \"\\\"\n";
print "  ex. c:/\n";
print "always add a \"/\" at the and of starting directory!\n\n";

print "File to find : ";  chomp($file=<>);
print "Dir to start : ";  chomp($dir=<>);
print "Palia lexi   : ";  chomp($old=<>);
print "Nea lexi     : ";  chomp($new=<>);

if ($dir !~ /\/$/) {
 print "Starting dir must end with a \"/\" ...\n";
 exit;
}

$found=0;
$total=0;

print "Starting directory : \"$dir\" ...\n";
print "  Searching for file \"$file\" ...\n\n";

&checkup($file,$dir);

print "\nFiles found : $total\n";


sub checkup {
 my ($fl,$nd)=@_;
 my $file1;

 if (opendir DIR, $nd) { 
   my @files=readdir(DIR);

   foreach $file1 (@files) {
     if (($file1 !~ /^\.*$/)&&($file1 =~ /$fl/i)) {
       &found_it($nd,$file1);
     }
   }
     
   foreach $file1 (@files) {
     if ($file1 !~ /^\.*$/) {
       if (-d $nd.$file1) {
         $temp=$nd . $file1 . "/";
         &checkup($fl,$temp);
       }
     }
   }
 }
 else {
   push(@na,$nd);
 }
}

sub found_it {

       my ($mydir,$file) = @_;

$total++;
       print "--- Processing file \"$mydir$file\"...  ";

open(F,"$mydir$file") || die "\nError opening \"$mydir$file\" ...\n";
open(F2,">xxxtemp.qwe");
while ($line=<F>) {
  $line =~ s/$old/$new/g;
  print F2 "$line";
}
close(F);
close(F2);
move("xxxtemp.qwe","$mydir$file");

print "OK\n";


       $total++;
}

[dominant]

Pigenei kai stous upokatalogous to script?

[baxter]

ohi , tsekare to se 10 lepta omws pali..

tha to kanw edit wste na pigainei

[Leibniz]

Ultraedit re seis. http://www.ultraedit.com

Anoigeis ola ta arheia me ultraedit kai kaneis replace me checkarismeno "All open files".