Re: Problem with multiple loops

Hi chinamox, Try to use File::Split module.

 use File::Split;
 my $fs = File::Split->new({keepSource=>'1'});
 #####Based on Number of Lines
 my $files_out = $fs->split_file({'lines' => 1000},'E:\test\test.xml')
+;
 #####Based on Number of Files
 my $files_out = $fs->split_file({'parts' => 10},'E:\test\test.xml');
[download]

I have tested in Windows only. Not in Unix.

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

Comment on Re: Problem with multiple loops Select or Download Code

Replies are listed 'Best First'.
Re^2: Problem with multiple loops by chinamox (Scribe) on Oct 24, 2006 at 13:26 UTC
Do I have to install the File::Split module or is it part of the Default Perl package?	[reply]
Re^3: Problem with multiple loops by Melly (Chaplain) on Oct 24, 2006 at 13:56 UTC
I'd be a little wary of using File::Split since this is an assignment... afaik it's not part of the standard distrib, so, even ignoring whether getting a module to do all your work is really going to convince your tutor, it might present problems when showing your work. Tom Melly, tom@tomandlu.co.uk	[reply]
Re^4: Problem with multiple loops by chinamox (Scribe) on Oct 24, 2006 at 14:08 UTC
This was my fear as well. That said, in the future I will certainly keep Fill::Split in mind. Cheers, -mox	[reply]
Re^3: Problem with multiple loops by davorg (Chancellor) on Oct 24, 2006 at 14:00 UTC
It's not part of the standard distribution. You can check that by reading the perlmodlib man page that came with your version of Perl. -- <http://dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply]