PERL Miscellaneous - Re: Cant open a file with just a relative path

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

Re: Cant open a file with just a relative path

Michele Dondi

2007-04-29, 10:02 pm

On 24 Apr 2007 13:04:31 -0700, skieros <nikos1337@gmail.com> wrote:

>open(FILE, ">>/somefolder/somesubfolder/digest.passwd") or die $!;
> print FILE "$user:$realm:" . Digest::MD5::md5_hex("$user:$realm:
>$pass") . "\n";
>close(FILE);

http://perlmonks.org/?node_id=612657

Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{po
p^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
..'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,

Sponsored Links