Здравейте,

По принцип не съм ползвал Perl досега,
Та въпроса е в следното трябва ми функция която да отвори еднин фаил да изземе съдържанието от него да го едитне и да го затвори.
Идеята ми е да едитвам .htpasswd филето:
user:Cop8RrMm/mk72

например на:
user:аааааааааааа

и така да контролирам достъпа до апачето

Предварително ви благодаря!

use File::Slurp;
use strict;

my $file = 'filename';
my @file = read_file($file);

for( @file ){

#------edit file data here------#

}

write_file(@file)


$_->{$.};s:.?(.)..(.):print(($1..$2)[9,0,15,7]):e

Otnosno htpasswd:

Author: T.R. Fullhart, kayos@kayos.org

use Tie::Htpasswd;
tie %htpasswd, 'Tie::Htpasswd', "/home/httpd/htdocs/.htpasswd";

$htpasswd{username} = "password"; # assignment automatically crypt()s
delete $htpasswd{username}; # removed from .htpasswd

untie %htpasswd; # save the file


$_->{$.};s:.?(.)..(.):print(($1..$2)[9,0,15,7]):e