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 14:22 | Komunita

    Na čem pracují vývojáři webového prohlížeče Ladybird (GitHub)? Byl publikován přehled vývoje za červenec (YouTube).

    Ladislav Hagara | Komentářů: 0
    dnes 01:11 | Pozvánky

    Konečně se ochladilo, možná i díky tomu přestaly na chvíli padat rakety jako přezrálé hrušky, díky čemuž se na Virtuální Bastlírně dostane i na jiná, přízemnější témata. Pokud si chcete jako každý měsíc popovídat s dalšími bastlíři, techniky, vědci a profesory u virtuálního pokecu u piva, Virtuální Bastlírna je tu pro Vás.

    Ještě před ochlazením se drát na vedení V411 roztáhl o 17 metrů (přesné číslo není známé, ale drát nepřežil) a způsobil tak… více »
    bkralik | Komentářů: 0
    včera 23:44 | Komunita

    Na čem aktuálně pracují vývojáři GNOME a KDE Plasma? Pravidelný přehled novinek v Týden v GNOME a Týden v KDE Plasma.

    Ladislav Hagara | Komentářů: 0
    1.8. 15:44 | Nová verze

    PixiEditor byl vydán ve verzi 2.0. Jedná se o multiplatformní univerzální all-in-one 2D grafický editor. Zvládne rastrovou i vektorovou grafiku, pixel art, k tomu animace a efekty pomocí uzlového grafu. Zdrojové kódy jsou k dispozici na GitHubu pod licencí GNU LGPL 3.0.

    Ladislav Hagara | Komentářů: 2
    1.8. 13:22 | Nová verze

    Byly představeny novinky v Raspberry Pi Connect for Organisations. Vylepšen byl protokol auditu pro lepší zabezpečení. Raspberry Pi Connect je oficiální služba Raspberry Pi pro vzdálený přístup k jednodeskovým počítačům Raspberry Pi z webového prohlížeče. Verze pro organizace je placená. Cena je 0,50 dolaru za zařízení za měsíc.

    Ladislav Hagara | Komentářů: 0
    1.8. 01:33 | Zajímavý software

    CISA (Cybersecurity and Infrastructure Security Agency) oznámila veřejnou dostupnost škálovatelné a distribuované platformy Thorium pro automatizovanou analýzu malwaru. Zdrojové kódy jsou k dispozici na GitHubu.

    Ladislav Hagara | Komentářů: 0
    31.7. 17:22 | Nová verze Ladislav Hagara | Komentářů: 0
    31.7. 16:11 | Zajímavý software

    Společnost Proton AG stojící za Proton Mailem a dalšími službami přidala do svého portfolia Proton Authenticator. S otevřeným zdrojovým kódem a k dispozici na všech zařízeních. Snadno a bezpečně synchronizujte a zálohujte své 2FA kódy. K používání nepotřebujete Proton Account.

    Ladislav Hagara | Komentářů: 0
    30.7. 16:22 | Zajímavý článek

    Argentinec, který byl náhodně zachycen Google Street View kamerou, jak se zcela nahý prochází po svém dvorku, vysoudil od internetového giganta odškodné. Soud uznal, že jeho soukromí bylo opravdu porušeno – Google mu má vyplatit v přepočtu asi 12 500 dolarů.

    Ladislav Hagara | Komentářů: 15
    30.7. 13:55 | IT novinky

    Eben Upton, CEO Raspberry Pi Holdings, informuje o RP2350 A4, RP2354 a nové hackerské výzvě. Nový mikrokontrolér RP2350 A4 řeší chyby, i bezpečnostní, předchozího RP2350 A2. RP2354 je varianta RP2350 s 2 MB paměti. Vyhlášena byla nová hackerská výzva. Vyhrát lze 20 000 dolarů.

    Ladislav Hagara | Komentářů: 0
    Kolik tabů máte standardně otevřeno ve web prohlížeči?
     (30%)
     (28%)
     (5%)
     (7%)
     (4%)
     (1%)
     (2%)
     (24%)
    Celkem 200 hlasů
     Komentářů: 21, poslední 30.7. 22:56
    Rozcestník

    Dotaz: perl - cesta k adresáři, kde je script

    Přemek Vyhnal avatar 18.9.2008 00:37 Přemek Vyhnal | skóre: 24 | blog: Toto není blog! | Dobřichovice
    perl - cesta k adresáři, kde je script
    Přečteno: 695×
    Zdravím

    Problém je následující:

    mám script v perlu, který potřebuje k práci nějaké další soubory.. např nějaký modul 'Modul.pm' a definici gui 'gui.glade'.

    Tyhle soubory jsou ve stejném adresáři jako script a pokud se script spouští ze stejného adresáře (./script.pl), není problém... použije se normálně use Modul nebo Gtk2::GladeXML->new('gui.glade').

    Problém nastane, když chci svůj program nějak „nainstalovat“ do systému abych ho mohl spouštět odkudkoliv nebo dokonce dopravit do jiného počítače. Soubory by se hledaly v adresáři, odkud to spouštím. Takže je potřeba nějak nastavit místo, kde je program nainstalován. Nejlépe tak aby se to nemuselo ručně přepisovat když se to nakopíruje jinam ;)

    Mám dvě řešení a ani jedno se mi nelíbí. Jak to udělat líp?

    1)

    přidat do @INC správnou cestu například spuštěním přes perl -I /kde/to/je /kde/to/je/script.pl.

    modul se načte správně a přístup k souborům by byl nějak takto: …->new($INC[0].'/gui.glade').

    Nevýhoda: musí se to obalit dalším scriptem, který spustí perl se správným parametrem -I a bude tam muset ta cesta být napevno

    2)

    zjistit cestu z $0 třeba takto: $dir = $0 =~ /(.*)\//; a pak jí v BEGIN přidat do @INC a soubory hledat v $dir

    Nevýhoda: Pokud si celý program uložím třeba do /home/neco/neco/... a někde v $PATH na něj udělám symlinky, $0 bude obsahovat cestu k symlinkům a ne tam, kde soubor je opravdu a tam to samozřejmě ty ostatní soubory nenajde.

    --

    A jako takový poddotaz bych se zeptal kam vlastně takovýto script/program „instalovat“? nechat všechny soubory v jedné složce a tu dát kamkoliv (/home nebo /opt) a v /usr/local/bin udělat symlinky, nebo do /usr/local/bin dát místo symlinku rovnou ten hlavní spustitelný script a ostatní soubory jinam (/usr/local/share/jmenoprogramu/ ?) Pak by zase script nemohl hledat své soubory ve stejné složce jako je sám...

    Zároveň bych chtěl aby to stejně fungovalo i v „nenainstalovaném“ stavu při testování – všechno v jednom adresáři v /home/…/…

    --

    Předem děkuji za jakékoliv tipy jak se tohle řeší
    NO RAPTORS!

    Odpovědi

    18.9.2008 07:33 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: perl - cesta k adresáři, kde je script

    Pro vytvoreni modulu (skript.pl muze byt soucasti modulu) byste mel pouzit standardni mechanizmy (Makefile.PL + instalaci). Viz dokumentace, man perlnewmod, odkazy na dalsi dokumentaci a tutorial tam atd. Vyhoda teto masinerie je, ze mate jeden archiv Vas-Modul-1.0.tar.gz, jehoz standardni instalaci muzete najednou nainstalovat, spustit testy, doresit zavislosti, provest transformaci nejakych retezcu (napr. ony cesty) a dalsi. Timto mechanizmem pro instalaci modulu se Vas::Modul nainstaluje nekam jako /usr/lib/perl5/site_perl/5.10.0/Vas/Modul.pm, pripadne skripty do /usr/bin, kde vse funguje jakychkoliv zasahu. Odinstalace je otazka smazani tohoto souboru nebo adresare Vas.

    Pokud chcete nejakou nestandardni cestu (coz lze u "normalniho mechanizmu" docilit take pres --prefix), spravne uvadite, ze musite manipulovat s @INC, a to bud pres -I nebo pomoci use lib (primo se hrabat v @INC neni dobry napad). Do tohoto muzete vice nahlidnout napr. v kapitole 12 perl cookbook. Konkretne v Keeping Your Own Module Directory se toto podrobne rozebira, vcetne metody jak "uhodnout" cestu ke skriptu pomoci modulu FindBin.

    Co se tyce nalezeni obecneho souboru v ramci vaseho modulu, doporuciji pouzit hash %INC, kde naleznete cestu, pres kterou se tento modul nasel. Napr. $INC{'Vas::Modul.pm'}.

    Jak se na to tak divam, tak to jednou vyda na dalsi dil meho serialu :-)

    In Ada the typical infinite loop would normally be terminated by detonation.
    18.9.2008 07:35 happy barney | skóre: 34 | blog: dont_worry_be_happy
    Rozbalit Rozbalit vše Re: perl - cesta k adresáři, kde je script
    v prípade symlinkov si pozri readlink a -l, z toho už cestu poskladáš

    tretia možnosť: export PERL5LIB="/home/aaa/lib/perl5:/home/aaa/test/lib/perl5"

    Přemek Vyhnal avatar 18.9.2008 10:57 Přemek Vyhnal | skóre: 24 | blog: Toto není blog! | Dobřichovice
    Rozbalit Rozbalit vše Re: perl - cesta k adresáři, kde je script
    Dík moc vám oboum

    ten readlink zdá se bude stačit. Výroba „opravdového“ modulu se mi zatím zdá na mě moc složitá ale třeba se taky zadaří ;)

    Díky
    NO RAPTORS!
    Přemek Vyhnal avatar 18.9.2008 16:00 Přemek Vyhnal | skóre: 24 | blog: Toto není blog! | Dobřichovice
    Rozbalit Rozbalit vše Re: perl - cesta k adresáři, kde je script
    Tak jsem to snad vyřešil:
    nějak takto...
    use FindBin qw($RealBin);
    use lib $RealBin;
    use MujModul;
    my ($root) = $INC{'MujModul.pm'} =~ /(.*)\//;
    …
    my $soubor = "$root/soubor.xxx";
    
    Ještě jednou děkuji!
    NO RAPTORS!
    19.9.2008 21:18 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: perl - cesta k adresáři, kde je script
    my ($root) = $INC{'MujModul.pm'} =~ /(.*)\//;

    Tuhle vec muzete udelat take pomoci File::Basename nebo neco takovyho a bude to prenositelny i na jiny systemy nez unix. Jinak ten postup je vicemene to co jsem se snazil naznacit. :)

    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.