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 16:24 | Nová verze

Byla vydána Mageia 5.1. Jedná se o první opravné vydání verze 5, jež vyšla v červnu loňského roku (zprávička). Uživatelům verze 5 nepřináší opravné vydání nic nového, samozřejmě pokud pravidelně aktualizují. Vydání obsahuje všechny aktualizace za posledního téměř půldruhého roku. Mageia 5.1 obsahuje LibreOffice 4.4.7, Linux 4.4.32, KDE4 4.14.5 nebo GNOME 3.14.3.

Ladislav Hagara | Komentářů: 0
včera 13:42 | Pozvánky

V Praze probíhá konference Internet a Technologie 16.2, volné pokračování jarní konference sdružení CZ.NIC. Konferenci lze sledovat online na YouTube. K dispozici je také archiv předchozích konferencí.

Ladislav Hagara | Komentářů: 0
2.12. 22:44 | Komunita

Joinup informuje, že Mnichov používá open source groupware Kolab. V srpnu byl dokončen dvouletý přechod na toto řešení. V provozu je asi 60 000 poštovních schránek. Nejenom Kolabu se věnoval Georg Greve ve své přednášce Open Source: the future for the European institutions (SlideShare) na konferenci DIGITEC 2016, jež proběhla v úterý 29. listopadu v Bruselu. Videozáznam přednášek z hlavního sálu je ke zhlédnutí na Livestreamu.

Ladislav Hagara | Komentářů: 18
2.12. 15:30 | Zajímavý projekt

Společnost Jolla oznámila v příspěvku Case study: Sailfish Watch na svém blogu, že naportovala Sailfish OS na chytré hodinky. Využila a inspirovala se otevřeným operačním systémem pro chytré hodinky AsteroidOS. Použita je knihovna libhybris. Ukázka ovládání hodinek na YouTube.

Ladislav Hagara | Komentářů: 8
2.12. 14:15 | Nová verze

Byla vydána verze 7.1.0 skriptovacího jazyka PHP používaného zejména k vývoji dynamických webových stránek. Jedná se o první stabilní verzi nejnovější větvě 7.1. Přehled novinek v dokumentaci. Podrobnosti v ChangeLogu. K dispozici je také příručka pro přechod z PHP 7.0.x na PHP 7.1.x.

Ladislav Hagara | Komentářů: 2
2.12. 12:55 | Nová verze

Google Chrome 55 byl prohlášen za stabilní. Nejnovější stabilní verze 55.0.2883.75 tohoto webového prohlížeče přináší řadu oprav a vylepšení (YouTube). Opraveno bylo také 36 bezpečnostních chyb. Mariusz Mlynski si například vydělal 22 500 dolarů za 3 nahlášené chyby (Universal XSS in Blink).

Ladislav Hagara | Komentářů: 4
2.12. 11:55 | Pozvánky

Máte rádi svobodný software a hardware nebo se o nich chcete něco dozvědět? Přijďte na 135. sraz spolku OpenAlt, který se bude konat ve čtvrtek 8. prosince od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Sraz bude tentokrát tématický. Bude retro! K vidění budou přístroje jako Psion 5mx nebo Palm Z22. Ze svobodného hardwaru pak Openmoko nebo čtečka WikiReader. Přijďte se i vy pochlubit svými legendami, nebo alespoň na pivo. Moderní hardware má vstup samozřejmě také povolen.

xkucf03 | Komentářů: 0
2.12. 00:10 | Nová verze

Byla vydána verze 3.2 svobodného systému pro detekci a prevenci průniků a monitorování bezpečnosti počítačových sítí Suricata. Z novinek lze zmínit například podporu protokolů DNP3 a CIP/ENIP, vylepšenou podporu TLS a samozřejmě také aktualizovanou dokumentaci.

Ladislav Hagara | Komentářů: 0
1.12. 21:00 | Nová verze

Byla vydána beta verze Linux Mintu 18.1 s kódovým jménem Serena. Na blogu Linux Mintu jsou hned dvě oznámení. První o vydání Linux Mintu s prostředím MATE a druhé o vydání Linux Mintu s prostředím Cinnamon. Stejným způsobem jsou rozděleny také poznámky k vydání (MATE, Cinnamon) a přehled novinek s náhledy (MATE, Cinnamon). Linux Mint 18.1 bude podporován až do roku 2021.

