[quote:33e39a6fc5="gabcsi"]
Nem egészen ide való, de ha szeretném használni az md5sum-ot Perl alól, akkor ezt hogyan tudom megtenni, és a kimenetét is fel szeretném használni?
gabcsi
Itt nezz korul:
http://search.cpan.org/search?query=md5&mode=all
[quote:cb9d2626e4="Jonci"]egyszer egy shell scriptet forditottam at perl script-re es veletlenul benne maradt egy `...` parancsbehelyettesiteses sor es mukodott !
miota tud ilyen a perl? nem olvastam meg egyik konyvben sem...
Hat szerintem sok-sok éve;-)
reszlet a man perlol-bol:
Quote and Quote-like Operators
Customary Generic Meaning Interpolates
'' q{} Literal no
"" qq{} Literal yes
`` qx{} Command yes*
Igen helyes dontes, en mar evekkel ezelott megtettem.
Arra jok , hogy az ember nagyvonalakban kepbe keruljon valamirol, de a reszletekkel kapcsolatban csak a legfrisebb online doksik ernek valamit.
;-)
[quote:cad0c06996="gabcsi"]
Meg egy kérdésem, ugyanabba a sorba szeretném kiírni az üzeneteimet (pl.:wget folyamat megjelenítő), tud erre vki egy frappáns megoldást?
gabcsi.
Ne \n-el hanem \r-el irasd ki, az csak kocsivissza, nincs soremeles.
Perl megoldással szeretnék egy files-ből adott kezdetű sorokat kiszedni!
Most vagy én nem látok vmit, vagy káosz lakozik megint a fejemben!
Itt a kiemelt Perl részlet:
A célom az lett volma, hogy a files-ből kiírjam a Filename: kezdetű sorokat, ennek ellenére az egész files kikerül a képernyőre!
Ez a regexp soha nem ment valami fényesen, de ennyit még nem tököltem vele!
[quote:2bbb987d99="gabcsi"]Így már működik, de a $new_line változómmal miért nem akar menni?
(Tudom, hogy így bonyolultabb!)
Köszi szépen a segítséget!
1. miert ne mukodne??? Mukodik...
2. Ha az = ~ kozott kihagysz egy space-t, akkor az nem a pattern match operator, hanem ertekadas a negalt, vagy milyen ertekkel..., tehat akkor szep szamokat kellene kiirnia...
Hozzászólások
Igazad van Zsiráf, megnéztem!
Nem egészen ide való, de ha szeretném használni az md5sum-ot Perl alól, akkor ezt hogyan tudom megtenni, és a kimenetét is fel szeretném használni?
egy ciklusban van az egész, ahol az állományok neve $files-ben van:
system "md5sum $files";
Ez jó, de az md5sum visszaadott értékét, hogyan kapom vissza egy változóba?
gabcsi
[quote:33e39a6fc5="gabcsi"]
Nem egészen ide való, de ha szeretném használni az md5sum-ot Perl alól, akkor ezt hogyan tudom megtenni, és a kimenetét is fel szeretném használni?
gabcsi
Itt nezz korul:
http://search.cpan.org/search?query=md5&mode=all
egyszer egy shell scriptet forditottam at perl script-re es veletlenul benne maradt egy `...` parancsbehelyettesiteses sor es mukodott !
miota tud ilyen a perl? nem olvastam meg egyik konyvben sem...
ertsd:
--------------------
#!/usr/bin/perl
print `date`;
--------------------
[quote:cb9d2626e4="Jonci"]egyszer egy shell scriptet forditottam at perl script-re es veletlenul benne maradt egy `...` parancsbehelyettesiteses sor es mukodott !
miota tud ilyen a perl? nem olvastam meg egyik konyvben sem...
Hat szerintem sok-sok éve;-)
reszlet a man perlol-bol:
Quote and Quote-like Operators
Customary Generic Meaning Interpolates
'' q{} Literal no
"" qq{} Literal yes
`` qx{} Command yes*
kidobom a konyveket ;)
Tud valamelyikőtök használható Perl könyvet ajánlani, amiben van egy kis OO?
Meg egy kérdésem, ugyanabba a sorba szeretném kiírni az üzeneteimet (pl.:wget folyamat megjelenítő), tud erre vki egy frappáns megoldást?
gabcsi.
[quote:535b332161="Jonci"]kidobom a konyveket ;)
Igen helyes dontes, en mar evekkel ezelott megtettem.
Arra jok , hogy az ember nagyvonalakban kepbe keruljon valamirol, de a reszletekkel kapcsolatban csak a legfrisebb online doksik ernek valamit.
;-)
[quote:cad0c06996="gabcsi"]
Meg egy kérdésem, ugyanabba a sorba szeretném kiírni az üzeneteimet (pl.:wget folyamat megjelenítő), tud erre vki egy frappáns megoldást?
gabcsi.
Ne \n-el hanem \r-el irasd ki, az csak kocsivissza, nincs soremeles.
Ugyanabba a sorba szeretném kiírni az üzeneteimet (pl.:wget folyamat megjelenítő), tud erre vki egy frappáns megoldást?
a print "\b ";-s megoldás elég gánya!
gabcsi.
Ugyanabba a sorba szeretném kiírni az üzeneteimet (pl.:wget folyamat megjelenítő), tud erre vki egy frappáns megoldást?
A print "\b";-s megoldás elég gánya!
Hali!
Perl megoldással szeretnék egy files-ből adott kezdetű sorokat kiszedni!
Most vagy én nem látok vmit, vagy káosz lakozik megint a fejemben!
Itt a kiemelt Perl részlet:
open PAL,"< files";
while( $new_line = <PAL> )
{
if( $new_line = ~m/^Filename:/ )
{
print "$new_line\n";
}
}
A célom az lett volma, hogy a files-ből kiírjam a Filename: kezdetű sorokat, ennek ellenére az egész files kikerül a képernyőre!
Ez a regexp soha nem ment valami fényesen, de ennyit még nem tököltem vele!
Előre is köszönöm a válaszokat.
muszáj perlben?
parancssorból [code:1:f8056b699c]cat filename|grep ^Filename:[/code:1:f8056b699c]
[code:1:48237007ab]open PAL,"< files";
while( <PAL> ) {
if( /^Filename:/ ) {
print "$_";
}
}
[/code:1:48237007ab]
ezt alaposan túlbonyolítottad!
pl:
#!/usr/bin/perl -w
while (<>)
{
print if /^filename/;
}
jogos, ez megegyszerubb
apropo!
a $< valtozo mire jo? mit tartalmaz?
a minap lattam egy kodban, de nem volt idom foglalkozni vele
Így már működik, de a $new_line változómmal miért nem akar menni?
(Tudom, hogy így bonyolultabb!)
Köszi szépen a segítséget!
+ egy hasznos link:
http://regexlib.com/DisplayPatterns.aspx
[quote:2bbb987d99="gabcsi"]Így már működik, de a $new_line változómmal miért nem akar menni?
(Tudom, hogy így bonyolultabb!)
Köszi szépen a segítséget!
1. miert ne mukodne??? Mukodik...
2. Ha az = ~ kozott kihagysz egy space-t, akkor az nem a pattern match operator, hanem ertekadas a negalt, vagy milyen ertekkel..., tehat akkor szep szamokat kellene kiirnia...
Zsiraf