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í
×
dnes 02:20 | Zajímavý článek

David Revoy, autor open source webového komiksu Pepper&Carrot nebo portrétu GNU/Linuxu, upozorňuje na svém blogu, že nový Inkscape 0.92 rozbíjí dokumenty vytvořené v předchozích verzích Inkscape. Problém by měl být vyřešen v Inkscape 0.92.2 [reddit].

Ladislav Hagara | Komentářů: 0
dnes 02:02 | Komunita

Øyvind Kolås, hlavní vývojář grafických knihoven GEGL a babl, které využívá grafický program GIMP, žádá o podporu na Patreonu. Díky ní bude moci pracovat na vývoji na plný úvazek. Milník 1000 $, který by stačil na holé přežití, se již téměř podařilo vybrat, dalším cílem je dosažení 2500 $, které mu umožní běžně fungovat ve společnosti.

xkomczax | Komentářů: 10
včera 23:54 | Pozvánky

DevConf.cz 2017, již devátý ročník jedné z největších akcí zaměřených na Linux a open source ve střední Evropě, proběhne od pátku 27. ledna do neděle 29. ledna v prostorách Fakulty informačních technologií Vysokého učení technického v Brně. Na programu je celá řada zajímavých přednášek a workshopů. Letos je povinná registrace.

Ladislav Hagara | Komentářů: 0
včera 22:11 | Nová verze

Byla vydána verze 1.0.0 emulátoru terminálu Terminology postaveného nad EFL (Enlightenment Foundation Libraries). Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
20.1. 17:00 | Nová verze

Byl vydán Docker 1.13. Přehled novinek na YouTube a v poznámkách k vydání na GitHubu. Docker umožňuje běh aplikací v softwarových kontejnerech (Wikipedia).

Ladislav Hagara | Komentářů: 4
20.1. 15:51 | Komunita

Mozilla.cz informuje, že nástroje pro webové vývojáře se možná oddělí od Firefoxu a stanou doplňkem. Nástroje pro webové vývojáře prošly velkým přepisem a tým, který se stará o jejich vývoj, by uvítal možnost jejich častějších aktualizacích nezávisle na vydávání nových verzí Firefoxu.

Ladislav Hagara | Komentářů: 8
20.1. 07:00 | Humor

Čtenářům AbcLinuxu vše nejlepší k dnešnímu Dni zvýšení povědomí o tučňácích (Penguin Awareness Day).

Ladislav Hagara | Komentářů: 0
20.1. 06:00 | Komunita

Bylo spuštěno hlasování o přednáškách a workshopech pro letošní InstallFest, jenž proběhne o víkendu 4. a 5. března v Praze. Současně byla oznámena změna místa. InstallFest se letos vrací zpět na Karlovo náměstí do budovy E.

Ladislav Hagara | Komentářů: 0
20.1. 02:48 | Komunita

Greg Kroah-Hartman potvrdil, že Linux 4.9 je jádrem s prodlouženou upstream podporou (LTS, Long Term Support). Podpora je plánována do ledna 2019. Aktuální jádra s prodlouženou podporou jsou tedy 3.2, 3.4, 3.10, 3.12, 3.16, 3.18, 4.1, 4.4 a 4.9.

Ladislav Hagara | Komentářů: 0
20.1. 00:11 | Zajímavý článek

Výrobce síťových prvků, společnost Netgear, spustila nový program, který slibuje vývojářům, expertům, ale i běžným uživatelům vyplacení finanční odměny za nalezení bezpečnostních chyby v jejich produktech. Za nalezení zranitelnosti v hardware, API nebo mobilní aplikaci nabízí odměnu od 150 do 15 tisíc dolarů (dle závažnosti).

Michal Makovec | Komentářů: 0
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (10%)
 (2%)
 (74%)
 (3%)
 (10%)
Celkem 359 hlasů
 Komentářů: 25, poslední včera 13:34
Rozcestník
Reklama

Dotaz: Perl - funkce smazat řádek ze souboru

Indiánský lotr avatar 13.10.2010 10:23 Indiánský lotr | skóre: 23 | blog: ucim_sa | Nový Jičín
Perl - funkce smazat řádek ze souboru
Přečteno: 504×

Ahoj, snažím se udělat si skriptík na náhodný výběr vtipu ze souboru vtipy.txt, vybraný vtip se vypíše a poté uloží do vtipy2.txt. Ovšem nevím dál jak zavolat a použít funkci "tr" či "sed" tak, aby vybraný vtip z původního vtipy.txt smazal. Buď se může zavolat přímo smazání řádku podle nahodne_cislo, nebo vyhledat řetězec $vtip a smazat pomoci něj.

