abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
eParkomat, startup z ČR, postoupil mezi finalisty evropského akcelerátoru ChallengeUp!
Robot na pivo mu otevřel dveře k opravdovému byznysu
Internet věcí: Propojený svět? Už se to blíží...
včera 17:02 | Pozvánky

Přijďte si popovídat o open source obecně a openSUSE konkrétně s dalšími uživateli a vývojáři. Oslava nového vydání openSUSE Leap se uskuteční 16. prosince od 17:00 v nových prostorách firmy SUSE v Praze. K dispozici bude nějaké občerstvení a DVD pro ty, kdo je sbírají nebo ještě mají mechaniku. Po párty v kanceláři se bude pokračovat v některé z hospod v okolí.

Miška | Komentářů: 7
včera 14:55 | Zajímavý software

Byla vydána verze Alpha 1.0 otevřeného operačního systému pro chytré hodinky AsteroidOS. Podporovány jsou hodinky LG G Watch, LG G Watch Urbane, Asus ZenWatch 2 a Sony Smartwatch 3. Ukázka ovládání hodinek na YouTube. Jaroslav Řezník přednášel o AsteroidOS na chytrých hodinkách (videozáznam) na letošní konferenci OpenAlt.

Ladislav Hagara | Komentářů: 0
včera 13:30 | Zajímavý software

Byly uvolněny zdrojové kódy známé rogue-like hry DoomRL. Počátky hry jsou v roce 2002. Je napsána ve FreePascalu a zdrojový kód je nyní k dispozici na GitHubu pod licencí GNU GPL 2.0. Autor pracuje na nové hře Jupiter Hell, která je moderním nástupcem DoomRL a na jejíž vývoj shání peníze prostřednictvím Kickstarteru.

Blaazen | Komentářů: 0
včera 13:15 | Pozvánky

Přijďte s námi oslavit vydání Fedory 25. Na programu budou přednášky o novinkách, diskuse, neřízený networking atd. Release Party se bude konat 16. prosince v prostorách společnosti Etnetera. Na party budou volně k dispozici také propagační materiály, nová DVD s Fedorou 25 a samozřejmě občerstvení. Přednášky budou probíhat v češtině. Pro více informací se můžete podívat na web MojeFedora.cz. Jen připomínám, že tentokrát jsme zavedli

… více »
frantisekz | Komentářů: 0
9.12. 16:38 | Komunita

Byly zveřejněny videozáznamy přednášek a workshopů z letošní konference OpenAlt konané 5. a 6. listopadu v Brně. K videozáznamům lze přistupovat ze stránky na SuperLectures nebo přes program konference, detaily o vybrané přednášce nebo workshopu a dále kliknutím na ikonku filmového pásu. Celkově bylo zpracováno 65 hodin z 89 přednášek a workshopů.

Ladislav Hagara | Komentářů: 0
9.12. 11:30 | Komunita

Bylo oznámeno, že bude proveden bezpečnostní audit zdrojových kódů open source softwaru pro implementaci virtuálních privátních sítí OpenVPN. Audit provede Matthew D. Green (blog), uznávaný kryptolog a profesor na Univerzitě Johnse Hopkinse. Auditována bude verze 2.4 (aktuálně RC 1, stabilní verze je 2.3.14). Audit bude financován společností Private Internet Access [reddit].

Ladislav Hagara | Komentářů: 4
9.12. 06:00 | Komunita

Na YouTube byl publikován Blender Institute Reel 2016, ani ne dvouminutový sestřih z filmů, které vznikly za posledních 10 let díky Blender Institutu. V institutu aktuálně pracují na novém filmu Agent 327. Dění kolem filmu lze sledovat na Blender Cloudu. Videoukázka Agenta 327 z června letošního roku na YouTube.

Ladislav Hagara | Komentářů: 0
9.12. 01:02 | Zajímavý článek

Minulý týden byly vydány verze 1.2.3 a 1.1.7 webového poštovního klienta Roundcube. V oznámení o vydání bylo zmíněno řešení bezpečnostního problému nalezeného společností RIPS a souvisejícího s voláním funkce mail() v PHP. Tento týden byly zveřejněny podrobnosti. Útočník mohl pomocí speciálně připraveného emailu spustit na serveru libovolný příkaz. Stejně, jak je popsáno v článku Exploit PHP’s mail() to get remote code execution z roku 2014.

Ladislav Hagara | Komentářů: 1
8.12. 16:00 | Nová verze

Byla vydána verze 0.98 svobodného nelineárního video editoru Pitivi. Z novinek lze zmínit například přizpůsobitelné klávesové zkratky. Videoukázka práce s nejnovější verzí Pitivi na YouTube.

Ladislav Hagara | Komentářů: 1
8.12. 15:00 | Zajímavý software

Stop motion je technika animace, při níž je reálný objekt mezi jednotlivými snímky ručně upravován a posouván o malé úseky, tak aby po spojení vyvolala animace dojem spojitosti. Jaký software lze pro stop motion použít na Linuxu? Článek na OMG! Ubuntu! představuje Heron Animation. Ten bohužel podporuje pouze webové kamery. Podpora digitálních zrcadlovek je začleněna například v programu qStopMotion.

