Dotaz: Mazání se soboru v Perlu

[TAPSOFT]

Prosím o pomoc. V stat1.txt souboru mám třeba toto nick1 nick2 nick2 nick4 a já potřebuji pomocí příkazu smazat určitý nick x

do souboru to zapisuji takto open(STATISTIKA, ">>stat1.txt"); print STATISTIKA "$nick\n"; close(STATISTIKA);

Za pomoc moc děkuji

---

---

Odpovědi

[moira]

Zkusil bych příkaz grep (existuje i v Perlu).

[TAPSOFT]

příkaz grep jsem v perlu sice našel,ale nikde jeho použítí jak vymazat určité dané slovo ze souboru

[myšák]

Nezkoušel jsem, takže jen rychle od boku (netvrdím, že je to optimální způsob, grep by asi byl jednodušší):

$file = "stat1.txt";
$nick = "nick xx";

open (FILE, "<$file") or die "Can't open $file: $!\n";
@lines = <FILE>;
close FILE;

open (STDOUT, ">$file") or die "Can't open $file: $!\n";

foreach $line ( @lines ) {
    print $line unless /$nick/;
}
close STDOUT;

[TAPSOFT]

děkuji ti moc,jdu hned zkusit

[TAPSOFT]

tak tohle nefunguje

[NeoV]

Tu to maaas:

use strict;

my $file = "aaa"; # zazov suboru
my $nick = "nick xx"; # nick na vymazanie

my @lines;

open (FILE, "<$file") or die "Can't open $file: $!\n";
while(<FILE>) { push @lines,$_; }
close FILE;

open (STDOUT, ">$file") or die "Can't open $file: $!\n";

for my $line ( @lines ) {
print STDOUT $line unless($line =~ /$nick/);
}
close STDOUT;


[moira]

Blok while(<FILE>) { push @lines,$_; } se dá nahradit kratším @lines=<FILE>;

[myšák]

Jak "nefunguje"? Píše to něco? Nefunguje to jak sis představoval? Co to dělá? Křišťálovou kouli nemám...

[NeoV]

No ale tu koli nema ani on

btw. tvoj kod je v podstate cely spravne Su tam 'len' 2 chyby na jednom riadku:

print $line unless /$nick/;

spravne to mas mat:

print STDOUT $line unless($line =~ /$nick/);

[myšák]

No já chápu, že tazatel je asi (co se týče PERLu) mimo, ale napsat "nefunguje to" je fakt luxusní odpověď.

btw. Ten kod je v podstate správně až na tu podmínku - někde mi to uteklo při editaci a zbyl mi tam jen "pahýl" ... nicméně ještě tam musí být (alespoň podle té struktury stat1.txt dle tazatele) ten $nick "orámovaný", aby to nebralo násobné výskyty řetězce nebo části jiných (nick 1 vs. nick 10, nick 11 atd.)

PS: Nehledě na to, že to celé jde napsat ještě PERLověji

[TAPSOFT]

nejsem mimo,ale tohle je jen holý mazání,musím to vložit do robota o 4500 řádkách a ještě nastavit proměnné a příkazy které to mažou,takže to trvá trochu déle než ti vyzkouším

[TAPSOFT]

Předtím to nick neodebralo,ale ted to odebere a je to super,jsi fakt machr,děkuji moc

[myšák]

No machr rozhodně ne, ten by ti to napsal jako one-liner

[TAPSOFT]

ale jo jde ti to,no to víš kdo umí,ten umí

[TAPSOFT]

ještě jeden dotaz,co když je ale v té složce nick = Jsi na blacklistu-důvod.... nick2 = Jsi na blacklistu-důvod.... a já tím pádem potřebuji vymazat celý řádek kterýbych ale hledal podle nick

[happy barney]

v tom prípade použi výraz m/^$nick\b ... \b = zero length word boundary, t.j. za $nick môže byť koniec riadku alebo ľubovoľný znak iný ako alfanumberický

[TAPSOFT]

super,děkuji

[sdsdsd]

OK. Je tam jedna chyba -> regexp u unless má být správně unless ($line =~ /^$nick$/) jinak by to bralo pro nick1 i řádky nick10, nick11 atd. Takže správně takto:

#!/usr/bin/perl

$file = "stat1.txt";
$nick = "nick 1";

open (FILE, "<$file") or die "Can't open $file: $!\n";
@lines = <FILE>;
close FILE;

open (STDOUT, ">$file") or die "Can't open $file: $!\n";

foreach $line ( @lines ) {
    print $line unless ($line =~ /^$nick$/);
}
close STDOUT;

[happy barney]

ak už dávaš celý súbor do pamäti, prečo nepoužiješ grep ?

$file = "stat1.txt";
$nick = "nick 1";

open (INFILE, "<$file") or die "Can't open $file: $!\n";
open (OUTFILE, ">$file.new") or die "Can't open $file.new: $!\n";

print OUTFILE grep $line !~ /^$nick$/, <INFILE>;

close INFILE;
close OUTFILE;

unlink "$file";
rename "$file.new", "$file";

[NeoV]

no pokial sa hrame na zvrhlosti typu kto da najmansi kod, tak potom :

$file = "stat1.txt";
$nick = "nick 1";

open(STDOUT, ">${file}.part");
open(STDIN, "<$file");

print for grep !/^$nick$/, <>;
rename("${file}.part",$file);

[myšák]

Případně ten stat1.txt flákneme jako argument toho skriptu a o zabackupovaný původní file ať se stará někdo jiný

#!/usr/bin/perl
$^I = "~";
$nick = "nick 6";
while (<>) {
	print unless /^$nick$/;
}

[ph0enix]

To pak staci i

#!/usr/bin/perl
$nick = "nick 6";
print grep {!/^$nick$/} <>;

[myšák]

Tak mě napadá ... nešel by ten nick hodit jako druhý parametr?

[happy barney]

takto ? #!/usr/bin/perl -n BEGIN { $nick = pop }; /^$nick\b/ || print;

[happy barney]

oops, <code> miesto <pre>

[myšák]

Joooooooooo! Já věděl že to jde Smekám! Miluju PERL ... akorát ho furt používám tak nePERLovsky, až se stydím

[ph0enix]

A co takhle?

perl -e '$n=pop;print grep{!/^$n\b/}<>' data.txt nick6

[pht]

Pokud ten nick cpete do regexpu tak by to chtělo \Q, \E a /o.

[NeoV]

alebo staci pouzit funkciu quotemeta