#!/usr/bin/perl
  use strict;
  use warnings;
  my $rozsah = `wc -l vtipy.txt | sed -n 's/[^0-9 ]//gp'`;
  my $nahodne_cislo;

  do
  {
    $nahodne_cislo = int(rand($rozsah));
  } until ($nahodne_cislo != 0);


  my $vtip = `cat vtipy.txt |  head -n $nahodne_cislo | tail -n 1`;

  my $file = 'vtipy2.txt';
  open(vti2, ">>$file");
  print vti2 "$vtip";
  close(vti2);

  print "$vtip";
  print "Celkovy rozsah vtipu - (test): $rozsah";
  #system("`cat vtipy.txt | sed -i '/$vtip/d' > vtipy3.txt`");
  my @args = ( "bash", "-c", "cat vtipy.txt | sed -i '/$vtip/d' > vtipy3.txt" );
  system(@args);

Odpovědi

13.10.2010 11:39 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Perl - funkce smazat řádek ze souboru
``, wc, sed ???
skus toto
my @vtipy = <vtipy.txt>;
my $nahodne_cislo = int rand scalar @vtipy
my ($vtip) = splice @vtipy, $nahodne_cislo, 1;

open VTIPY, '>', 'vtipy.txt' or die "vtipy.txt: $!\n"
open VTIPY2, '>', 'vtipy2.txt' or die "vtipy2.txt: $!\n"

print VTIPY2 $vtip;
print VTIPY @vtipy;

close VTIPY;
close VTIPY2;
13.10.2010 12:39 NeoV | skóre: 23
Rozbalit Rozbalit vše Re: Perl - funkce smazat řádek ze souboru
hh... 3 systemove volania pri 15 riadkovom Perl skripte :-)

riesenie je zhruba take ako ti uz ukazal happy barney a v plne funkcnej podobe vyzera takto:
#!/usr/bin/perl
use strict;
use warnings;

open FH, "vtipy.txt" or die "Cannot open file";
my @vtipy = <FH>;
close FH;

my $nahodne_cislo = int(rand($#vtipy));
my $vtip = splice(@vtipy,$nahodne_cislo,1);

print "Vyberam vtip cislo: ".($nahodne_cislo+1)."\n";
print "Vtip: $vtip";

open(FH, ">vtipy2.txt") or die "Cannot open file";
print FH $vtip;
close(FH);

open(FH, ">vtipy.txt") or die "Cannot open file";
print FH @vtipy;
close(FH);

13.10.2010 12:49 zulu
Rozbalit Rozbalit vše Re: Perl - funkce smazat řádek ze souboru
...
Indiánský lotr avatar 13.10.2010 13:17 Indiánský lotr | skóre: 23 | blog: ucim_sa | Nový Jičín
Rozbalit Rozbalit vše Re: Perl - funkce smazat řádek ze souboru
Pravda mohl sem to hodit do bashe :-) jj dobre napsane, mam se co ucit,..
13.10.2010 17:56 Ash | skóre: 53
Rozbalit Rozbalit vše Re: Perl - funkce smazat řádek ze souboru
To ne, to by bylo moc jednoduché :)
l=$(wc -l < vtipy.txt)
l=$(($RANDOM % $l))
sed -n -e "$l p" vtipy.txt >> vtipy2.txt
sed -i "$l d" vtipy.txt
pek avatar 20.10.2010 16:23 pek | skóre: 20
Rozbalit Rozbalit vše Re: Perl - funkce smazat řádek ze souboru
A co třeba použít fortune  :^)
13.10.2010 14:18 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Perl - funkce smazat řádek ze souboru
rozdiel "scalar @" a "$#" je, ze v tvojom pripade sa nikdy nevyberie posledny prvok :-)
13.10.2010 19:54 NeoV_anon
Rozbalit Rozbalit vše Re: Perl - funkce smazat řádek ze souboru
Jojo... som si to potom vsimol... :) cakal som presne opacne chovanie rand-u :-)
13.10.2010 19:59 NeoV_anon
Rozbalit Rozbalit vše Re: Perl - funkce smazat řádek ze souboru
resp. ani nie randu... ale miesto int (ktory iba osekava desatinu cast) staci pouzit ceil (ktory uz robi spravne zaokruhlovanie :-) )
20.10.2010 21:36 pht | skóre: 48 | blog: pht
Rozbalit Rozbalit vše Re: Perl - funkce smazat řádek ze souboru
jen si dovolím připomenout pár vymožeností moderní doby

open VTIPY -> open my $vtipy

or die... -> use autodie
In Ada the typical infinite loop would normally be terminated by detonation.

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.