brisanje sadrzaja iz fajla

[ misa vranje @ 21.01.2005. 18:01 ] @

Kako da iz nekog fajla izbrisem odredjeni sadrzaj?
Znam kako da prepisem nesto preko tog sadrzaja ali
kako da ga izbrisem ne znam.Postupak je pretpostavljam
isti i za brisanje sadrzaja text polja u Tk ako je
vezan tie funkcijom neki filehandle za to polje.
Da li je isti?

Hvala

[ Mitrović Srđan @ 21.01.2005. 18:41 ] @

overwrite

Code:
open(DAT,">$data") || die("Nemogu da otvorim fajl");

u bejon primeru koji sam radio bilo je nes slicno

Code:
open(DAT, $data) || die("Nemogu da otvorim file");
@raw_data=<DAT>;
close(DAT);

splice(@raw_data,1,1);

open(DAT,">$data") || die "Nemogu da otvorim file";
print DAT @raw_data;
close(DAT);

znaci mislim da nema komande za brisanje vec ucitamo sadrzaj fajla u aray izvrsimo splice linije koju zelimo da brisemo iz araya i zapisemo sadrzaj araya ponovo u file.

na one linersima sam naleteo na ovaj primer ali nisam ga isprobao

Code:
perl -i.old -ne 'print unless 1 .. 10' kita.txt

brise od 1-10 linija

[ misa vranje @ 22.01.2005. 13:56 ] @

Sigurno postoji neka funkcija za brisanje sadrzaja.
Zamisli kad bi vmware bio napisan u perlu?On koristi
fajlove neki put i vece od 4GB.Koliko bi onda vremena
trebalo da izbaci samo neki mali deo iz fajla?
A ako stvarno nema onda je to velika mana perla.

[ Mitrović Srđan @ 22.01.2005. 14:55 ] @

rekao sam da ja mislim da nema,sto mozda i neznaci da nema :).i ja sam pocetnik

[ MoDcHe @ 22.01.2005. 22:43 ] @

ovo ti je da maknes string iz fajla:
perl -ni -e "print unless /^tamo neki string/" fajl.txt

[ misa vranje @ 23.01.2005. 12:09 ] @

Izvini MoDcHe ali nije li to nesto slicno
kao i odgovor blooda?
Molim vas ako biste zeleli samo da mi odgovor
napisete u obliku perl scripta a ne kao perl
na komandnoj liniji.

[ MoDcHe @ 23.01.2005. 13:24 ] @

Pa i nije bas isto, bladovo brise linije od 1 do 10 a moj odredjeni string u fajlu.

[ misa vranje @ 23.01.2005. 14:55 ] @

Problem je u tome kako ustedeti sto vise vremena pri izvrsenju programa.
Ovaj nacin o ucitavanju celog fajla i ponovnom (ne)upisivanju samo nekih
njegovih delova se moze uraditi na razne nacine ali ne stedi bas dosta
procesorskog vremena.Meni to i nije glavni problem posto radim sa bazom
ne vecom od 5MB ali bih voleo da znam jer ce mi sigurno nekad koristiti.
A to vase resenje ne odgovara na problem koji sam naveo kada sam postavljao
temu a to je da to brisanje iskoritim u upravljanju Tk::Text poljem u Perl/Tk
programiranju.
Hvala

[ misa vranje @ 26.01.2005. 13:22 ] @

Pa zar nema resenja?

[ mpapec @ 26.01.2005. 18:59 ] @

perldoc -q "delete a line"
Found in C:\Perl\lib\pod\perlfaq5.pod
How do I change one line in a file/delete a line in a file/insert a line in th
e middle of a file/append to the beginning of a file?
Use the Tie::File module, which is included in the standard
distribution since Perl 5.8.0.

ili to, ili ovo sto su ti ljudi vec napisali.

[ misa vranje @ 27.01.2005. 22:38 ] @

Hvala puno
Neznate koliko ste mi pomogli