perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 22
Click for quality!




11.02.2012 / 20:11

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragGanze CD als String?
Seitenanfang
Hi,

Ich möchte eine ganze CD in einem String haben... also alle Datein von der CD in nem String um es besser auszudrücken... nur hab ich keinen Plan wie ich das anstellen soll! Wäre also nett wenn mir einer von euch einen kleinen Denkanstoß geben könnte... thx schon im Vorraus...

Mfg

Datum: 09.11.2007-14:49

Beitragre: Ganze CD als String?
Seitenanfang
Willst du die CD Bit fuer Bit im String, den Inhalt der Dateien zusammengehangen oder nur die Dateinamen?

Denkanstosz:


use File::Find;

my $cd_string;

find(\&process, '/pfad/zum/cd/laufwerk');

sub process {
next unless -f $File::Find::file; # ueberspringe alles was keine Datei ist
$cd_string .= $File::Find::file; # haenge Dateinamen an String
}


Wenn du nun den Inhalt der Datei im String haben moechtest, musst du die Datei oeffnen und auslesen statt den Dateinamen anzuhaengen, aber das duerfte ja wohl klar sein.

Sollte ich dich dein Vorhaben nicht richtig verstanden haben, dann gibt bitte noch ein paar Informationen mit an, z.Bsp.: wie genau das Ergebnis aussehen soll und wofuer es gebraucht wird

Datum: 10.11.2007-01:39

Beitragre: Ganze CD als String?
Seitenanfang
muss mich korrigieren:

next unless -f $File::Find::file; # ueberspringe alles was keine Datei ist

muss natuerlich

return unless -f $File::Find::file; # ueberspringe alles was keine Datei ist

lauten.

Datum: 10.11.2007-01:40

-






-
-