Foreach Schleifen funktionieren nicht mehr - #55280 (Allgemeines zu Perl)

J-jayz-Z

2005-06-02 11:24

User since
2005-04-13
625 Artikel
BenutzerIn

Ich hatte auch mal so ein Problem. Versuch mal das hier, danach gings bei mir:

Code: (dl )

while(<DATA>)
{
push @lines, $_;
}

Bist du sicher, das nur eine Zeile eingelesen wird oder erhälst du nur als output in $tempfile eine Zeile?
Mach halt mal einfach so zum test ein

Code: (dl )

foreach (@lines)
{
print $_;
}

dann siehst du, ob es wirklich am einlesen liegt...

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de