im Script eingebettete Bilder - #251 (Perl/CGI)

Ronnie

2007-06-30 17:48

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Na ja, wenn es viele Dateien sind, alle base64 codiert, in YAML verpackt, in die __DATA__ Sektion des CGIs. Ein Skript das dies vorbereitet, könnte so aussehen:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

use MIME::Base64;
use IO::All;
use YAML;

my %files = ();

for my $to_store (@ARGV) {
    $files{$to_store} = encode_base64(io($to_store)->binary->all);
}

print Dump %files;

Die Ausgabe sähe dann für das Skript selbst so aus, wobei natürlich mehrere Dateien auf einmal verarbeitet werden könnten:

Code: (dl )

--- pack_files.pl
--- |
IyEvdXNyL2Jpbi9wZXJsCgp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7Cgp1c2UgTUlNRTo6QmFz
ZTY0Owp1c2UgSU86OkFsbDsKdXNlIFlBTUw7CgpteSAlZmlsZXMgPSAoKTsKCmZvciBteSAkdG9f
c3RvcmUgKEBBUkdWKSB7CiAgICAkZmlsZXN7JHRvX3N0b3JlfSA9IGVuY29kZV9iYXNlNjQoaW8o
JHRvX3N0b3JlKS0+YmluYXJ5LT5hbGwpOwp9CgpwcmludCBEdW1wICVmaWxlczs=

EDIT: Wobei die Variante von renee wahrscheinlich am einfachsten ist.\n\n