Ladislav Hagara | Komentářů: 0
1.12. 16:42 | Nová verze

Byl vydán Devuan Jessie 1.0 Beta 2. Jedná se o druhou beta verzi forku Debianu bez systemd představeného v listopadu 2014 (zprávička). První beta verze byla vydána v dubnu letošního roku (zprávička). Jedna z posledních přednášek věnovaných Devuanu proběhla v listopadu na konferenci FSCONS 2016 (YouTube, pdf).

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

Dotaz: vlozenie hodnoty zo suboru do suboru

1.3.2007 22:38 peter
vlozenie hodnoty zo suboru do suboru
Přečteno: 102×
dobry den
chcel by som poradit nejaky skript ktory by mi vlozil za oznacene cislo 7806 cislo z ineho suboru kde budem mat definovanu hodnotu napr 2 7806 ,a prave tu hodnotu 2 potrebujem vlozit do ineho suboru ,ten subor na tento tvar
0101.03.0714:24:080000007806073000000000000000000000 tych cisel budem mat v subore viac ,ale hodnoty a cisla sa menit nebudu
dakujem

Odpovědi

2.3.2007 00:14 Henly
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
Tak to nahrazeni treba takto:
sed "s/\($co\)/\1$pridat/" 2.txt
sed 's/\(7806\)/\12/' soubor.txt

Jedním příkazem se to dá napsat takhle ošklivě:
awk '{print "sed \"s/\\("$2"\\)/\\1"$1"/\" 2.txt"}' 1.txt | sh

testováno na:
$ cat 1.txt
2 7806
$ cat 2.txt
0101.03.0714:24:080000007806073000000000000000000000
$ awk '{print "sed \"s/\\("$2"\\)/\\1"$1"/\" 2.txt"}' 1.txt | sh
0101.03.0714:24:0800000078062073000000000000000000000
2.3.2007 09:48 peter
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
super ,co ste napisali funguje dobre ,ale ja tych hodnot mam v subore viac ,1.txt napr
2 7806
1 7736
1 3352

asi cca 300 a to mi uz akosi neslo

2.3.2007 10:42 ams | skóre: 10
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
Toto reseni neni optimalizovano (napr. zadna predkompilace regexpu) ale funguje:
$ cat vlozit
#!/usr/bin/perl
print("Pouziti: $0 soubor_se_seznamem_nahrad soubor_s_puvodnimi_daty\n"), exit 
  unless @ARGV == 2;
open NAHRADY, "<", "$ARGV[0]" or die "Nemuzu otevrit $ARGV[0]";
while(<NAHRADY>){
        chomp;
        ($cim,$co)=split;
        $m{$co}=$cim;
}
close NAHRADY;
open DATA, "<", "$ARGV[1]" or die "Nemuzu otevrit $ARGV[1]";
while($radek = <DATA>){
        $radek=~s/$_/$_$m{$_}/g for keys %m;
        print $radek;
}
close DATA;
Priklad:
$ vlozit 1.txt data.txt > vystup.txt
2.3.2007 11:18 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
Tak pro špetce optimalizací:
#!/usr/bin/env perl

use strict;
use warnings;

