Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]12010[/thread]

Suche ein write-file das automatisch Verzeichnisse anlegt



<< >> 3 Einträge, 1 Seite
scriptor
 2008-06-13 22:48
#111020 #111020
User since
2008-05-07
69 Artikel
BenutzerIn
[Homepage] [default_avatar]
Vor lauter Modulen sehe ich den "Baum" nicht und weiß auch nicht, wie ich es für die Suche beschreiben kann.

Ich bräuchte schnell ;-) für meinen Webpagecache eine Funktion,die noch nicht vorhandene Verzeichnisse automatisch anlegt.

Code (perl): (dl )
1
2
3
4
5
6

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

$path könnte z.B. so aussehen:

Code: (dl )
/Users/gerd/htdocs/_meltingmind_root_/ebertplatz/cache/wiki/index.html


Verzeichnisse hinter dem /cache/ könnten noch nicht existieren.

Danke für jeden Hinweis!
renee
 2008-06-13 23:31
#111021 #111021
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
CPAN:File::Path
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
scriptor
 2008-06-14 00:23
#111024 #111024
User since
2008-05-07
69 Artikel
BenutzerIn
[Homepage] [default_avatar]
renee+2008-06-13 21:31:51--
CPAN: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 )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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/
<< >> 3 Einträge, 1 Seite



View all threads created 2008-06-13 22:48.