textfiles teilen (Allgemeines zu Perl)

[thread]7715[/thread]

textfiles teilen

picknicker187

2006-02-16 19:05

User since
2006-01-12
6 Artikel
BenutzerIn
[default_avatar]

hi,

ich habe ein script, das ein textfile erzeugt. ich würde es jetzt gerne so machen, dass das file beim erzeugen in mehrere teile geteilt wird. also im klartext: immer wenn das file 5mb groß ist, soll ein neues angefangen werden. weiss jemand wie ich das am einfachsten mache?

gruß und danke,

michel

bloonix

2006-02-16 19:20

User since
2005-12-17
1615 Artikel
HausmeisterIn

Die Funktion tell gibt dir die Position des Zeigers in Bytes wieder.
Wenn du zum Beispiel eine Datei für ein Append öffnest, befindet sich
der Zeiger am Ende der Datei.

Beispiel:

Code: (dl )

open FILE,'>>','./irgendeine_datei' or die $!;
my $position = tell(FILE);

if ($position > 5242880) {
   # dann fange eine neue Datei an ...
}

close FILE;

\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

renee

2006-02-17 00:33

User since
2003-08-04
14371 Artikel
ModeratorIn

http://perlmonks.org/?node_id=481129
CPAN:

File::Split

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/

View all threads created 2006-02-16 19:05.