my %m;
while(<>){
	chomp;
	my ($cim,$co) = split;
	$m{$co} = $cim;
	last if eof;
}
my $searchPat = join '|', map quotemeta, keys %m;
while(<>){
	s/($searchPat)/$m{$1}/geo;
	print $_;
}
XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
2.3.2007 11:47 ams | skóre: 10
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
Pokud jde o kratky zapis pak uz neco takoveho :) :
#!/usr/bin/env perl 
use strict;
use warnings;
undef $/;
my %m = reverse split /\s/, <>;
my $s = join "|", map quotemeta, keys %m;
s/($s)/$1.$m{$1}/ge, print for <>;
Uznavam, ze toto reseni je horsi tim, ze nacita cele soubory do pameti. Opravuje ale malou chybicku: v nahrazovaci casti musi byt $1.$m{$1} misto jednoducheho $m{$1}.
2.3.2007 11:55 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
Tak to $_ v tom posledním printu je zbytečné, nebo jako oneliner:
perl -pe 'BEGIN{while(<>){chomp;push@m,(split)[0,1];last if eof}%m=reverse@m;$s=join"|",map quotemeta,keys%m}s/($s)/$m{$1}/geo' nahrady soubor(y)
Ještě kratší by bylo použít s/$s/$m{$&}/geo místo s/($s)/$m{$1}/geo ale je to pomalejší viz BUGS in perlvar.
XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
2.3.2007 12:11 ams | skóre: 10
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
:)
perl -0777 -pe 'BEGIN{%m=reverse split /\s/,<>;$s=join"|",map quotemeta,keys%m}s/($s)/$1.$m{$1}/ge'
2.3.2007 12:47 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
Aspoň ten(ty) měněný(é) soubor(y) by se nemusel(y) načístat do paměti celý(é). A ten regulár bych taky nekompiloval pořád dokola.
perl -pe 'BEGIN{local $/;%m=reverse split /\s/,<>;$s=join"|",map quotemeta,keys%m}s/($s)/$1.$m{$1}/geo'
XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
2.3.2007 13:23 ams | skóre: 10
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
Toto asi bude nejlepsi reseni.
A ten regulár bych taky nekompiloval pořád dokola.
V mem reseni ten regexp se kompiluje jenom jednou, protoze se aplikuje hned na cely soubor (ano, predpokladal jsem, ze ten soubor bude jenom jeden).
2.3.2007 10:45 Jan Martinek | skóre: 43 | blog: johny | Brno
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
Dalo by se použít třeba tohle:
#!/usr/bin/env python
nahrady = []
for line in file('1.txt'):
    a, b = line.split()
    nahrady.append((b, b + a))
    
for line in file('2.txt'):
    for num1, num2 in nahrady:
        new = line.replace(num1, num2)
        if new != line:
            print new.strip()
            break
Nejprve si to z prvního souboru vytvoří seznam, co se má čím nahradit, např
[('7806', '78062'), ('7736', '77361'), ('3352', '33521')]
A pak prochází druhý soubor a každý jeho řádek testuje, zda se v něm dá něco nahradit. Pokud ano, vypíše ho a ihned pokračuje ve zpracování dalšího řádku. Ale nevím, co se má stát, když se nic nahradit nepodaří, zda jsou náhrady vždy jednoznačné a jestli například nejsou čísla vždy na stejných pozicích - to by se pak dalo použít asociativní pole, které je zatraceně rychlé. Nemáš někde odkaz na oba soubory?
2.3.2007 14:16 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
Huh, ten python je teda nic moc. Aby člověk mohl udělat rozumě srovnatelně rychlý a konfortní program, tak musí napsat něco takového:
#!/usr/bin/env python
import sys, sre

def nahrady_gen (seq):
	for line in seq:
		a, b = line.split()
		yield (b, b + a)

nahrady = dict(nahrady_gen(file(sys.argv[1])))
searcher = sre.compile('('+'|'.join(sre.escape(key) for key in nahrady.keys())+')')
def linechanger (line):
	return searcher.sub(lambda match: nahrady[line[match.start():match.end()]], line)

for filename in sys.argv[2:]:
	if filename == '-':
		f = sys.stdin
	else:
		f = file(filename)
	for line in f:
		print linechanger(line.strip())
