Re: [PERL] Simpelt Perl spørgsmål

[sslug@sslug (Jesper Krogh)]

> #!/usr/bin/perl
> #
> $filnavn = "xml$$";
> open(FILE, ">>/tmp/$filnavn") or die "Can't write to $filnavn; $!\n";
> while ($line = <STDIN>) {
>   last if $line = "";
> }
> print FILE <STDIN>;
> close (FILE);

Noget i denne stil ville nok være bedre:
#!/usr/bin/perl -w
$filnavn ="xml$$";
open(FILE, ">>/tmp/$filnavn") or die "Can´t...\n";
while(<STDIN>){
        $content .= $_;
}
print FILE $content;
close FILE;



-- 
./Jesper Krogh.
The Goal is world domination, no more, no less.
This means that your PC should run linux too.