CTK::File - Files and direcries working
Version 1.71
$c->fjoin( -in => catdir($DATADIR,'in'), # Source directory -out => catdir($DATADIR,'out'), # Destination directory (for joined file) -list => qr/txt$/, # Source mask (regular expression, filename or ArrayRef of files) -fout => 'foo.txt', # Output file name ); $c->fsplit( -in => CTK::catfile($CTK::DATADIR,'in'), # Source directory (big files) -out => CTK::catfile($CTK::DATADIR,'out'), # Destination directory (splitted files) -n => 100, # Lines count -format => '[FILENAME]_%03d.[FILEEXT]', # Format -list => qr//, # Source mask (regular expression, filename or ArrayRef of files) ); $c->fcopy( -in => CTK::catfile($CTK::DATADIR,'in'), # Source directory (source files) -out => CTK::catfile($CTK::DATADIR,'out'), # Destination directory -format => '[FILE].copy', # Format -list => qr//, # Source mask (regular expression, filename or ArrayRef of files) ); $c->fmv( -in => CTK::catfile($CTK::DATADIR,'in'), # Source directory (source files) -out => CTK::catfile($CTK::DATADIR,'out'), # Destination directory -format => '[FILE].copy', # Format -list => qr//, # Source mask (regular expression, filename or ArrayRef of files) ); $c->frm( -in => CTK::catfile($CTK::DATADIR,'in'), # Source directory (source files) -list => qr//, # Source mask (regular expression, filename or ArrayRef of files) );
Path and filename
Filename only
File extension only
Current number of file in sequence (for fcopy and fmove methods)
Gor fsplit method please use perl mask %i
Current time value (time())
For copying paths: use File::Copy::Recursive qw(dircopy dirmove);
For TEMP dirs/files working: use File::Temp qw/tempfile tempdir/;
$c->fjoin( -in => catdir($DATADIR,'in'), # Source directory -out => catdir($DATADIR,'out'), # Destination directory (for joined file) -list => qr/txt$/, # Source mask (regular expression, filename or ArrayRef of files) -fout => 'foo.txt', # Output file name );
Join group of files (by mask from source directory) to one big file (concatenate). File writes to destination directory by output file name (fout)
perl -MCTK::File -e "CTK::File::fjoin(-cmdmode=>1, -mask=>qr/txt$/, -fout => 'foo.txt')" -- *
This is new features, added since CTK 1.18.
$c->fsplit( -in => CTK::catfile($CTK::DATADIR,'in'), # Source directory (big files) -out => CTK::catfile($CTK::DATADIR,'out'), # Destination directory (splitted files) -n => 100, # Lines count -format => '[FILENAME]_%03d.[FILEEXT]', # Format -list => qr//, # Source mask (regular expression, filename or ArrayRef of files) );
Split group of files to parts
$c->fcopy( -in => CTK::catfile($CTK::DATADIR,'in'), # Source directory (source files) -out => CTK::catfile($CTK::DATADIR,'out'), # Destination directory -format => '[FILE].copy', # Format -list => qr//, # Source mask (regular expression, filename or ArrayRef of files) );
Copying files from the source directory to the destination directory
$c->fmv( -in => CTK::catfile($CTK::DATADIR,'in'), # Source directory (source files) -out => CTK::catfile($CTK::DATADIR,'out'), # Destination directory -format => '[FILE].copy', # Format -list => qr//, # Source mask (regular expression, filename or ArrayRef of files) );
Moving files from the source directory to the destination directory
$c->frm( -in => CTK::catfile($CTK::DATADIR,'in'), # Source directory (source files) -list => qr//, # Source mask (regular expression, filename or ArrayRef of files) );
Deleting files from the source directory
Sergey Lepenkov (Serz Minus) http://www.serzik.com <minus@mail333.com>
Copyright (C) 1998-2017 D&D Corporation. All Rights Reserved
This program is free software; you can redistribute it and/or modify it under the same terms and conditions as Perl itself.
This program is distributed under the GNU LGPL v3 (GNU Lesser General Public License version 3).
See LICENSE file
LICENSE
To install CTK, copy and paste the appropriate command in to your terminal.
cpanm
cpanm CTK
CPAN shell
perl -MCPAN -e shell install CTK
For more information on module installation, please visit the detailed CPAN module installation guide.