Suche ein write-file das automatisch Verzeichnisse anlegt - #111024 (Allgemeines zu Perl)

scriptor

2008-06-14 00:23

User since
2008-05-07
69 Artikel
BenutzerIn

renee+2008-06-13 21:31:51--
File::Path

Danke, renee, für die schnelle Antwort!
Da war ich auch schon. Ich hatte die Hoffnung, dass eine Funktion gibt, die Beides in Einem macht: Den vollständigen Directory-Aufbau sicherstellen und die Daten in die Datei schreiben.

Ich gebe zu der Abstand einer vollständigen Lösung zu der vorhandenen Funktion plus File::Path ist nicht groß.... Ich hab bisher fast Alles selbst geschrieben, da wollte ich dieses Mal nach etwas Fertigem suchen. :-)

NACHTRAG:
CPAN:

File::Util macht, was ich suchte!

Code (perl): (dl )

use File::Util;

sub write_file
        {
        my $path = shift;
        my $text = shift;

        my($f) = File::Util->new();
        
        $f->write_file(
                        'file'          => $path,
                        'content'       => $text,
                        'bitmask'       => 0777,
                        'mode'          => 'write',
                        );  
        }

//ModEdit GwenDragon: Bitte Code in CODE- oder PERL-Tags.
Siehe http://board.perl-community.de/helptags/