Ladislav Hagara | Komentářů: 5
Kolik máte dat ve svém domovském adresáři na svém primárním osobním počítači?
 (32%)
 (23%)
 (29%)
 (7%)
 (5%)
 (3%)
Celkem 810 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

Dotaz: Mazání se soboru v Perlu

11.11.2009 12:03 TAPSOFT
Mazání se soboru v Perlu
Přečteno: 344×
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

Řešení dotazu:


Odpovědi

11.11.2009 12:40 moira | skóre: 30 | blog: nesmysly
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
Zkusil bych příkaz grep (existuje i v Perlu).
Překladač ti nikdy neřekne: "budeme kamarádi"
11.11.2009 13:09 TAPSOFT
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
příkaz grep jsem v perlu sice našel,ale nikde jeho použítí jak vymazat určité dané slovo ze souboru
11.11.2009 13:17 myšák | skóre: 26 | blog: EmentuX | Ostrava
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
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;
Je nesmírně těžké být idiotem, konkurence je obrovská...
11.11.2009 13:49 TAPSOFT
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
děkuji ti moc,jdu hned zkusit
11.11.2009 14:07 TAPSOFT
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
tak tohle nefunguje
11.11.2009 14:48 NeoV | skóre: 23
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu

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;

11.11.2009 15:31 moira | skóre: 30 | blog: nesmysly
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
Blok while(<FILE>) { push @lines,$_; } se dá nahradit kratším @lines=<FILE>;
Překladač ti nikdy neřekne: "budeme kamarádi"
11.11.2009 15:08 myšák | skóre: 26 | blog: EmentuX | Ostrava
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
Jak "nefunguje"? Píše to něco? Nefunguje to jak sis představoval? Co to dělá? Křišťálovou kouli nemám...
Je nesmírně těžké být idiotem, konkurence je obrovská...
11.11.2009 15:37 NeoV | skóre: 23
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
No ale tu koli nema ani on :-D

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/);
11.11.2009 15:48 myšák | skóre: 26 | blog: EmentuX | Ostrava
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
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 :-D
Je nesmírně těžké být idiotem, konkurence je obrovská...
11.11.2009 17:18 TAPSOFT
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
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
11.11.2009 15:48 TAPSOFT
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
Předtím to nick neodebralo,ale ted to odebere a je to super,jsi fakt machr,děkuji moc
11.11.2009 16:10 myšák | skóre: 26 | blog: EmentuX | Ostrava
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
No machr rozhodně ne, ten by ti to napsal jako one-liner :-D :-D :-D :-D
Je nesmírně těžké být idiotem, konkurence je obrovská...
11.11.2009 17:20 TAPSOFT
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
ale jo jde ti to,no to víš kdo umí,ten umí
11.11.2009 19:19 TAPSOFT
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
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
11.11.2009 20:15 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
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ý
11.11.2009 21:20 TAPSOFT
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
super,děkuji
Řešení 1× (sdsdsd)
11.11.2009 15:41 myšák | skóre: 26 | blog: EmentuX | Ostrava
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
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;
Je nesmírně těžké být idiotem, konkurence je obrovská...
11.11.2009 15:48 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
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";
11.11.2009 16:09 NeoV | skóre: 23
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
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);
11.11.2009 16:33 myšák | skóre: 26 | blog: EmentuX | Ostrava
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
Případně ten stat1.txt flákneme jako argument toho skriptu a o zabackupovaný původní file ať se stará někdo jiný :-D :-D
#!/usr/bin/perl
$^I = "~";
$nick = "nick 6";
while (<>) {
	print unless /^$nick$/;
}
Je nesmírně těžké být idiotem, konkurence je obrovská...
12.11.2009 14:14 ph0enix | skóre: 18 | Praha
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu

To pak staci i

#!/usr/bin/perl
$nick = "nick 6";
print grep {!/^$nick$/} <>;
12.11.2009 14:51 myšák | skóre: 26 | blog: EmentuX | Ostrava
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
Tak mě napadá ... nešel by ten nick hodit jako druhý parametr? :-)
Je nesmírně těžké být idiotem, konkurence je obrovská...
12.11.2009 15:21 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
takto ? :-D #!/usr/bin/perl -n BEGIN { $nick = pop }; /^$nick\b/ || print;
12.11.2009 15:23 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
oops, <code> miesto <pre> :-(
12.11.2009 15:40 myšák | skóre: 26 | blog: EmentuX | Ostrava
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
Joooooooooo! Já věděl že to jde :-D :-D Smekám! Miluju PERL ... akorát ho furt používám tak nePERLovsky, až se stydím :-(
Je nesmírně těžké být idiotem, konkurence je obrovská...
12.11.2009 17:27 ph0enix | skóre: 18 | Praha
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu

A co takhle?

perl -e '$n=pop;print grep{!/^$n\b/}<>' data.txt nick6
12.11.2009 00:03 pht | skóre: 48 | blog: pht
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
Pokud ten nick cpete do regexpu tak by to chtělo \Q, \E a /o.
In Ada the typical infinite loop would normally be terminated by detonation.
12.11.2009 08:49 NeoV | skóre: 23
Rozbalit Rozbalit vše Re: Mazání se soboru v Perlu
alebo staci pouzit funkciu quotemeta

Založit nové vláknoNahoru

Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

ISSN 1214-1267   www.czech-server.cz
© 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.