Karakter dizilerinin sonuna ekleme yaparak base58 kombinasyonundan veri elde etmeye çalışıyorum.

Perl Kod:

#!c:\perl64\bin\perl.exe


{$db = "123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz";
$pw="Rw5cfDTA8zGsdjEhKnhXJTH7LrciGrDi9qZ1";
@delen = split('',$pw);
@letters = split('',$db);
$length = length($pw);
for ($position = 36; $position < $length+1; $position++)
{foreach(@letters)
    {
        @new = @delen;
        splice(@new, $position, 0, $_);
        print join('',@new)."\n";
    }}}
$pw tanımına teker teker tüm kombinasyonları girmek zorundayım. Elle girmek yerine TXT dosyasında yer alan listemin tüm satırlarını işlemesini istiyorum. Nasıl yapılacağı hakkında birkaç araştırma yaptım ama başaramadım. Yol gösterebilecek var mı?

Stackoverflow'da çözümleri paylaştım.
https://stackoverflow.com/questions/...from-txt-file/