Na tom kódu je pěkne vidět co v šechno udělá perl za mě. Je fakt, že v pythonu moc neprogramuju (prakticky vůbec), tak se nějakej pythonysta předveďte. Jen bych chtěl, aby to mělo srovnatelný výkon (nebude se to celé načítat do paměti, regulár se bude kompilovat jen jednou, překlad přes dict a ne ta cyklická hrůza) a podobně konfortní (bude to pracovat s parametrama z příkazové řádky a bude to pracovat s víc než jedním souborem).
XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
2.3.2007 14:51 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
No to je teda úroveň dokumentace :( Kde se krucinál dá najít dokumenatce k objektu SRE_match? To si ho mám snad vycucat z prstu? Aha, to musím hledat na webu, to není v pydocu :( No tak se nám ta implementace o chlup zjednoduší, ale furt je to proti perlu dost rozdíl:
#!/usr/bin/env python
import sys, sre

def nahrady_gen (seq):
	for line in seq:
		a, b = line.split()
		yield (b, b + a)

nahrady = dict(nahrady_gen(file(sys.argv[1])))
searcher = sre.compile('|'.join(sre.escape(key) for key in nahrady.keys()))
translator = lambda match: nahrady[match.group()]

for filename in sys.argv[2:]:
	if filename == '-':
		f = sys.stdin
	else:
		f = file(filename)
	for line in f:
		print searcher.sub(translator, line)
XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
2.3.2007 15:55 Jan Martinek | skóre: 43 | blog: johny | Brno
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
... tak se nějakej pythonysta předveďte. Jen bych chtěl, aby to mělo srovnatelný výkon (nebude se to celé načítat do paměti, regulár se bude kompilovat jen jednou, překlad přes dict a ne ta cyklická hrůza) a podobně konfortní (bude to pracovat s parametrama z příkazové řádky a bude to pracovat s víc než jedním souborem).
Hm, možná se očekává, že budu nějak bojovat na obranu pythonu, když ho používám. Ale moc se mi nechce, jsi nějaký moc agresivní.
No tak jsem aspoň pustil tu svou původní neoptimalizovanou verzi na dva soubory 1.txt -- 1000 řádků a 2.txt s 10000 řádky. Běželo to 10 sekund, stejně jako varianta v perlu. No a tvá závěrečná varianta v pythonu je asi dvacetkrát rychlejší, jenže ...
každý z nás chápe zadání jinak, a proto každé řešení dává trochu jiné výsledky, tak to nemá cenu srovnávat.
Testovací soubory jsem generoval tímhle:
#!/usr/bin/env python
import random

def gen1txt(N):
    fw = file('1.txt', 'w')
    for i in range(N):
        a = random.randint(0, 9)
        b = random.randint(1000, 9999)
        fw.write('%d %d\n' %(a, b))

def gen2txt(N):
    fw = file('2.txt', 'w')
    for i in range(N):
        a = random.randint(1000, 9999)
        fw.write('%s%d%s\n' %('0'*20, a, '0'*20))


gen1txt(1000)
gen2txt(10000)
Ale znovu podotýkám - dokud se neozve původní autor dotazu a nevyjasní detaily, tak nemá cenu se dál bavit.
3.3.2007 15:20 peter
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
dakujem vsetkym za odozvu ,takze aby som to spresnil ,(mozno som sa zle vyjadril) :)

subor 1.txt ma v sebe 2 cisla

X XXXX
,X=je hodnota bud 1 2 alebo 3 ,XXXX je 4miestne cislo ,prezentuje to osobne cislo

subor 2.txt nesie v sebe log. z identifikacneho systemu ,kde je cas prihodu a ine ,zvyraznene cislo je to osobne cislo ,a co xcem urobit je, ze zo suboru 1.txt mam zoznam osobnych cisel a hodnutu, ktoru mam pridelit do suboru 2.txt za to zvyraznene cislo ,
PS ten log ma cez 50MB ,je to zaznam cca od 2005

3.3.2007 22:18 Jan Martinek | skóre: 43 | blog: johny | Brno
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
Díky za upřesnění. Rád bych ještě věděl, jak se vlastně v tom logu pozná to čtyřmístné identifikační číslo. Má v řetězci vždycky stejnou pozici mezi 24. a 28. znakem? Pokud ano, dal by se ten program napsat třeba takto:
#!/usr/bin/env python

copridat = {}
for line in file('1.txt'):
    hodnota, os_cislo = line.split()
    copridat[os_cislo] = hodnota

zacatek, konec = 24, 28 # Jestlipak je tohle pravda ...

for line in file('2.txt'):
    line = line.strip()
    os_cislo = line[zacatek:konec]
    hodnota = copridat[os_cislo]
    print line[:konec] + hodnota + line[konec:]
Zkusil jsem tím zpracovat uměle vytvořený padesátimegový log, přičemž soubor 1.txt obsahoval 10000 položek, tedy všechna identifikační čísla se využila. Bylo to hotové za necelé čtyři sekundy, tak snad to bude stačit.
4.3.2007 10:37 peter
Rozbalit Rozbalit vše Re: vlozenie hodnoty zo suboru do suboru
ano ,to 4miestne cislo ma stale rovnaku poziciu ,dakujem za vas podnet ,hned to skusim ,dakujem este raz :)

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.