Thread Wie kann man Variablen als GLOB verwenden? (7 answers)
Opened by bianca at 2016-04-15 18:53

bianca
 2016-04-16 17:48
#184462 #184462
User since
2009-09-13
7016 Artikel
BenutzerIn

user image
Danke dir für die Mühe.
Mit deiner Schreibweise kommt
Quote
Name "main::IN" used only once: possible typo at test.pl line 30.
Name "main::OUT" used only once: possible typo at test.pl line 30.

Wenn ich stattdessen $explode->parse(\$IN,\$OUT) schreibe kommt
Quote
Not a GLOB reference at C:/strawberry/perl/site/lib/MIME/Explode.pm line 136.


Macht aber nichts, GwenDragon! Ich lasse sowieso jetzt vorher speichern, hab das Konzept dahingehend leicht geändert. Brauchst nicht weiter suchen.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

#!/usr/bin/perl
use strict;
use warnings;
use Fcntl qw(:DEFAULT);
use Data::Dumper;
require Data::Dumper;
local $Data::Dumper::Purity;
$Data::Dumper::Purity = 1;
local $Data::Dumper::Useqq;
$Data::Dumper::Useqq = 1;
local $Data::Dumper::Sortkeys;
$Data::Dumper::Sortkeys = sub {
    my ($hash) = @_;
    return [(sort {lc $a cmp lc $b} keys %$hash)];
};
use 5.010;


my $daten_bytes_von_smtp = "To: test\@test.de\n\n";
open (my $IN, '<', \$daten_bytes_von_smtp) or die $!;
open (my $OUT, '>', 'test.txt') or die $!;
require MIME::Explode;
my $explode = MIME::Explode->new(
    output_dir          => "tmp",
    mkdir               => 0666,
    decode_subject      => 1,
    check_content_type  => 1,
    types_action        => 'include',
);
if (my $headers = $explode->parse(\$IN,\$OUT)) {
    say Dumper($headers);
}
10 print "Hallo"
20 goto 10

View full thread Wie kann man Variablen als GLOB verwenden?