Filehandler über Array?! - #68391 (Allgemeines zu Perl)

Linuxer

2006-07-25 22:44

User since
2006-01-27
3882 Artikel
HausmeisterIn

user image

[quote=rucksl,25.07.2006, 18:52]Hab nun schon ewig gesucht[/quote]
Auch in der Perldoc?

perldoc -f open:

Quote
...
If FILEHANDLE is an undefined scalar variable (or array or hash element) the variable is assigned a reference to a new anonymous filehandle, ...

Code: (dl )

#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;

my @handles = ();

for ( 0 .. $#ARGV ) {

    open $handles[$_], $ARGV[$_] or die "$ARGV[$_]: $!\n";
    
}

print scalar(@handles) . " open Filehandles\n";

edit: Die Inhalte der Handles kannst Du z.B. dann so zusammenführen:

Code: (dl )

1
2

my $text = join( '', map { local $/; <$_> } @handles );
print $text, $/;

\n\n

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!