in reply to splitting a file
Hi boby, this file split works under Windows,
use strict; use warnings; use File::Split; my $fs = File::Split->new({keepSource=>'1'}); my $filename = 'E:\test\text.txt'; my $size = (stat($filename))[7]/1024/1024; #####Based on Number of Files my $files_out = $fs->split_file({'parts' => sprintf("%.0f",($size/512) +)}, $filename);
First look into How do I post a question effectively? and How (Not) To Ask A Question
ikegami++
Regards,
Velusamy R.
eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';
In Section
Seekers of Perl Wisdom